TMPEX3  -  NTL  TEMPLATE  r.xOP  CLE  MACRO  V05.03b  Saturday  29-Jun-85  00:43  Page  7 


TMt 
MA( 


T62 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 


000032  062705  000003 
000036 


000040  122525 
000042 


00C044  005205 
000046 


000050 


•  *** 

•  CLEANUP  ROUTINES 
■  *** 


;  DISCARD  3  BYTES 

P0P3:   ADD     #3,R5 
RETURN 


;  DISCARD  2  BYTES 

P0P2:   CMPB    (R5)  +  ,(R5)«- 
RETURN 

;  DISCARD  1  BYTE 

POP!:   INC     R5 
RETURN 

;  NO  CLEANUP 
NULL:    RETURN 


C     1 
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TMPEX5   -  NTL   LINE    TABLE   UPDATE 
MACRO  DEFIMITIONS 

165 
166 
167 
168 
169 
170 
171 
172 
173 
17A 
175 
176 
177 
178 

179  000000 

180  000000  005067  000152' 

181  OOOOOA  005067  0001 5A' 
18?  000010  016705  OOOOOOG 
183  OOOOH  016703  OOOOOOG 
18A  000020  016704  OOOOOOG 

185  000024  116A0A  000002 

186  000030 

187  000034  016702  000160' 

188  000040  001421 

189  000042  042702  177700 

190  000046  016203  000162' 

191  000052  016704  OOOOOOG 

192  000056  026705  OOOOOOG 

193  000062  001407 

194  000064  005002 

195  000066  152502 

196  000070  001404 

197  000072  106302 

198  000074 

199  000100  000766 

200  000102 
201 
202 
203 
204 
205  000104 
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TMP 
X2C 


$T;1EX5  -  EXPAND  BINARY  INFORMATION!  INTO  REAL  INFORMATION 

THIS  ROUTINE  IS  CALLED  AFTER  THE  ASCII  TEMPLATE  FILE  HAS  BEEN  READ 
AND  PROCESSED  INTO  THE  BINARY  FILE.  THE  BINARY  INFORMATION  IS  EXPANDED 
AND  STORED  AT  THE  LOCATION  CONTAINED  IN  "$ADDR". 

INPUTS: 

$BIN=START  OF  BINARY  INFORMATION 
$PTR=END  or  BINARY  INFORMATION 
$ADDR=ADDRESS  OF  WHERE  REAL  DATA  GOES 

OUTPUTS: 

ALL  REGISTERS=DESTROY£D 

$TMEX5;: 

ZERO  INDEX  VALUE 

AND  SPECIAL  FLAGS 

START  OF  BINARY  DATA 

GET  LINE  TABLE  ADDRESS 

GET  THE  SLT  ADDRESS 

GET  THE  DDM  PDV  INDEX  FOR  CALL 

SEARCF  THRU  THE  UNLOAD  BLOCKS 

SUCCESS  ? 

NO  .. 

YES  ..  USE  LOW  6  BITS  ONLY 

GET  CONTROLLER  TABLE  STARTING  ADDRESS 

RESTORE  THE  SLT  ADDRESS 

IS  IT  END  OF  BINARY  DATA? 

IF  EQ,  YES 

GET  FUNCTION  CODE 

IF  7Er6!'END  of  FILE 
CONVERT  TO  A  WORD  INDEX 
EXPAND  ONE  FIELD 
KEEP  LOOPING  UNTIL  END 


C'N'T  FIND  LINJE  TABLE  IN  UNLOAD  BLOCKS 


CLR 

INDEX 

CLR 

FLAGS 

MOV 

$BIN,R5 

MOV 

$ADDR,R3 

MOV 

$SLTA,R4 

M0V8 

L.DDM(R4),R4 

CALL 

FLT16 

MOV 

U8A,R2 

BEQ 

101$ 

BIC 

#»C<77>,R2 

MOV 

BL0CK(R2),R3 

MOV 

$SLTA,R4 

10$: 

CMP 

$PTR,R5 

BEQ 

20$ 

CLR 

R2 

BISB 

(R5)+,R2 

BEQ 

20$ 

ASLB 

R2 

CALL 

aTA6LE-2'R2) 

BR 

10$ 

20$: 

RETURN 

•  ERROR 

CONDITION 

101$: 

CRASH 

C    2 
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TMPEX5 
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771  001 55A 

772  001556 

773  '^01562 

774  001566 

775  001570 

776  001572 

777  001576 

778  001600 

779  00^602 
780 

781 


00U11 
016700 
126400 
001004 
006300 
016023 
000401 
005723 


OOOCOl 


000152' 
000013 


OOOOOOG 


BEQ 

10$ 

MOV 

INDEX, RO 

CMPB 

L.UNT(R4),R0 

BNE 

10$ 

ASL 

RO 

f-M 

$X2HLD(R0),(R3)+ 

BR 

20$ 

10$: 

TST 

(R3)  + 

20$: 

RETURN 

BR  IF  NO 

GET  SECONDARr  FILE  COUNTER 

DO  UNIT  NUMBERS  1ATCH  ? 

NO  .. 

CONVERT  TO  A  WORD  INDEX 

STORE  HOLDBACK  TIMER 

AND  EXIT 


.END 


C  3 


TMPEX5 
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241 
242 

$TMEX6  -  EX'^AND  BINARY  INFORMATION  INTO  REAL  INFORMATION 

243 
244 

THIS 

ROUTINE 

IS  CALLED  AFTER  THE  ASCII  TEMPLATE  FILE  HAS  BEEN 

READ 

24S 

AND 

PROCESSED 

INTO  THE  BINARY  F 

ILE.  THE  BINARY  INFORMATION  IS 

EXPANDED 

246 

AND 

STORED  AT 

THE  LOCATION  CONTAINED  IN  "$ADDR".  THIS  ROUTINE 

IS  CALLED 

247 
248 
249 

ONLY 

FOR  LIK'E 

TABLES  TO  BE  PLACED  AT  THE  END  OF  THE  PROCESS  PARTITION. 

INPUTS: 

250 

$BIN=START  OF  BINARY  INFORMATION 

251 

$PTR=END  OF  BINARY  INFORMATION 

252 

$ADDR=ADDRESS  OF  WHERE  REAL  DATA  GOES 

253 

$BIAS=BIAS  OF  THE  PROCESS 

PARTITION 

254 
255 

OUTPUTS: 

256 

ALL  REGISTERS=DESTROYED 

257 

258  OOOUOO 

;tmex6 

259  000000 

005067 

000156' 

"CLR 

INDEX 

ZERO  INDEX  VALUE 

260  000004 

005067 

000160' 

CLR 

FLAGS 

WD  SPECIAL  FLAGS 

261  000010 

005067 

000172' 

CLR 

NXTLN 

CLEAR  COUNTER  FOR  NUMBER  OF  . 

INT'S  FOUND 

262  C00014 

005067 

000170' 

CLR 

IC8PT 

CLEAR  POINTER  INTO  KB 

263  000020 

016767 

0000006 

000166' 

MOV 

$ICBAD,ICBAD 

GET  START  ADDRESS  OF  KB 

264  000026 

016767 

OOOOOOG 

000174' 

MOV 

$ICeLN,ICBLN 

GET  KB  LENGTH 

265  000034 

012700 

OOOOOOG 

MOV 

#$SMTS2,R0 

GET  SIZE  OF  SYMBOL  TABLES 

266  000040 

012701 

OOOOOOG 

MOV 

#$PDVA,R1 

GET  START  OF  TABLE 

267  000044 

012702 

000176' 

MOV 

*PRPDVA,R2 

GET  START  OF  LOCAL  TABLE 

268  000050 

012122 

5$: 

MOV 

(R1)+,(R2)+ 

COPY  GLOBAL  SYMBOL  TABLE 

269  000052 

005300 

DEC 

RU 

END  OF  API;' 

270  000054 

003375 

BGT 

5$ 

IF  GT,  NO 

271  000056 

016767 

OOOOOOG 

000162' 

MOV 

$FLAGS,PRFLAG 

SAVE  STATUS  FLAGS 

273  000064 

SWSTK$ 

20$ 

SWITCH  TO  SYSTEM  STATE 

274 

275  000070 

016700 

OOOOOOG 

MOV 

$BIAS,RO 

GET  BIAS  OF  PROCESS  PARTITION 

276  000074 

CALL 

$MAPX 

MAP  TO  PARTITION 

277  0001CO 

016704 

OOOOOOG 

MOV 

$ADDR,R4 
#160000, R4 

GET  OFFSET  INTO  PARTITION 

278  000104 

042704 

160000 

BIC 

CLEAR  THE  APR  GIVEN 

279  000110 

010467 

000164' 

MOV 

R4,STLIN 

SAVE  START  OF  LINE  TABLE 

280  000114 

050204 

BIS 

R2,R4 

CLEAR  THE  APR  IN  USE 

281  000116 

056767 

00C''54' 

000164' 

BIS 

PRAPR.STLIN 

USE  THE  APR  OF  THE  PROCESS 

232  0C0124 

016705 

OOOOOOG 

MOV 

$8IN,R5 

START  OF  BINARY  DATA 

283  000130 

026705 

OOOOOOG 

10$: 

CMP 

$PTR,R5 

IS  IT  END  OF  BINARV  DATA? 

284  000134 

001407 

BEQ 

20$ 

IF  EQ,  YES 

285  000  1  36 

005003 

CLR 

R3 

GET  FUNCTION  CODE 

286  000140 

152503 

BISB 

(R5)+,R3 

.  .  . 

287  0OOK2 

001404 

BEQ 

20$ 

■  IF  ZERO,  END  OF  FILE 

288  000144 

106303 

ASLB 

" 

■  CONVERT  TO  A  WORD  INDEX 

289  000146 

CALL 

aTA8LE-2{R3) 

■  EXPAND  ONE  FIELD 

290  00015^ 

000766 

BR 

10$ 

■  KEEP  LOOPING  UNTIL  END 

291  000154 

20$: 

RETURN 

c    V 
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775 

776 

777 

778  001652 

77"  001652 

■    "  00165A 

781  001660 

782  001662 

783  001 66A 

784  001670 
785 

786  001672 

787  001 67A 

788  001676 
789 

790  001700 

791  001702 

792  001704 
793 

^94  001706 

795  001710 

796  00  ;^'' 6 

797  00172^ 

798  001726 

799  001730 

800  001732 

801  001736 
802 

803  001742 

80A  001 74A 

805  001746 

806 

807  001752 


112546 
112566 
012600 
112546 
112566 
012603 

005C24 
112524 
112524 

005746 
011146 
010246 

010011 
016366 
016711 
016702 
r  0022 
1.  0312 
042722 
010267 


LIBRARY  POINTER 


LI8R: 


000001 


000001 


OOOOOOG  000004 

OOOOOOG 

OOOOOOG 


177700 
OOOOOOG 


012602 
012611 
012664  17777i 


MOVB 

(fi5)'   (SP) 

MOVB 

(R5)t,l(SP) 

MOV 

(SP)+,RO 

MOVB 

(R5)+,-(SP) 

MOVB 

(R5)t,1(SP) 

MOV 

(SP)+,R3 

CLR 

(R4)* 

MOVB 

(R5)+,(R4)+ 

MOVB 

(R5)+,CR4)+ 

TST 

-(SP) 

MOV 

(R1),-(SP) 

MOV 

R2,-(SP) 

MOV 

R0,(R1) 

MOV 

LB.ADR(N3),4'SP) 

MOV 

$us;as,(ri) 

MOV 

$LDA,R2 

MOV 

R0,(R2)+ 

MOV 

R3,(R2) 

BIC 

#"C<77>,(R2)+ 

MOV 

R2,$L[)A 

MOV 

(SP)+,R2 

MOV 

(SP)+,(R1) 

MOV 

(SP)+,-4(R4) 

RETURN 


ASSEMBLE  DESCRIPTOR  BIAS 


GET  ADDRESS  OF  LIBRARY  DESCRIPTOR 
ONE  BYTE  AT  A  TIME 
SAVE  FOR  LATER 

ZERO  FIRST  WORD  OF  ADDRE.S  (TEMPORARY) 
ADDRESS  OF  LIBRARY  IS  USER  DEFINED 
ONE  BYTE  AT  A  TIME 

MAKE  ROOM  TO  SAVE  AN  ARGUMENT 
SAVE  CURRENT  HAPPING 
SAVE  BASE  ,DDRESS  ALSO 

MAP  TO  THE  LIBRARY  DESCRIPTOR 
;  STORE  LIBRARY  BIAS  ON  STACK 
MAP  TO  UNLOAD  BLOCK 

GET  LIBRARY  DATA  ADDRESS  WITHIN  UNLOAD  BLOCK 
STORE  DESCRIPTOR  BIAS 
AND  OFFSET 
6  BITS  ONLY 
UPDATE  LIBRARY  DATA  POINTER 

RESTORE  OLD  BASE  ADDRESS 

RESTORE  OLD  APR 

SET  THE  LIBRARY  BIAS 


C     5. 
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r-     721  X5CH 

12-     779         X2CH 
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IMPEX7  -  MT^  TEMPLATE  EXPANSION  MACRO  V05.03b  Saturday  29-Jun-85  0C;4';  Page  8-1 
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567  0C11i5 
56S  001142 

569  001  HA 

570  001 '50 

571  001156 

572  001160 

573  001162 
57A  001166 
575  001172 


000767 
005267 
126667 
001560 
022626 
00506" 
005067 


000350' 
000002 


00035C' 
000352' 


000350' 


30$: 


CALL 

aTABLE-2(R2) 

EXPAND  A  FIELD 

BP 

20$ 

KEEP  LOOKING  FOR  EOF 

INC 

INDEX 

TALLY  ONE  PASS  THRJ  SECONDARY  FILE 

CMPB 

2(SP), INDEX 

ARE  WE  DONE^ 

BNE 

10$ 

U  NE,  NO 

CMP 

(SP)t,(SP)+ 

PURGE  STACK 

CLR 

INDEX 

CLEAR  SECONDARY  INDEX 

CLP 

FLAGS 

AND  SPECIAL  FLAGS 

RETURN 

C  7 
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TMPEX7 

CREATED  BY 

MACRO     ON  29-JUNI-85   AT   00:4^ 

SYMBOL 

CROSS   REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

$X2MRT 

3       »***■** 

GX 

6-226 

$X2MUS 

r     ****** 

fix 

6-216 

SX2RET 

-     ****** 

fix 

6-2^1 

tSDCHA 

=     *  *  *  *  -s^  * 

GX 

6-210             6-211 

SIPCHA 

:;      ****** 

GX 

6-212 

S$PRI 

=      *,*•** 

fix 

6-213 

$$SCSR 

r      ****** 

GX 

6-206 

.CXUNL 

r     ****** 

GX 

10-673 

.EOF 

-     ****** 

GX 

8-536             8-56A             9-t05 

B     8 

PAGE   4 

CREF       OA.OO 


W 
M/ 

C/ 

CF 

E^ 

Ef 
M 
N' 
Rf 
SI 
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TMPIN!     CREATED  BY  MACRO  n^J  29-JUN-85  '.T  00:A^     PAGE  A 

MACRO  CROSS  REFERENCE  CREf   0^.00 

6-168  6-172  6-173 


MACRO  NAME 

REFERENCES 

CALL 

6-131 

6-155 

CRASH 

7-24A 

EMSGS 

#5-57 

6-168 

EMSGSR 

#5-57 

6-185 

N<RDF$ 

#5-57 

5-67 

NTLERS 

#5-57 

5-87 

RFT'JRN 

6-1'6 

7-230 

SLTDf$ 

#^-57 

5-59 
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"F  ILE'MD'^TMPSTB 


TMPSTB  -  NTL  TEMPLATE  STATE 
.MPTAB,.hXTAB,.RXPTB 

331 
332 
333 
33^.  000002 

335  000002 

336  000002 
537  000002 
338  000002 
339 

3A0 

3A1 

342 

3«  000002 

3«  000002 

345  000002 

3A6  000002 

347  000002 

34  3 

349 

350 

351 

352 

353  000002 

354  000002 

355  000002 

356  000002 

357  000002 
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TAB  MACRO  V05.03b  Sarurday  29-Jun-85  00:45  Page  13 

.SBTTL   .MPTAB,.MXTA8,.MXPT8 
'.MPTA8" 

STATES  MPTA8 
TRANS        IFNAME,MPTAB1 
TRANS        lERROR.SEXlT 

STATES  MPTAB1 
TRANS        I0NLY1,SEXIT,S,'1PTB 


".MXTA8 


STATES  MXTA8 

TRANS   :fname,mxtabi 

TRANS   IERROR,SEXIT 

STATES  MXTA81 
TRANS   lONLYl.SEXIT.SMXTAB 


;  ".MXPTB" 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

MXPTB 
IF  NAME 
(ERROR 

MXPT81 
lONLVl 

MXPTB1 
SEXIT 

SEXIT.SMXPTB 

C  10 
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11'' 
lit) 
117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 
127 
128 

129  000000 

130  000000 

131  OOOOOA 
152  000006 
133  000012 
13A  000020 

135  000022 

136  000030 

137  000032 

138  OUOOAO 

139  O0OOA2 
UO  0000^6 
1A1  000052 
1A2  000056 
K3  000060 
1^A  000062 
K5  00006A 
146 

147  000066 

1A8  000072 

V.9 

150 

151  000072 

152 

153 

154 

155 

156 

157  000076 

158  000100 

159  C00104 
160 

161  000116 

162  000'22 

163  0CO124 

164  000126 

165  000130 
166 

167 
168 
169 
170 
171 


005767 
100430 
016701 
032761 
001022 
032767 
C01416 
032767 

016/00 
012701 
C16702 
010203 
060301 
060301 
000402 


010005 
042705 


016504 
022014 
001034 
005720 


ITMVCT   -   SETUP    INTERRUPT    \/ECT0R(S) 


INPUTS: 


$$VECT=VECTOR   TO  BF   USED 
$N\/ECT=NUMBER  OF    VECTORS    TO   SET  UP 
$ADDR=LINE    TABLE   ADDRESS 
$VECT1=INTERRUPT   DISPLACEMENT    VALUE(S) 
$SLTA=SLT   ADDRESS 
$ICBAD=ADDRESS  OF    KB 


OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 


OUTPUTS: 

ALL 

REGISiERS=DESTROyED 

MVCT:: 

TST 

SFLAGl 

BM! 

2$ 

MOV 

SPDVA.Rl        ; 

BIT 

#ZF.PSE,2.FL6(R1) 

BNE 

2$ 

BIT 

*FL.DDM,$FLAGS   ; 

BEQ 

2$ 

BIT 

*FL.CHA,$FLAGS   , 

BNE 

2$ 

MOV 

$$VECT,RO 

MOV 

#$VECT1,R1 

MOV 

$NVECT,R2 

MOV 

R2,R3 

ADD 

R3,R1 

ADD 

R3,R1 

BH 

3$ 

2$: 
3$: 


000077 
000000' 


4$: 


CALLR  60$ 

.IF  DF  R$$11M 

SWSTKS  50$ 

.IF  DF  R$$MPL 

MOV  aKSAR5,-(SP) 


.IFF 

MOV 
BIC 
ASR$ 

MOV 
CMP 
BNE 
TST 
SOB 

.IFT 

MOV 
MOV 
MOVB 


R0,S5 

#7?',R5 

5,r5 

NSITAB(R5),R4 

(R0)'-,(R4) 

30$ 

(RO)t 

R2,4$ 


$SLTA,R5 

L.KR8A(R5),R5 

aNCPU,R4 


ANY  ERRORS  YET? 

IF  MI,  YES  -  DON'T  CHECK 

GET  PDV  ADDRESS 

;  IS  THIS  A  PSEUDO  DEVICE? 

If  NE,  YES  -  DON'T  CHECK 

ARE  WE  LOADING  A  DDM? 

IF  EQ,  NO  -  DON'T  CHECK 

MUX  CHARACTERISTICS  UPDATE  ONLY  ? 

YES  ..  DON'T  CHECK 

GET  FIRST  VECTOR  ADDRESS 

GET  VECTOR  DISPLACEMENT(S)  ADDRESS 

GET  NUMBER  OF  VECTORS 

TWICE 

point  1  word  past  last  displacement 
continue' 
;  continue 

;•  enter  kernel  mode 
;*  save  current  mapping 


COPY  VECTOR  ADDRESS 

MAKE  IT  A  MULTIPLE  OF  TOO 

CONVERT  TO  A  WORD  INDEX 

BY  SHIFTING  RIGHT  5  PLACES 

GET  VECTOR  CONTENTS 

IS  VECTOR  STILL  AVAILABLE? 

IF  NE,  NO 

SKIP  VECTOR  PRIORITY 

LOOP  $NVECT  TIMES 


GET  SLT  ADDRESS 

TO  GET  THE  KR3  ADDRESS 

GET  THE  NUMBER  0^  PROCESSORS 
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•'MLE"1D»*UNLHC 


UU      UU 

NN 

NN 

HH 

HH 

CCCCCCCC 

uu    uu 

NN 

NN 

HH 

HH 

CCCCCCCC 

uu    uu 

NN 

NN 

HH 

HH 

uu    uu 

NN 

NN 

HH 

HH 

uu    uu 

NNNN 

NN 

HH 

HH 

uu    uu 

NNNN 

NN 

HH 

HH 

uu    uu 

NN 

w    m 

HHHHHHHHHH 

uu    uu 

NN 

^N  NN 

HHHHHHHHHH 

uu    uu 

NN 

NNNN 

HH 

HH 

uu    uu 

NN 

NNNN 

HH 

HH 

uu    uu 

NN 

NN 

HH 

HH 

uu    uu 

NN 

NN 

HH 

HH 

CC 

uuuuuuuuuu 

NN 

NN 

LLLLLLLLLL 

HH 

HH 

CCCCCCCC 

uuuuuuuuuu 

NN 

NN 

LLLLl 

lLLL,_ 

HH 

HH 

CCCCCCCC 

LL 

ssssssss 

TTTTTTTTTT 

LL 

SSSSSS5S 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

Ll 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

L! 

ss 

LL 

ss 

LL 

ss 

LLL.LLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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52 
55 

5^ 
55 
56 
57 
58 
59 

60  000000 

61  000000 

62  000000 

63  000000 
6A  000000 

65  COOOOO 

66  000000 

67  000000 

68  000000 

69  000000 

70  000000 

71  000000 
72 

73 
7U 
75 
76 

n 

78 
79 
80 


.SBTTL  MACRO  DEFINniONS 


*** 
LIBRARY  MACROS 

*** 

.MCALL 
.MCALL 


PVCDF$,CUoDF$,RDTDF$,DSTDF$,DTEDF$,XCBDF$,PHBDF$ 
CHM[)F$,SVC[)F$,X29DF$,TRADF$,ASL$,SAVRG,RESRG,TCBDF$ 


CHNDFS 
CUGDFS 
OSTDFS 
DTEDFS 
PHBDFS 
PVCDFS 
RDTDFS 
SVCDFS 
XCSDFS 
X29DF$ 
TCBDFS 
TRADFS 

LOCAL   MACRO   DEFIMITIONS 

.MACRO      SAVMAP 

MOV  aKSAR5,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV     (SP)+,aKSAR5 

.EMDM 


DEFINE  OUTGOING  CHANNELS  LIST  OFFSETS 

DEFINE  CLOSED  USER  GROUP  BLOCK  OFFSETS 

DEFINE  X.25/X.29  DESTINATION  BLOCK  OFFSETS 

DEFINE  LOCAL  DTE  DESCRIPTOR  OFFSETS 

DEFINE  X.25  HOME  BLOCK  OFFSETS 

DEFINE  PVC  OFFSETS 

DEFINE  REMOTE  DTE  BLOCK  OFFSETS 

DEFINE  SVC  BLOCK  OFFSETS 

DEFINE  X.25  CIRCUIT  BLOCK  OFFSETS 

DEFINE  X.29  DATA  BLOCK  OFF<;LTS 

DEFINE  TCB  DATA  STRUCTURE  OFFSETS 

DEFINE  TRACE  DATA  :TRI':TURE  OFFSEiS 


;  SAVE  APR  5 
;  RESTORE  APRS 
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UNLPS!  CREATED   BY 

MACRO  CROSS   REFERENCE 


MACRO     ON   17-JUL-85   AT    12:05 


MACRO  NAME 

ASLt 
CALL 


CHNDFS 

CUGDFS 

DSTDFS 

DTtDFS 

PHBDFJ. 

PVCDFS 

RDTDFS 

RESMAP 

RESRG 

RETURN 

SAVMAP 

SAVRG 

S\/CDF$ 

5WSTK$ 

TCBDFS 

TRADES 

XCBDFS 

X29DF$ 


REFERENCES 

#5-58 

7-115 

7-135 

10-270 
#5-53 
#5-57 
#5-57 
»5-57 
#5-57 
#5-57 
#5-57 
#5-79 
#5-58 

7-137 
#5-75 
#5-58 
#5-58 

8-154 
#5-58 
#5-58 
#5-57 
#5-58 


9-225 

7-118 

8-154 

10-281 

5-60 

5-61 

5-62 

5-63 

5-64 

5-65 

5-66 

8-180 

9-239 

8-181 

8--;55 

9-212 

5-67 

9-201 

5-70 

5-71 

5-68 

5-69 


B  U 
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12-350 
7-121 
8-162 
10-289 


7-124 
8-177 
11-315 


7-126 
9-201 
12-336 


7-128 
9-208 
12-362 


7-129 
9-219 


7-130 
9-235 


7-131 
9-241 


7-132 
10-267 


9-244 

0-283 

10-290 

9-240 

0-282 

12-360 

12-361 

9-245 

0-291 

11-516 

12-363 

9-202 

0-268 

10-279 

9-213 

0-280 

^2-346 

12-34  7 

10-267 


12-336 
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Symbol    table 

LN.ON  = 
LN.OOP= 
LN.OPE= 
LN.REF= 
LN.SER= 
LN.STA= 
LN.SUB= 
LN.TRI= 
LSSASG--^ 
L$$DRV= 
L$$P11= 
L$$11R= 


A$SCHK= 

000000 

K$$LDC= 

000000 

At$CPS= 

000000 

K$$TPS= 

000074 

A$$PRI= 

000000 

K.C5R 

000002 

A$$TRP= 

000000 

K.PRl 

000000 

Ct$CKP= 

000000 

K.VCT 

000001 

C$$ORE= 

000400 

LDSLP  = 

000000 

C$SRSH= 

177564 

LF.ACT= 

100000 

DDMAC  = 

•»♦*♦♦  GX 

LF.BRO= 

000400 

DLCAC  = 

••»**»  GX 

LF.BWT= 

000007 

D$SBUG= 

1775K 

LF.ENA= 

002000 

DSSISK^ 

000000 

LF.LPB= 

001000 

D$$L11= 

000001 

LF.MDC= 

000100 

D$SYNC= 

COOOOO 

LF.MFl= 

004000 

D$$YNM= 

000000 

LF.MTP= 

000020 

E$$XPR= 

000000 

LF.PAC= 

000200 

FNDADD 

00007ARG 

LF.RDV= 

040000 

n'^<.VL  = 

000001 

LF.REA= 

010000 

GETIND 

000002RG 

LF.SER= 

000040 

GETPDV 

000044RG 

LF.TIM= 

00C.10 

G$$TPP= 

000000 

LF.UNL= 

020000 

Gt$T5S= 

000000 

LF.X2P= 

000000 

G$STTK= 

000000 

LN.CLO= 

000000 

GS$WRD= 

000000 

LN.DUM= 

000005 

1$$RAR= 

000000 

LN.LOA= 

000004 

I$SRDN= 

000000 

LN.LOO= 

000003 

K$iCNT= 

1775A6 

LN.OAU= 

000003 

K$SCSR= 

177546 

LM.OFF= 

000001 

.  ABS. 

177776 

000 

(RW,I,GBL,ABS,OVR) 

000252 

001 

(RW,I,LCL,REL,CON) 

Errors 

detected: 

0 

*»•  Assembler  statistics 

Work   f 

lie  reads 

0 

Work   f 

ile  writes 

0 

Size  ol 

work  file 

10850  Words 

(  43  Pages) 

Size  ol 

core  pool 

U440  Words 

(  55  Pages) 

Operating  system 

RSX 

-11M/PLUS 

COST 
L.CTL 
L.CVA 
L.DDM 
L.DDS 
L.DLC 
L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN  = 
L.MPF 
L.NMST 
L.NSTA 
L.OWNR 


000000 

L.UNT 

000013 

SF.LPB= 

000004 

000004 

M$$CRB= 

000124 

iF.MFL= 

000040 

000001 

M$$CRX= 

000000 

SF.PAC= 

000020 

000002 

M$$FCS= 

000000 

SF.REA= 

000010 

000002 

M$$MGE= 

000000 

SF.SER= 

000001 

000017 

M$$NET= 

000000 

SF.SVC= 

000002 

000360 

M$$OVR= 

000000 

SF.UNL= 

000040 

000006 

N$$ACC= 

000001 

SLTMA  = 

******  GX 

000000 

N$$BUF= 

000001 

SLTNM  = 

»»****  GX 

000000 

N$$LDV= 

000001 

S$$WRG= 

000000 

000001 

N$$MCP= 

000001 

s$$rsz= 

007600 

000000 

N$$MLL= 

000001 

S.COST 

000001 

000015 

N$$M0V= 

000010 

S.FLG 

000000 

000012 

N$$NCT= 

000001 

S.LEN 

000004 

177776 

N$$PEM= 

000001 

S.NMST 

000002 

000002 

PDVNM  = 

******  GX 

S . OWNR 

000003 

000004 

PDVTA  = 

******  GX 

T$$KMG= 

000000 

000003 

P$$P45= 

000000 

T$$MIN= 

000000 

000006 

P$$WRD= 

000000 

UNITS 

OOOOOOR 

000010 

Q$$0PT= 

000010 

V$tCTR= 

001000 

000000 

R$$DER= 

000000 

XKRB 

000056RG 

000016 

R$$K11= 

000001 

X$$DBT= 

000000 

000022 

R$$SND= 

000000 

$DECEX= 

******  GX 

000022 

R$$11M= 

000000 

IICBLN= 

******  GX 

000020 

SCAN 

000136RG 

$KRBLN= 

******  GX 

000014 

SF.ACT= 

000200 

.CBIAS= 

******  GX 

000021 

SF.ENA= 

000100 

SytuNLSUB'y2i[°32J34]UNLSUB/CR/-SP=SY:t1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML.[130,10]RSXMCM/PA:1,[132,10]UNLSUB 
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1 
2 
3 

5 
6 

7 
8 
9 

10 

11 

12 

1? 

U 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2^ 

25 

26 

27 

28 

29 

iO 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

40 

Al 

42 

A3 

44 

45 

46 

47 

48 

49 

50 

51 

52 


.TITLE   XPAR  -  RELEASE  PARTITION  CONTROL  BLOCK 
.IDENT   /ynS.OO/ 

COPYRICH'  (C;  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  .JOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  PARTITION  CONTROL  BLOCK  DE-ALLOCARION  ROUTINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DLCNET-llM/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  Vl.l 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus   V3.0 
DECnet-Mkro/RSX    Vl.O 
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TMF 
MAC 


189 
190 
191 
192 
193 
19A 
195 

196  000052 

197  00005A 

198  000060 

199  000062 

200  00006^ 

201  000070 

202  000072 
203 

20A 
:'05 
_06  000074 

207  000100 

208  000102 

209  000106 

210  000112 

211  00011A 

212  000116 

213  000122 
2U  000126 

215  000130 

216  000132 
2V  000136 
2!8  000142 

219  000U6 

220  000152 

221  000156 

222  000162 
223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240  000164 

?41  000^70 

242 

243 

244 

245 


112546 
112566 
012600 
112546 
112566 
012601 
001436 


022700 
101031 
016704 

010003 
010105 
016400 

010300 
010501 
012703 
062704 
011463 

016714 
042714 
000402 


DE-ALLOCATION  CLEANUP  ROUTINES 


SINGLEWORD  ADDRESSABLE  STORAGE 


000001 
000001 

120000 
OOOOOOG 

OOOOOOG 


177776G 
000002G 
000002 

OOOOOOG 
160000 


XSCOM: 


5$: 

10$: 


MOVB 

MOVB 

MOV 

MOVB 

MOVB 

MOV 

BEQ 

.IF  DF 

CMP 

BHI 

MOV 

SWSTKS 

MOV 

MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

ADD 

MOV 

CALL 

MOV 

BIG 

BR 

MOV 
MOV 
CMP 
BLO 

ADD 

CMP 

BHIS 

MOV 

ADD 

MOV 

CALL 

MOV 

BR 

.ENDC 

CALL 
RETURN 


(R5)t 
(R5)* 
(SP)+. 
(R5)+, 


-(SP) 
KSP) 
RO 
(SP) 


,R0 


,R3 


(R5)t,1(SP) 

(SP)+,R1 

10$ 

R$$11M 

.IF  DF  M$$MGE 

#1 20000, RO 

5$ 

$PCB,R4 

10$ 

R0,R3 

R1,R5 

P.REL(R4), 

SMAPX 

R3,R0 

R5,H1 

#$PRAVL-2, 

*P.WAIT+2,R4 

(R4),2(R3) 

$DEAC2 

$PRAVL,(R4) 

#160000, (R4) 

10$ 

.IFF 

$PC8,R4 

P.REL(R4),R3 

R0,R3 

5$ 

P.SIZE(R4),R3 

R0,R3 

5$ 

#$PHAVL-2,R3 

#P.WAITt2,R4 

(R4),2(R3) 

$DEAC1 

$PRAVL,(R4) 

10$ 

.ENDC 


$DEA16 


ASSEMBLE  ADDRESS 


AND  COUNT 


IF  ZERO,  DO  NOTHING 


IS  ALLOCATION  FROM  PARTITION  SPACE  ? 

NO  .. 

GET  PC8  ADDRESS 

*  ENTER  KERNEL  MODE 

►  SAVE  ALLOCATION  ADDRESS 

*  AND  SIZE 

►  MAP   TO   THE    PROCESS 

t   RESTORE   ALLOCATION  ADDRESS 

•  AND  SIZE 

»  POINT  AT  COMMON  LISTHEAD 

»  POINT  AT  PCB  ALLOCATION  WORD 

►  SETUP  PARTITION  FREE  SPACE  POINTER 

»  DE-ALLOCATE  BACK  TO  PARTITION  SPACE 

•  RESTORE  PCB  ALLOCATION  WORD 


GET  PCB  ADDRESS 

AND  PARTITION  STARTING  ADDRESS 

IS  ALLOCATION  FROM  PARTITION  SPACE  ? 

NO  .. 

GET  PARTITION  ENDING  ADDRESS 

IS  ALLOCATION  FROM  PARTITION  SPACE  ? 

NO  .. 

POINT  AT  COMMON  LISTHEAD 

POINT  AT  PCB  ALLOCATION  WORD 

SETUP  PARTITION  FREE  SPACE  POINTER 

DE-ALLOCATE  BACK  TO  PARTITION  SPACE 

RESTORE  PC8  A:.LOCATION  WORD 


DEALLOCATE  SINGLEWORD  STORAGE 


DOUBLEWORD  ADDRESSABLE  SiORAGE 


'VCf,?    .    MTi 
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TMPEX5  -  NTL  LINE  TABLE 
MACRO  DEFINITIONS 

207 
208 
209 
210 
21  1 
212 
213 
21'; 
215 
216 
217 
218 
219 

220  000106  005203 

221  000110 
222 
223 
224 
225 

226  000112  005723 

227  00011A 
228 
229 
230 
231 

232  000H6  005000 

233  000120  152500 
23A  000122  001002 
235  000124  012700 
r"6  000130  060003 
237  000132 
238 
239 
240 
241 

242  000134     005L.J 

243  000136     152500 

244  000140     001002 

245  000142     012700 

246  000146     006300 

247  000150     060003 

248  000152 
249 
250 
251 
252 

253  000^54      122523 

254  000156 
255 
256 
257 
258 

259  C00160 
260 

261  000160  062705 

262  000164  022323 
263 
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EXPANSION  ROUTINES 

WITH  THE  EXCEPTION  OF  ".DVCHA"  AND  ".SECSR",  ALL  PROCESSING  CONSISTS 
OF  UPDATING  THE  BINARY  BUFFER  POINTER  (R5)  AND  THE  LINE  TABLE  POINTER 
(R3). 


000400 


000400 


000006 


•  LOCAL 

PHYSICAL  STATION  ADDF.ESS 

(BYTE) 

ADDRB: 

INC 
RETURN 

R3 

•  LOCAL 

PHYSICAL  STATION  ADDRESS 

(WORD) 

ADDRW: 

TST 
RETURN 

(R3)t 

;  ZERO 

BYTECS) 

BLKB; 
10$: 

CLR 

BISB 

BNE 

MOV 
ADD 
RETURN 

RO 

(R5)+,R0 
10$ 

#256., RO 
R0,P3 

GET  REPEAT  COUNT 
ZERO  BECOMES  256. 

;  ZERO 

W0RD(5) 

BlKW: 
10$: 

CLR 

BISB 

BNE 

MOV 

ASL 

ADD 

RETURN 

RO 

(R5)+,R0 

10$ 

*256.,R0 

RO 

R0,fi3 

GET  REPEAT  COUNT 
ZERO  BECOMES  256. 
2  BYTES  PER  WORD 

•  SINGLE  BYTE 

snE: 

CMP8 
RETURN 

(R5)+,(R3)t 

;  POINTER  TO  ALLOCATED  CORE 

CORF: 

.IF  DF 
ADD 
CMP 
.IFF 

M^iHGE 

*6,R5 

(R3)  +  ,(R3)<- 

D  2 
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Symbol   table 
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ADDRB 

ADDRW 

APR 

A$SCH<= 

A$$CPS= 

AtSPRI= 

A$$TRP= 

BLKB 

BLKW 

BLOCK 

BYTE 

CORE 

CSR 

CTIM 

C$SCKP= 

C$$ORE= 

CS$RSH= 

DPRB 

OPRW 

DVCHA 

D$$BUG= 

D$$1SK= 

D$SL11= 

D$SYNC= 

D$$YNJM= 

EOF 

E$$XPR= 

FILE 

fLAGS 

FLT 

FLT16 

FL.<MX= 

F$$LVL= 

G$$TPP^ 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I^JDE)( 

INT 

I$$RAR= 


0001 06R 

0001 12R 

001070R 

000000 

000000 

000000 

000000 

000116R 

0001 3AR 

000162R 

0001 SAR 

000160R 

0001 70R 

0001 76R 

000000 

OOOAOO 

177564 

00107'IR 

OOnOOR 

000202R 

17751A 

000000 

000001 

000000 

000000 

000302R 

000000 

000530R 

0001 54R 

00110AR 

001104R 

*<,-■**** 

000001 

000000 

000000 

000000 

000000 

000152R 

00030AR 

000000 

000000 


.  ASS.   177776 
00160'i 
DATA    000262 
Errors  detected: 


002 


GX 


K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

K.CSR 

K.PRI 

K.VCT 

LDSLP  = 

LFILE 

LF.ACT^ 

LF.BRO= 

LF.BUT= 

LF.ENA= 

LF.LP8= 

LF.MDC= 

LF.MFL= 

LF.M'P= 

LF.PAC= 

LF.RDY= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LIBR 

LINKS 

LN.CLC^ 

LN.DUM= 

002  LN.LCA= 
LN.LOO= 
LN.0AU= 
LN.OFF= 
LN.ON  = 
LN.OOP= 
LN.OPE= 
LN.REF- 
LN.SER= 

002  LN.STA=: 
LN.SU&= 
LN.TRI= 


1775A6 

177546 

000000 

000074 

000002 

000000 

000001 

000000 

000640R 

100000 

OOOAOO 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000314R 

000324R 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 


000 
001 
002 
0 


(RW,1,GSL,ABS,0VR) 
CRW,I,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 


LSTHD 

000330R 

LTA8 

000334R 

L$$ASG= 

000000 

L$$DRV= 

000000 

L$$P11= 

000001 

L$$11R= 

000000 

L.COST 

000015 

L.CTL 

000012 

L.CVA 

177776 

L.DDM 

000002 

L.DOS 

000004 

L.DLC 

000003 

L.DLM 

000006 

L.DLS 

000010 

L.FLG 

000000 

L.KRBA 

000016 

L.LEN  = 

000022 

L.MPF 

000022 

L.NMST 

000020 

L.iNSTA 

000014 

L.OWNR 

000021 

L.UNT 

000013 

MP  TAB 

000636R 

MXPTB 

000722R 

MX  TAB 

000524R 

M$$CR8= 

000124 

M$$CRX= 

000000 

M$$FCS= 

000000 

M$$i1GE  = 

000000 

M$$NET= 

000000 

M$$0VR= 

000000 

NOD 

000372R 

NTLPT  = 

****** 

N$$ACC= 

000001 

N$$BUF= 

0'/0001 

N$$LDV= 

000001 

N$$MCP= 

000001 

N$$MLI  = 

OOiOOl 

N$$M0V= 

OOOCiO 

N$$NCT= 

000001 

GX 


N$$PEM= 

000001 

UNB 

PECHA 

000252R 

UNW 

PRI 

000340R 

V$$CTR= 

PRTOV 

000376R 

WORD 

PR  7   = 

»«****  GX 

X$$DBT= 

P$$P45= 

COOOOO 

X2CH01 

P$$WRD= 

000000 

X2CH02 

Q$$0PT= 

000010 

X2CH03 

R$$DER= 

000000 

X2CH04 

R$$K11= 

000001 

X2CH05 

R$$SND= 

000000 

X3CH01 

R$$11M^ 

COOOOO 

X3CH02 

SCOM 

000404R 

X3CH03 

SECSR 

000414R 

X3CH04 

SF.ACT= 

000200 

X3CH05 

SF.ENA= 

000100 

X3CH06 

SF.LPB= 

000004 

X3CH07 

SF.MFL= 

000040 

X3CH08 

SF.PAC= 

000020 

X3CH09 

SF.REA= 

000010 

X3CH10 

SF.SER= 

000001 

X3CH11 

SF.SVC= 

000002 

2TIME  = 

SF.UNL= 

000040 

$ADDR  = 

SLNB 

000466R 

$BIN  = 

SLNW 

000472R 

$FLAGS= 

STNB 

000476R 

$MAPX  = 

STNW 

000502R 

$PTR  = 

S$$WRG= 

000000 

$SLTA  = 

SfSYSZ= 

007600 

$TMEX5 

S.COST 

000001 

$X2HLD= 

S.FLG 

000000 

$X2MBS= 

S.LEN 

000004 

$X2MRT= 

S.^.ii^ST 

000002 

$X2MUS= 

S . OWNR 

000003 

$X2RET= 

TABLE 

OOOOOOR 

002  $$DCHA= 

TIME 

001042R 

$$PCHA= 

T$$KMG= 

000000 

$$PRI  = 

T$$MIN= 

000000 

$JSCSR= 

UBA 

000160R 

002  .CXLINL  = 

UBIAS 

00Ci56R 

002  .EOF   = 

000506R 

00051 2R 

001000 

000516R 

000000 

001370R 

001424R 

001460R 

001514R 

001550R 

001314R 

001520R 

001324R 

001330R 

001334R 

001340R 

001344R 

001350R 

001354R 

001360R 

001364R 

****** 

****** 

****** 

****** 

****** 

******  QX 
****** 

OOOOOORG 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


♦♦»  Assembler  statistics 

Work   file  reads:  0 

Work   fiLe  writes:  0 

Size  ^.  »ork  file:  1093u  Words  (  43  Pages) 

Size  of  ro-e  pool:  14440  Words  (  55  Pages) 

ODerafng  system:  RSX-1 IM/PLUS 
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TMPE)(6  -  NTL  TEMPLATE  EXPANSION 

LOCAL  DATA 

293 

294 

295 

296 

297 

298 
299 

300  000156 

032767 

COOCOOC 

301  00016^^ 

001403 

302  000166 

116724 

001224' 

303  000172 

30A  0C017A 

112^24 

177777 

305  000200 

306 

307 

308 

309 

310  000202 

032767 

OOOOOOC 

311  000210 

0':i405 

312  000212 

0U5003 

313  00021 A 

156703 

001224' 

314  000220 

010324 

315  000222 

516  000224 

0127<r4 

■\7n71 

317  000230 

318 

319 

320 

321  000232 

112500 

322  000234 

105024 

323  000236 

1053O0 

324  000240 

001375 

325  000242 

326 

327 

328 

329 

330  000244 

112500 

331  000246 

005024 

332  000250 

105300 

333  000252 

001375 

334  0G0254 

335 

336 

337 

338 

339  000256 

112524 

340  000260 

341 

34  2 

343 

344 

345  000262 

112500 

346  C00264 

066700 

000342 

34:"  000270 

010C2- 

348  000272 

3'9 
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EXPANSION  ROUTINES 


LOCAL  PHYSICAL  STATION  ADDRESS  (BYTE) 
000162'  ADDR8: 


10$: 


BIT 

BEQ 

MOVB 

RETURN 

MOVB 

RETURN 


#FL.DDM1FL.DLC,PRFLAC  ;  IS  IT  A  DDM? 

10$  ;    BR   If    NO 

PRLSAD,(R4)+  ;    STORE   LOCAL    STATION  ADDRESS 


#-1,(R4)+ 


LSAD  NOT  VALID  FOR  LLC 


LOCAL  PHYSICAL  STATION  ADDRESS  (WORD) 


000162'  ADDRW:   BIT 


#FL.DDM1FL.DLC,PRFLAG  ;  IS  IT  A  DDM? 


10$: 

BEQ 

CLR 

BISB 

MOV 

RETURN 

MOV 

RETURN 

10$ 
R3 

PRLSAD,R3 
R3,(R4)+ 

#-l,(R4)+ 

BR  IF  NO 

GET  LOCAL  STATION  ADDRESS 

STORE  IT 

LSAD  NOT  VALID  FOR  LLC 

;  ZERO 

BYTE(S) 

BLK8: 
10$: 

MOVB 

CLR8 

DECS 

BNE 

RETURN 

(R5)t,R0 
(R4)  + 
RO 
10$ 

GET  BYTE  COUNT 

STORE  A  ZERO  BYTE 

LOOP  BETWEEN  1  AND  256. 

TIMES 

;  ZERO 

WORD(S) 

BLKW: 
10$: 

MOVB 

CLR 

DECS 

BNE 

RETURN 

fR5)+,R0 
iR4)  + 
RO 
10$ 

GfT  WORD  COUNT 

S'ORF  A  ZERO  WORD 

LOOP  BETWEEN  1  AND  256. 

TIMES 

•  SINGLE  BYTE 

BYTE: 

MOVB 
RETURN 

(R5)t,(R4)t 

COPY  A  BYTE 

'•  rsR 

CSR: 

MOVB 
ADD 
MOV 
RETURN 

(R5)+,Rn 
PRCSR.RO 
R0,(R4)+ 

GEl  MODIFICATION  VALUE 

•  ADD  IN  CSP  ADDRESS 

•  STORE  THE  RESULT 

D  4 
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LOCAL   DATA 


809 

810 
811 

812  00175A 

813  001762 
81A  001^64 

815  OC      "0 

816  0'         2 
317  Oi 


81 


002000 
8i9  002002 

820  002004 

821  002006 

822  002012 
S23  00201 A 
82A  002016 

825  002020 

826  002022 

827  002026 

828  002030 

829  002032 

830  002036 

831  0020AO 

832  00204A 

833  002052 
83A  00205A 

835  002056 

836  002060 

837  002062 

838  002066 

839  002070 
SAO  0020:'A 
8A1  002100 
8A2  00210A 
8A3 

8AA 

8A5 

8A6 

84"' 

0..8  0021  10 

8A9  002116 

850  00212A 

851  002130 

852  002I3A 

853  0O21A0 
35A 

855 
856 
857 
858 

859  0021A2 

860  0021A6 

861  002150 

862  00215- 

863  002160 
86'.  002162 
865  002'66 


0(2767 
0102A6 
0167A6 
005002 
005067 
1125A6 
11252A 
11252A 
010AA6 
016AOA 
0105A6 
011605 
005003 
152503 
122703 
OOIACA 
106303 

000767 
005267 
126667 
001360 
005726 
01260A 
005726 
012667 
012602 
005067 
005067 
016703 


100000  000160' 
0001 5A' 
00015A' 

177776 

OOOOOOG 


000156' 

OOOOOA  000156' 


SECONDARV  LINKED  FILE 


016767 
062767 
11772A 
005267 
-1772A 


105767 
100005 
016^00 
11602A 

11272A 


0001 5A' 

000156' 
000160' 
OOOOOOG 


MXPTB:   MOV 

#100000, FLAG 

MOV 

R2,-(SP) 

MOV 

PRAPR,-{SP) 

CLR 

R2 

CLR 

PRAPR 

MOVB 

(R5)+,-'SP) 

M0V8 

(R5)+,(RA)t 

MOVB 

(R5)+,(RA)t 

MOV 

RA,-(SP) 

MOV 

-2(RA),RA 

MOV 

R5,-(SP) 

10$-    MOV 

(SP),R5 

20$:    CLR 

R3 

81 S8 

(R5)t,P3 

CMPB 

#.E0F,R3 

BEQ 

30$ 

ASL8 

R3 

CALL 

a'"A8LE-2\R3) 

BR 

20$ 

30$:     INC 

INDEX 

CMPB 

A(SP), INDEX 

BNE 

10$ 

TST 

(SP)  + 

MOV 

(SP)+,RA 

TST 

(SPH 

MOV 

(SP)+, PRAPR 

MOV 

(SP)t,R2 

CLR 

INDEX 

CLR 

FLAGS 

MOV 

$MXSIZ,R3 

^AILR 

SAVALC 

CURRENT  TIME 


OOOOOOG  000000'  TIME: 

000002  000000' 

000000' 

000000' 

000000' 


MOV 

ADD 

MOVB 

If."" 

MOVB 

RETURN 


ZTIMEJEMP 
#2, TEMP 
aTEMP,(RA)+ 
TEMP 
3TEMP,(RA)+ 


0001 6^' 

000156' 
000432' 


ACTIVE  POLLING  RATIO  (APR) 


APR: 


lOlJ 


1ST3 

FLAGS 

8PL 

101$ 

MOV 

INDEX, RO 

MOvb 

PAPR(RO) 

(H^,) 

RETURN 

M0V8 

#-1,(h4)< 

RETURN 

INDICATE  MUX  EXPANSION 
SAVE  CURRENT  APR  SELECTION  BITS 
AND  CURRENT  PROCESS  APR  SELECTION 
NO  RELOCATION  NEEDED 

GET  REPEAT  COUNT 

GET  MUX  TABLE  ADDRESS 

SAVE  OUTPUT  FILE  POINTER 
SET  NEW  OUTPUT  FILE  POINTER 
SAVE  CURRENT  BINARY  FILE  POINTER 
RESTORE  BINARY  FILE  POINTER 
GET  FUNCTION  CODE 

is'lT  END  OF  FILE  ? 

IF  EQ,  YES 

CONVERT  TO  A  WORD  INDEX 

EXPAND  A  FIELD 

GO  TILL  END  OF  FILE 

TALLY  ONE  PASS  THRU  SECONPARY  FILE 

ARE  WE  DONE  ? 

IF  NE,  NO 

PURGE  BINARY  FILE  POINTER 

RESTORE  OUTPUT  FILE  POINTER 

PURGE  COUNT 

RESTORE  APR  SELECTION  BITS 

CLEAR  SECONDARY  INDEX 
AND  SPECIAL  FLAGS 
GET  SIZE  OF  MUX  TABLES 
SAVE  SIZE  IN  UNLOAD  BLOCK 


STORE  $ZTIME  ADDRESS 
GET  $ZTIME+2  ADDRESS 
STORE  TIME  LOW  BYTE 
GET  $ZTIME*^  ADDRESS 
STORE  TIME   IGH  BYTE 


IS  IT  MTP  EXPANSION  ? 
IF  PL,  NO 

GET  CURRENT  STATION  INDEX 
STORE  APR 

APR  NOT  IN  MP'AB  FILE 
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3 

5 

6 

7 

8 

9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2S 
29 
30 
31 
32 
33 
34 
35 
36 
37 
33 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
fG 
<;  I 


T;TLE   TMPEX7  -  NTL  TEMPLATE  EXPANSION  ROUTINES  (UPDATE) 
.IDENT  /V05.00/ 

.IIF  NDF  M$$MGE,  .END 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  JUH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  O'^HFR 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITKENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  MUX  CHARACTERISTICS  UPDATE  EXPANSION  ROUTINES  FOR  PART.  LINE  TAB. 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00     16-APR-82 

DECNET-11M   V3.1 
DECNE!-11M-PLUS   VI. 1 

4.00     07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS   V2.0 

5.00     22-JUL-85 

DECnet-llM/S   V4.2 
DECnet-llM-Plus   V3.0 
DECnet-Mic-o/RSX   VI. 0 
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MACRO  DfFINTlONS 


577 
578 
579 

580  001174 

581  001200 
532  001202 

583  001 20A 

584  001206 

585  001210 

586  0012U 

587  001216 

588  001220 

589  001226 
590 

591 

592 

593 

594 

595 

596 

597 

598 

599  001 230 

600 

601 

602  OCT  234 

603  001236 

604  001240 

605  001242 

606  001246 

607  001250 

608  001252 

609  001256 

610  001260 

611  001264 

612  001272 

613  001274 

614  001276 

615  001300 

616  00130^ 
61?  001310 
618 

619 

620 

621  001312 

622 

623 

624 

625 

626 

627  0Cr3i4 

628  00^"  ^ 

629  00.  . 

630  001534 

631  0013'.0 

632  001344 
633 


3. '2 
330 


005267 
005723 
010346 
112546 
122525 
016303 
010546 
011605 
126467 
C01003 


000352' 

177776 

000013  000350' 


SECONDARY  LINKED  fllE 


MXPTB: 


10$: 


INC 

TST 

MOV 

M0V8 

CMPe 

MOV 

MOV 

MOV 

CMP8 

BNE 


FLAGS 

(R3)t 

R3,-(SP) 

Cfi5)t,-(SP) 

(R5)+,{R5)t 

-2(R3),R3 

R5,-(S?) 

(SP),R5 

L.0NT(R4), INDEX 

20$ 


.]F  DF  R$$11D  1  I$$AS 

MOV  R3,-(SP) 

BIC  #160000, (SP) 

BIS  #60000, (SPl 

CMP  L.DDS(R4),(SP)+ 

.IFF 


026'.G3  0O00C4 


001026 
005002 
152502 
122702 
001404 
106302 

000767 
005267 
126667 
C01351 
022626 
012603 
005067 
005067 


OOOOOOG 


000350' 
000002  00035 


000350' 
000352' 


016767 
062767 
117723 
005267 
117723 


COOOOOu  OOOOOC 
00f^002  000000' 
000000' 
000000' 
000000' 


CMP 

L.DDS(R4),R3 

.ENDC 

BNE 

101$ 

0$: 

CLR 

R2 

BIS8 

(R5)+,R2 

CMP8 

#.E0F,R2 

BEQ 

30$ 

ASL8 

R2 

CALL 

aTA8LE-2(R2) 

BR 

20$ 

0$: 

INC 

INDEX 

CMP8 

2(SP), INDEX 

BNE 

10$ 

CMP 

(SP>t,(SP)t 

MOV 

(SP)+,R3 

CLR 

INDEX 

CLR 

FLAGS 

RETURN 

ERROR 

CONDITIONS 

01$: 

CRASH 

CURRENT  TIMF 

IMF: 

MOV 

ZTiME,rE'." 

ADD 

#2, TEMP 

■^lOVB 

arEMP,'R3)t 

INC 

TEMP 

M0V8 

a.TEMP,(R3)  + 

INDICATE  MUX  EXPANSION 

POINT  PAST  FIRST  LINE  TABLE  ADDRESS 

SAVE  OUTPUT  FILE  POINTER 

GET  REPEAT  COUNT 

SKIP  OVER  ADfRESS 

GET  MUX  TABLE  ADDRESS 

SAVE  CURRENT  BINARY  FILE  POINTER 

RESTORE  BINARY  FILE  POINTER 

DO  UNIT  NUMBERS  MATCH  ? 

IF  NE,  NO 


GET  lINE  TABLE  ADDRESS 

CLEAR  MAPPING  BITS 

SLT  LINE  TABLE  ADDRESS  USES  APR3 

IS  THE  LINE  TABLE  POINTER  CORRECT 


IS  THE  LINE  TABLE  POINTER  CORRECT 


IF  NE,  NO  ..  ERROR 
GET  FUNCTION  CODE 

is'lT  END  OF  FILE  ? 

IF  EQ,  YES 

CONVERT   TO  A  WORD    iNDEX 

EXPAND  A  FIELD 

GO   TILL   END   OF    FILE 

TALLY   ONE    PASS    THRU   SECONDARY    FILE 

ARE   WE   DONE    ? 

IF   NE,    NO 

PURGE   STACK 

RESTORE   OUTPUT   FILE   POINTER 

CLEAR   SECONDARY    INDEX 

AND   SPECIAL    FLAGS 


;    LINE    TABLE    POINTER    (R3)    IS   SCREWED  UP 


STORE   $2TIi.1E    ADDRESS 
GET   $ZTIME+2   ADDRESS 
STORF    TIME   LOW  BYTE 
GET   $ZTIME*3   ADDRESS 
STORE    TIME    LOW  BYTE 


RETURN 


iMPEX" 
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TMPEX7 


MACRO  NAME 

CALL 

CRASH 

MKRDFi 

RESRG 

RETURN 


SAVRG 

sltdf$ 

SOB 

SJSTkS 
TTABS 
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CREATED  BY      MACRO     ON   29- 

-JUN-85   AT   00 

44           PAGE 

5 

REFERENCE 

CREF 

04.00 

REFERENCES 

6-242 

6-249 

6-253 

6-266 

8-539 

6-278 

7-381 

8-552 

8-557 

9-621 

#5-58 

5-67 

#5-58 

7-359 

6-273 

7-294 

7-300 

7-310 

7-321 

7-376 

7-388 

7-396 

7-402 

7-408 

7-465 

7-47 

7-477 

7-483 

7-489 

9-617 

9-652 

9-638 

9-645 

9-651 

11-747 

11-752 

11-757 

11-762 

11-7o7 

12-831 

12-844 

#5-58 

7-356 

#5-58 

5-60 

6-218 

6-223 

6-228 

6-233 

6-238 

6-249 

10-670 

#5-76 

5-91 

5-92 

5-93 

:-94 

5-'' 00 

5-101 

5-102 

5-103 

5-104 

5-110 

5-111 

5-112 

5-113 

5-114 

5-120 

5-121 

5-122 

5-123 

5-124 

5-130 

5-131 

5-132 

5-133 

5-134 

5-140 

5-141 

5-142 

5-143 

8-567 


7-327 

7-415 

7-495 

10-718 

11-772 


10-716 

5-95 

5-105 

5-115 

5-125 

5-135 


'^-608 


7-335 

7-421 

7-501 

11-727 

11-777 


5-96 

5-106 

5-116 

5-126 

5-136 


10-670 


7-342 

7-427 

7-508 

11-732 

12-792 


5-97 

5-107 

5-117 

5-127 

5-137 


10-672 


7-347 

7-439 

8-547 

11-737 

12-805 


5-98 

5-108 

5-118 

5-128 

5-138 


7-364 

7-446 

8-575 

11-742 

12-818 


5-99 

5-109 

5-119 

5-129 

5-139 


nILE'«lD*»TMPINI 
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C  9 


«F!LE>MD'*TMP5TE 


TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

ssssssss 

TTTTl 

TTTTT 

BBBBB8BE 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

ssssssss 

TTTTl 

TTTTT 

BBBBBB8B 

MMMf 

MM  MM 

PP      PP 

ss 

BB      BB 

MMM^ 

MMiIM 

PP      PP 

ss 

BB      BB 

MM 

MM  MM 

PP      PP 

ss 

BB      BB 

MM 

1M  MM 

PP      PP 

ss 

BB     BB 

MM 

MM 

PPPPPPPP 

ssssss 

BBBBBB8B 

MM 

MM 

PPPPPPPP 

ssssss 

BBBBBBBB 

MM 

MM 

PP 

ss 

BB     BB 

MM 

MM 

PP 

ss 

BB     BB 

MM 

MM 

PP 

ss 

BB     BB 

MM 

MM 

PP 

ss 

BB     BB 

MM 

MM 

PP 

ssssssss 

BBBBBBBB 

MM 

MM 

PP 

ssssssss 

BBBBBBBB 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLILL 

ssssssss 
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.PRl,.POOL,.SCOM,.UMR,.VfV 


559 
360 

361 

362 

363  000002 

564  000002 

365  00C002 

366 

367 

368 

369 

570  000002 

371  000002 

572  000002 

373  000002 

374 

575 

376 

577 

578  ; 00002 

379  000002 

38f  000002 

581 

582 

583 

384 

385  000002 

386 

587  00000? 

588  000002 
389 

390 

591 

592 

595  000002 

594 

595 

396 

597 

598  000002 

599  000002 
400  0C0002 


.SBTTL      .PRI,.POOL,.SCOM,.UMR,.VFY 

.POOL"  OR   ".SCOM" 

STATES      SCOM 
TRANS        .'POSEXP.ONLrl.SSCOM 
TRAf^S        .'ERROR.SEXIT 


.PRI' 


STATES  PRI 
TRAMS    :END,SEXIT,SPRI 

TRANS  !!-1X,0NLYl, SPRIT 
TRANS   lERROR.SEXIT 


.PRTOV 


STATES  PRTOV 
TRANS   IEXP,ONLrl,SPROV 
TRANS   lERROR.SEXIT 


'.UMR" 


.VFY 


STATES 

UMR 

.IF  DF 

MSSMGE 

TRANS 

"0N",0NLY1 ,SUMRON 

TRANS 

"OFF'',ONLY1,$UMROF 

.IFF 

TRANS 

"0N",0NLY1 

TkANS 

"OFF'',ONLY1 

.ENDC 

TRANS 

lERROR.SEXIT 

STATES 

VFY 

TRANS 

IP0SEXP,0NLY1,$END 

TRANS 

lERROR.SEXIT 
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172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
18A 

is: 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

158 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228  000134 


BEQ 

9$ 

ASL 

R4            ;* 

5$: 

SUB 

*2,R4         ;• 

BLT 

6$            ;• 

MOV 

URMTB,R2       ;* 

ADD 

R4,R2         ;» 

BIT 

<.URM(R5),(R2)  ;* 

BEQ 

5$           ;« 

BIS 

#1 20000, PO 

BR 

7$ 

■  FAILED  TO  FIND  UNIIBUS  RUN 

6$: 

BIS 

#F1.ERR,$FLAG1   ;• 

BR 

40$ 

;  GOT 

CPU  WITH 

UNieUS  RUN 

h: 

ADD 

#K.PRM,R5 
(R5),r5 

&%: 

MOV 

BEQ 

101$ 

MOV 

R5,fi2 

BIC 

#7777, R2 

BIC 

R2,R5 

SWAB 

R2 

ASR 

R2           ; 

ASR 

R2           ; 

ASR 

k2           ; 

MOV 

K6TA8,K6TMP 

ADD 

R2,K6TMP 

MOV 

aK6rMP,aKSAR5 

ASL 

R5 

MOV 

R5.$ICBAD      ; 

BIS 

#120000, R5     ; 

CMP 

R2,R4 

BNE 

8$ 

9$: 

MOV 

R3,R2 

10$: 

MOV 

R0,R5 

BIC 

#*C<700>,R5 

ASR$ 

5,R5 

CMO 

(R0)t,N0NSI 

BEt. 

M$ 

Tsr 

-(RO) 

MOV 

NSUAB(R5),NS1TMP 

CMP 

(RO)+,aNSITMP 

BNE 

3C$ 

11$: 

TST 

(R0)  + 

SOB 

R2,10$ 

BIS 

#F1.VCT,$FLAG1   ; 

.ENDC 

MTPS 

#PR7 

.  IF  EQ,  N01  A  MULTIPROCESSOR  SVSTEM 
•  CONVERT  TO  A  WORD  INDEX 
'  DONE  FOR  ALL  PROCESSORS  ? 
.  IF  LT,  VES  ..  DIDN'T  FIND  UNIBUS  RUN 
.  GET  $URMTB  ADDRESS 
'  INDEX  INTO  TABLE 
IS  CONTROLLER  ON  THIS  CPU  ? 

>  IF  EQ,  NO 
t  FORCE  APR5  MAPPING 

>  AND  CONTINUE 


DIDN'T  FIND  UNIBUS  RUN  (WARNING) 
AND  LEAVE 


POINT  R5  AT  KB  CHAIN 

GET  NEXT  KB  IN  CHAIN 

IF  EQ,  NO  MORE  ..  SOMEONE  WILL  PAY 

COPY  THE  KB  LINK  POINTER 

GET  CPU  NUMBER  IN  HIGH  BITS 

CLEAR  CPU  NUMBER  FROM  LINK  POINTER 

FORM  CPU  NUMBER'2 


GET  $K6TAB  ADDRESS 
INDEX  INTO  TABLE 
MAP  TO  CPU  PARTITION 
FORM  VIRTUAL  ADDRESS  OF  KB 
SAVE  KB  ADDRESS 
BIAS  KB  ADDRESS 
IS  THIS  THE  RIGHT  CPU  ? 
IF  NE,  NO  ..  KEEP  LOOKING 
GET  NUMBER  OF  VECTORS 
COPY  POINTER  TO  VECTOR 
ISOLATE  NONSENSE  INTERRUPT  NUMBER 
AND  FORM  WORD  OFFSET 

IS  VECTOR  IN  USE  ? 

IF  NOT  -  BRANCH 

ELSE  -  RESET  VECTOR  POINTER 


;♦  GET  ERROR  LOG  VECTOR  ADDRESS  CONTENTS 
IS  THE  VECTOR  STILL  AVAILABLE? 
U  NE,  NO 

SKIP  VECTOR  PRIORITY 
LOOP  $NVECT  TIMES 

SHOW  THAT  WE  SETUP  THE  VECTORS 


DISABLE  INTERRUPTS 


TMPvCT 
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UNlHC   -  UNLOAD  HOP  COST  MAIRl  MACRO  V05.03b  Saturday  29-Jun-85  00:48 
Table  ot  content? 

5-  A5    MACRO  DEFINITIONS 

6-  56    DEAMHC  -  DEALLOCATE  MINHOP/COST ,C<T  CTRS.,ROL 
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uNLPS:  -  NTL  UNLOAD  ROUTINES  FO  MACRO  V05.O3b  Wednesday  17-Jul-8'i  12:05  Page  6 
LOCAL  SYMBOL  DEFlNinONS 


83 
8^ 
85 
86 
87 
88 
89 
90 
91 
92 
9^ 


000002 
00000^ 
000006 
000010 
0000^2 
0O0C1A 


.S8TTL   LOCAL  SYMBOL  PEflNITlDNS 


SAVED  REGISTER  OFFSETS  FOR  SWSTK$ 

R$RO  =  2 

R$R1  =  « 

R$R2  =  6 

R$R3  =  10 

R$R«  =  12 

R$R5  =  14 


D  13 
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ikii  r\\r\    DC  I     hATA    DACtrc 


C  14 


•F1LE<"IC"UNLSUB 


uu    uu 

NN 

NN 

SSSSSSSS 

uu 

uu 

BBBBBBBB 

UU    uu 

NN 

NN 

SSSSS5S5 

uu 

uu 

BBBB8B88 

UU    uu 

NN 

NN 

SS 

uu 

uu 

BB      BB 

uu    uu 

NN 

NN 

ss 

uu 

uu 

BB      BB 

uu    uu 

NNNN 

NN 

SS 

uu 

uu 

BB     BB 

uu    uu 

NNNN 

NN 

ss 

uu 

uu 

BB     BB 

uu    uu 

NN  NN 

NN 

ssssss 

uu 

uu 

BBBBBBBB 

uu    uu 

NN  NN 

NN 

ssssss 

uu 

uu 

BBBBBBBB 

uu    uu 

NN 

NNNN 

ss 

uu 

uu 

BB      BB 

uu    uu 

NN 

NNNN 

ss 

uu 

uu 

BB     BB 

uu    uu 

NN 

NN 

ss 

uu 

uu 

BB      BB 

uu    uu 

NN 

NN 

ss 

uu 

uu 

BB      BB 

uuuuuuuuuu 

NN 

N^■ 

LLLLLLLLLL 

SSSSSSSS 

uuuuuuuuuu 

BBBBBBBB 

uuuuuuuuuu 

NN 

NN 

LLLLLLLLLL 

SSSSSSSS 

uuuuuuuuuu 

BBBBBBBB 

LL 

SSSSSSSS 

TTTTT 

TTTTT 

LL 

SSSSSSSS 

TT^T 

TTTTT 

LL 

SS 

LL 

SS 

LL 

SS 

.L 

.S 

LL 

SSSSSS 

lL 

SSSSSS 

LL 

ss 

LL 

SS 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

D  U 

■JNLSUB  -  NTL  UNLOAD  SUBROUTINES  MACRO  V05.03b  Saturday  c ''-Jun-85  OOi^S 


UNLSUB     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:48 

SYMBOL  ':ross  reference 


C  15 

PAGE  1 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

DDMAC 

=    ««..»»     GX 

•12-516 

DLCAC 

=    »«»»•«     GX 

•12-315 

FNDADD 

00007A   RG 

#11-234 

GETIND 

000002  RG 

#7-104 

GETPDV 

OOOOAA  RG 

#9-176 

LF.ACT 

=   100000 

#5-60 

LF.BRO 

:  000400 

#5-60 

LF.BWT 

=  000007 

#5-60 

LF.ENA 

=  002000 

#5-60 

LF.LPB 

=  001000 

#5-60 

LF.MDC 

=  000100 

#5-60 

Lf .MFL 

=  004000 

#5-60 

LF.MTP 

=  000020 

#5-60 

LF.PAC 

=  000200 

#5-60 

LF.RDY 

=  040000 

#5-60 

12-503 

LF.REA 

=  010000 

#5-60 

LF.SER 

=  000040 

#5-60 

LF.TIM 

=  000010 

#5-60 

LF.UNL 

=  020000 

#5-60 

LF.X2P 

=  000000 

#5-60 

LN.CLO 

=  000000 

#5-60 

LN.DUM 

=  000005 

#5-60 

LN.LOA 

=  000004 

#5-60 

LN.LOO 

=  000003 

#5-60 

LN.OAU 

=  000003 

#5-60 

LN.OFF 

=  000001 

#5-60 

LN.ON 

=  000000 

#5-60 

LN.OOP 

=  000004 

#5-60 

LN.OPE 

=  000001 

/,'5-60 

LN.REF 

=  000002 

#5-60 

LN.SER 

=  000002 

#5-60 

LN.STA 

=  000017 

#5-60 

LN.SUB 

=  000360 

#5-60 

LN.TRI 

=  000006 

#5-60 

L.COST 

000015 

#5-60 

L.CTL 

000012 

#5-60 

12-511 

12-311 

L.CVA 

177776 

#5-60 

L.DDM 

000002 

#5-60 

12-308 

12-508 

L.DDS 

000004 

#5-60 

L.DLC 

000003 

#5-60 

12-505 

12-305 

L.DLM 

000006 

#5-60 

L.DLS 

000010 

#5-60 

L.FLG 

000000 

#5-60 

12-505 

..KRBA 

000016 

#5-60 

L.LEN 

=  000022 

#5-60 

L.MP'^ 

000022 

#5-60 

L.NM5T 

000020 

#5-60 

L.NSTA 

000014 

#5-60 

i.OMfl 

000021 

#5-60 

L.UNT 

000013 

#5-60 

PDVNM 

=   n,***     GX 

7-1D6 

PDVM 

-   .»,.♦.     GX 

7-108 

7-116 

9-176 

UNLSUB 
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00:49 


56 

57 

58  000000 

59 


';    LIBRARy  MACROS 

.MlALL   PC8DF$ 
PCBDFS 


;  DEFINE  PARTIIION  CONTROL  BLOCK  OFFSETS 


D  16 
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TM' 
MA 


246 
247 
248 
249 
250 
?S1 
-.52 
253 
254 
255 
256 
257 
258 
259 


000172  112546 

000174  112566  000001 

000200  012600 


000202  122525 


000204  112546 

000206  112566  000001 

000212  012601 

000214  001402 
000216 
C00222 


XCORE: 


M0V8 
H0V8 
MOV 


(R5)+,-(SP) 
(S5)+,1(SP) 
(SP)+,RO 


.IF  DF  M$$MGE 
CMPB    (R5)+,(R5)t 
.ENDC 


10$: 


MOVB 

MOVB 

MOV 

BEQ 

CALL 

RETURN 


(R5)+,-(SP) 

(R5)+,1(SP) 

(SP)+,R1 

10$ 

$DEA18 


ASSEMBLE  BIAS 

DISCARD  DISPLACEMENT 
ASSEMBLE  COUNT 


IF  ZERO,  DO  NOTHING 
DEALLOCATE  DOUBLEWORD  STORAGE 


TMPEX?  -  NTL  TEMPLATE  ERROR  CLE  MACRO  VO5.03b  Saturday  29-Jun-85 
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MACRO  DEFINITIONS 


D  2 

00:43 
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26A 

ADD 

#4,R5 

(r5)  + 

265 

TST 

266 

.ENDC 

267 

268  000166 

RETURN 

269 

270 

271 

■  CSR 

272 

273  C00170 

005205 

CSR:    INC 

R5 

27'',  000172 

005723 

TST 

(R3)  + 

275  0001 7A 

RETURN 

276 
277 
278 
279 
280  000176 

* 

;•  COUNTER  TIMER 

005723 

CTIM-    TST 

(R3)  + 

281  000200 

282 

283 

RETURN 

' 

■  DEVICE  CHARACTERISTICS 

28A 

285  000202 

005767 

000154' 

DVCHA:   TST 

FLAGS 

IS  IT  MUX  EXPANSION  ? 

286  000206 

001417 

BEU 

10$ 

NO  .. 

287  000210 

126467 

000013  000152' 

CHPB 

L.UNT(R4), INDEX 

DO  UNIT  NUMBERS  MATCH  ? 

288  000216 

001013 

BNE 

10$ 

NO  .. 

289  000220 

SAVRG 

R4 

SAVE  REG 

290  000222 

016704 

OOOOOOG 

MOV 

$SLTA,R4 

COPY  SLT  ADDRESS 

291  000226 

010364 

177776 

MOV 

R3,L.CVA(R4) 

COPY  FIRST  DEVICE  CHAR.  WORD  VIRTUAL  ADDR 

292  000232 

RESRG 

R4 

RESTORE  REG 

293 

29A  000234 

016723 

OOOOOOG 

MOV 

$$DCHA,(R3)t 

COPY  DEVICE  CHARACTERISTICS 

295  000240 

016723 

000002G 

MOV 

;$D:HAt2,(R3)+ 

TWO  WORDS 

296  000244 

000401 

BR 

20| 

297  000246 

022323 

10$:    CMP 

(R3)+,(R3)+ 

298  000250 

20$:    RETURN 

299 
300 
301 

;  PROTOCOL  EMULATOR  CHARACTERIST 

rs 

302 

303  000252 

005767 

000154' 

PECHA:   TST 

FLAGS 

IS  IT  MUX  EXPANSION  ? 

304  000256 

001407 

8EQ 

10$ 

•  NO  .. 

305  000260 

126467 

000013  000152 

CMP8 

L.UNT(R4), INDEX 

■  DO  UNIT  NUMBERS  MATCH  ? 

306  000266 

001003 

BNE 

10$ 

•  NO  .. 

307  000270 

016723 

OOOOOOG 

MOV 

$$PCHA,(R3)t 

•  COPY  PROTOCOL  EMULATOR  CHARACTERISTICS 

308  000274 

000401 

BR 

20$ 

309  000276 

005723 

10$:    TST 

(R3)  + 

310  000300 

20$:    RETURN 

311 

312 

• 

313 

314 

315  000302 

316 

;  END  OF  FILE 

EOF:    CRASH 

517 
318 
319 
320  000304 

;  INTERRUPT  ENTRV  POINT 

122525 

INT:    CMPB 

(R5)t,(R5)t 

TMPEX5  -  NTL  LINE  TABLE  UPDATE  MACRO  V05.03b  Saturday  29-Jun-85 
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TMPtXS     CREATED  BY  MACRO  ON  29-JUN-85  AT  00;A3 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


ADDRB 

ADDPU 

APR 

BL<B 

BLK.W 

BLOCK 

BYTE 

CORE 

CSR 

CTIM 

DPRB 

DPRW 

OVCHA 

EOF 

FILE 

FLAGS 

FLT 
FLT16 
FL.KMX 
INDEX 


INT 

LFILE 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

lF.TIM 

LF.UNL 

LF.X2P 

LIBR 

'.  INKS 

LN.CLO 

LN.DJM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

lN.REF 


000106  R 
000112  R 
001070  R 
C00116  R 
0001 3A  R 
000162  R 
0001 5A  R 
000160 
000170 


000176  R 


001074 
001100 
000202 
000302 
000530 
000154 


001104  R 
001104  R 
******     GX 
000152  R 


000304  R 

00064C  R 

10C000 

000400 

000007 

u02000 

001 000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000314  R 

000324  R 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

C00004 

0000D1 

000002 


REFERENCES 

5-91 

5-92 

5-122 

5-93 

5-94 
#5-160 

5-95 

5-96 

5-97 

5-98 

5-123 

5-124 

5-99 

■^-100 

D-101 
#5-153 
*8-511 
#10-595 

6-186 

7-404 
#5-148 
*8-482 

12-733 

5-102 

5-105 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
/*5-62 
#5-62 
#5-62 
#5-62 
#5-62 

5-103 

5-104 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#.'-62 
#5-61 
#5-62 
#5-62 
#5-62 


#7-220 
#7-226 
#9-;65 
#7-232 
#7-242 
6-190 
#7-253 
#7-259 
#7-273 
#7-280 
#9-572 
#9-578 
#7-285 
#7-315 
#8-462 
*6-181 
•9-517 

#10-594 

*6-180 
♦8-506 
12-746 
#7-320 
#8-495 


«7-333 
#7-347 


D  3 
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10-649 


7-285 
•9-542 


7-2b7 
8-507 
12-759 


7-303 

12-718 


7-305 
•8-510 
12-772 


7-365 
12-731 


7-367 
9-525 


7-399 
12-744 


7-401 
•9-536 


•8-461 
12-757 


8-467 
9-537 


8-465 
12-770 


•8-478 
•9-541 


•8-483 


8-479 
12-720 


TMPEX5 
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LOCAL  DATA 


550 
351 

352  00027A 

353  000300 
35^ 

355 
356 
35  V 
35!!,  000302 

359  00030A 

360  000312 

361  0003 K 

362  000322 

363  000324 

364  000330 

365  000332 

366  000336 

367  0OO3A0 
36S  0003A2 

369  0003A4 

370  000346 

371  000352 

372  000356 

373  000360 

374  000364 

375  000370 

376  000372 

377  000376 

378  000402 
379 

380 
381 
382 

383  00040'^ 

384  000406 

385  000414 

386  000416 

387  000424 

388  000426 

389  000432 

390  000434 

391  000440 

392  000442 

393  000444 

394  000450 
395 

396 

397 

393 

399  000452 

400 

401 

402 

403 

404  000454 

405  000460 
406 


016724  000222" 


;  COUNTER  TIMER 

CTIM:   MOV     PRCTIM,(R4)+ 
RETURN 


005000 
032767 
001414 
032767 
001410 
005767 
100020 
016700 
006300 
006300 
022020 

016702 
010462 

016024 
016024 

012724 

012724 


005000 
032767 
001413 
032767 
001407 
005767 
100004 
01670C 
006300 
005720 
016024 


DEVICE  CHARACTERISTICS 


OOOOOOG  000162' 
OOOOOOG  000162" 
000160" 
000156' 


DVCHA: 


OOOOOOG 
1 ^7776 

000556' 
000560' 

177777 
177777 


10$: 


101$: 


CLR 
BIT 
BEQ 
BIT 
BEQ 
TST 

MOV 
ASL 
ASL 

CMP 

SAVRG 

MOV 

MOV 

RESRG 

MOV 

MOV 

RETURN 

"lOV 

MOV 

RETURN 


RO 

#FL.DDM,PRFLA6 

10$ 

#FL.MUX,PRFLAG 

10$ 

FLAGS 

101$ 

INDEX, RO 

RO 

RO 

(RO)+,(RO)+ 

R2 

$SLTSV,R2 

R4,L.CVA(R2) 

R2 

PRDCHA(R0),(R4)+ 

PRDCHA*-2(R0),(R4 

#-1,(R4)+ 
#-1,'R4)*- 


STORE  COUNTER  TIMER  VALUE 


ASSUME  DLC 

IS  IT  A  DDM? 

IF  EQ,  NO 

IS  IT  A  MUX  DEVICE? 

IF  EQ,  NO 

IS  IT  MUX  EXPANSION? 

IF  PL,  NO 

GET  SECONDARY  FILE  COUNTER 

CONVERT  TO  A  DOUBLEWORD  INDEX 

SKIP  DLC  CHARACTERISTICS 
SAVE  REG 

COPY  SLl  ADDRESS 

STORE  DEVICE  CHAR.  POINTER  IN  SLT 
RESTORE  REG 
;  COPY  DEVICE  CHARACTERISTICS 
)t  ;  TWO  WORDS 

;  DDM  DVCHA  NOT  IN  MXTAB  FILE 


PROTOCOL  EMULATOR  CHARACTERISTICS 


OOOOOOG  000162" 
OOOOOOG  000162' 
000160' 
000156' 


PECHA: 


001062' 


10$: 


RETURN 


RO 

#FL.DDM,PRFLAG 

10$ 

#FL.MUX,PRFLAG 

10$ 

FLAGS 

10$ 

INDEX, RO 

RO 

(R0)  + 

PRPCHA(RC),(R4)+ 


ASSUME  DLC 
IS  IT  A  DDM? 
IF  EQ,  NO 

IS  IT  A  MUX  DEVICE? 
IF  EQ,  NO 

IS  IT  MUX  EXPANSION? 
IF  PL,  NO 

GET  SECONDARY  FILE  COUNTER 
CONVERT  TO  A  WORD  INDEX 
SKIP  DLC  CHARACTERISTICS 
;  COPY  DEVICE  CHARACTERISTICS 


016724  000220' 


END  OF  FILE 
EOF;    CRASH 

LOGICAL  LINKS 

LINKS:   MOV     PRLINX,(R4)< 
RETURN 


;  COPY  LOGICAL  LINK  COUNT 


E  ^. 
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LOCAL  DATA 


866 
367 
868 
869 
870 

871  002170 

872  0021 7A 
873 

874 
87S 

•  DEAD  POLLING  RATIO  9YTE 

116724 

000M2' 

DPR8:  MOVB  PRDPR,(R4)+ 
RETURN 

;  DEAD  POLLING  RATIO  WORD 

87t 

877  0u217t 

878  002202 

01672<, 

0005  2' 

6pRW:  MOV  PRDPR,(R4)+ 
RETURN 

STORE  DPR 


;  STORE  DPR 
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Eo^- 
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55 

54 

53 

56 

57 

58 

59 

60  000000 

51 

62 

63 

64 

65 

66 

67  000000 

58 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84  000000 

85 

86  OOOCOO 

87 

88 

89 

90 

91  000002 

92  000004 

93  000006 

94  000010 

95  000012 

96  000014 

97  000016 

98  000020 

99  000022 
G00U24 

_  000026 

102  000030 

103  000032 

104  00003^. 

105  C00036 

106  000C40 

107  000042 

108  0OC044 
W   0000,6 


100 
101 


.SeiTL  MACRO  DEFINTIONS 
•  *** 
■  MACRO  CALLS 

.MCALL  NKRDF$,SLTDF$,SAVRG,RESRG 

SLTDFS  ;  DEFINE  SLT  OFFSETS  AND  SYMBOLS 


;  DEFINE  KRB  OFFSETS 

■  DEFINE  NETWORK  KRB  OFFSETS 


.IF  DF 
.MCALL 
KRBDFS 
.ENDC 

R$$MPL 
KRBDFS 

NKRDFS 

*** 

LOCAL  MACROS 
**» 

DEFINE  TRANSFER  TABLE  ENTRY 

.MACRO 

.WORD 

.ENDM 

TTABS   AA,B8 

AA 

TTAB$ 

*** 

LOCAL  DATA 
♦  «♦ 

.PSECT 

DAIA.D 

000000 


TEMP: 


.WORD   0 


;  TEMP  LOCATION 


TRANSFER  TABLE  USING  FUNCTION  CODE  AS  INDEX 


tABLE : 


TTABS 

ADDR8,NULL 

TTA8$ 

ADDRW.NULL 

TTA8S 

BLKB.POPl 

TTABS 

BLKW.POPI 

TTABS 

BYTE,P0P1 

TTABS 

CORE.vroRE 

TTABS 

CSR, 

TTABS 

CTir 

TTABS 

DVCI 

TTABS 

tOF,,Jc 

TTABS 

FILE.Pui-i 

TTABS 

INT,P0P2 

TTASS 

LJ8R,XLIBR 

TTABS 

LINKS, NULL 

TTABS 

LFILl  P0P3 

TTABS 

LSTHD,NULL 

1TA8S 

L TAB, NULL 

TTABS 

MPTA8,P0.3 

TTAB* 

MXTAB.POPI 

EXPANSI0;\l  ROUTINE  IS  FIRST  ENTRY 
CLEANUP  ROUTINE  IS  SECOND  ENTRY 
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MACRO  DEFINTIONS 


63^ 

635 

636 

63:"  001 3^.6  00?203 

638  001350 

639 

6A0 

641 

M2 

6A3 

644  001352  00520" 

645  001354 
646 

647 
648 
649 

650  00)356     005723 

651  001360 


ACTIVE  POLLING  RATIO  (APR)  -  BVTE 

APR:    INC     fi3 
RETURN 


DEAD  POLLING  RATIO  (DPRB^  -  BYTE 

LiPRB:    INC     R3 
RETURN 


DEAD  POLLING  RATIO  (DPRU)  -  UORD 

D'^RW:    TST     (R3)  + 
RETURN 
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»*FILE" 

1D« 

>TMPINI 

TTTTTTTTTT 

MM      MM 

pppppppp 

Illill 

TTTTTTTTTT 

MM      MM 

pppppppp 

IIIIII 

TT 

MMMM  MMMM 

pp    pp 

II 

TT 

MMMM  MCMM 

pp    pp 

II 

TT 

MM  MM  MM 

pp    pp 

11 

TT 

MM  MM  MM 

pp    pp 

II 

TT 

MM      MM 

pppppppp 

II 

TT 

MM      MM 

pppppppp 

I 

TT 

MM      MM 

pp 

1 

TT 

MM      MM 

pp 

TT 

MM      MM 

pp 

TT 

MM      MM 

pp 

I 

TT 

MM      MM 

pp 

IIIIII 

TT 

MM      MM 

pp 

IIIIII 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

3SSSSS5S 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

Si 

LL 

ss 

LL 

ss 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLL^ 

LLL 

SSSSSSSS 

D  8 


NN 

NN 

NN 

NN 

NNNN 

NNNN 


NN 
NN 
NN 
NN 
NN 
NN 


NN  NN  NN 

NN  NN  NN 

NN  NNNN 

NN  NNNN 

NN  NN 

NN  NN 

NN  NN 

NN  NN 


III 

III 

I 

I 

I 

I 

I 

I 

I 

1 

I 

I 

III 

III 
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TMPSTB  -  ML  TEMPLATE  STATE  TAB  MACRO  V05.03b  Saturday  29-Jun-85  00:45 
Table  of  contents 

MACRO  DEFINITIONS 

ENTRY  POINT 

STATE  TABLES 

OPERATOR  KEYWORDS  STATE  TABLES 

.B1N,.BLKW,.BLKB 

.BYTE, .CORE 

.CSR,. END, .FILE 

.1NT,.INT1,.INT2,.INT3,.LI8R,.LFILE 

.MPTAB,.MXTAB,.MXPTB 

.PRI,.POOL,.SCOM,.UMR,.VFY 

.WORD,.X3CHB,.X2CHB,.X3CHW,.X2CHW 

SUBEXPRESSIONS 


s- 

S6 

6- 

ftr^ 

7- 

m 

H- 

106 

9- 

Iz-A 

10- 

212 

n- 

2S0 

1?- 

2HS 

1^- 

^^0 

14- 

^S9 

is- 

402 

16- 

438 
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TMPSTB  - 

NTL  'EMPLATE 

.WORD,.X3CHB,.X2CHB,. 

A02 

403 

AOil 

A05 

406 

000002 

407 

000002 

408 

000002 

409 

000002 

410 

000002 

411 

000002 

412 

000002 

413 

000002 

414 

000002 

415 

000002 

416 

000002 

417 

418 

419 

420 

000002 

4^1 

000002 

422 

423 

424 

425 

000002 

426 

000002 

427 

428 

429 

430 

000002 

431 

000002 

432 

433 

434 

435 

000002 

436 

000002 

0  10 

STA1E  lAB  MACRO  V05.03b  Saturday  29-Jun-85  00:45  Page  15 
(3CHW,.X2CHW 

.SBTTL   WORD,.X3CHB,.X2CHB,.X3CHW,.X2CHW 


;  ".WORD" 

STATES 
TRANS 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 
TRANS 

WORD 

IEXP,W0RD1, SWORD 

'',>,W0RD2,S/W0RD 

lERROR.SEXIT 
W0RD1 

lEND.SEXIT 

W0fiD2 
: EXP, W0RD1, SWORD 
<•,■ ,W0RD2,$ZW0RD 
IEND,$EXIT,SZWORD 

;  .X3CHB 

STAGES 
TRANS 

X3CH8 
IPOSEXP,ONLY1,$X3CHB 

;■  .X2CHB 

STATES 
TRANS 

X2CH8 
IP0SEXP,0NLVl,$X2CHf! 

•  .X3CHW 

STATFS 
TRANS 

X3CHU 
IP0SEXP,ONLY1,SX3CHU 

;  .X2CHW 

STATES 
TRANS 

X2CHW 
1P0SEXP,UNLY1,SX2CHW 

E  10. 
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229 
230 
231 
232 
233 
25i 
235 
256 
237 
238 
239 
2W 
2A1 
2^2 
2A3 
244 
245 
246 
247 
248 

249  000142 

250  000150 

251  000152 

252  000156 
255  000162 

254  000164 

255  0G0170 
256 

257 
258 
259 
260 

261  000172 

262  000176 

263  000202 

264  000204 
265 

266 
267 
263  000210 

269  000214 

270  000216 

271  00022'. 
272 

273 

274  0CQ224 

275 

276 

VT 

278 

279 

280 

281 

282 

283 

284 

285 


12$: 
15$: 


026727 
103410 
012740 
016740 
064110 

000407 


OOOOOOG  120000 

OOOOOOG 
OOOOOOG 


15$: 


012740  OOOOOOG 
01674t  OOOOOOG 
064110 


20$: 


25$: 


C004G3 

052767  OOOOOOG  OOOOOOG  30$: 
/}$: 


10$: 


.If  DF  R$$MPL 


MOV 
ADD 
BIT 
BNE 
CMP 
BLO 

ADD 
MOV 
MOV 
ADO 
SOB 
BR 

.IFF 


CMP 
BLO 
MOV 
MOV 
ADD 
SOB 
BR 


.IFTF 

MOV 
MOV 
ADD 
SOB 

.ENDC 

MTPS 

BR 

BI? 

.1,  DF 

MOV 

.ENDC 

RETURN 

,m 


FMASK,FMKTMP 

#2,FMKTi«1P 

#F2.DAS,aFMKTMP 

12$ 

$ADDR, #120000 

20$ 

#2,$ICBAD 

*PR7,-(R0) 

$iCBAD,-(R0) 

-{R1),(R0) 

R3.15i 

25i 


.IF  DF  M$$MGE 

SADDR, #120000 

20$ 

#PR7,-(R0) 

$IC8AD,-(R0) 

-(R1),(R0) 

R3.15i 

25i 


GET  $FMASK  ADDRESS 

$FMASKt2  ADDRESS 

D-SPACE  ENABLED  ? 

IF  YES  -  BRANCH,  WE  MUST  HAVE  AN  KB 

IF  NOT  -  TEST  FOR  A  DSR  SPACE  LINE  TABLE 

IF  LINE  TABLE  IS  FROM  DSR  -  BRANCH 

SKIP  THE  KB  LINK  POINTER 
SET  PRIORITY  7 
COPY  IC3  ADDRESS 
ADD  IN  DISPLACEMENT 
LOOP  $NVECT  TIMES 
CONTINUE 


PARTITION  LINE  TABLE? 
IF  LO,  NO 
SET  PRIORITY  7 
COPY  KB  ADDRESS 
ADD  IN  DISPLACEMENT 
LOOP  $NVECT  TIMES 
AND  CONTINUE 


.ENDC 


DF  M$$MGE 


#PR7,-(R0) 
$ADDfi,-(R0) 
-(RD.CRO) 
R3,20$ 


#0 

40^ 

#F1.VSE,$FLAG1 

P$$MPL 

{SP)+,aKSAR5 


MTPS 

#PR7 

MOV 

BUFUMP,-(SP) 

MOV 

KISARO.BUFUMP 

ADD 

#.8ASEB,R0 

CMP 

(R0)+,#.EM1NT 

BNE 

30$ 

TST 

(R0)  + 

SOB 

R2,10$ 

SET  PRIORITY  7 

COPY  LINE  TABLE  ADDRESS 

ADD  APPROPRIATE  DISPLACEMENT 

LOOP  $NVECT  TIMES 


;;•  RE-ENABLE  INTERRUPTS 
•  INDICATE  ERROR  OCCURRED 

;»  RESTORE  PREVIOUS  MAPPING 

;♦  BACK  TO  USER  MODE 


DISABLE  INTERRUPTS 

SAVE  USER  APR2 

MAP  TO  VECTOR  SPACE 

ADJUST  VECTOR  ADDRESS 

IS  VECTOR  STILL  AVAILABLE? 

IF  NE,  NO 

SKIP  VECTOR  PRIORITY 

LOOP  $NVECT  TIMES 
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1 
2 

5 

6 

7 

8 

9 

10 

11 

\2 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 


.TITLE   UNLHC   -  UNLOAD  HOP  COST  MATRIX 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  UNLOAD  XPT  DATA  DASES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


UNLHC 
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95 

96 

97 

98 

99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 

111  000000 

112  00000^ 

113  000006 
IK  000012 

115  000016 

116  000022 

117  000026 

118  000032 

119  000036 

120  000042 
12.  OO0OA6 

122  000052 

123  00C356 

124  000062 

125  000066 

126  000072 

127  000076 

128  000102 

129  000106 

130  000112 

131  000116 

132  000122 

133  000126 
13^;  000132 

135  000136 

136  000U2 

137  000U6 
138 


.S8TTL   SXPSl  -  UNLOAD  PS]  DATA  BASES 


SXPSl  -  UNLOAD  PSI  DATA  BASES  FROM  EXTENDED  POOL 

INPUTS: 

NONE 

OUTPUTS: 

PSI  DATA  BASES  ARE  DE-ALLOCATED 


017703 
001460 
062703 
012701 

062703 
012701 

062703 
012701 

062703 
012701 

C62703 

062703 


017700 
012701 


f^OOOOOG 

000006 
000016 

000002 
000016 

177774 
000024 

000032 
000032 

177754 

000002 


OOOOOOiJ 
00004? 


005077  OOOOOOG 


.If  NDF 

ISSAS 

SXPSl::  MOV 

aPSlPT,R3 

BEQ 

10S 

ADD 

#HSPVC,R5 

MOV 

#CiLEN,Rl 

CALL 

DEALST 

ADD 

#H$CUG-H$PVC,R3  ; 

MOV 

#G$LEN,R1      ; 

CALL 

DEALST 

ADD 

#HSRDTE-HSCUG,R3; 

MOV 

#RSLEN,R1 

CALL 

DEALST 

ADD 

#HSSVC-HSRDTE,R3; 

MOV 

*SSLEN,R1 

CALL 

DEALST 

ADD 

#H$DST-H$SVC,,^3  ; 

CALL 

DEADST 

ADD 

#HSD29-HSDST,R3  ; 

CALL 

DEADST 

CALL 

XPORT 

CALL 

XLDTE 

CALL 

XX29 

CALL 

XTRA 

MOV 

aPS.'PT.RO 

MOV 

#HSLEN,R1 

CALL 

SDFA16 

CLR 

aPSIPT 

10S:   RETURN 

.ENDC 

;  NDF  ISSAS 

GET  ADDRESS  OF  PSI  HOME  BLOCK 

BR  IF  NONE  -  NOTHING  TO  DO 

POINT  TO  PVC  NAME  LISTHEAD 

GET  LENGTH  OF  PVC  NAME  BLOCK 

DEALLOCATE  PVC  NAME  BLOCKS 

POINT  TO  CU3  NAME  LISTHEAD 

GET  LENGTH  OF  CUG  NAME  BLOCK 

DEALLOCATE  CUG  NAME  BLOCK 

POINT  TO  REMOTE  DTE  NAME  LISTHEAD 

GET  LENGTH  OF  REMOTE  DTE  NAME  BLOCK 

DEALLOCATE  CUG  NAME  BLOCK 

POINT  TO  SVC  DESCRIPTOR  LISTHEAD 

GET  LENGTH  OF  SVC  DESCRIPTOR  BLOCK 

DEALLOCATE  SVC  DESCRIPTOR  BLOCKS 

POINT  TO  X.25  DESTINATION  DESCRIPTORS 

DEALLOCATE  DESTINATION  DESCRIPTORS 

POINT  TO  X.29  DESTINATION  DESCRIPTORS 

DEALLOCATE  DESTINATION  DESCRIPTORS 

DEALLOCATE  PORT  TABLE  AND  CIRCUIT  BLOCKS 

DEALLOCATE  LOCAL  DTE  DESCRIPTOR  BLOCKS 

DEALLOCATE  X.29  DATA  BLOCK 

DEALLOCATE  TRACE  STRUCTURES 

GET  ADDRESS  OF  PSI  HOME  BLOrK 

GET  LENGTH  OF  PSI  HOME  BLOC\ 

DEALLOCATE  PSI  HOME  BLOCK 

CLEAR  PSI  HOME  BLOCK  ADDRESS 
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'JNLSUB  -  NTL  UNLOAD  SUBROUTINES  MACRO  V05.03b  Saturday  P-Jun-85  00:';e 
Tab'.e  ot  contents 

MACRO  DEFINITIONS 

LOCAL  DATA 

GETIND  -  GET  PDV  INDEX 

FNCTB  -  FIND  CTB  ADDRESS 

GETPDV  -  CONVERT  PDV  INDEX  TO  PDV  ADDRESS 

XKRB  -  DE-ALLOCATE  KRB 

FNDADD  -  FIND  LINE  TABLE  ADDRESS 

SCAN  -  SCAN  SLT  FuH  ACTIVITY 


s- 

s? 

(S- 

6H 

^- 

91 

8- 

V-^ 

9- 

16< 

10- 

181 

,1- 

m 

12- 

;^8o 
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UNL5UB     CREATED  BY  MACRO 
SYMBOL  CROSS  REFERENCE 


ON  29-JUN-85  AT  00:48 


D  15 

PAGE  2 

CREF   0^4.00 


SYMBOL 

VALUE 

REFERENCES 

RtSMPL 

r     ****** 

5-62 

n$HM 

=  000000 

10-196 

SCAN 

000136 

RG 

#12-295 

SF.ACT 

=  000200 

#5-60 

SF.ENA 

=  000100 

#5-60 

SF.LPB 

=  000004 

#5-60 

SF.MFL 

=  000040 

#5-60 

SF.PAC 

=  000020 

#5-60 

SF.REA 

=  000010 

#5-60 

SF.SER 

=  000001 

#5-60 

SF.SVC 

=  000002 

#5-60 

SF.UNL 

=  000040 

#5-60 

SLTMA 

r    ****** 

(iX 

12-298 

SLTNM 

=    ****** 

GX 

12-300 

S.COST 

000001 

#5-60 

S.FLG 

000000 

#5-60 

S.LEN 

000004 

#5-60 

S.NMST 

000002 

#5-60 

S.OWNR 

000003 

#5-60 

UNITS 

000000 

R 

#6-88 

XKRB 

000056 

RG 

#10-195 

SDECEX 

=      ****** 

GX 

10-203 

SICBLN 

=      ****** 

GX 

11-243 

SKRBLN 

-      ******* 

GX 

10-201 

.C8IAS 

-      ****** 

GX 

9-177 

6-73 


-135 


10-198 


11-235 


•  12-297         02-313 


12-317 


UNLSUB 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:48 
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61 
62 
63 

65 
66 
67 
68 
69 
70 
71 
72 
73 
71, 

75  000000 

76  000000 

77  OOOOOA 
78 

79 
80 

81  000010 

82  000016 

83  000020 

84  000026 

85  00003A 
86 

87 
88 
89 
90 

91  000040 

92  000046 

93  000050 

94  000054 
95 

96 
97 

98  000056 

99  000060 

100  000062 

101  000066 

102  000070 

103  000074 

104  000076 

105  000102 

106  000104 

107  000110 

108  000112 

109  000120 

110  000124 
111 

112 

113  C00150 

114 

115 

116 


$XPAR  -  RELEASE   MC8  PROCESS  FROM  PARTITION 

THIS   ROUTINE    IS    CALLED    TO   FREE    THE   PROCESS   PARTITION.    IF    IT    IS   A   SYSTEM 
CONTROaED  PARTITION,    IT  UILL  BE   UNLINKED   FROM  THE   LIST  OF   SU8-PCB'S 
AND  DE  ALLOCATED. 

INPUTS: 


RO  =  PCS  ADDRESS 

OUTPUTS: 

C-BIT  ^  SUCCESS/FAILURE 


tXPAR: 


016001  000012 


032761 
001017 
146060 
146061 
005060 


032777 
001430 
005060 
000425 


000040  000030 

000024  000025 

000024  000025 
000022 


OOOOOOG  OOOOOOG 
OOOOOOG 


020001 
001423 
026100 
001411 
016101 
001370 
017700 
011000 
005260 
000407 
016061 
016701 


000001 


000010 

000010 

OOOOOOG 

000006 

000010  000010 
OOOOOOG 


10$: 

20$: 


30$: 


40$: 


.IF  DF   R$$11M 


SWSTK$ 
MOV 


40$ 
P.MA1N(R0),R1 


;•  ENTER  KERNEL  MODE 

;*  GET  MAIN  PARTITION  PCS  ADDRESS 


.IF  NDF  R$$MPL 


BIT 

BNE 

BICB 

B1C8 

CLR 

.ENDC 


#PS.SYS,P.STAT(R1)  ;»  SVSIEM  CONTROLLED  MAIN  PARTITION? 
10$  ;*  VES  .. 

P.BUSY(R0),P.8USY+1(R0)  ;*  UN-BUSY  PARTITION 
P.8USY(R0),P.BUSY+1(R1)  ;*  UN-BUSY  MAIN  PARTITION 
P.WAJTt2(R0)    r    ZERO  THE  ALLOCATION  LISTHEAD 

;  NDF  R$$MPL 


.IF  DF   M$$MGE 
.IF  NDF  R$$MPL 


BIT 
BEQ 
CLR 
cR 

.ENDC 

CMP 

BEQ 

CMP 

BEQ 

MOV 

BNE 

MOV 

MOV 

INC 

BR 

MOV 

MOV 

CALL 

.ENDC 

RETURN 

.ENDC 
.END 


#FE.PLA,aFMASK 
40$ 

P.PRO(RO) 
40$ 

;  NDF  R$$MPL 


*  IS  THIS  A  PLAS  SYSTEM  ? 

*  NO  .. 

*  YES  ..  CLEAR  THE  PROTECTION  WORD 


*  IS  THIS  A  SUB-PCB? 

*  NO  .. 

*  DOES  THIS  SUB-PCB  LIN,'  TO  OURS? 
•YES  .. 

*  GET  NEXl  S'.ti-rCB 

*  GOT  0^E  . .  GO  CHECK  iT 

*  GET  USfr<  MODE  SP 


RO.RI 
40i 

P.SUB(R1),R0 
30$ 

P.SUB(R1),R1 
10$ 

aHEADR.RO 
(R0),r6 
6(R05 

40$  ;* 

P.SUB(R0),P.SU8(R1)  ;*  UNLINK  OUR  SUB-PCB 
'        ;*  GET  PCS  LENGTH 

;»  DE-ALLOCATE  SUB-PCB 


:*  SET  jSER  MODE  C-BIT 


PLGTH,R1 
aDEACB 


;*  BACK  TO  L  JR  MODE  AND  THEN  TO  CALLER 
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TMPEX?  -  NTL  TEMPLATE  ERROR  CLE  MAC 

261 

262 

263 

26A  00022A 

265 

266  00022A 

1125A6 

267  000226 

112566 

000001 

268  000232 

012600 

269 

270  00023A 

112546 

271  000236 

112566 

000001 

272  0OO2A2 

012602 

273  000244 

122525 

27A 

275 

276 

277 

278 

279  0002'.6 

E  1 

Saturday  29-Jun-85  00:43 


LIBRARY  POINTER 


XLIBR: 


.IF  DF 

M$$MGE 

Move 

(R5)+,-(SP) 

MOVB 

(R5)+,1(SP) 

MOV 

(SP)+,RO 

.IFTF 

MOVB 

(R5)+,-(SP) 

MOVB 

(R5)+,1(SP) 

MOV 

{SP)+,R2 

CMP8 

(R5)+,(R5)+ 

.IFF 

MOV 

R2,R0 

SIC 

#7^R0 

.ENDC 

CALLR 

$XLBR 

Page  9 


;  ASSEMBLE  BIAS 

;  AND  ADDRESS 

;  DISCARD 'extra  WORD 

;  CALCULATE  START  OF  LIBRARY  BLOCK 

;  RELEASE  LIBRARY  REFERENCE 


TM 
MA 


F  1 
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TMPEX5   -  NTL   LINE    TABLE 
MACRO  DEFINITIONS 
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321 

322 

323  000305 

324 

325 

325 

327 

328  000312 

329 

330 

331 

332 

333  000314 

334 

335  000314 

336  000320 
337 

338 

339 

340 

341 

342  000322 

343 

344 

345 

346 

347  000324 

348  000326 
349 

350 
351 
352 

353  000330 

354  000332 
355 

356 
357 
358 

359  000534 

360  000336 
361 

362 
363 
364 

365  000340 

366  000344 

367  00C346 

368  000354 

369  000356 

370  000362 

371  000366 

372  000370 
373 

374 
375 
376 
377 

062703 

000016 

.IF  DF 

ADD 

.IFF 

CMP 

.ENDC 

RETURN 

M$$MGE 
#14.,R3 

(R3)+,(R3)t 

;  LIBRARY  POINTER 

062705 
022323 

000006 

LIBR: 

.IF  DF 

ADD 

CMP 

.IFF 

ADD 

TST 

.ENDC 

M$$MGE 

#6,R5 

(R3)+,(R3)+ 

#4,R5 
(R^H 

RETURN 

;•  LOGICAL  LINKS 

005723 

LINKS:   TST 

RETURN 

•  LISTHEAD 

(R3)t 

022323 

LSTHD:   CMP 

RETURN 

(R3)+,(R3)+ 

';  LINE  TABLE  ADDRESS 

005723 

LTA8:    TST 

RETURN 

(R3)  + 

;  COMPLEMENT  OF 

PRIORITY 

005767 
001410 
126467 
001004 
012713 
045713 
005723 

000154' 

000013  000152 

OOOOOOG 
OOOOOOC 

PRI:    TST 
BEQ 
CMPB 
BNE 
MOV 
SIC 

10$:    TST 

RETURN 

FLAGS 
10$ 

L.UNT(R4), INDEX 
10$ 

#PR7,(R3) 
$$PRI,(R3) 
(R3)  + 

IS  THIS  A  MUX  EXPANSION  ? 
IF  EO,  NO  ..  NO  UPDATE 
IS  THIS  THE  RIGHT  UNIT  ? 
IF  NE,  NO 
GET  COriPLEMENT  OF  PRIORITY 

SkIp  PRIORITY 

;  LOCAL  NODE  ADDRESS 

F  2 
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TMPEX5     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:«3 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LSTHD 

LTAB 

-.COST 

L.CTL 

L.CVA 

L.DDM 

l.dd: 

L.DLC 

L.Di.M 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MP  TAB 

MXPTB 

MXTAB 

M$$MGE 

NOD 

NTLPT 


000002 

000017 

000360 

000006 

000330  R 

00033i  R 

000015 

000012 

177775 

000002 

000004 

000003 

000005 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

000635  R 
000722  R 
000524  R 
000000 
000372 

:  ****** 


GX 


REFERENlES 

#5-52 
#5-62 
#5-52 
#5-52 

5-106 

5-107 
#5-52 
#5-52 
#5-52 
#5-52 
#5-62 
#5-62 
#5-62 
#5-52 
#5-52 
#5-62 
#5-62 
#5-52 
#5-52 
#5-62 
#5-62 
#5-52 

12-747 

5-108 

5-125 

5-109 

7-260 

5-110 

10-596 


#7-353 
#7-359 


♦7-291 
5-185 
8-469 


7-287 
12-760 
#8-494 
#9-517 
#8-461 
7-322 
#7-378 


E  3 

PAGE  2 

CREF   04.00 


9-527 


7-305 
12-773 


7-334 


7-367 


-402 


8-457 


9-525 


12-721 


12-734 


PEC  HA 

000252 

R 

5-127 

#7-303 

PR  I 

000340 

R 

5-111 

#7-365 

PRTOV 

000376 

R 

5-112 

#7-385 

PR7 

^  ****** 

GX 

7-359 

R$$MPL 

~   ****** 

5-54 

SCGM 

000404 

R 

5-113 

#7-392 

SECSR 

000414 

R 

5-114 

#7-399 

SF.ACT 

=  000200 

#5-62 

SF.ENA 

=  000100 

#5-52 

SF.LPB 

=  000004 

#5-52 

SF.MFL 

=  000040 

#5-62 

SF.PAC 

=  000020 

#5-62 

SF.REA 

=  000010 

#5-62 

SF.SER 

=  000001 

#5-52 

SF.SVC 

=  000002 

#5-52 

SF.UNL 

^  000040 

#5-52 

SLNB 

000466 

R 

5-115 

#7-418 

SLNW 

0004^2 

R 

5-116 

#7-424 

STNB 

000476 

R 

5-117 

#7-430 

STNW 

000502 

R 

5-118 

#7-436 

S.COST 

000001 

#5-52 

S.FLG 

000000 

#5-62 

S.LEN 

000004 

#5-62 

TMPEX5 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:43 
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TMPEX6  -  NTL  TEMfiATE  EXPANSION  MACRO  V05.03b  Saturday  ?9-Jun-85  00:43 
LOCM  DATA 


407 
408 
409 
410  000462 

:■  LISTHEAD 

010400 

LSTHD: 

MOV 

R4,R0 

411  000464 

040200 

BIC 

E^s52  „. 

412  000466 

056700 

000154' 

§'§ 

PRAPR.RO 

413  000472 

005024 

CLR 

(R4)  + 

414  000474 

010024 

MOV 

R0,(R4)+ 

415  000476 

RETURN 

416 
417 
418 

;  LINE 

TABLE  ADDRESS 

419 

420  000500 

016724 

000164- 

LTAB: 

MOV 

STLIN,(R4)+ 

421  000504 

RETURN 

422 

423 
424 
425 
426  000506 

;•  SECONDARY  CSR 

005767 

000160' 

SECSR: 

TST 

FLAGS 

427  000512 

100015 

BPL 

101$ 

428  000514 

016700 

000156' 

MOV 

INDEX, RO 

429  000520 

032767 

OOOOOOG  000162' 

BIT 

#FL.KMX,PPFLAG 

430  000526 

001403 

BEQ 

10$ 

431  000530 

006200 

ASR 

RO 

432  000532 

006200 

ASR 

RO 

433  000534 

006200 

ASR 

RO 

434  000536 

006300 

10$: 

ASL 

RO 

435  000540 

016024 

000516' 

20$: 

MOV 

PRSCSR(R0),(R4)+ 

436  000544 

RETURN 

437  000546 

012724 

177777 

101$: 

MOV 

#-1,(R4)t- 

438  000552 

RETURN 

439 
440 
441 
442 
443  000554 

•  LOCAL 

NODE  ADDRESS 

017700 

OOOOOOG 

NOD: 

MOV 

aDECPT.RO 

444  000560 

016024 

000014 

MOV 

D$LNUM(R0),(R4)+ 

445  000564 

RETURN 

446 
447 
448 

;  MAXIMUM  PROTOCOL  OVERHEAD  SIZE 

449 

450  000566 

112524 

PRTOV: 

MOVB 

(R5)+,(R4)+ 

451  000570 

RETURN 

452 

453 
454 

;  SYSTEM  LINE  NUMBER  (BYTE) 

455 

456  000572 

005000 

SLNB: 

CLR 

RO 

457  000574 

005767 

000160' 

TST 

FLAGS 

458  000600 

100003 

EPL 

10$ 

459  000602 

016700 

000156' 

MOV 

INDEX, RO 

460  000606 

122020 

CMP8 

(RO)t,(RO)t 

461  000610 

116024 

000260' 

10$: 

MOVB 

PRSLN(R0),(R4)+ 

462  000614 

RETURN 

463 
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SET  REAL  ADDRESS 

CLEAR  APR  VALUE 

USE  THE  PROCESS  APR 

STORE  A  ZERO  WORD 

STORE  ADDRESS  OF  PREVIOUS  WORD 


STORE  LINE  TABLE  STARTING  ADDRESS 


IS  IT  MUX  EXPANSION? 

IF  PL,  NO 

GET  SECONDARY  FILE  COUNTER 

IS  THIS  A  COMIOP  MUX  LINE? 

IF  EQ,  NO 

DIVIDE  COUNTER  BY  8 

(NUMBER  OF  LINES  PER  CONTROLLER) 

convert' to  A  WORD  INDEX 
;  COPY  SECONDARY  CSR  ADDRESS 

SECSR  NOT  IN  MXTAB  FILE 


STORE  DECNET  HOME  BLOCK  POINTER 
;  STORE  LOCAL  NODE  ADDRESS 


STORE  MAX  PROTOCOL  SIZE 


ASSUME  NORMAL  EXPANSION 

IS  IT  MUX  EXPANSION? 

IF  PL,  NO 

GET  MUX  INDEX 

SKIP  DLC  LINE  NUMBER 

STORE  SYSTEM  LINE  NUMBER 


F  A 
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.SBTTL  X3CH 


880 
881 
882 
883 
88A 

885  002P04 

886  002210 
887 

888 
889 

890  002212 

891  002216 
892 

895 
894 

895  0C2220 

896  002224 
897 

898 
899 

900  002226 

901  002232 
902 

903 
904 

905  002234 

906  002240 
907 

908 
909 

910  002242 

911  002246 
912 

913 
914 

915  002250 

916  002254 
917 

918 
919 

920  002256 

921  002262 
922 

923 
924 

925  0022o4 

926  002270 
927 

928 
929 

930  002272 

931  002276 
932 

933 
934 

935  0O230G 

936  002304 


016724  000224' 


016724  000226' 


116724  000230' 


116724  000232' 


116724  000234' 


116724  000236' 


116724  000240' 


116724  000242' 


16724  C00244' 


116724  000246' 


116724  000250' 


DEFAULT  BLOCK  SIZE 

X3CH01:  MOV     PR3DBS,(R4)+ 
RETURN 

MAXIMUM  BLOCK  SIZE 

X3CH02:  MOV     PR3M8S,(R4)+ 
RETURN 

DEFAULT  WINDOW  SIZE 

X3CH03:  MOVB    PR3DWS,(R4)+ 
RETURN 

MAXIMUM  WINDOW  SIZE 


PR3MWS,(R4)+ 


PR3CAL,(R4)< 


PR3CLR,(R4)t 


PR3RES,(R4)i 


X3CH04:  MOVB 

RETURN 

CALL  TIMER 

X3CH05:  MOVB 

RETURN 

CLEAR  TIMER 

X3CH06:  MOVB 

RETURN 

RESET  TIMER 

X3CH07:  MOVB 

RETURN 

RESTART  TIMER 


X3CH08:  MOVB    PR3RST,(R4)+ 
RETURN 

MAXIMUM  CLEAR  VALUE 

X3CH09:  MOVB    PR3MCL,(R4)+ 
RETURN 

MAXIMUM  RESETS  VALUE 

X3CH10:  MOVB    PR3MRE,(R4;+ 
RETURN 

MAXIMUM  RESTARTS  VALUE 

X3CH11:  MOv'B    PR3MRS,(R4W 
RETURN 


STORE  DEFAULT  BLOCK  SIZE 


STORE  MAXIMUM  BLOCK  SIZE 


STORE  DEFAULT  WINDOW  SIZE 


STORE  MAXIMUM  WINDOW  SIZE 


STORE  CALL  TIMER 


STORE  CLEAR  TIMER 


STORE  RESET  TIMER 


STORE  RESTART  TIMER 


STORE  MAXIMUM  CLEAR  VALUE 


STORE  MAXIMUM  RESETS  VALUE 


STORE  MAXIMUM  RESTARTS  VALUE 
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M^CRO  DEFINTIONS 

no  000050 
Vl  000052 
112  00005^ 
115  000056 
1U  000060 

115  000062 

116  00006A 
11V  000066 

118  000070 

119  000072 

120  000074 

121  000076 

122  000100 

123  000102 
12^.  000104 

125  000106 

126  000110 

127  000112 

128  000114 
-■29  000116 

130  000120 

131  000'22 

132  000124 

133  000126 

134  000130 

135  000132 

136  000134 

137  000136 

138  000140 

139  000142 

140  000144 


141 


000146 

142  000150 

143  000152 
144 

145 
146 
147 

148  000154 

149  000214 

150  000220 

151  000222 

152  000224 

153  000226 
1i4  000246 

155  000266 

156  000306 

157  000326 
158 

159 
160 
161 
162 
163 
164 
165 
166 


E  6 

SION  MACRO  V05.03b  Saturday 

29-Jun-85  00:44  Page  5-1 

TTABS 

NOD, NULL 

TTAB$ 

PRJ.NULL 

TTAES 

PRT0V,P0P1 

fTABS 

SCOM.XSCOH 

TTABS 

SECSR.NULL 

TTABS 

SLNB.NULL 

TTABS 

SLNW.NULL 

TTABS 

STNB,NULL 

TTABS 

STNW.NULl 

TTABS 

UNB.NULL 

TTABS 

UNW,NULL 

TTABS 

W0RD,POP2 

TTABS 

APR.POPI 

TTABS 

DPRB.POPl 

TTABS 

DPRW,P0P2 

TTABS 

TJME,P0P2 

TTABS 

MXPTB.XMXPTB 

TTABS 

PECHA.NULL 

TTABS 

X3CH01,NULL 

TTABS 

X3CH02,NULL 

TTABS 

X3CH03,NULL 

TTABS 

X3CH04,NULL 

TTABS 

X3CH05,NULL 

TTABS 

X3CH06,NULL 

TTABS 

X3CH07,NULL 

TTABS 

X3CH08,NULL 

TTABS 

X3CH09,NULL 

TTABS 

X3CH10,NULL 

TTABS 

X3CH11,NULL 

TTABS 

X2CH01,NULL 

TTABS 

X2CH02,NULL 

TTABS 

X2CH03,NULL 

TTABS 

X2CH04,NL'LL 

TTABS 

X2CH05,NULl 

;  COPV  OF  GLOBAL  SYMBOLS  FROM  "NTLROO". 

f-RSCSR:  .BLKW 

16. 

SECONDARY  CSR  VALUE 

PRDCHA 

.BLKW 

2 

DEVICE  CHARACTERISTICS 

PRSLTA 

.BLKW 

1 

SLT  ADDRESS 

PRPRI:   .BLKW 

1 

DEVICE  PRIORITY 

PRPCHA 

.BLKW 

1 

PROTOCOL  EMULATOR  CHARACTERISTICS 

PR2MWS 

.BLKW 

8. 

MAXIMUM  WINDOW  SIZE 

PR2MBS 

.BLKW 

8. 

MAXIMUM  BLOCK  SI7E 

PR2MRT 

.BLKW 

8. 

MAXIMUM  RETRANSMIT  COUNT 

PR2RET 

.BLKW 

8. 

RETRANSMIT  TIMER 

PR2HLD 

.BLKW 

8. 

HOLDBACK  TIMER 

000346 


OCAL  COPV  OF  SFLAGS 
f-RFLAG:  .BLKW   1 

SECONDARY  FILE  INDEX  VALUE 


;  FLAGS  WORD 
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653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 

665 

666  001362 

667  001362 

668  001366 
669 

670  001372 
671 

672  001376 

673  00K02 

674  001A06 

675  OOKIO 

676  00U12 

677  OOKK 

678  00U20 

679  00K22 

680  0OU24 

681  001426 

682  001430 

683  001432 

684  001436 

685  001442 

686  001444 

687  001446 

688  001450 

689  001452 

690  001456 

691  001460 

692  001462 

693  001464 

694  001466 

695  001470 

696  001472 

697  001474 

698  001  76 

699  001500 

700  001504 

701  001506 

702  001510 

703  001512 

704  001514 

705  001 520 

706  001524 

707  001526 

708  001530 
^09  001532 


FLT16  -  FIND  A  16  BIT  ALLOCATION  LINE  TABLE 

INPUTS: 

R3=LINE  TABLE  ADDRESS 

R4=PDV  INDEX  OF  DDM/DLC/LLC  PROCESS 

OUTPUTS: 

R0,R1,R2,R3=:DESTROYED 
UB1AS,UBA=UNL0AD  BLOCK  ADDRESS 
BLOCK=LOCAL  COPY  OF  UNLOAD  BLOCK 


005067  000356' 
017700  OOOOOOG 


016211 

001467 

005722 

005722 

126204 

001013 

022203 

001442 

101011 

011246 

042716 

066216 

022603 

101032 

000401 

005722 

032722 

001410 

005046 

152216 

005046 

152216 

062616 

006316 

006316 

062602 

032702 

001403 

005712 

001340 

000402 

162702 

042702 

011211 

001330 

000416 

005742 


OOOOOOG 


177776 


000003 
177776 


000001 


000077 


000100 
000077 


FLT16: 

FLT: 

CLR 

UBA 

MOV 

aNTLPT.RO 

SWSTK$ 

100$ 

CALL 

SMAPX 

MOV 

.CXUNL(R2), 

BEQ 

100$ 

ICJ: 

TST 

(R2)  + 

20$: 

TST 

(R2)t 

CMP8 

-2(R2),R4 

BNE 

30$ 

CMP 

(R2)+,R3 

BED 

80$ 

BHI 

40$ 

MOV 

(R2),-(SP) 

BIC 

#3,(SP) 

ADD 

-2(R2),(SP) 

CMP 

(SP)+,R3 

BHI 

80$ 

BR 

40$ 

30$: 

TST 

(R2)  + 

40$: 

BIT 

*l,(R2)t 

BEQ 

50$ 

CLR 

-(SP) 

BISB 

(R2)+,(SP) 

CLR 

-(SP) 

B1S8 

(R2)t,(SP) 

ADD 

(SP)+,'SP) 

ASL 

(SP) 

ASL 

(SP) 

ADD 

(SP)+.R2 

50$: 

BIT 

#77, rJ 

BEQ 

60$ 

TST 

(R2) 

BNE 

20$ 

BR 

70$ 

60$: 

SUB 

#100, R2 

70$: 

BIC 

#77, R2 

MOV 

(R2),(R1) 

BNE 

10$ 

BR 

100$ 

80$: 

TST 

-(R2) 

(R1) 


;  INDICATE  NO  UNLOAD  BLOCK  FOUND  VET 
;  GET  NETLDR  DATA  BLOCK  ADDRESS 

;*  ENTER  KERNEL  MODE 

"  MAP  TO  THE  DATA  BLOCK 

»  AND  TO  THE  FIRST  UNLOAD  BLOCK 

*  IF  ZERO,  NO  UNLOAD  BLOCKS 

*  SKIP  POINTER  TO  NEXT  UNLOAD  BLOCK 

*  POINT  PAST  PDV  INDEX 

»  IS  THIS  THE  RIGHT  PDV? 

»  IF  NE,  NO 

*  IS  THIS 'OUR  LINE  TABLE? 

*  IF  EQ,  YES 

*  IF  HI,  NO 

*  EXTRACT  SIZE  FIELD 

*  ADD  TABLE  ENTRY 

*  IS  THIS  OUR  LINE  TABLE? 

*  IF  HI,  YES 

*  ELSE,  SKIP  ANY  SUB-ALLOCATIONS 

*  SKIP  THE  LINE  TABLE  ADDRESS 

*  ANY  SUB-ALLOCATIONS  THIS  ENTR"? 

*  IF  EQ,  NO 

*  GET  NUMBER  OF  ALLOCATIONS 

*  ... 

*  AND  NUMBER  OF  LIBRARIES 

*  ... 

*  ADD  THEM  TOGETHER 

*  MULTIPLY  BY  4 
* 

*  GIVING  NEXT  TABLE  ENTRY 

*  IS  IT  PHYSICAL  END  OF  BLOCK? 

*  IF  EQ,  YES 

*  IS  IT  LOGICAL  END  OF  BLOCK? 

*  IF  NE,  NO  -  CHECK  NEXT  ENTRY 

*  RESET  R2  TO  START  OF  BLOCK 

*  ... 

*  MAP  TO  THE  NEXT  UNLOAD  BLOCK 

*  IF  NE,  THERE  IS  ANOTHER  ONE 

*  RESET  R2  TO  FIRST  WORD  OF  ENTRY 
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Page  4 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE   TMPINI  -  NTL  TEMPLATE  INITIALIZATION 
.IDENT  /V05.00/ 

COPVRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATICK,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OiHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  TEMPLATE  PROCESSING  INITIALIZATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Mi'cro/RSX  Vl.O 


F  8 


TMPINI  -  NTL  TEMPLATE  INITIALIZ  MACRO  V05.03b  Saturday  29-Jun-85  00:44  Page  5 


E  9 

TMPSIB  -  NTL  TEMPLATE  STATE  TAB  MACRO  705. 03b  Saturday  ?9-Jun-85  00:45  Page  4 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 

"^  1 

52 
53 
54 


.TITLE 
.IDENT 


TMPSTB  -  NTL  TEMPLATE  STATE  TABLES 
/V05.00/ 


COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITV  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  TEMPLATE  SYNTAX  TPARS  STATE  TABLES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

0ECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus   V3.0 
DECnet-Mkro/RSX   VI  .0 
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TMPSIB  -  NTL  TEMPLATE 
SUBEXPRESSIONS 

^■58 
439 

441 

442  000002 

445  000002 

444  000002 

445  000002 

446  000002 

447  000002 

448  000002 

449  000002 
450 
451 
452 
453 

454  000002 

455  000002 
456 
137 
458 
459 

460  000002 

461  000002 

462  000002 

463  000002 

464  000002 

465  000002 
466 
467 
468 
469 

470  000002 

471  000002 

472  000002 

473  000002 
474 
475 
476 
477 

478  000002 

479  000002 

480  000002 
481 
482 
483 
484 

485  000002 

486  000002 

487  000002 
488 
489 
490 
491 

492  000002 

493  000002 

494  000002 
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.SBTTL  SUBEXPRESSIONS 
EXPRESSION  EVALUATION 

STATES  EXP 

TRAi,;$   '-,NEG,,F2.NEG,$FLAG2 

TRANS  ilAMDA 

STATES  POSEXP 

TRANS  SNUM8R,SEXIT,SNUM 

TRANS   I  SYMBOL, SEXIT 

STATES  NEC 

TRANS   SNUMBR.SEXIT.SNUM 


EXTERNAL  SYMBOL 


STATES 
TRANS 


SYMBOL 
SRAD50,SEXIT,SGL0BL 


OFFSET  MODIFICATION 

STATES  MODIFY 

TRANS   '+,MOD 

TRANS   •-,M0D,,F2.SUB,SFLAG2 

TRANS   SLAMDA.SEXIT.SNOMOD 

STATES  MOD 

TRANS   SNUMBR,$EXIT,SMOD 


FILE  NAME 


STATES  FNAMt 

TRANS   'a 

STATES  FNAME1 

TRANS  SRAD50,SEXIT,SFNAME 


MAKE  SURE  THERE  ARE  NO  OPERANDS 

STATES  NONE 
TRANS   lEND.SEXIT 
TRANS   SLAMDA,SEXIT,ERR$3 


MAKE  SURE  THERE  IS  ONLY  ONE  OPERAND 

STATES  0NLY1 
TRANS   lEND.SEXIT 
TRANS   $LAMDA,SEXIT,ERRS4 


MAKE  SURE  iHERE  ARE  ONLY  TWO  OPERANDS 

STATES  0NLY2 
TRANS   lEND.SEXIT 
TRANS   SLAMDA,SEXIT,ERRS5 


"NO  OPERANDS  ALLOWED 


"ONLY  ONE  OPERAND  ALLOWED' 


"ONLY  TWO  OPERANDS  ALLOWED' 
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286 

287 

288 

289 

290 

291 

292 

293 

29; 

295 

296 

297 

298 

299 

500 

301 

302 

303 

304 

305 

306  000226 

307 

308 

309 

310 

311 

312 

313  000226  032767 

314  000234  001403 

315  000236 

316  000244 
317 

318 

319 

320  0002^6 

321 


15$: 


20$: 


30$: 
40$: 


50$: 


55$: 


OOOOOOG  OOOOOOG 


CMP 

BHI3 

MOV 

BIS 

MOV 

ADD 

SOB 

BR 

MOV 

BIS 

MOV 

ADD 

SOB 

BR 

BIS 

MOV 

HTPS 

.ENDC 

.IF  DF 

BIT 

BEQ 

EMS6$ 

BIC 

.ENDC 

BIT 

BEQ 

EMSG$ 

RETURN 


60$: 

;  ERROR  CONDITIONS 

ioi$:   CRASH 


$ADDR, #60000 

20$ 

$$PRI,-(RO) 

*4000,(R0) 

$IC8AD,-(R0) 

R3,15i 

40t 

t$PRI,-(PO) 

#4000, (RO) 

$ADDR,-(RO) 

-(R1),(R0) 

R3,20$ 

40$ 

#F1.VSE,$FLAG1 

(SP)+,BUFUMP 

#0 


R$$MPL 

#F1.ERR,$FLAG1 

55$ 

9D 

#F1.ERR,$FLAG1 


*F1.VSE,$FLAG1 

60$ 

38 


IS  LINE  TABLE  FROM  PROCESS  SPACE? 
BR  IF  NO 

SET  DEVICE  Pf.IORlTY 
INCLUDE  REGISTER  SET  1  BIT 
COPY  KB  ADDREi"^ 
ADD  APPROPRIATE  DISPLACEMENT 
LOOP  $NVECT  TIMES 

SET  DEVICE  PRIORITY 
INCLUDE  REGISTER  SET  1  BIT 
COPY  LINE  TABLE  ADDRESS 
ADD  APPROPRIATE  DISPLACEMENT 
LOOP  $NVECT  TIMES 

INDICATE  ERROR  OCCURRED 
RESTORE  USER  APR2 
RE-ENABLE  INTERRUPTS 


DID  WE  FIND  A  UNIBUS  RUN  ? 

IF  EQ,  YES 

ELSE,  WARN  USER  THAT  WE  DIDN'T  FIND  UNIBUS  RUN 

NOT  A  FATAL  ERROR  ! 


ANY  PROBLEM? 

IF  EQ,  NO 

VECTOR  SETUP  ERROR  MESSAGE 


DIDN'T  FIND  AN  KB  FOR  THE  CPU  THAT 
THIS  DEVICE  IS  ATTACHED  TO 
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5  12 

00:48 


45  .SBTTL  MACRO  DEFINITIONS 

47  .MCAlL  ASR$,ADJDF$,XPDD8$,DHBDF$,CrRDF$ 

48 

49  OOOOOC  SPiKfl 

50  000000  ^WBll 

51  000000  XPDDeJ 
12  000000  CTRDFS 
53 


DEFINE  ADJACENCY  DATA  BASE  SYMBOLS 

DEFINE  DECNET  HOME  BLOCK  SYMBOLS 

DEFINE  XPT  DATA  BASE  SYMBOLS 

DEFINE  COUNTER  SYMBOLS 
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UNLr'SI 

DEADST 
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NIL  UNLOAD  ROuTIMES  FO  MACRO  V05.03b  Wednesday  17-jul-85  12:05  Page  8 
DEALLOCATE  DESTINATION  DESCRIPTORS 


KG 
141 
U2 
U3 
U4 
K5 
H6 
}U7 
148 
H9 
150 
151 
152 
153 

154  000150 

155  000154 

156  000160 

157  000162 
158 

159  000164 

160  000166 

161  000170 

162  000172 

163  000176 

164  000200 
165 

166  000202 

167  000206 

168  000210 

169  000214 

170  000216 

171  000220 

172  000222 

173  000226 

174  000230 

175  000232 
176 

177  000234 

178  000240 
179 

180  000242 

181  000246 
182 


.SBTTL  DEADST  -  DEALLOCATE  DESTINATION  DESCRIPTORS 

DEADST  -  DEALLOCATE  DESTINATION  DESCRIPTOR  BLOCKS 

INPUTS: 

R3  -  ADDRESS  OF  LI5THEAD 

OUTPUTS: 

THE  DESTINATION  UESCRIPTOR  BLOCKS  ARE  DEALLOCATED 


011346 
005013 

012600 
001425 
010046 

012602 
011246 

012701  000032 

005046 

116216  000030 

006316 

061601 

005016 

116216  000031 

006216 

005516 

062601 


000751 


DEADST: 


10$: 


.IF  NDF 

I$$AS 

SWSTKS 

30$ 

SAVMAP 

MOV 

(R3),-(SP) 

CLR 

(R3) 

MOV 

(SP)+,RO 

BEO 

2C$ 

MOV 

RO,-(SP) 

CALL 

$CEACX 

MOV 

{SP)+,R2 

MOV 

(R2),-(SP) 

MOV 

#D$FLEN,R1 

CLR 

-(SP) 

M0V8 

D$DATL(R2) 

ASL 

(SP) 

ADD 

(SP),R1 

CLR 

(SP) 

Move 

D$DTEL(R2) 

ASR 

(SP) 

ADC 

(SP) 

ADD 

(SP)+,R1 

CALL 

$XDEAC 

BR 

10$ 

,(SP) 


,(SP) 


20$:    RESMAP 
30$:    RETURN 

.ENDC   ;  NDF  I$$AS 


ENTER  SYSTEM  STATE 

SAVE  MAPPING 

STACK  ADDRESS  OF  FIRST  BLOCK 

AND  ZERO  LISTHEAD 

GET  UNMAPPED  ADDRESS  OF  NEXT  BLOCK 

IF  EQ,  END  OF  LIST 

SET  UP  FOR  $CEACX 

GET  ACCESS  TO  BLOCK 

GET  MAPPED  ADDRESS  OF  BLOCK 

SAVE  ADDRESS  OF  NEXT  BLOCK  IN  LIST 

GET  LENGTH  OF  FIXED  PORTION  OF  BLOCK 

ZERO  WORK  CELL  ON  STACK 

GET  LENGTH  OF  CALL  MASK  (BYTES) 

DOUBLE  IT  FOR  CALL  DATA 

UPDATE  LENGTH  OF  BLOCK 

ZERO  WORK  CELL 

GET  NUMBER  OF  DIGITS  IN  DTE  ADDRESS 

DIVIDE  BY  2  FOR  BYTE  COUNT 

UPDATE  LENGTH  OF  BLOCK 

DE-ALLOCATE  TH:  BLOCK 
AND  GO  AGAIN 

RESTORE  MAPPING 
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50:«8 


1 
2 
3 

5 

6 
7 
8 
9 

10 

n 
:2 

13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AG 
41 
A2 
43 
44 
45 
46 
47 
48 
49 
50 


.TITLE  UNLSU8  -  NTL  UNLOAD  SUBROUTINES 
.IDENT  /V05.00/ 

COPVRIGHT  (c:  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAVNARD,  MASS. 

TH'S  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  i.J  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  UNLOAD  SUBROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 


2.00 


3.00 


4.00 


06-AUG-81 
DECNET-llM/S  V3.1 
0ECNET-11M-PLUS  Vl , 


16-APR-82 
DECNET-llM  V3.1 
DECNET-11M-PLUS  VI. 1 

07-NOV-83 
DECNET-llM  V4.0 
DECNET-llM-PLUS  V2.0 


5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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UNLSUB  CREATED  Bv     MACRO     OH  29-JUN-85   AT   00:48  PAGE   3 

MACRO   CROSS  REFERENCE  CREF        OA.OO 


10-20ii  11-273  12-318 


MACRO  l^AME 

REFERENCES 

CALL 

10-202 

CALLR 

10-203 

CRASH 

7-lK 

11-277 

N<RDFt 

#5-57 

5-59 

RETURN 

7-121 

9-179 

SLTDFt 

#5-57 

5-60 

SOB 

12-3U 

SWST<$ 

10-202 

F  15 

t«FlLE"lD««XLBR 
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Symbol  table 


AS.DEL= 
AS.EXT= 
AS.RED^= 
AS.WRT-- 

A$tCP5= 

A$IPRI= 

AS$TRP= 

A. IOC 

A.LGTH= 

A.MPCT 

A.PCB 

A.PCBL 

A.PRI 

A.STAT 

A.TCB 

A.TCBL 

C$$C^P= 

C$$ORE= 

C$$RSH= 

DEACB  = 


000010 
00000^ 
000001 
000002 
000000 
000000 
000000 
000000 
000003 
OOOOK 
000011 
000012 
000000 
000002 
000010 
OOOOOA 
000006 
000000 
000400 
177564 
♦*»•♦*  GX 


D$$BUG= 
D$$1SK= 
D$$Ln  = 
D$$YNC= 
D$$YNM= 
E$$XPR= 
FE.PLA= 
FMASK  = 
F$$LVL= 
G$$TPP=: 
G$$TSS= 
G$$TTK= 
GS$URD= 
HEADR  = 
I$$RAR= 
I$$RDN= 

KSSCNT:: 

K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 


1775U 

000000 

000001 

000000 

000000 

000000 

»«»**•  GX 

»♦»»*»  GX 

000001 

000000 

000000 

000000 

000000 

******  GX 

000000 

000000 

177546 

177546 

000000 

000074 

000000 


L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
M$$CRB= 
l«l$$CRX  = 
M$$FCS= 
M$$MGE= 
M$$NET= 
H$$OVR= 
N$$ACC= 
N$$BUf- 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
PLGTH  = 
PS.APR= 

PS. '■■'<= 


000000 
000000 
000001 

oooooc 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

******  GX 

000007 

010000 


PS.CKP= 
PS.CKR= 
PS.COM= 
PS.DEL= 
PS.DRV= 
PS.FXD= 
PS.LIO= 
PS.NSF= 
PS.OUT= 
PS.PER= 
PS.PIC= 
PS.SYS= 
P$$P45= 
P$$WRD= 
P.8LKS 


.BUSY 

,]0C 

,LNK 

,MA1N 

,NAM 

,OUN 


040000 
020000 
000200 
000010 
000020 
004000 
001000 
000400 
100000 
002000 
000100 
000040 
000000 
000000 
000016 
000024 
000003 
000000 
000012 
000004 
000026 


P.PRl 

P. PRO  = 

P.REL 

P. SIZE 

P.STAT 

P.  SUB 

P.SWSZ 

P.TCB 

P. WAIT 

Q$$0PT= 

R$$DER= 

R$$K11- 

R$$$ND= 

R$I11M= 

S$$WRG= 

S$$YSZ= 

T$$KMG= 

T$$"1IN= 

niciH- 

X$$DBT= 
$XPAR 


000002 

******   GX 

000014 

000016 

000030 

000010 

000022 

000026 

000020 

000010 

000000 

000001 

000000 

000000 

000000 

007600 

000000 

000000 

001000 

000000 

OOOOOORG 


.  ABS.  000032 
000132 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 


»*«  Assembler  statistics 


0 

0 

9471   Words      (   37  Pages) 

14440  Words      (   55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  f i le  writes; 
Size  of  work  file: 
Size  of  core  pool : 
Operating     system; 

SY??PAR.V2?C132?134:XPAR/CR/-SP=SY:[1  J]RSXMCM.SML/ML,[130J10]NETL1B/ML,[130,10]RSXMCM/PA:1,[132,10]XPAR 


XPAR 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:49     PAGE  1 
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T^ 
m 


281 

282 
283 
28A  000252 

;  SECONDARY  LINKED  FILE 

005002 

XMXPTB. 

CLR 

?L>    n. 

285  00025A 

152502 

BISB 

(R5)+,R2 

286  000256 

112546 

MOVB 

(R5)+,-(SP) 

287  000260 

112566  000001 

MOVB 

(R5)+,1(SP) 

288  00026^ 

012600 

MOV 

CSP)+,RO 

289  000266 

005702 

TST 

?L 

290  000270 

001407 

BED 

20$ 

291  000272 

005C01 

CLR 

R1 

292  00027A 

166701   OOOOOOG 

10$: 

SUB 

$MXLEN,R1 

293  000300 

005302 

DEC 

R2 

294  000302 

001374 

BNE 

10$ 

295  000304 

CALL 

$DEA16 

296  000310 

20$: 

RETURN 

297 

298 

299 

000001 

.END 

GET  REPEAT  COUNT 

GET  MUX  TABLE  ADDRESS 

is'REPEAT  COUNT  0  ? 

IF  EQ,  YES  ..  DO  NOTHING 

CALCULATE  LENGTH  OF  MUX  TABLES 

do' IT  <FILE  COUNT>  TIMES 

DEALLOCATE  MUX  TABLES 


TMPEX3  -   N 
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r 


TMPEX5  -  NTL  LINE  TABLE 
MACRO  DEFINITIONS 


UPDATE  MACRO  V05.03b  Saturday  29-Jun-85  00:43  Page  7-3 

ADJUST  TEMPLATE  ADDRESS  BY  ONE  WORD 


,  ADJUST  TEMPLATE  ADDRESS  BY  ONE  BYTE 

;  ADJUST  BINARY  BUFFER  POINTER  BY  ONE  BYTE 


378  000372 

005723 

NOD:    TST 

(r:;  + 

379  000374 

RETURN 

380 
381 
382 

;  MAXIMUM  PROTOCOL  OVERHEAD  SIZE 

383 
384 
385  000376 

105723 

PRTOV:   TSTB 

(R3)t 

386  000400 

105725 

TSTB 

(R5)  + 

387  000402 

RETURN 

388 
389 
390 
391 
392  000404 

;  POINTER  TO  ALLOCATED  SCOM 

062705 

000004 

SCOM:   ADD 

*4,R5 
(r!)  + 

393  000410 

005723 

TST 

394  000412 

RETURN 

395 
396 
397 
398 
399  000414 

•  SECONDARY  CSR 

005767 

000154' 

SECSR:   TST 

FLAGS 

400  000420 

001420 

BED 

20$ 

401  000422 

016700 

000152' 

MOV 

INDEX, RO 

402  000426 

126400 

000013 

CMPB 

L.UNT(R4),R0 

403  0C0-.32 

C01013 

BNE 

20$ 

404  000434 

032767 

OOOOOOG 

OOOOOOG        BIT 

#FL.KMX,$FLAGS 

405  000442 

001403 

BEQ 

10$ 

406  000444 

006200 

ASR 

RO 

407  000446 

006200 

ASR 

RO 

408  000450 

006200 

ASR 

RO 

409  000452 

006300 

10$:    ASL 

RO 

410  000454 

016023 

OOOOOOG 

MOV 

$$SCSR(R0),'R3)+ 

411  000460 

0004  CI 

BR 

30$ 

412  000462 

005723 

20$:    TST 

(R3)  + 

413  000464 

30$:    RETURN 

414 
415 
416 

•  SYSTEM  LINE  NUMBER  (BYTE) 

417 

418  000466 

005203 

SLNB:    INC 

R3 

419  000470 

RETURN 

420 
421 
422 

;  SYSTEM  LINE  NUMBER  (WORD) 

423 

424  C00472 

005723 

SLNW:    TST 

(R3)  + 

425  000474 

RETURN 

426 
427 
428 

;  STATION  NUMBER  (BYTE) 

429 

430  000476 

005203 

STNB:    INC 

R3 

43i  0005CO 

RETURN 

432 

433 

4  34 

■  STATION  NUMBER  (WORD) 

IS  IT  MUX  EXPANSION  ? 

NO  .. 

GET  SECONDARY  FILE  COUNTER 

DO  UNIT  NUMBERS  MATCH  ? 

NO  .. 

IS  THIS  A  COMIOP  MUX  LINE  ? 

NO  .. 

YES  ..  DIVIDE  COUNTER  BY  8 

(NUMBER  OF  LINES  PER  CONTROLLER) 

CONVERT  TO  A  WORD  INDEX 
:  COPY  SECONDARY  CSR  ADDRESS 


TMPFXS 


Nil 


INF  TABLE  UPDATE  MACRO  V05.03b  Saturday  29-Jun-85 
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TMPEX5     CREATED  BY  MACRO  ONI  29-JUN-85  AT  00:43 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


S.NMST 

S.OWNR 

TABLE 

TIME 

UBA 

UBIAS 

UNB 

UNW 

WORD 

X2CH01 

X2CH02 

X2CH03 

X2CH0/. 

X2CH05 

X3CH01 

X3CH02 

X3CH03 

X3CH0^ 

X3CH05 

X3CH06 

X3CH07 

X3CH08 

X3CH09 

X3CH10 

X3CH11 

ZTIME 

SADDR 

$BIN 

SFLAGS 

SMAPX 

$PTR 

$SLTA 

$TMEX5 

$X2HLD 

$X2MBS 

$X2MRT 

$X2MWS 

$X2RET 

$$DCHA 

$$PCHA 

$$PRI 

$$SCSR 

CXUNL 

EOF 


000002 
000003 
000000  R 


001042 
000160 
000156 
000506 
000512 
000516 
001370  R 
00142A  R 
001 A60  R 
0015U  R 
001550  R 
0013U  R 
001320  R 
001324  R 
001330  R 
001334  R 
001340  R 
001344  R 


001350 
001354 
001360 
001364 


GX 
GX 
GX 
GX 
GX 
GX 
GX 

000000  RG 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


=   ****** 

r  ****** 
-  ****** 
r:     ****** 


;:     ****** 


=  ****** 

=:  ****** 

=  ****** 

-  **+♦♦* 

=  ****** 


REFERENCES 

#5-62 
#5-62 
#5-91 

5-125 
#5-159 
#5-158 

5-119 

5-120 

5-121 

5-139 

5-140 

5-141 

5-142 

5-143 

5-128 

5-129 

5-130 

5-131 

5-132 

5-133 

5-134 

5-135 

5-136 

5-137 

5-138 

9-553 

6-183 

6-182 

7-404 

10-599 

6-192 

6-184 
#6-179 

12-776 

12-737 

12-750 

12-724 

12-763 

7-294 

7-307 

7-370 

7-410 

10-600 

8-473 
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CREF        04.00 


6-198  8-476 

#9-553 

6-187  ♦10-595 

•10-647 
#7-442 
#7-448 
#7-454 
#12-718 
#12-731 
#12-744 
#12-757 
#12-770 
#11-661 
#11-666 
#11-671 
#11-676 
#11-681 
#11-686 
#11-691 
#11-696 
#11-701 
#11-706 
#11-711 


6-191  7-290 


8-504 
*10-645 


9-534 


7-295 


-501  9-531 


TMPEX5 
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LOCAL  DATA 


464 

465 

;■  SYSTEM  LINE  NUMBER  (WORD) 

466 

467  000616 

005000 

SLNW: 

CLR 

RO 

468  000620 

005767 

000160' 

TST 

FLAGS 

469  000624 

100003 

BPL 

10$ 

470  000626 

016700 

000156' 

MOV 

INDE)(,RO 

471  000632 

122020 

CMPB 

(RO)+,(RO)t 

472  000654 

005003 

10$: 

CLR 

R3 

473  000636 

156003 

000260' 

BISB 

PRSLN(R0),R5 

474  000642 

010324 

MOV 

R5,(R4)+ 

475  000644 

RETURN 

476 
477 
478 
479 
480  000646 

;  STATION  NUMBER  (BYTE) 

105767 

000160' 

STNB: 

TSTB 

FLAGS 

481  00C652 

100404 

BMI 

10$ 

482  000654 

022767 

000001  000550' 

CMP 

#1  ,PRMTP 

483  000662 

001005 

BNE 

101$ 

484  000664 

01b700 

000156' 

10$: 

MOV 

INDEX, RO 

485  000670 

116024 

000352' 

MOVB 

PR5NUM(R0),(R4)+ 

486  000674 

RETURN 

487  ■)00676 

112724 

177777 

101$: 

MOVB 

#-i,(R4)t 

488  000702 

RETURN 

489 
490 
491 

;  STATION  NUMBER  (WORD) 

492 

493  000704 

105767 

000160' 

STNW: 

TSTB 

FLAGS 

494  000710 

100404 

BMI 

10$ 

495  000712 

022767 

000001  000350' 

CMP 

#1,PRMTP       ; 

496  000720 

001007 

BNE 

101$ 

497  000722 

016700 

000156' 

10$: 

MOV 

INDEX, RO 

498  000726 

005003 

CLR 

"^     .   ,   •" 

499  000730 

156003 

000352' 

81  SB 

PRSNUM(R0),R3 

500  000734 

010324 

MOV 

R3,(R4)*- 

501  000736 

RETURN 

502  000740 

012724 

177777 

101$: 

MOV 

#-1,(R4)+ 

503  000744 

RETURN 

504 
505 
506 

•  UNIT 

NUMBER 

BYTE) 

507 

508  000746 

005767 

000160' 

UNB: 

TST 

FLAGS 

509  000752 

001403 

BEQ 

101$ 

510  000754 

116724 

000156' 

MOVB 

INDEX, (R4)+ 

511  000760 

RETURN 

512  000762 

112724 

M7777 

101$: 

MOVB 

#-1,(R4)+ 

513  000766 
514 

RETURN 

515 
516 
517 
518  000770 

;  UNIT 

NUMBER 

(WORD) 

005767 

000160' 

UNW: 

TST 

FLAGS 

519  00C774 

001405 

BEQ 

101$ 

520  000776 

016724 

000156' 

MOV 

INDEX, (R4)t 

ASSUME  NORMAL  EXPANSION 

IS  IT  MUX  EXPANSION? 

IF  PL,  NO 

GET  MUX  INDEX 

SKIP  DLC  LINE  NUMBER 

GET  LINE  NUMBER  AS  A  WORD 

STORE  it' 


IS  IT  MTP  EXPANSION? 
IF  MI,  YES 

ARE  WE  DEALING  WITH  ONLY  1  STATION 
IF  NE.  NO 

GET  CURRENT  STATION  INDEX 
;  STORE  STATION  NUMBER 

DLC  STNB  NOT  IN  MPTAB  FILE 


IS  IT  MTP  EXPANSION? 

IF  MI,  YES 

ARE  WE  DEALING  WITH  ONLY  1  STATION 

IF  NE,  NO 

GET  CURRENT  STATION  INDEX 

GET  STATION  NUMBER 

STORE  if 

DLC  STNW  NOT  IN  MPTAB  FILE 


IS  IT  EITHER  MUX  OP  MTP  EXPANSION? 

IF  EQ,  NO 

STORE  CURRENT  MUX  INDEX 

UNB  NOT  IN  EITHER  MXTAB  OR  MPTAB  FILE 


IS  IT  EITHER  MUX  OR  MTP  EXPANSION? 

IF  ET,  NO 

STORE  CURRENT  MUX  INDEX 


(3  4 
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TMPEX6 
X2CH 
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938 
939 
940 
941 
942  002306 

.S8TTL 

X2CH 

■  MAXIMUM  WINDOW  SIZE 

005000 

X2CH01: 

CLR 

RO 

943  002310 

032767 

OOOOOOG 

OOOOCOG 

BIT 

#FL.MUX,$FLAGS 

944  002316 

001403 

BEQ 

10$ 

945  002320 

016700 

000156' 

MOV 

INDEX, RO 

946  002324 

006300 

ASL 

RO 

947  002326 

116024 

001226" 

10$: 

MOVB 

PR2MWS(R0),(R4)+ 

948  002332 

949 

950 

951 

952  002334 

RETURN 

;  MAXIMUM  BLOCK 

Si2E 

005000 

X2CH02: 

CLR 

RO 

953  002336 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.MUX,$FLAGS 

954  002344 

001403 

BEQ 

10$ 

955  002346 

016700 

000156' 

MOV 

INDEX, RO 

956  002352 

006300 

ASL 

RO 

957  002354 

016024 

001246' 

101: 

MOV 

PR2MBS(R0),(R4)+ 

958  002360 

959 

960 

961 

962  002362 

RETURN 

;  MAXIMUM  RETRANSMIT  COUNT 

005000 

X2CH03: 

CLR 

RO 

963  002364 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.MUX,$FLAGS 

964  002372 

001403 

BEQ 

10$ 

965  002374 

016700 

000156' 

MOV 

INDEX, RO 

966  002400 

006300 

ASL 

RO 

967  002402 

116024 

001266' 

10$: 

MOVB 

PR2MRT(R0),(R4)+ 

968  002406 

969 

970 

971 

972  002410 

RETURN 

;  RETRANSMIT  TIMER 

005000 

X2CH04 

ClR 

RO 

973  002412 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.MUX,$FLAGS 

974  002420 

001403 

BEQ 

10$ 

975  002422 

016700 

000156' 

MOV 

INDEX, RO 

976  002426 

006300 

ASL 

RO 

977  002430 

016024 

001306' 

10$: 

MOV 

PR2RET(R0),(R4)+ 

978  002434 

979 

980 

981 

982  002436 

RETURN 

;•  HOLDBACK  TIMER 

005000 

X2CH05 

CLR 

RO 

983  002440 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.MUX,$FLA6S 

984  002446 

001403 

BEQ 

10$ 

985  002450 

016700 

000156' 

MOV 

INDEX, RO 

986  002454 

006300 

ASL 

RO 

987  002456 

016024 

001326' 

10$: 

MOV 

PR2HLD(R0),(R4)t 

988  002462 

RETURN 

989 
990 
991 


000001 


.END 


ASSUME  NOT  A  MUX  EXPANSION 
IS  IT  A  MUX  DEVICE? 
IF  EQ,  NO 

GET  SECONDARY  FILE  COUNTER 
CONVERT  TO  A  WORD  INDEX 
;  STORE  MAXIMUM  WINDOW  SIZE 


ASSUME  NOT  A  MUX  EXPANSION 
IS  IT  A  MUX  DEVICE? 
IF  EQ,  NO 

GET  SECONDARY  FILE  COUNTER 
CONVERT  TO  A  WORD  INDEX 
;  STORE  MAXIMUM  BLOCK  SIZE 


ASSUME  NOT  A  MUX  EXPANSION 
IS  IT  A  MUX  DEVICE? 
IF  EQ,  NO 

GET  SECONDARY  FILE  COUNTER 
CONVERT  TO  A  WORD  INDEX 
;  STORE  MAXIMUM  RETRANSMIT  COUNT 


ASSUME  NOT  A  MUX  EXPANSION 
IS  IT  A  MUX  DEVICE? 
IF  EQ,  NO 

GET  SECONDARY  FILE  COUNTER 
CONVERT  TO  A  WORD  INDEX 
;  STORE  RETRANSMIT  TIMER 


ASSUME  NOT  A  MUX  EXPANSION 
IS  IT  A  MUX  DEVICE? 
IF  EQ,  NO 

GET  SECONDARY  FILE  COUNTER 
CONVERT  TO  A  WORD  INDEX 
;  STORE  HOLDBACK  TIMER 
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MACRO  DEFINTIONS 


167  O003S0 

168 

169 

170 

171 

172  000552 

173 

17-!. 

175 

176 

177  00035A 

178  000356 

179  00r360 
180 

181  000000 


INDEX: 


.8LKU   1 


MUX/MTP  FLAGS 
FLAGS:   .BLKW   1 


Page  5-2 


;  ZERO  =  NORMAL,  NON-ZERO  =  MUX 


DATA  NEEDED  FOR  SEARCH  OF  UNLOAD  BLOCKS 


UBIAS:  .BLKW 
USA:  .BLKW 
BLOCK:   .BLKW 

.PSECT 


1 
1 
32. 


BIAS/ADDRESS  OF  LIBRARY  DESCRIPTOR 

OFFSET  TO  LIBRARY  DESCRIPTOR 

LOCAL  COPY  OF  UNLOAD  BLOCK  (FROM  POOL..) 


G  6 
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MACRO  DEFINTIONS 


"no  001554 

010267 

000356' 

711   001540 

011167 

000354' 

712  001544 

042702 

000077 

713  001550 

012700 

000360' 

714  001554 

012703 

000040 

715  00^560 

012220 

716  001562 

717 

718  001566 

719 

MOV  R2,U8A  ;*  SAVE  UNLOAD  ENTRV  ADDRESS 

MOV  (r1),UB1AS  ;♦  AND  BIAS 

BIC  #77,1^2  ;•  RESET  R2  TO  START  OF  BLOCK 

MOV  #BLOCK.RO  ;*  MAKE  A  LOCAL  COPY  OF  THE  UNLOAD  BLOCK 

MOV  #32., R3  ;* 

90$:    MOV  (R2)+,(R0)t  ;» 

SOB  R3,90$  ;* 

100$:   RETURN  ;*  BACK  TO  USER  MODE  AND  TO  CALLER 


G  7 
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54 

55 

56 

57 

58 

59  000000 

60 

61 

62 

63 

64 

65 

66 

67  000000 

68 

69 

70 

71 

72 

73  000000 

74 

75 

76 

77 

78 

7<5 

80  000000 

81 

82 

8- 

f 

8 

86 

87  0OO0C4 

88  000042 
89 

90 
91 
92 
93 
94 
95 
96 

97  000072 

98  000073 
99 

100 
101 
102 
103  000000 


104 


101 


000 
052 


*** 
LIBRARY  MACROS 
*** 

.MCALL  EMSG$R,NTLER$,NKRDF';,EMSG$,SLTDF$ 


SLIDES 


[)EFINE   SLT   OFFSETS 


.IF  DF  R$$MPL 

.MCALL  KR8DF$,STAF$,RMAF$S,DIR$ 


SETAF: 

KRBDFS 

STAFS 

.ENDC 

NKRDFS 

0 

•  *** 

;■  LOCAL 

DATA 

.PSECT 

DATA.D 

.NLIST 

BEX 

DEFINE  KRB  OFFSETS 
SET  AFFINITY 


;  DEFINE  NETWORK  KRB  OFFSETS 


TEMPLATE  EXTENSION 
124  TMPEXT:  .ASCIZ  "DAT' 

ERROR  MESSAGES 

.ENABL  LC 


NTLERS  ,8,3,STWE,$PRV.N,SFN0UT,<0pen  Failure  (-***.)> 
NTLEfiS  ,WZ,,STWARN,RTSPC,,<MUX  update  only> 

.DSABL  LC 


ERROR  MESSAGE  FORMAT  STRING 


040 


.ENABL  LC 

.NLIST  BEX 

FMTO:    .ASCIZ  "" 

124  FMT3:    .ASCIZ  "*  Template  File  — 
.EVEN 

.DSABL  LC 

.LIST  BEX 

.PSECT 


G  8 
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MACRO  DEFINITIONS 


56 
57 
58 
59 
60 


.SBTTl   macro  DEFINITIONS 
•  *** 
;  LIBRARY  MACROS 

.MCALL   ISTATS, STATES, TRANS 
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TMPSTB  - 

NIL  TEMPLATE  ST/ 

SUBEXPRESSIONS 

'.95 

496 

497 

498 

499 

000002 

500 

000002 

501 

000002 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

000002 

516 

000002 

517 

000002 

518 

519 

520 

521 

522 

000002 

523 

524 

525 

000001 

F  10 

TEMPLATE  STATE  TAB  MAC^O  V05.03b  Saturday  29-Jun-85  00:45 


OPERAND  ERROR 


Page  16-1 


STATES  ERROR 
TRANS   !END,SEXIT,ERRS6 
TRANS   SLAMDA,$EXIT,ERRS7 


'EAT"  A  POSITIVE  EXPRESSION 

.IF  NDF  MSSMGE 

STATES  EAT 

TRANS  SNUMBR,$EXIT 

TRANS  SRAD50,SEXIT 

.ENDC 


CHECK  FOR  END  OF  SOURCE  LINE 

STATES  END 
TRANS   <';>,$EXIT 
TRANS   SEOS,SEXIT 


If-^    STATE 

STATES 

.END 


"OPERAND  MISSING' 
"ILLEGAL  OPERAND' 
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325 

32A 

325 

326 

327 

328 

329 

330 

331 

332 

333 

33A 

335 

336 

337 

338 

339  000250 

3'>0  000250 

341  000254 

342  000256 

343  000262 

344  000266 

345  000274 
346 

347 

348  000276 

349  000304 
350 

351  000306 

352  000314 

353  000316 

354  000322 

355  000330 

356  000332 

357  000336 
358 

359 

360  000344 

361  000350 

362  000352 

363  000356 

364  000364 

365  000366 

366  000374 

367  000376 

368  000402 

369  000406 

370  000410 

371  000416 

372  000420 

373  000424 

374  000426 

375  000432 

376  000432 

377  000456 

378  000442 
379 


STMLTA  -  SETUP  DATA  BASE  ADDRESS  IN  SYSTEM  LINE  TABLE 

INPUTS: 

$ADDR   =  DATA  BASE  ADDRESS 
SMXADD  =  MUX  TABLES  ADDRESS 
$0FF    =  OFFSET  VALUE 
$SLTA   =  SYSTEM  LINE  TABLE  ADDRESS 
F1.ERR  SET  IF  ANY  ERRORS  OCCURRED 

OUTPUTS: 

R0,R1=DESTfiOYED 

L.DDS  AND/OR  L.DLS  SET  TO  DATA  BASE  ADDRESS 

L.DLM  SET  TO  BIAS  OF  DLC  DATA  BASE  IF  DATA  BASE  IS  MAPPED 

LF.RDY  SET  IF  APPROPRIATE 


005767 
100002 
000167 
016700 
032767 
001130 


032767 
001417 

022767 
101013 
016701 
032767 
001402 
016701 
016160 


016701 
001504 
066701 
032767 
001011 
032767 
001066 
016700 
010160 
000465 
032767 
001447 
005767 
001402 
016701 

016746 
062716 
017616 


OOOOOOG 

000300 

OOOOOOG       2$: 

OOOOOOG  OOOOOOG 


OOOOOOG  OOOOOOG 


iTMLTA: 


120000  OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG  000006  3$: 


OOOOOOG       5$: 

OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG  10$; 

OOOOOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 
000000 


15$: 


TST 
BPL 
JMP 
MOV 
BIT 
BNE 

.IF  DF 

BIT 

BEQ 

CMP 
BHI 
MOV 
BIT 
BEQ 
MOV 
MOV 
.ENDC 

MOV 

BEQ 

ADD 

BIT 

BNE 

BIT 

BNE 

MOV 

MOV 

BR 

BIT 

BEQ 

TST 

BEQ 

MOV 

MOV 
ADD 

MOV 


HAVE  THERE  BEEN  ANY  ERRORS  ? 

BR  IF  NO 

ELSE  DO  NOTHING 

GET  SYS1EM  LINE  TABLE  ADDRESS 

MUX  CHARACTERISTICS  UPDATE  ONLY 

YES  ..  GO  SET  THE  READY  BIT 


SFLAGI 

2$ 

80$ 

$SLTA,R0 

#FL.CHA,$FLAGS 

70$ 

M$$MGE 

#FL.DLC,$FLAGS 

5$ 

#120000, $ADDR 

5$ 

$DLCPV,R1 

#FL.DDM,$FLAGS 

3$ 

$PDVA,R1        ...    .    . 

Z.DSP(R1),L.DLM(R0)  ;  SET  THE  DATA  BASE  BIAS 


IS  THIS  PROCESS  A  DLC  ? 

BR  IF  NO,  NORMAL  DATA  BASE  LOAD 

IS  THE  LINE  TABLE  MAPPED  ? 

IF  HI,  NO  -  NORMAL  LOAD 

ASSUME  IT'S  NOT  A  DDM  ALSO 

IS  THIS  A  DDM  ALSO  ? 

IF  EQ,  NO 

GET  THE  PDV  ADDRESS  FOR  THIS  PROCESS 


$ADDR,R1 

80$ 

$0FF,R1 

*FL.DDM,$FLAGS 

10$ 

#FL.DLC,$FLAGS 

60$ 

$PDVA,RO 

R1,Z.DAT(R0) 

80i 

#FL.MUX,$FLAGS 

50$ 

$MXADD 

15$ 

$MXADD,R1 

SLTNM,-(SP) 

#AB,(SP) 

a(SP),(SP> 


GET  DATA  BASE  ADDRESS 

IF  EQ,  DO  NOTHING 

ADD  OFFSET  VALUE 

ARE  WE  LOADING  A  DDM? 

IF  NE,  YES 

ARE  WE  LOADING  A  DLC? 

IF  NE,  YES 

GET  PDV  ADDRESS 

SET  LLC  DATA  BASE  ADDRESS 

IS  THIS  A  MUX  LINE? 

IF  EQ,  NO 

MUX  TABLES  SEPARATE  ? 

IF  EQ,  NO 

ELSE,  POINT  TO  MUX  TABLES 

GET  NUMBER  OF  SLT  ENTRIES  ON  STACK 

VECTORED  EXEC  ACCESS  TO  $SLTNM+AB 
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55 
56 
57 
58 
59 
60 
61 
62 
63 
6^. 
65 
66 
67 
68 
69 
70 

71  000000 

72  000004 

73  000006 
lU   000012 

75  000016 

76  000022 

77  000026 

78  000032 

79  000036 

80  0000A2 

81  000046 

82  000062 

83  000066 

84  000070 
85 

86  000074 

87  000076 

88  000102 

89  000104 
90 

91  ooono 

92  000114 

93  000120 

94  000122 

95  000126 

96  000132 

97  000146 

98  000152 

99  000154 
100 

101  000160 

102  000164 

103  000170 

104  000174 

105  000200 

106  000204 

107  000220 
i08  000224 
109  000226 
110 

111  000232 


005763 
001441 
017702 
016201 
066201 
066201 
012700 

062701 
042701 

016300 
C10146 


012601 
016300 
001402 


016301 
066301 
006301 
062701 
042701 

016300 
001402 


000072 

OOOOOOG 

000030 

000054 

000056 

000004 

000077 
000077 

000072 


000074 


000036 
000044 

000077 
000077 

000040 


012700 
016301 

062701 
042701 

016300 
001402 


000046 
000100 

000077 
000077 

000102 


016301  000022 


.S8TTL  OEAMHC  -  DEALLOCATE  MINHOP/COST.CKT  CTRS.,ROL 


DEAMHC  -  DEALLOCATE  MINHOP/COST,  CKT  CTRS.,  ROL 

INPUTS: 

R3  -  ADDRESS  OF  XPT'S  DDB 
R4  -  ADDRESS  OF  XPT'S  PDV 

OUTPUTS: 

R3  -  PRESEVED 
R4  -  PRESERVED 


SDEAHC: 


5$: 


10$: 


15$: 


:rST 
BEQ 
MOV 
MOV 
ADD 
ADD 
MOV 
CALL 
ADD 
BK 
ASR$ 
MOV 
MOV 
CALL 

MOV 
MOV 
BEQ 
CALL 

MOV 

ADD 

ASL 

ADD 

BIC 

ASR$ 

MOV 

BEQ 

CALL 

MOV 

MOV 

CALL 

ADD 

BIC 

ASR$ 

MOV 

BEQ 

CALL 

MOV 


N$ADJ1(R3) 

5$ 

aDECPT,R2 

D$NLN(R2),R1 

D$N8RA(R2),R1 

D$N8EA(R2),R1 

#A$LEN,RO 

$MUL 

#77, R1 

#77, R1 

6,R1 

N$ADJ1(R3),R0 

R1,-(SP) 

$DEA18 

(SP)+,R1 

N$ADJ2(R3),R0 

5$ 

$DEA18 

N$MHC1(R3),R1 

N$MHC2(R3),R1 

R1 

#77, R1 

#77, R1 

6,R1 

N$MHC1+2(R3),R0 

10$ 

$DEA18 

#T$LLEN,RO 

N$1LC(R3),R1 

$MU^ 

#77, R1 

#77, Rl 

6,R1 

N$TLCt2(R3),R0 

15$ 

$DEA18 

N$R0A1(R3),R1 


GET  ADJACENCY  DATA  BASE  BIAS 

IF  NONE  -  BRANCH 

GET  DECNET  HOME  BLOCK  ADDRESS 

COPY  NUMBER  OF  CIRCUITS 

INCLUDE  NUMBER  OF  ROUTER  ADJACENCIES 

INCLUDE  NUMBER  OF  ENDNODE  ADJACENCIES 

STORE  SIZE 

CALCULATE  TOTAL  SIZE 

ROUND  UP 

CONVERT  TO  BLOCKS 
COPY  ADJACENCY  BIAS 
SAVE  NUMBER  OF  BLOCKS 
DEALLOCATE  BLOCK 

GET  NUMBER  OF  BLOCKS 

GET  SECOND  ADJACENCY  DATA  BASE  BIAS 

IF  NONE  -  BRANCH 

DEALLOCATE  BLOCK 

GET  NO.  OF  BYTES  IN  NODE  MINHOP/COST 

AND  AREA  MINHOP/COST  MATRIX 
CONVERT  TO  BYTES 
ROUND  TO  NEXT  BLOCK  BOUNDARY 

CONVERT  TO  BLOCK  COUNT 

GET  APR  BIAS 

NO  TABLE  ALLOCAi  D 

DEALLOCATr  NODE  OUNTERS-MINHOP/COST 

GET  COUNTER  SIZE 
GET  NUMBER  OF  LINE  COUNTERS 
CALCULATE  BLOCK  SIZE 
ROUND  UP  TO  NEXT  BOUNBARY 

GET  BLOCK  COUNT 
GET  APR  BIAS 
IF  NONE  BRANCH 
DEALLOCATE  BLOCK 

GET  NUMBER  OF  ROL  ENTRIES 


UNLHC 
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XLDTE  -  DEALLOCATE  LOCAL  DTE  SLOCK 

.S8TTL  XLDTE  -  DEALLOCATE  LOCAL  DTE  BLOCK 


XLDTE  -  DEALLOCATE  LOCAL  DTE  DESCRIPTOR  BLOCK 

INPUTS: 

NONE 

OUTPUTS: 

LOCAL  DTE  DESCRIPTOR  BLOCKS,  CHANNEL  HASH  TABLES,  AND 
OUTGOING  CHANNEL  LISTS  ARE  DEALLOCATED 


184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

19A 

195 

196 

197 

198 

199 

200  000250 

201  000250 

202  000254 

203 

204  000260 

017703 

OOOOOOG 

205  000264 

016300 

000002 

206  000270 

001457 

207  000272 

010046 

208  000274 

209  000300 

012604 

210  000302 

011463 

000002 

211 

212  000306 

213  000310 

214 

215  000314 

016400 

000034 

216  000320 

001407 

217  000322 

011064 

000034 

218  000326 

012701 

000006 

219  000332 

220  000336 

221 

22?  000340 

000766 

016400 

000030 

223  000344 

001424 

224  000346 

016401 

000032 

225  000352 

226 

227  000356 

010402 

228  000360 

062702 

000122 

229  000364 

020027 

120000 

230  000370 

103404 

231  000372 

042700 

160000 

232  000376 

052700 

120000 

233  000402 

020002 

234  000404 

001403 

235  000406 

236  000412 

000401 

237 

238  000414 

Go^  ^'6 

239  000416 

240  000420 

.IF  NDF  I$$AS 


XLDTE: 


10$: 


15$: 


20$: 


23$: 


25$: 
30$: 


SWSTK$ 
SAVMAP 

MOV 

MOV 

BEQ 

MOV 

CALL 

MOV 

MOV 

SAVRG 
SAVHG 

MOV 

BEQ 

MOV 

MOV 

CALL 

BR 

MOV 
BEQ 
MOV 
ASL$ 

MOV 

ADD 

CMP 

BLO 

BIC 

BIS 

CMP 

BEQ 

CALL 

BR 

ADD 

RESRG 

RESRG 


50$ 


aPSlPT,R3 

H$LDTE(R3),R0 

40$ 

RO,-(SP) 

$CEACX 

(SP)+,R4 

(fi4),H$LDTE(R3) 

<R0> 
^#L$LEN> 

L$CHLS(R4),R0 

20$ 

(R0),L$CHLS(R4) 

#K$LEN,R1 

$DECEX 

15$ 

L$CHTB(R4),R0 
30$ 

L$fTEN(R4),R1 
2,R1 

R4,R2 

#L$LEN,R2 

RO, #120000 

23i 

#160000, RO 

#120000, RO 

R0,R2 

25l 

$DECEX 

30$ 

R1,(SP) 

<R1> 

<R0> 


ENTER  SYSTEM  STATE 
SAVE  PREVIOUS  MAPPING 

GET  PSl  HOME  BLOCK  ADDRESS 

GET  NEXT  BLOCK  IN  LIST 

BR  IF  END  OF  LIST 

GET  UNMAPPED  ADDRESS  OF  BLOCK 

GET  ACCESS  TO  BLOCK 

RETRIEVE  MAPPED  ADDRESS  OF  BLOCK 

UNLINK  FROM  LIST 

SAVE  RO  (UNMAPPED  ADDRESS  OF  BLOCK) 
STACK  LENGTH  TO  DEALLOCATE 

GET  OUTGOING  CHANNELS  LIST  ADDRESS 

BR  IF  NONE 

SAVE  LINK  TO  NEXT 

GET  LENGTH  OF  OUTGOING  CHANNELS  LIST 

DEALLOCATE  THE  BLOCK 

GO  AGAIN 

GET  HASH  TABLE  ADDRESS 

BR  IF  NONE 

GET  NUMBER  OF  ENTRIES  IN  HASH  TABLE 

CALCULATE  SIZE  (4  BYTES  PER  ENTRY) 

COPY  MAPPED  LOCAL  DTE  ADDRESS 
COMPUTE  ADDRESS  OF  END  OF  DTE 
IS  THIS  AN  XPOOL  ADDRESS? 
BR  IF  NO 
ELSE  SET  APR5  BIAS 

is'HASH  TABLE  CONTIGUOUS  WITH  DTE? 

YES,  DEALLOCATE  TOGETHER 

ELSE  DEALLOCATE  HASH  TABLE  TO  POOL 

MERGE 

INCLUDE  LENGTH  OF  HASH  TABLE  IN  DEALLOCATION 

GET  LENGTH  TO  DEALLOCATE 

RETRIEVE  ADDRESS  OF  LOCAL  DTE  DESCRIPTOR 
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.SBTTL  MACRO  DEFINITIONS 


5? 
53 
54 
55 
56 
57 
58 

59  000000 

60  000000 
61 

62 
63 
64 
65 
66 


LIBRARY  MACROS 

.MCALL  NKRDF$,SLTDF$ 

NKRDFS 
SLTDF$ 

.IF  DF  RSSMPL 
.MCALL  KR3DF$ 

KRBDFS 

.ENDC 


;  DEFINE  NETWORK  KRS  OFFSETS 
;  DEFINE  SLT  OFFSETS 


DEFINE  KRB  OFFSETS 
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•♦F1LE««1D'«XLBR 


XX      XX 

BBBBBBBB 

RRRRRRRR 

XX      XX 

BBBBBB8B 

RRRRRRRR 

XX      XX 

BB      BB 

RR      RR 

XX      XX 

BB     BB 

RR      RR 

XX   XX 

BB     BB 

RR      RR 

XX   XX 

B8     BB 

RR      RR 

XX 

BBBBBBBB 

RRRRRRRR 

XX 

BBBBBBBB 

RRRRRRRR 

XX   XX 

BB     BB 

RR  RR 

XX   XX 

BB     BB 

RR  RR 

XX      XX 

BB     BB 

RR    RR 

XX      XX 

BB     BB 

RR    RR 

XX      XX 

LLLLLLLLLL 

BBBBBBBB 

RR      RR 

XX      XX 

LLLLLLLLLL 

BBBBBBBB 

RR      RR 

SSSSSSSS 

TTTTT 

TTTTT 

SS5SSSSS 

TTTTT 

1 1 1 1  r 

SS 

ss 

SS 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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XPAR  CREATED  BV     MACRO     ON  29-JUM-85   AT   00:'.9 

SYMBOL    CROSS   REFERENCE 


F  16 

PAGE   1 

CREf       04.00 


SYMBOL 

VALUE 

REFERENCES 

DEACB 

~       ****** 

GX 

6-110 

FE.PLA 

-   ****** 

GX 

6-91 

FMASK 

=   ****** 

GX 

6-91 

HEADR 

-   ****** 

GX 

6-104 

MttMGE 

000000 

6-89 

PLGTH 

-    ****** 

GX 

6-109 

PS. SYS 

=  OOOOAO 

6-81 

P. BUSY 

00002-!, 

6-83 

*6-85 

P. MAIN 

000012 

6-77 

P. PRO 

=   ****** 

(iX 

•  6-93 

P.STAT 

000030 

6-81 

P.  SUB 

000010 

6-100 

6-102 

P. WAIT 

000020 

•  6-85 

R$$MPl 

~      ****** 

6-79 

6-90 

R$$11M 

=  000000 

6-74 

$XPAR 

000000 

RG 

#6-75 

6-84  ♦6-84 


6-108  •6-108 


XPAR 
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A$$CHK= 
A$$CPS= 

A$$PRI=: 

A$$TRP= 
CSSCKP^ 
C$$ORE= 
C$$RSH= 
DS$8UG= 
D$$ISK= 
D$$L11= 
D$$YNC= 
D$$YNM= 
E$$XPR= 
F$$lVL= 
G$$TPP= 
G$$TSS= 

.  ASS. 


000000 
OCOOOO 
000000 
000000 
000000 
OOOAOO 
17756A 
1775U 
000000 
000001 
000000 
000000 
000000 
000001 
000000 

ooocoo 


G$$TTK= 
G$$URD= 
1$$RAR= 
1$$R[)N= 
K$$CNT= 
KSSCSR^ 
K$$LDC= 
K$$TPS= 
LD$LP  = 
L$$AS6= 
L$$DRV= 
L$$P11= 
L$$11R= 
M$$rRB= 
M$$CRX= 
M$$FCS= 


000000 
000000 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
000000 
000000 
000001 
000000 
000124 
000000 
000000 


M$$MGE= 

M$$NET= 

M$$0VR= 

NULL 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$HLL= 

N$$M0V= 

N$$NCT= 

N$$PEM= 

P0P1 

P0P2 

P0P3 

P$$P45= 


000000 

000000 

000000 

000050R 

000001 

000001 

000001 

000001 

onoooi 

000010 

000001 

000001 

000044R 

000040R 

000032R 

000000 


P$$WRD= 

000000 

XLIBR 

000224R 

P.REL  = 

******  GX 

XMXPTB 

000252R 

P.WAJT= 

******  GX 

XSCOM 

000052R 

Q$$0PT3 

000010 

X$$DBT= 

000000 

R$$DER= 

000000 

$BIN  = 

******    GX 

R$$K11= 

000001 

$DEAC2= 

******  GX 

R$$SND= 

oooooc 

$DEA16= 

******  GX 

R$$11M= 

000000 

$DEA18= 

******  GX 

S$$WRG= 

000000 

SMAPX  = 

******  GX 

S$$YSZ= 

007600 

$MXLEN= 

******  GX 

TABLE 

OOOOOOR 

002  $PCB  = 

******  GX 

T$$KMG= 

000000 

$PRAVL= 

******  GX 

T$$MIN= 

000000 

$PTR  = 

******  GX 

V$$CTR= 

001000 

$TMEX3 

OOOOOORG 

XCORE 

000172R 

$XLBR  = 

******   GX 

000000 
000312 
DATA  000152 
Errors  detected: 


000 
CI 
L02 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LC^,REL,CON) 
(RU,D,LCL,REL,CON) 


♦.*  Assembler  statistics 


0 

0 

8968  Words      (   36  Pages) 

14440  Words      (    55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  fUe  writes: 
Size  of  work  tile: 
Size  of  core  pool: 
Operating      system: 

SY:T^PEX3!v2![?32?l^4]tMPEX3/CR/-SP-SY:[1J]RSXMCM.SML/ML,[130J103NETLIB/ML,[1^ 


TMHFX3 
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TMPEX5  - 

NTL  LINE  TABLE 

MACRO  DEFINITIONS 

435 

436 

000502 

005723 

A37 

000504 

438 

439 

440 

441 

442 

000506 

005203 

443 

000510 

444 

445 

446 

447 

448 

000512 

005723 

449 

000514 

450 

451 

452 

453 

454 

000516 

122525 

455 

000520 

005723 

456 

000522 

§oi 


3  Page  7-4 


SFNW: 


TST     (R3)+ 
RETURN 


UNIT  NUMBER  (BYTE) 

UNB:    INC     R3 
RETURN 

UNIT  NUMBER  (WORD) 
UNW: 


TST     (R3)+ 
RETURN 


SINGLE  WORD 
WORD: 


Tl 
M/ 


CMPB    (R5)+,(R5)+ 
TST     (R3)+ 
RETURN 
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TMPEX5 

CREATED  BV  MACRO 

MACRO  CROSS 

REFERENCE 

MACRO  NAME 

REFERENCES 

irtLL 

6-186 

CRASH 

6-205 

NKRDFS 

#5-60 

RESRG 

#5-60 

RETURN 

6-20C 

7-310 

7-A13 

9-5A3 

11-682 

12-766 

SAVR8 

#5-60 

SLTDFS 

#5-60 

SOB 

10-652 

SWSTKS 

10-597 

TTABS 

#5-78 

5-100 

5-110 

5-120 

5-130 

5-UO 

6  3 

ON  29-JUN-85  AT  00:43     PAGE  A  .    * 

CREF   04.00 

6-198  8-476  8-504  9-534     10-597    10-599 

7-315  8-489  8-494  9-547 

5-69 

7-?9? 

7-221  7-227  7-237  7-248  7-254  7-268  7-275  7-281  7-298 

7-328  7-342  7-348  7-354  7-360  7-372  7-379  7-387  7-394 

7-419  7-425  7-431  7-437  7-443  7-449  7-456  8-484  8-512 

9-559  9-566  9-573  9-579  10-654  11-662  11-667  11-672  1-677 

11-687  11-692  11-697  11-702  11-707  11-712  12-727  12-740  12-753 

12-779 

7-289 

5-62 

5-91  5-92  5-93  5-94  5-95  5-96  5-97  5-98  5-99 

5-101  5-102  5-103  5-104  5-105  5-106  5-107  5-108  5-09 

5-111  5-112  5-113  5-114  5-115  5-116  5-117  5-118  5-119 

5-2  5-22  -  23  5-124  5-125  5-126  5-127  5-128  5-29 

5-131  5-132  5-133  5-134  5-135  5-136  5-137  5-138  5-139 

5-141  5-142  5-143 
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LOCAL  DATA 


521  00100^ 

522  001004  012724  177777 
525  001010 

524 
525 
526 
527 

528  001012     112524 

529  001014     112524 

530  001016 


RETURN 
101$:        MOV  #-1,(R4)*- 

RETURN 


SINGLE   WORD 
lORD: 


MOVB  (R5Jt,(R4)t- 

MOVe  (R5)+,(R4)t 

RETURN 


UNW  NOT   IN  EITHER  MXTA8  OR  MPTAB  FILE 


copy  A  WORD 
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ADDRB 

0001 56R 

ADDRW 

OOO202R 

APR 

002U2R 

A$SCHK= 

000000 

A$SCPS= 

000000 

A$$PR1= 

000000 

A$STRP= 

000000 

BLKb 

000232R 

BLKU 

000244R 

BYTE 

000256R 

CORE 

001020R 

CSR 

000262R 

CTIM 

000274R 

C$$CKP= 

000000 

C$SORE= 

000400 

CSSRSH^ 

177564 

DECPT  = 

»♦*»*»  GX 

DPR8 

0021 70R 

DPRW 

0021 76R 

DVCHA 

000302R 

DSAMXC 

000072 

OSAMXH 

000074 

DSANN 

000000 

DSBRPR 

000102 

DSBRTM 

000100 

DSDELF 

000045 

DSDELW 

000046 

DSEND  = 

000104 

DSFNB 

000034 

DSHIOR 

000024 

DSHOST 

000022 

DSINAC 

000044 

DSINCT 

000042 

DSIPL 

000051 

DSLID 

000020 

DSLNAM 

000006 

DSLNUM 

000014 

D$LST 

000047 

DSMAXC 

000064 

DSMAXH 

000066 

DSMAXV 

000070 

DSMLL 

000040 

DSMNOD 

000041 

DSNA 

000062 

OSNBEA 

000056 

DSNBRA 

000054 

D$NEND= 

000054 

D$NLN 

000030 

D$NN 

000060 

DSOUTT 

000043 

DSRETf 

000050 

DSRNN 

000002 

OSRTMR 

000076 

D$SEG 

000036 

DSSER 

000032 

DSSORL 

000052 

DISBUG= 

'  177514 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

EOF 

E$SXPR= 

FILE 

FLAGS 

FL.DDM= 

FL.DLC= 

FL.KMX= 

FL.MUX= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

ICBAD 

ICBLN 

ICBPT 

INDEX 

INT 

I$$RAR= 

I$$RDN= 

KSAR5  = 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LB.ADR= 

LD$LP  = 

LFILE 

LF.ACT= 

LF.BRO= 

LF.BWT= 

LF.ENA= 

LF.LPB^ 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RDY= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LIBR 

LINKS 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.0FF= 

LN.ON  = 

LN.00P= 


000000 

000001 

000000 

000000 

000452R 

000000 

001414R 

000160R 

♦«*»♦♦  GX 

******  GX 

*«»***  GX 

******  GX 

000001 

000000 

000000 

000000 

000000 

0001 66R 

0001 74R 

000170R 

000156R 

001222R 

000000 

000000 

******  GX 

177546 

177546 

000000 

000074 

******  GX 

000000 

001502R 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

001652R 

000454R 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 


LN.OPE= 

000001 

PRDPR 

000512R 

002 

SLNB 

LN.REF= 

000002 

PRFLA6 

000162R 

002 

SLNW 

LN.SER= 

000002 

PR  I 

001374R 

STLIN 

LN.STA= 

000017 

PR  INC 

000206R 

002 

STNB 

LN.SUB= 

000360 

PRLINX 

000220R 

002 

STNW 

LN.TRI--^ 

000006 

PRLSAD 

001224R 

52? 

S$$WRG= 

LSTHD 

000462R 

PRMTP 

000350R 

002 

S$$YSZ= 

002  LTAB 

000500R 

PRMUX 

000514R 

002 

S.COST 

L$$ASG= 

000000 

PRNAME 

000200R 

002 

S.FLG 

L$$DRV= 

000000 

PRPAR 

000210R 

002 

S.LEN 

L$$P11= 

000001 

PRPCB 

000204R 

002 

S.NMST 

L$$11R= 

000000 

PRPCHA 

001062R 

002 

S.OWNR 

L.COST 

000015 

PRPDVA 

000176R 

002 

TABLE 

L.CTL 

000012 

PRPRI 

000344R 

09? 

TEMP 

L.CVA 

177776 

PRSCSR 

000516R 

002 

TIME 

L.DDM 

000002 

PRSLN 

000260R 

002 

T$$KM6= 

L.DDS 

000004 

PRSLTA 

000252R 

002 

T$$MIN= 

002  L.DLC 

000003 

PRSNUM 

000352R 

99? 

UNB 

002  L.DLM 

000006 

PRTBL 

00021 6R 

002 

UNU 

002  L.DLS 

000010 

PRTOV 

000566R 

V$$CTR= 

002  L.FLG 

000000 

PRVECT 

000346R 

002 

WORD 

L.KRBA 

000016 

PR2HLD 

001326R 

002 

X$$DBT=: 

L.LEN  = 

000022 

PR2MBS 

001246R 

002 

X2CH01 

L.MPF 

000022 

PR2MRT 

001266R 

002 

X2CH02 

L.NMST 

000020 

PR2MWS 

001226R 

002 

X2CH03 

L.NSTA 

000014 

PR2RET 

001306R 

002 

X2CH04 

L.OWNR 

000021 

PR3CAL 

000234R 

002 

X2CH05 

L.UNT 

000013 

PR3CLR 

000236R 

002 

X3CH01 

MP  TAB 

001474R 

PR3DBS 

000224R 

002 

X3CH02 

MXPTB 

001754R 

PR3DWS 

000230R 

002 

X3CH03 

MX  TAB 

001406R 

PR3HBS 

000226R 

002 

X3CH04 

M$$CR8= 

000124 

PR3MCL 

000244R 

002 

X3CH05 

M$$CRX= 

000000 

PR3MRE 

000246R 

002 

X3CH06 

M$$FCS= 

000000 

PR3MRS 

000250R 

002 

X3CH07 

M$$MGE= 

000000 

PR3MUS 

000232R 

002 

X3CH08 

M$$NET= 

000000 

PR3RES 

000240R 

002 

X3CH09 

M$$OVR= 

000000 

PR3RST 

000242R 

002 

X3CH10 

NOD 

000554R 

PR7 

******  GX 

X3CH11 

NXTLN 

0001 72R 

002 

P$$P45= 

000000 

ZTIME  = 

N$$ACC= 

000001 

P$$URD= 

000000 

SADDR  = 

N$$BUF= 

000001 

Q$$0PT= 

000010 

SBIAS  = 

N$$LDV= 

000001 

R$$DER= 

000000 

$BIN  = 

N$$MCP= 

000001 

R$$K11= 

000001 

$FLAGS= 

N$$MLL= 

000001 

R$$SND= 

000000 

$ICBAD= 

N$$MOV= 

000010 

R$$11M= 

000000 

$ICBLN= 

N$$NCT= 

000001 

SAVALC 

001170R 

$JSROF= 

NS*PEH= 

000001 

SCOM 

001132R 

$LOA  = 

PAPR 

000432R 

002 

SECSR 

000506R 

$MAPX  = 

PECHA 

000404R 

SF.ACT= 

000200 

$MXSIZ= 

PRAPR 

000154R 

002 

SF.ENA= 

000100 

$PDVA  = 

PRBIAS 

000202R 

002 

SF.LPB= 

000004 

tPTR  = 

PRCSR 

000342R 

002 

SF.MFL= 

000040 

$SLTSV= 

PRCTIM 

000222R 

002 

SF.PAC: 

000020 

$SMTSZ= 

PRDCHA 

000556R 

002 

SF.REA= 

000010 

$TMEX6 

PRDDPV 

000256R 

002 

SF.SER= 

000001 

$UBIAS= 

PRDEV 

000214R 

002 

SF.SVC= 

000002 

$UDA  = 

PRDLPV 

000254R 

002 

SF.UNL= 

000040 

$VECT1= 

000572R 

00061 6R 

000164R 

000646R 

000704R 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000002R 

OOOOOOR 

00211  OR 

000000 

000000 

000746R 

000770R 

001000 

001012R 

000000 

002306R 

002334R 

002362R 

00241  OR 

002436R 

002204R 

00,..12R 

002220R 

002226R 

002234R 

002242R 

002250R 

002256R 

002264R 

002272R 

002300R 

****** 

****** 

****** 

****** 

****** 

**  X*** 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 

OOOOOORG 
******  GX 
******  GX 
******  GX 


002 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


002 
002 
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183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 

200  000000 

201  000000 

202  000004 

203  000010 

204  000016 

205  000022 

206  000024 

207  000032 

208  000036 

209  000040 

210  000042 

211  000050 

212  000056 

213  000064 

214  000072 

215  000076 

216  000100 

217  000106 

218  000112 

219  000116 

220  000122 

221  000124 

222  000132 

223  000136 

224  000142 

225  000146 

226  000150 

227  000156 

228  000162 

229  000166 

230  000172 

231  000174 

232  000202 

233  000206 

234  000212 

235  000216 

236  000220 

237  000226 

238  000232 

239  000236 


$TMEX7  -  EXPAND  BINARY  INFORMATION  INTO  REAL  INFORMATION 

THIS  ROUTINE  IS  CALLED  AFTER  THE  ASCII  TEMPLATE  FILE  HAS  BEEN  READ 
AND  PROCESSED  INTO  THE  BINARY  FILE.  THIS  ROUTINE  IS  CALLED  ONLY  FOR 
LINE  TABLES  LOCATED  AT  THE  END  OF  THE  PROCESS  PARTITION. 


INPUTS: 


$BIN=START  OF  BINARY  INFORMATION 
$PTR=END  OF  BINARY  INFORMATION 
$BIAS=BIAS  OF  THE  PROCESS  PARTITION 
$SLTA=SLT  ADDRESS 
$ADDR=ADDRESS  OF  REAL  DATA 

OUTPUTS: 

ALL  REGISTERS=DESTROYED 


005067 
005067 
016767 
012703 
005005 
016565 
062705 
005303 
003371 
016767 
016767 
016767 
016767 
012703 
005005 
016565 
062705 

012703 
005005 
016565 
062705 

012703 
005005 
016565 
062705 

012703 
005005 
016565 
062705 

012703 
005005 
0^6565 
062705 


ItMEX7: 


000350- 
000352' 
OOOOOOG  000346' 
000020 

OOOOOOG  000154'  5$: 
000002 


OOOOOOG  000214' 
000002G  000216' 
OOOOOOG  000224' 
OOOOOOG  000222' 
000010 

OOOOOOG  000226'  501$: 
000002 

000010 

OOOOOOG  000246'  502$: 
000002 

000010 

OOOOOOG  000266'  503$: 
000002 

000010 

OOOOOOG  000306'  504$: 
000002 

000010 

OOOOOOG  000326'  505$: 
000002 


016703  OOOOOOG 


CLR 
CLR 
MOV 
MOV 
CLR 
MOV 
ADD 
DEC 
BGT 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
ADD 
SOB 
MOV 
CLR 
MOV 
ADD 
SOS 
MOV 
CLR 
MOV 
ADD 
SOB 
MOV 
CLR 
MOV 
ADD 
SOB 
MOV 
CLR 
MOV 
ADD 
508 
MOV 


INDEX         ;  ZERO  INDEX  VALUE 

FLAGS  ;  AND  SPECIAL  FLAGS 

SFLAGS.PRFLAG   ;  SAVE  A  LOCAL  COPY  OF  $FLAGS 

#16., r5        ;  MOVE  16.  SECONDARY  CSR'S 

R5  ;  INITIALIZE  INDEX 

$$SCSR(R5),PRSCSR(R5)  ;  GET  LOCAL  COPY  OF  SECONDARY  CSR'S 

#2,R5         ;  ADJUST  INDEX 

R3  ;  COPY  16. 

5$  ;  ... 

$$DCHA,PRDCHA   ;  GET  LOCAL  COPY  OF  DEVICE  CHARACTERISTICS 

$$DCHA+2,PRDCHA+2  ; 

$$PCHA,PRPCHA   ;  GET  LOCAL  COPY  OF  PROTOCOL  EMULATOR  CHAR 

$$PRI,PRPR1     ;  GET  LOCAL  COPY  OF  DEVICE  PRIORITY 

#8.,R3         ;  MOVE  8  WORDS 

R5  ;  INITIALIZE  INDEX 

$X2MWS(R5),PR2MUS(R5)  ;  SAVE  LOCAL  COPY  OF  MAX  WINDOW  SIZE 

#2,R5         ;  ADJUST  INDEX 

R3,501$        ;  ... 

*8.,R3         ;  MOVE  8  WORDS 

R5  ;  INITIALIZE  INDEX 

$X2M8S(R5),PR2MBS(R5)  ;  SAVE  LOCAL  COPY  OF  MAX  BLOCK  SIZE 

#2,R5         ;  ADJUST  INDEX 

R3,502$       ;  ... 

#8.,R3         ;  MOVE  8  WORDS 

R5  ;  INITIALIZE  INDEX 

$X2MRT(R5),PR2MRT(R5)  ;  SAVE  LOCAL  COPY  OF  MAX  RETRANSMIT  COUNT 

#2,R5         ;  ADJUST  INDEX 

R3,503$        ;  ... 

#8.,R3         ;  MOVE  8  WORDS 

R5  ;  INITIALIZE  INDEX 

$X2RET(R5),PR2REr(R5)  ;  SAVE  LOCAL  COPY  OF  RETRANSMIT  TIMER 

#2,R5         ;  ADJUST  INDEX 

R3,504$        ;  ... 

#8.,R3         ;  MOVE  8  WORDS 

R5  ;  INITIALIZE  INDEX 

$X2HLD(R5),PR2HLD(R5)  ;  SAVE  LOCAL  COPY  OF  HOLDBACK  TIMER 

*2,R5         ;  ADJUST  INDEX 

R3,505$       ;  ... 

$ADDR,R3       ;  GET  LINE  TABLE  ADDRESS 
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TMPEX7  - 

NTL  TE 

X3CH 

721 

722 

723 

72^ 

725 

726 

301570 

727 

D01572 

728 

729 

730 

731 

301574 

732 

001576 

733 

73A 

735 

736 

001600 

737 

001602 

738 

739 

740 

741 

001604 

742 

001606 

743 

744 

745 

746 

001610 

747 

00U12 

748 

749 

750 

751 

001614 

752 

001616 

753 

754 

755 

756 

001620 

757 

001622 

758 

759 

760 

761 

001624 

762 

001626 

763 

764 

765 

766 

001630 

767 

001632 

768 

769 

17^ 

771 

001634 

772 

00163^ 

773 

774 

775 

776 

001 64. 

777 

001642 
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.SBTTL  X3CH 


005723 


005723 


005203 


005203 


005203 


005203 


005203 


005203 


005203 


005203 


G05203 


DEFAULT  BLOCK  SIZE 


X3CH01 


TST 
RETURN 


(R3) 


•  MAXIMUM  BLOCK  SIZE 

X3CH02:  TST     (R3)+ 
RETURN 

':    DEFAULT  WINDOW  SIZE 

X3CH03:  INC     R3 
RETURN 

•  MAXIMUM  WINDOW  SIZE 

X3CH04:  INC     R3 
RETURN 

;  CALL  TIMER 

X3CH05:  INC     R3 
RETURN 

';  CLEAR  TIMER 

X3CH06:  INC     R3 
RETURN 

;  RESET  TIMER 

X3CH07:  INC     R3 
RETURN 

;  RESTART  TIMER 

X3CH08:  INC     R3 
RETURN 

;  MAXIMUM  CLEAR  VALUE 

X3CH09r  INC     R3 
RETURN 

•  MAXIMUM  RESETS  VALUE 

X3CH10:  INC     R3 
RETURN 

•  MAXIMUM  RESTARTS  VALUE 

X3CH11:  INC     R3 
RETURN 
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105 
106 
107 
108 
109 
110 
111 
112 
113 
IK 
115 
116 

117  000000 

118  000000 

119  000006 

120  00001 A 

121  000022 

122  000026 

123  000032 
12A  000036 

125  0O0OA2 

126  000046 

127  00005A 

128  000060 

129  00006A 

130  000072 

131  000076 

132  000102 

133  000106 
13A  0001 U 

135  000116 

136  000124 

137  000126 

138  000132 

139  OOOHO 
140 

141  000142 

142  000150 
143 

144 
145 
146 
U7 
•■AS 
1-.9 
15" 
151 

152  000154 

153  000160 

154  000162 

155  000164 
156 

157 
158 
159 
160 
161 


STM.IN  -  INITIALIZE  TEMPLATE  DATA,  OPEN  PRIMARY  TEMPLATE 

INPUTS: 

NO.\E 

OUTPUTS: 

C-BIT=3UCCESS/FAILURE 

$ADDR=LINE  TABLE  ADDRESS  IF  MUX  UPDATE 

R0,R1,R2=DESTROYED 


016767 
016767 
016767 
005067 
005067 
005067 
005067 
005067 
012767 
005067 
005067 
012767 
016700 

016701 
032761 
001037 
032767 
001433 
016700 
016067 
001425 

052767 
016000 


STM.IN: 


.ENABL  LSa 


116001 
006301 
006301 


OOOOOOG 

OOOOOOG 

MOV 

OOOOOOG 

OOOOOOG 

MOV 

OOOOOOG 

OOOOOOG 

MOV 

OOOOOOG 

CLR 

OOOOOOG 

CLR 

OOOOOOG 

CLR 

OOOOOOG 

CLR 

0000006 

CLR 

OOOOOOG 

OOOOOOG 

MOV 

OOOOOOG 

CLR 

OOOOOOG 

CLR 

OOOOOOG 

OOOOOOG 

MOV 

OOOOOOG 

MOV 
CALL 

OOOOOOG 

MOV 

OOOOOOG 

OOOOOOG 

BIT 
BNE 

OOOUUuG 

OOOOOOG 

BIT 
BEQ 

OOOOOOG 

MOV 

000004 

OOOOOOG 

MOV 
BEQ 

OOOOOOG  OOOOOOG 
000016 


3$: 


000001 


4$: 


BIS 
MOV 

.IF  DF 

TST8 

BEO 

MOV 
DIRS 

.ENDC 

MOVB 
ASL 
ASL 
CALL 

.IF  DF 
TST8 
BEQ 
RMAFSS 


SXBUF2,SBIN 

SXBUF2,SPTR 

SXLEN2,SLEFT 

SADDR 

SMXADD 

SMXSIZ 

SOFF 

SSIZE 

#F1.UMR,SFLAG1 

SNVECr 

SNALL 

#$SZPTR,SSZPTR 

$NAME,RO 

SDFN 

SPDVA.RI 

#ZF.PSE,Z.FLG(R1) 

101 

#FL.DDM,SFLAGS 

10S 

SSLTA.RO 

L.DDS(RO), SADDR 

10S 

#FL.CHA,SFLAGS 
L.KR8A(R0),R0 


COPY  END  OF  TASK  BUFFER  ADDRESS 

TWICE 

COPY  BUFFER  SIZE 

CLEAR  LINE  TABLE  ADDRESS 

CLEAR  MUX  LINE  TABLE  ADDRESS 

CLEAR  MUX  TABLE  SIZE 

CLEAR  LINE  TABLE  OFFSET 

CLEAR  LINE  TABLE  SIZE 

INITIALIZE  LINE  TABLE  FLAGS 

CLEAR  NUMBER  OF  VECTORS 

CLEAR  NUMBER  OF  ALLOCATIONS 

INITIALIZE  SIZE  TABLE  POINTER 

GET  THREE  CHARACTER  PDV  NAME 

SETUP  DEFAULT  FILE  NAME 

GET  POINTER  TO  PDV 

;  IS  THIS  A  PSEUDO  DDM? 

IF  NE,  YES  ...  IT  HAS  NO  VECTORS 

IS  THIS  A  DDM  LINE  TABLE  ? 

NO  .. 

GET  THE  SLT  ADDRESS 

HAS  THE  LINE  TABLE  ALREADY  BEEN  BUILT 

NO  .. 

YES  ..  IT'S  CHARACTERISTICS  UPDATE 
GET  THE  KRB  ADDRESS 


RSSMPL 

aNCPU  ;  IS  THIS  A  MULTIPROCESSOR  SYSTEM 

3S  ;  IF  EQ,  NO 

K.URM(RO),SETAF+S.AFAF  ;  GET  THE  UNIBUS  RUN  MASK 


#SETAF 

;  DF  RSSMPL 

K.VCT{R0),R1 

R1 

R1 

FNDADD 

RSSMPL 

aNCPU 

4S 


SET  AFFINITY  TO  BUS 


GET  THE  VECTOR  ADDRESS 
CONVERT  TO  REALL  ADDRESS 

FIND  lInE  TABLE  ADDRESS 


IS  THIS  A  MULTIPROCESSOR  SYSTEM 

IF  EO,  NO 

ELSE,  REMOVE  PROCESSOR  AFFINITY 
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6? 
63 
64 
65 
66 

67  000000 

68  000000 


.SBTTL  ENTRY  POINT 

;  ENTRY  POINT  CALLED  FROM  "NTLTMP" 

ItPARS:; 

RETURN 
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Symbol  table 


A$$CH<= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

BIN 

BIN1 

B1N2 

BL<B 

BLKW 

BYTE 

BYTE1 

BYTE2 

CORE 

C0RE1 

C0RE2 

CSR 

C$$CKP= 

C$$ORE= 

CS$RSH= 

D$$BUG= 

0$$I5K= 

D$$L11= 

[)$$YNC  = 

D$$¥NM= 

END 

EOF 

E0F1 

E0F2 

ERROR 

ERRSI  = 

ERR$3  = 

ERRS'l  = 

ERR$5  = 

ERR$6  = 

ERR$7  = 

EXP 

E$$XPR= 

FILE 

FILEI 

FNAME 

FNAME1 

FS$LVL= 

F2.BYT= 

.  ABS. 

SSTATE 
SKTAB 


000000 

000000 

000000 

000000 

000500R 

000516R 

0005A6R 

00055AR 

0005^2R 

00061  OR 

000634R 

000644R 

000672R 

00071  OR 

0007AOR 

000746R 

000000 

000400 

177564 

177514 

000000 

000001 

000000 

000000 

001760R 

000756R 

001000R 

001010R 

001742R 

♦♦**»♦  GX 

******  GX 

*«»*»*  GX 

•*♦♦•»  GX 

******  GX 

*«»***  GX 

001574R 

000000 

001026R 

001042R 

001666R 

001670R 

000001 

»«**»*  GX 

000000 
000002 
001770 
000162 
000435 


F2.END= 
F2.NEG= 
F2.SUB= 
G$$TPP= 
002  G$$TSS= 
002  G$$TTK= 
002  G$$URD= 
002  INT 
002  I$$RAR= 
002  I$$RDN= 
002  K$$CNT= 
002  <$$CSR= 
002  K$$LDC= 
002  K$$TPS= 
002  LD$LP  = 
002  LFILE 
LF1LE1 
LFILE2 
LIBR 
LIBR1 
L1BR2 
L$$ASG= 
L$$DRV= 
L$$P11= 
002  L$$11R= 
002  MOD 
002  MODIFY 
002  MPTAB 
002  MPTAB1 
MXPT8 
MXPTB1 
MX  TAB 
MXTAB1 
M$$CRB= 
M$SCRX= 
002  M$$FCS= 
M$$MCE= 
002  M$$NET= 
002  M$$OVR- 
002  NEG 
002  NONE 

N$$ACC= 
N$$8UF= 


****** 
****** 


GX 
GX 
GX 


000000 

000000 

000000 

000000 

001072R 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

001174R 

001 21  OR 

001226R 

001 11  OR 

001136R 

001166R 

000000 

000000 

000001 

000000 

001660R 

001636R 

001236R 

001252R 

001306R 

001322R 

001262R 

001276R 

000124 

000000 

000000 

000000 

000000 

000000 

001622R 

001676R 

000001 

000001 


N$$LDV= 
N$$HCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
ONLVI 
002  0NLY2 
OPERAT 
PERIOD 
POSEXP 
PR  I 
PRTOV 
P$$P45= 
P$$URD= 
002  Q$$OPT= 
002  R$$DER= 
002  r$$k:11  = 
002  R$$SND= 
002  R$$11M= 
002  SCOM 
SYMBOL 
S$$URG= 
S$$YSZ= 
T$$KMG= 
T$$MIN= 
002  UMR 
002  VFY 
002  V$$CTR= 
002  WORD 
002  W0RD1 
002  W0RD2 
002  X$$DeT= 
X2CHB 
X2CHW 
X3CHB 
X3CF!W 
$ADDf,B= 
$ADDRW= 
002  $ALPHA= 
002  SANY  = 
$APR  = 


Errors  detected: 


000 
001 
002 
003 
004 
0 


tRW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


«♦•  Assembler  statistics 


Work  file  reads:  0 
Work  file  writes:  0 
Size  cf  work  file:  11288  Words 


002 


000001 

000001 

000001 

000010 

000001 

000001 

001712R 

001726R 

000034R 

000024R 

001606R 

001350R 

001374R 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

001332R 

001630R 

000000 

007600 

000000 

000000 

001412R 

001434R 

001000 

001452R 

001476R 

001506R 

000000 

001544R 

001564R 

001534R 

001554R 

******  GX 

******  GX 

000022 

000020 

******  GX 


(  4  5  Pages) 


$BINF  = 

$BLANK= 

$BLKB  = 

SBLKU  = 

$BYTE  = 

$CFILE= 

002  $C;JB  = 

002  $CNW  = 

002  SCORE  = 

002  $C0RE1= 

002  $C0RE2= 

002  $CSR  = 

002  $CTM  = 

$DIGIT= 

$DNUMB= 

SDPRB  = 

SDPRW  = 

$DVCHA= 

SENDI  = 

$END2  = 

002  $E0S  = 

002  SEVEN  = 

SEXIT  = 

SFAIL  = 

SFILE  = 

$FLAG2= 

002  SFN/^P  = 

OO;  5Gin  _■- 


GX 

GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


002 
002 


.  .,X  = 

_._  SiNTI 

002  $INT2  = 

SINT3  = 

002  SLAMDA= 

002  $LFILE= 

002  SLFLHD= 

002  SLIBR  = 

SLIBR1= 

$LINKS= 

$LSTHD= 

SLTAB  = 

SMOD  = 


****** 

000006 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
000024 
000014 
****** 
****** 
****** 
****** 
****** 
000012 
****** 
000000 

ym77 

****** 
****** 
*** 
*  <*** 
***** 
****** 

******  GX 

******  GX 

*<   **  GX 

C   00 

•*  GX 

*** 

****** 

■**** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 

GX 


GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 


SMPLHD= 

SMPTB  = 

$MXPTB= 

SMXTAB= 

SNOD  = 

SNOMOD= 

SNUM  = 

SNUMBR= 

SODD  = 

$PECHA= 

SPRI  = 

SPRII  = 

SPROV  = 

SRAD50= 

SSCOM  = 

$SECSR= 

SSLNB  = 

SSLNW  = 

SSTNB  = 

SSTNU  = 

SSTRNG= 

SSUBXP= 

STIME  = 

STMPKU 

STMPST 

STPARS 

SUMROF= 

SUMRON= 

SUNB  = 

SUNU  = 

SWORD  = 

SX2CHB= 

SX2CHW= 

SX3CHB= 

SX3CHW= 

SZBYTE= 

SZWORD= 

SSSFLG= 

SSSKEY= 

SSSSTA= 

SSSTMP- 

.ABFI  = 


****** 
****** 
****** 
****** 
****** 
****** 
****** 

000002 

****** 
****** 
****** 
****** 
****** 

000016 

****** 
****** 
****** 
****** 
****** 
****** 
000004 
000010 
****** 

OOOOOORG 

OOOOOORG 

OOOOOORG 

******  GX 

******  GX 

******  GX 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 

GX 
GX 
GX 
GX 
GX 

GX 
GX 
GX 
GX 
GX 
GX 


GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


003 
002 


177777 

000070 

000000 

000431 R     004 

******  GX 


H  10 
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TMPVCT  -  NTL  VECTOR  SETUP  ROUTI 

MACRO  V05.03b 

Saturddy 

380  000446 

016705 

OOOOOOG 

MOV 

381  000452 

062703 

OOOOOOG 

ADD 

382  000456 

011303 

MOV 

383 

384  000460 

012302 

20$: 

MOV 

385  000462 

126062 

000002 

000002 

CMPB 

386  000470 

001016 

BNE 

387  000472 

126062 

000012 

000012 

CMPB 

388  000500 

001012 

BNE 

389  000502 

010162 

000004 

MOV 

390  000506 

126262 

000002 

000003 

CMPB 

391  000514 

001002 

BNE 

392  000516 

010162 

000010 

MOV 

393 

394  000522 

166701 

DOOOOOG 

30$: 

SUB 

395  000526 

005316 

40$: 

DEC 

396  000530 

003353 

B6T 

397  000532 

005726 

TST 

398  000534 

000410 

BR 

399  000536 

010160 

000004 

50$: 

MOV 

400 
401 
402  000542 

126060 

000002 

000003 

55$: 

CMPB 

403  000550 

001002 

BNE 

404  000552 

405 

406  000556 

010160 

000010 

60$: 

MOV 

70$: 

CALL 

407  000562 

80$: 

RETURN 

00:4 


7  Page  7-1 


SLTMA,R3 

#AB,R5 

(R35,R3 

(R3)+,R2 

L.DDM(RO),L.DDM 

40$ 

L.CTL{RO),L.CTL 

40$ 

R1,L.D0S(R2,) 

L.DDM(R2),L.DLC 

30$ 

R1,L.DLS(R2) 

$MXLEN,R1 

(SP) 

20$ 

(SP)  + 

70$ 

R1,L.DDS(R0) 


GET  SLT  TABLE  ADDRESS 

VECTORED  EXEC  ACCESS 

;  GET  NEXT  SLT 

(ft2)  ;  DO  DDM  PDV  INDICES  MATCH? 
;  If  NE,  NO 
(ft2)  ;  DO  CONTROLLER  NUMBERS  MATCH? 
;  IF  NE,  NO 

;  SET  DDM  LINE  TABLE  ADDRESS 
(ft2)  ;  COMBINATION  DDM/DLC? 
IF  NE,  NO 
SET  DLC  LINE  TABLE  ADDRESS 

GET  NEXT  UNIT  PORTION  ADDRESS 

ANY  MORE  ENTRIES  LEFT  ? 

IF  GT,  YES 

CLEAN  OFF  THE  STACK 

DON'T  SET  DDM  LINE  TABLE  ADDRESS  AGAIN 

SET  DDM  DATA  BASE  ADDRESS 


L.DDM(RO),L.DLC(RO)  ;  COMBINATION  DDM/DLC? 

70$  ;  IF  NE,  NO 

R1,L.DLS(R0)    ;  SET  DLC  DATA  BASE  ADDRESS 


$TMRDY 


;    MARK   LINE   READY    IF   APPROPRIATE 


H  11 
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UNIHC 
DBAMHC 


-  UNLOAD  HOP  COST   MATRI   MACRO  V05.03b  Saturday  29-Jun-85 
DEALLOCATE   MINHOP/C05T ,CKT   CTRS.,ROL 


00:4 


48  Page  6-1 


112  000256 

113  0002A2 

114  000244 

115  000260 

116  000264 

117  000266 
118 

119  000272 

120 

121 


066301 
006301 

016300 
001402 


000C01 


000030 


000024 


25$: 


ADD 

ASL 

ASR$ 

MOV 

BEQ 

CALL 

RETURN 

.END 


N$R0A2(R3),R1 

Rl 

6,R1 

N$ROA1+2(R3),RO 

25$ 

$DEA18 


CONVERT  TO  BYTES 
CONVERT  TO  BLOCKS 
GET  APR  BIAS 
IF  NONE  -  BRANCH 
DEALLOCATE  BLOCK 


H  12 
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G  13 

UNLPSl  -  NIL  UNLOAD  ROUTINES  FO  MACRO  V05.05b  Wednesday  17-Jul-85  12:05  Page  9-1 
XLDIE  -  DEALLOCATE  LOCAL  DTE  BLOCK 

2^1  000^?2  CALL    SXDEAC         ; ;  DEALLOCATE  BLOCK 

2A2  00OA26  0007H  BR      10$  ; ;  DO  FOR  NEXT  BLOCK 

III   000430  40$:    RESMAP  ; ;  RESTORE  PREVIOUS  MAPPING 

245  000434  50$:    RETURN 

246 

21,7  .ENDC   ;  NDF  1$$AS 


H  13 
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ncAi  1  nriTE    dodt    TiPlIF    4Mri    rlBnilT    RinCK^ 


UNLSUB  - 
LOCAL    DA 

68 
69 

70 
71 
72 
73 
■4 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 


G  K 

00:A8 


NTL  UNIOAD   SUBROUTINES  MACRO  V05.03b  Saturday  29-Jun-85   00:A8     Page  6 

TA 

.S8TTL  LOCAL  DATA 
LOCAL  DATA 


.IF  DF  R$$MPL 
DEFINE  CT8  SYMBOL  BLOCK 


CTBLK: 

CT8SYM: 

CTVAL: 

CETNAM: 

STBEXT: 


.WORD 

.RAD50 

.BLKW 

.ASCIZ 

.ASCIZ 

.EVEN 

.ENDC 


0,0 

"SCTXXX 

1 

/CETA8/ 

/STB/ 


000000 
000002 


READY  LINES  ON  THIS  CONTROLLER 

UNITS:   .BL<W   1 
.PSECT 


H  K 


UNLSUB  -  NTL  UNLOAD  SUBROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  00:48  Page  7 

r.PTtMri  -  rcT  pn\;  IMnpy 
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00;A? 


1 
2 
3 
A 
5 
6 
7 
8 
9 

10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AC 
A1 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  XL8R  -  RELEASE  LIBRARr  DESCRIPTOR 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PEHSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  LIBRARY  DESCRIPTOR  DE-ALLOCATION  ROUTINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-llM  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


H  15 
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XPAR  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:49 

MACRO   CROSS  REFERENCE 
MACRO  NAME  REFERENCES 


G  16 

PAGE   2 

CREF        OA.OQ 


CALL 

6-76 

6-11 

PCBDF$ 

#5-57 

5-58 

RETURN 

6-115 

SWSTkt 

6-76 

♦*FILE«»ID*»XXBUF 


H  16 


TMPEX3 

CREATED  BY 

MACRO  ON  29-JUN-85  AT 

00:43 

H  1 

PAGE  1 

SYMBOL 

CROSS  REFERENCE 

CREF   04.00 

SYMBOL 

VALUE 

REFERENCES 

M$$MGE 
NULL 

=  000000 
000050 

R 

8-205 

5-80 

5-100 

8-250 

5-81 

5-103 

9-265 

5-87 

5-104 

5-88      5-89 
5-105     5-106 

5-93 
5-107 

5-95 
5-108 

5-96 
5-109 

5-99 
5-116 

5-117 

5-118 

5-119 

5-120     5-121 

5-122 

5-123 

5-124 

5-125 

5-126 

5-127 

5-128 

5-129     5-130 

5-131 

5-132 

#7-187 

POPl 

00004A 

R 

5-82 
#7-181 

5-83 

5-84 

5-86      5-90 

5-98 

5-101 

5-111 

5-112 

P0P2 

000040 

R 

5-91 

5-110 

5-113 

5-114    #7-175 

P0P3 

000032 

R 

5-94 

5-97 

#7-169 

P.REL 

=  ****** 

GX 

8-212 

P.UA  T 

=  ****** 

GX 

8-217 

R$$11M 

r  000000 

8-204 

TABLE 

000000 

R 

#5-80 

6-158 

XCORE 

000172 

R 

5-85 

#8-246 

XLIBR 

000224 

R 

5-92 

#9-264 

XMXPTB 

000252 

R 

5-115 

#10-284 

XSCOM 

000052 

R 

5-102 

#8-196 

$BIN 

=  ****** 

GX 

6-151 

$DEAC2 

-  ****** 

GX 

8-219 

$nEA16 

=   ****** 

GX 

8-240 

10-295 

$.CEA18 

=  ****** 

GX 

8-258 

SMAPX 

-   ****** 

GX 

8-213 

SMXLEN 

=   ****** 

GX 

10-292 

SPCB 

=  **>:*** 

GX 

8-208 

SPRAVL 

=      ****** 

GX 

8-216 

8-220 

$PTR 

=     ****** 

GX 

6-152 

$TMEX3 

000000 

RG 

#6-150 

SXLBR 

-  ****** 

GX 

9-279 

TMPEX5 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:43 


PAGE  2 


I  1 


TMPEX5   -  NTL   LINE    TABLE    UPDATE 
MACRO  DEFINITIONS 


H  2 

MACRO  V05.03b  Saturday  29-Jun-85  00:43  Page  8 


458 

459 
460 
461  000524 

•  SECONDARY  FILE 

005267 

000154' 

MXTAB: 

.C 

FLAGS 

462  000530 

112546 

FILE; 

MOVB 

(R5)+,-(SP) 

463  000532 

010546 

MOV 

R5,-(SP) 

464  000534 

011605 

10$: 

MOV 

(SP),R5 

465  000536 

005767 

000154' 

TST 

FLAGS 

466  000542 

001407 

BEQ 

20$ 

467  000544 

126467 

000013  000152' 

CMPB 

L.UNT(R4), INDEX 

468  000552 

001003 

BNE 

20$ 

469  000554 

026403 

000004 

CMP 

L.DDS(R4),R3 

470  000560 

001025 

BNE 

101$ 

471  000562 

005002 

20$: 

CLR 

R2 

472  000564 

152502 

BISB 

(fi5)+,R2 

473  000566 

122702 

OOOOOOG 

CMPB 

#.E0F,R2 

474  000572 

001404 

BEQ 

30$ 

475  000574 

106302 

ASL8 

R2 

476  000576 

CALL 

aTA8LE-2(R2) 

477  000602 

000767 

BR 

20$ 

478  000604 

005267 

000152' 

30$: 

INC 

INDEX 

479  000610 

126667 

000002  000152' 

CMPB 

2(SP), INDEX 

480  000616 

001346 

BNE 

10$ 

481  000620 

022626 

CMP 

(SP)+,(SP)t 

482  000622 

00506' 

000152' 

CLR 

INDEX 

483  000626 

005067 

000154' 

CLR 

FLAGS 

484  000632 

RETURN 

485 
486 
487 
488 
489  000634 

•  ERROR 

CONDITION 

101$: 

CRASH 

490 
491 
492 
493 
494  000636 

■  LINKED  SECONDARY  FILE 

MP TAB: 

CRASH 

495  000640 

112546 

LFILE: 

Move 

(R5)+,-(SP) 

496  000642 

122525 

CMPB 

(R5)  +  ,(R5)<- 

497  000644 

010546 

MOV 

R5,-(SP) 

498  000646 

011605 

10$: 

MOV 

(SP),R5 

499  000650 

005002 

20$: 

CLR 

R2 

500  000652 

152502 

BISB 

{R5)-f,R2 

501  000654 

022702 

OOOOOOG 

CMP 

#.E0F,R2 

502  000660 

001404 

BEQ 

30$ 

503  000662 

106302 

ASL6 

R2 

504  000664 

CALL 

aTA6LE-2{R2) 

505  000670 

000767 

BR 

20$ 

506  000672 

005267 

000152' 

30$: 

INC 

INDEX 

507  000676 

126667 

000002  000152 

CMPB 

2(SP), INDEX 

508  000704 

001360 

BNE 

10$ 

509  000706 

022626 

CMP 

(SP)t,(SP)<- 

510  000710 

005067 

000152' 

CLR 

INDEX 

511  000714 

005C  7 

000154' 

CLR 

FLAGS 

512  000720 

RETURN 

INDICATE  MUX  EXPANSION 

GET  REPEAT  COUNT 

SAVE  CURRENT  BINARY  POINTER 

RESTORE  BINARY  POINTER 

IS  IT  MUX  EXPANSION  ? 

NO  .. 

DO  UNIT  NUMBERS  MATCH  ? 

NO  .. 

IS  THE  LINE  TABLE  POINTER  CORRECT  ? 

NO  ..  ERROR 

GET  FUNCTION  CODE 

IS  IT  END  OF  FILE? 

IF  EQ,  YES 

CONVERT  TO  A  WORD  INDEX 

EXPAND  A  FIELD 

KEEP  LOOKING  FOR  EOF 

TALLY  ONE  PASS  THRU  SECONDARY  FILE 

ARE  WE  DONE? 

IF  NE,  NO 

PURGE  STACK 

CLEAR  SECONDARY  INDEX 

AND  SPECIAL  FLAGS 


LINE  TABLE  POINTER  (R3)  IS  SCREWED  UP 


SAVE  REPEAT  COUNT 

DISCARD  LISTHEAD  DISPLACEMENT 

SAVE  CURRENT  BINARY  POINTER 

RESET  BINARY  POINTER 

GET  FUNCTION  CODE 

IS  IT  END  OF  FILE? 

IF  EQ,  YES 

CONVERT  TO  WORD  INDEX 

EXPAND  A  FIELD 

KEEP  LOOKING  FOR  EOF 

TALLY  ONE  PASS  THRU  SECONDARY  FILE 

ARE  WE  DONE? 

IF  NE,  NO 

PURGE  STACK 

CLEAR  SECONDARY  INDEX 

AND  SPECIAL  FLAGS 
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J0:?3 


H  3 


*F!LE"I0««TMPEX6 


TTTTTTTTTT 

MM 

MM 

pppppppp 

EEBEEEEEEE 

XX      XX 

666666 

TTTTTFTTTT 

MM 

MM 

pppppppp 

EEEEEEEEEE 

XX      XX 

666666 

MMM^ 

MMMM 

PP      PP 

EE 

XX      XX 

66 

mw 

MMMM 

PP      PP 

EE 

XX      XX 

66 

MM 

^IM  MM 

PP      PP 

EE 

XX  XX 

66 

MM 

m     MM 

PP      PP 

EE 

XX  XX 

66 

MM 

MM 

pppppppp 

EEEEEEEE 

XX 

66666666 

MM 

MM 

PPPPPPPP 

EEEEEEEE 

XX 

66666666 

MM 

MM 

PP 

EE 

XX  XX 

66     66 

MM 

MM 

PP 

EE 

XX  XX 

66     66 

MM 

MM 

PP 

EE 

XX      XX 

66     66 

MM 

MM 

PP 

EE 

XX      XX 

66     66 

MM 

MM 

PP 

EEEEEEEEEE 

XX      XX 

666666 

TT 

MM 

MM 

PP 

EEEEEEEEEE 

XX      XX 

666666 

LL 

SSS5SSSS 

TTTTTTTTTT 

LL 

SS5SSSSS 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLL 

ALL 

ssssssss 

LLLLLLLLLL 

ssssssss 

TMPEX6  -  NIL  TEMPLATE  EXPANSION  MACRO  V05.03b  Saturday  29-Jun-85  00:^5 


H  A 

TMPEX6  -  MTL  TEMPLATE  EXPANSION  MACRO  V05.03b  Saturday  29-Jun-85  00:43 
LOCAL  DATA 


532 
533 
534 

535  001020 

536  001022 

537  001024 

538  001026 

539  001030 

540  001032 

541  001036 

542  001040 
543 

544  001042 

545  001044 

546  001050 

547  001054 
548 

549  001060 

550  001062 

551  001064 

552  001066 

553  001070 
554 

555  001074 

556  001076 

557  001102 

558  001104 

559  001106 

560  001110 

561  001120 

562  001122 
563 

564  001126 

565 

566  001130 


000001 


112524 
112524 
112524 
112524 
112546 
112566 
012603 
001433 


011146 

016446  177774 

016711  OOOOOCn 

016700  OOOOOOG 


011620 
006303 
005203 
010320 
010067 


OOOOOOG 


012611 

105765  177771 

100011 

010200 

005303 

005020 


012611 


;  POINTER  TO  ALLOCATED  CORE 

CORE: 

M0V8 

(R5)+,(R4)+ 

MOVB 

(R5)+,(R4)t 

M0V8 

(R5)+,(R4)t 

MCVB 

(R5)+,(R4)t 

MOVB 

(R5)+,-(SP) 

MOVB 

(fi5)+,1(SP)     ; 

MOV 

(SP)+,R3 

BEQ 

30$ 

MOV 

(R1),-(SP) 

MOV 

-4(R4),-(SP) 

MOV 

$U6IAS,(R1) 

MOV 

$UDA,RO 

MOV 

(SP),(RO)+ 

ASL 

R3 

INC 

R3 

MOV 

R3,(R0)*- 

MOV 

R0,$UDA 

MOV 

(SP)+,(R1) 
-7(R5! 

TST8 

BPL 

20$ 

MOV 

R2,R0 

DEC 

R3 

ASL$ 

4,R3 

10$: 

CLR 

(R0)  + 

SOB 

R3,10$ 

20$: 

MOV 

(SP)+,(R1) 

30$: 

RETURN 

Page  9 


COPV  FIRST  WORD  OF  ADDRESS 
copy  SECOND  WORD  OF  ADDRESS 
ASSEMBLE 'count 

IF  zero! 'no  UNLOAD  DATA  TO  STORE 

SAVE  CURRENT  MAPPING 

SAVE  FIRST  WORD  OF  ADDRESS  (BIAS) 

GET  UNLOAD  BLOCK  BIAS 

GET  UNLOAD  DATA  ADDRESS 

STORE  ALLOCATION  BIAS 

SHIFT  COUNT  LEFT  1  PLACE 

SET  BIT  0  (ADDRESS=BIAS,  NOT  OFFSET) 

STORE  COUNT 

SET  NEW  UNLOAD  DATA  ADDRESS 

MAP  TO  THE  CORE  ALLOCATION 
IS  THIS  .CORE  OR  .BIN? 
IF  PL,  .BIN 

MAP  TO  THE  .CORE  ALLOCATION 
CONVERT  TO  A  WORD  COUNT 

ZERO  THE'aLLOCATION 
RESTORE  MAPPING 
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Symbol  table 

.EOF  =  »«■>»»•  GX 


.  ABS. 

177776 

000 

(RW.I.GBL 

ABS 

OVR) 

002A6A 

001 

(Ry,l,LCL 

HbL 

CUNJ 

DATA 

001346 

002 

(RW.D.LCL 

RhL 

UJNJ 

Errors 

detected: 

0 

»♦»   Assembler   statistics 


Work      file     reads:  0 

Work      tile  writes:  C 

Size  of  work   file:  12325  Words      (   49  Pages) 

Size  of   core  pool:  14440  Words      (   55  Pages) 

Operating     system:  RSX-11M/PLUS 


SY:TMPEX6!v2;n32??^4]tMPEX6/CR/-SP=SY:[1  J:RSXMCM.SML/ML,[130J10]NETLIB/ML,[130J0]RSXM^ 


I 

'■MPEX6  CREATED  BV     MACRO     ON  29-JUN-85   AT   00:43  PAGE   1 
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240  000242 

016705 

OOOOOOG 

241  000246 

116504 

000002 

242  000252 

243 

244  000256 

010504 

245  000260 

005767 

000356' 

246  000264 

001434 

247 

248 

249  000266 

250 

251 

252  000272 

016700 

OOOOOOG 

253  000276 

254  000302 

016705 

OOOOOOG 

255  000306 

016703 

000356' 

256  000312 

042703 

177700 

257  000316 

016303 

000360' 

258  000322 

042703 

160000 

259  000326 

050203 

260  000330 

026705 

OOOOOOG 

261  000334 

001407 

262  000336 

005002 

263  000340 

152502 

264  000342 

001404 

265  000344 

106302 

266  000346 

267  000352 

000766 

268  000354 

269 

270 

271 

272 

273  000354 

274 

275 

276 

217 

278  000356 

MOV 

$SLTA,R5 

Move 

L.DDM(R5),R4 

CALL 

FLT16 

MOV 

R5,R4 

TST 

UBA 

BEQ 

101$ 

.IF  DF 

R$$11M 

SWSTKS 

20$ 

.ENDC 

MOV 

$BIAS,RO 

CALL 

$MAPX 

MOV 

$8IN,R5 

MOV 

UBA,R3 

SIC 

#*C<77>,R3 
BL0CK(R3),R3 
#160000, R3 

MOV 

BIC 

BIS 

R2,R3 

10$:    CMP 

$PTR,R5 

BEQ 

20$ 

CLR 

R2 

BISB 

(R5)+,R2 

BEQ 

20$ 

ASL8 

R2 

CALL 

aTABLE-2(R2) 

BR 

10$ 

.IF  DF 

R$$11D  !  I$$ 

CALL 

a(SP)+ 

.ENDC 

RETURN 

;  ERROR  CONDITION 

101$:    CRASH 

GET  THE  SLT  ADDRESS 

GET  THE  DDM  PDV  INDEX 

SEARCH  THRU  THE  UNLOAD  BLOCKS 

FOR  THE  START  OF  THE  LINE  TABLE 

COPY  SLT  ADDRESS 

SUCCESS  ? 

IF  EQ,  NO 


;»  ENTER  KERNEL  MODE 


*  GET  BIAS  FOR  PARTITION  LINE  TABLE 

*  MAP  TO  LINE  TABLE 

*  START  OF  BINARY  DATA 

*  GET  UNLOAD  BLOCK  ADDRESS 

*  USE  LOW  6  BITS  ONLY 

*  GET  CONTROLLER  TABLE  STARTING  ADDRESS 

*  USE  OUR  OWN  MAPPING  REGISTER 

*  IS  it'end  of  binary  data? 

*  IF  EQ,  YES 

*  GET  FUNCTION  CODE 

*  . . 

*  IF  ZERO,  END  OF  FILE 

*  CONVERT  TO  A  WORD  INDEX 

*  EXPAND  ONE  FIELD 

*  KEEP  LOOPING  UNTIL  END 


;♦  CALL  CO-ROUTINE  TO  RESTORE  MAPPING 
;*  BACK  TO  USER  MODE  AND  THEN  TO  CALLER 

;  CAN'T  FIND  LINE  TABLE  IN  UNLOAD  BLOCKS 
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)(2CH 


779 

.SBTTL 

X2CH 

780 
781 
782 
783  001644 

•  MAXIMUM  WINDOW  SIZE 

005767 

000352' 

X2CH01: 

TST 

FLAGS 

784  001650 

001411 

BEQ 

10$ 

785  001652 

016700 

000350' 

MOV 

INDEX, RO 

786  001656 

126400 

000013 

CMPB 

L.UNT(R4),R0 

787  001662 

001004 

BNE 

10$ 

788  001664 

006300 

ASL 

RO 

789  001666 

116023 

000226' 

MOVB 

PR2MWS(RO),(R3)+ 

790  001672 

000401 

BR 

20$ 

791  001674 

005203 

10$: 

INC 

R3 

792  001675 

793 

794 

795 

796  001700 

20$: 

RETURN 

;  MAXIMUM  BLOCK 

SIZE 

005767 

000352' 

X2CH02: 

TST 

FLAGS 

797  001704 

001411 

BEQ 

10$ 

798  001706 

016700 

000350' 

MOV 

INDEX, RO 

799  001712 

126400 

000013 

CMPB 

L.UNT(R4),R0 

800  001716 

001004 

BNE 

10$ 

801  001720 

006300 

ASL 

RO 

802  001722 

016023 

000246' 

MOV 

PR2MBS(R0),(R3)+ 

803  001726 

000401 

BR 

20$ 

804  001730 

005723 

10$: 

TST 

(R3)  + 

805  001732 

806 

807 

808 

809  001734 

20$: 

RETURN 

;  MAXIMUM  RETRANSMIT  COUNT 

005767 

000352' 

X2CH03: 

TST 

FLAGS 

810  001740 

001411 

BEQ 

10$ 

811  001742 

016700 

000350' 

MOV 

INDEX, RO 

812  001746 

126400 

000013 

CMPB 

L.UNT(R4),R0 

813  001752 

001004 

BNE 

10$ 

814  001754 

006300 

ASL 

"0.     „,   ,, 

815  001756 

116023 

000266' 

MOVB 

PR2MRT(R0),(R3)+ 

816  001762 

000401 

BR 

20$ 

817  001764 

005203 

10$: 

INC 

R3 

818  001766 

819 

820 

821 

822  001770 

20$: 

RETURN 

;•  RETRANSMIT  TIMER 

005767 

000352' 

X2CH04 

TST 

FLAGS 

823  001774 

001411 

BEQ 

10$ 

824  001776 

016700 

000350' 

MOV 

INDEX, RO 

825  002002 

126400 

0000(5 

CMPB 

L.UNT(R4),R0 

826  002006 

001004 

BNE 

10$ 

827  002010 

006300 

ASL 

RO 

828  002012 

016023 

000306' 

MOV 

PR2RET(RO),(R3)+ 

829  002016 

000401 

BR 

20$ 

830  C02020 

005723 

10$: 

TST 

(R3)* 

831  002022 

832 

833 

834 

835  C02024 

20$: 

RETURN 

;  HOLDBACK  TIMER 

005767 

000352' 

X2CH05 

TST 

FLAGS 

IS  IT  MUX  EXPANSION  ? 

NO  .. 

GET  SECONDARV  FILE  COUNTER 

DO  UNIT  NUMBERS  MATCH  ? 

NO  .. 

CONVERT  TO  A  WORD  INDEX 

STORE  MAXIMUM  WINDOW  SIZE 

AND  EXIT 


IS  IT  MUX  EXPANSION  ? 

NO  .. 

GET  SECONDARY  FILE  COUNTER 

DO  UNIT  NUMBERS  MATCH  ? 

NO  .. 

CONVERT  TO  A  WORD  INDEX 

STORE  MAXIMUM  BLOCK  SIZE 

AN'1  EXIT 


IS  IT  MUX  EXPANSION  ? 

NO  .. 

GET  SECONDARY  FILE  COUNTER 

DO  UNIT  NUMBERS  MATCH  ? 

NO  .. 

CONVERT  TO  A  WORD  INDEX 

STORE  MAXIMUM  RETRANSMIT  COUNT 

AND  EXIT 


IS  IT  MUX  EXPANSION  ? 

NO  .. 

GET  SECONDARY  FILE  COUNTER 

DO  UNIT  NUMBERS  MATCH  ? 

NO  .. 

CONVERT  TO  A  WORD  INDEX 

STORE  RETRANSMIT  TIMER 

AND  EXIT 


IS    IT   MUX   EXPANSION    ? 
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162 
163 

164  000170 

165  000174 

166  000176 

167  000204 

168  000206 

169  000214 

170  000216 

171  000220 

172  000224 

173  000230 

174  000234 

175  000240 

176  000242 
177 

178 
179 
180 

181  000244 

182  000252 

183  000254 

184  C00260 

185  000266 
186 


.ENDC 

;  DF  R$$MPL 

020167 

OOOOOOG 

CMP 

R1,$$VECT 

001004 

BNE 

5* 

026760 

OOOOOOG  000002 

CMP 

$$CSR,K.CSR(R0) 

001403 

BEQ 

10$ 

5$: 

EMSG$ 

WZ 

005000 

10$: 

CLR 

RO 

005001 

CLR 

Rl 

012702 

000000' 

MOV 

CALL 

CALL 

#TMPEXT,R2 

$AZFS 

$CLQUE 

105777 

OOOOOOG 

TSTB 

ascLios 

100401 

BMI 

101$ 

RTSPC:   RETURN 


032767 
001405 
016700 
012760 


ERROR  CONDITIONS 


OOOOOOG  OOOOOOG  101$: 

OOOOOOG 

177777  OOOOOOG 

102$: 


BIT 

BEQ 

MOV 

MOV 

EMSG$R 

.DSA8L 


#FL.LLC,$FLAGS 

102$ 

$PDVA,RO 

#-1,Z.DAT(R0) 

8 

LSB 


IS  THIS  THE  SAME  VECTOR  ADDRESS 

IF  NE,  NO  ..  WARN  USER 

IS  THIS  THE  SAME  CSR  ADDRESS  ? 

IF  EQ,  YES  ..  OKAY 

WARNING  -  MUX  UPDATE  ONLY 

SETUP  ASCIZ  FILE  SPEC 

FOR  [131, 5XJXXX.DAT 


TRY  TO  OPEN  PRIMARY  TEMPLATE 
SUCCESS?  (CLEARS  C-BIT? 
IF  MI,  NO 


IS  THIS  AN  LLC? 

IF  EO,  NO 

GET  PDV  ADDRESS 

MARK  DATA  BASE  AS  EMPTY 

OPEN  FAILURE 
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70 

71 

72 

73 

74 

75  000002 

76 

77 

78 

79 

80  000002 

81  000002 

82  000002 

83  000002 
84 

85 
86 
87 

88  000002 

89  000002 
90 

91 
92 
93 

94  000002 

95  000002 

96  000002 
97 

98 

99 

100 

101  000002 

102  000002 

103  000002 
104 


.SBTTL  STATE  TABLES 

«** 
STATE  TABLES 

ISTATS  $TMPST,$TMPKW 


START  OF  OPERATOR  ("."),  LABEL,  OR  END  OF  STRING 


STATES 
TRANS 
TRANS 
TRANS 


:end,sexit 
'..operator 

SRAD50 


COLON  FOLLOWING  LABEL 

STATES 
TRANS 


OPTIONAL  SECOND  COLON  FOLLOWING  LABEL 


STATES 
TRANS 
TRANS 


':, PERIOD 
SLAMDA 


START  OF  OPERATOR  OR  END  OF  STRING 

STATES  PERIOD 
TRANS   lEND.SEXIT 
TRANS 
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409 

+ 

410 

STMRDY  -  MARK 

SLT  AS  READY  IF  A 

411 

412 

INPUTS; 

413 

ro=slt 

ADDRESS 

414 

415 

OUTPUTS: 

416 

R1,R2=DESTR0YED 

417 

LF.RDY 

SET  IF  DDM,  DLC,  D 

419  000564 

016701 

OOOOOOG 

;tmrdv: 

:MOV 

$DLCPV,R1 

420  000570 

001403 

BEQ 

10$ 

421  000572 

005761 

OOOOOOG 

TST 

Z.PCB(RI) 

422  000576 

001420 

BEQ 

20$ 

423  000600 

016701 

OOOOOOG 

10$: 

MOV 

$DDMPV,R1 

424  000604 

005761 

OOOOOOG 

TST 

Z.PC8(R1) 

425  000610 

001413 

BEQ 

20$ 

426 

427  000612 

005760 

000004 

TST 

L.DDS(RO) 

428  000616 

001410 

BEQ 

20$           ; 

429  000620 

005760 

000010 

TST 

L.DLS(RO) 

430  000624 

001405 

BEQ 

20$ 

431  000626 

CALL 

MANINI 
*LF.RDY,L.FLG(ROS 

432  000632 

052760 

040000  000000 

BIS 

433 

434 

.IF  Of 

R$$MPL 

435 
436 

MOV 

L.KR8A(R0),R1 

437 

BIT 

#F1.VCT,$FLAG1   , 

438 

BEQ 

20$ 

439 

TSTB 

SNCPU 

440 

BEQ 

15$ 

441 

BIT 

K.URM(Rl),aURMST 

442 

BEQ 

20$           , 

443 

15$: 

BIC 

#KS.0FL,K.STS(R1) 

444 

445 
446 
447  000640 

.ENDC 

20$: 

RETURN 

DDM  LINE  TABLE,  AND  DLC  LINE  TABLE  ARE  IN  CORE 

GET  DLC  PDV  ADDRESS 

IF  EQ,  COMBINATION  DDM/DLC 

IS  DLC  CORE-RESIDENT? 

IF  EQ,  NO 

GET  DDM  PDV  ADDRESS 

IS  DDM  CORE-RESIDENT? 

IF  EQ,  NO 

IS  DDM  LINE  TABLE  PRESENT? 

IF  EQ,  NO 

IS  DLC  LINE  TABLE  PRESENT? 

IF  EQ,  NO 

INITIALIZE  MANAGEMENT  FIELDS 

;  MARK  LINE  AS  READY 


GET  THE  KRB  ADDRESS 
DID  WE  SETUP  THE  VECTORS  ? 
IF  EQ,  NO  ..  LEAVE  THE  DEVICE  OFFLINE 
IS  THIS  A  MULTIPROCESSOR  SYSTEM  ? 
IF  EQ,  NO  ..  SKIP  URM  CHECK 
;  IS  THIS  BUS  ON-LINE  ? 
IF  EQ,  NO 
;  WHY  DIDN'T  YOU  SAY  SO  ? 
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AT$ACL= 

AT$ADN= 

AT$AUP= 

AT$CYC=: 

AT$LV1= 

AT«-i.V2= 

ATtNex= 

ATtUP  = 

A$CIR 

ASLEN 

ASNID 

A$TM 

ASTMI 

A$TSZ 

ASTYP 

AS$CHIC  = 

A$$CPS= 

A$$PRI= 

AI$TRP= 

C$tC<P= 

C$$ORE= 

C$$RSH= 

OECPT  = 

DSAMXC 

DS'^MXH 

DSANN 

DSBRPR 

DSBRTM 

OSDELF 

DSDELW 

D$END  = 

OSFNB 

DSHIOR 

DSHOST 

OSINAC 

OSIiMCT 

DSIPL 

D$LID 


000100 

000040 

000020 

000004 

000002 

000001 

000200 

000010 

000003 

000004 

000000 

000003 

000002 

000000 

000002 

000000 

000000 

000000 

000000 

000000 

000400 

177564 

»**♦*«  Gx 

000072 

000074 

000000 

000102 

000100 

000045 

000046 

000104 

000034 

000024 

000022 

000044 

000042 

000051 

000020 


DSLNAM 

DSLNUM 

DSLST 

DSMAXC 

0$MAXH 

OSMAXV 

DSMLL 

DSMNOD 

0$NA 

DSNBEA 

DSNBRA 

D$NEND= 

DSNLN 

DSNN 

DSOUTT 

DSRETF 

D$RNN 

DSRTMR 

D$SEG 

D$SER 

DSSQRL 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

ESNBR 

ESNBS 

ESNCR 

E$NCS 

E$NIC 

ESNLEN 

ESNLLA 

ESNLNK 

E$NML 

ESNMR 

ESNMS 


000006 
000014 
000047 
000064 
000066 
000070 
000040 
000041 
000062 
000056 
000054 
000054 
000030 
000060 
000043 
000050 
000002 
000076 
000036 
000032 
000052 
177514 
000000 
000001 
000000 
000000 
000014 
000020 
000034 
000036 
000044 
000050 
000012 
000000 
000040 
000024 
000030 


ESNNOD 

E$NRT 

ESNRTP 

ESNSEG 

ESNTIM 

ESNUSE 

ESSTRT 

E$$XPR= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$URD= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

M$$CRS= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

NSADJI 

N$ADJ2 

NSCACH 

N$CRC 

N$HC1 

N$HC2 

N$LV1 


000002 
000042 
000005 
000010 
000046 
000004 
000006 
000000 
000001 
000000 
000000 
000000 
000000 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
000000 
000000 
000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000072 
000074 
000062 
000120 
000052 
000056 
000002 


N$LV2 

NSMHCI 

N$MHC2 

N$PLD 

N$PRI 

N$R0A1 

N$R0A2 

NSRTMX 

NSRTMI 

N$RTH2 

N$RT1 

N$RT2 

NSTCTL 

N$TLC 

N$TNC 

N$TRC 

NSTTCB 

N$VER 

NSXLEN 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

Nt$MLL= 

■  •wov= 

.i$NCT= 
N$$PEM= 
P$$P45= 
P$$WRD= 
Q$$0PT= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
S$$WRG= 
S$$YSZ= 
TSFLAG 


000010 
000036 
000044 
000016 
000076 
000022 
000030 
000014 
000014 
000015 
000000 
000006 
000112 
000100 
000114 
000106 
000110 
000066 
000124 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000000 
000000 
000010 
000000 
000001 
000000 
000000 
000000 
007600 
000044 


.  A8S.   000124 
000274 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ASS,OVR) 
(RW,i,LCL,REL,CON) 


T$LIF 

000013 

T$LIFL 

000013 

TSLIFO 

000013 

TSLIFS 

000013 

T$LIN 

000000 

TSLIPS 

000006 

T$LLD 

000012 

TSLLDC 

000045 

TSLLDL 

000012 

TSLLDO 

000012 

T$LLDS 

000012 

TSLLEN 

000046 

TSLOPR 

000002 

TSLTCL 

000024 

TSLTIM 

000026 

TSLTPR 

000014 

TSLTPS 

000020 

TSNAPL 

000004 

T$NFE 

000000 

TSNLEN 

000010 

TSNNUL 

000002 

TSNOPL 

000006 

TSNRNI 

000042 

TSNRPL 

000005 

TSNRUL 

000007 

T$NVR 

000001 

TSRPRI 

000040 

T$SVC 

000034 

T$T5 

000030 

T$T6 

000032 

T$$KMG= 

000000 

T$$MIN= 

000000 

V$$CTR= 

001000 

X$$DBT= 

000000 

SDEAHC 

OOOOOORG 

$DEA18= 

******   X 

$MUL  = 

*«*»*.  uX 

••*   Assembler   statistics 

Work      file      reads:  0 

Work      file  B/rites:  0 

Size  of  work    tile:  13258  Words      (   52  Pages) 

Size  of   core  pool:  14440  Words      (   55  Pages) 

Operating     system:  RSX-11M/PLUS 

SY:UNLHc!v2!n32J34]UNLHC/CR/-SP=SY:[l  JJRSXMCI»I.SML/ML,[130J10]NETIJB/ML,[130J0]RSXMCM 
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2A9 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263  000436 

26'.  000442 

26")  000446 

266 

267  000452 

268  000456 

269  000462 

270  000464 

271  000470 

272  000472 

273  000474 

274  000476 
275 

276  000500 

277  000502 

278  000504 

279  000510 

280  000514 

281  000516 

282  000522 

283  000524 

284  000530 

285  000532 

286  000534 

287  000540 

288  000544 

289  000546 

290  000552 

291  000556 
292 

293 


.SBTTL  XPORT  -  DEALLOCATE  PORT  TABLE  AND  CIRCUIT  BLOCKS 


XPORT  -  DEALLOCATE  PORT  TABLE  AND  ASSOCIATED  X.25  CIRCUIT  BLOCKS 

INPUTS: 

NONE 

THE  PORT  TABLE  AND  THE  X.25  CIRCUIT  BLOCK  IS  DEALLOCATED 


017703  OOOOOOG 
016300  000020 
016304  000022 


010046 

012602 
005722 
005304 
003416 

012200 
001412 
012701  000106 


005304 
003362 

016600  000004 

016601  000014 
006301 


.IF  NDF  I$$AS 

XPORT;  MOV  5lPSIPT,R3 

MOV  H$PTB(R3),R0 

MOV  H$NPT(R3),R4 


SWSTK$ 

30$ 

SAVMAP 

MOV 

R0,-(SP) 

CALL 

$CEACX 

MOV 

(SP)t,R2 

TST 

(R2)  + 

DEC 

R4 

BLE 

25$ 

10$: 

MOV 

(R2)+,R0 

BEQ 

20$ 

MOV 

#X$LEN,R1 

SAVMAP 

SAVRG 

<R2> 

CALL 

$XDEAC 

RESR6 

<R2> 

RESMAP 

20$: 

DEC 

R4 

BGT 

10$ 

2^$: 

MOV 

R$R0t2(SP),R0 

MOV 

R$R4+2(SP),R1 

ASL 

Rl 

CALL 

$XDEAC 

RESMAP 

30$: 

RETURN 

.ENDC 


GET  ADDRESS  OF  PSI  HOME  BLOCK 
GET  ADDRESS  OF  PORT  TABLE 
GET  NUMBER  OF  PORTS 

ENTER  SYSTEM  STATE 

SAVE  MAPPING 

GET  UNMAPPED  ADDRESS  OF  PORT  TABLE 

MAP  TO  PORT  TABLE 

RETRIEVE  MAPPED  PORT  TABLE  ADDRESS 

SKIP  FIRST  ENTRY 

If'nO  CIRCUIT  BLOCKS  -  BRANCH 

GET  ADDRESS  OF  X.25  CIRCUIT  BLOCK 

BR  IF  NONE  FOR  THIS  PORT 

GET  LENGTH  OF  CIRCUIT  BLOCK 

SAVE  PORT  TABLE  MAPPING 

AND  ADDRESS 

DEALLOCATE  CIRCUIT  BLOCK 

RESTORE  PORT  TABLE  ADDRESS 

AND  MAPPING 

MORE  TO  CHECK? 

BR  IF  YES 

GET  UNMAPPED  ADDRESS  OF  PORT  TABLE 

GET  NUMBER  OF  PORTS 

MULTIPLY  BY  2  TO  OBTAIN  BYTE  COUNT 

DEALLOCATE  PORT  TABLE 

RESTORE  MAPPING 
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91 

92 

93 

9^ 

95 

96 

97 

98 

99 

100 

101 

102 

103 

lOA  000002 

105  000002 

010546 

106  OOOOOA 

107 

108  000010 

017746 

OOOOOOG 

017705 

OOOOOOG 

109 

110  OOOOK 

022504 

111  000016 

001403 

112  000020 

005316 

113  000022 

003374 

lU  000024 

115  000026 

005726 

116  000030 

167705 

OOOOOOG 

117 

118  000034 

005745 

119  000036 

010504 

120  000040 

012605 

121  000042 

.SBTTL  GETIND  -  GET  PDV  INDEX 

GETIND  -  GET  PDV  INDEX  FROM  PDV  ADDRESS 

INPUTS: 

R4  =  PDV  ADDRESS 

OUTPTUS: 

R4  =  PDV  INDEX 

ALL  OTHER  REGISTERS  PRESERVED 


GETIND: 


10$: 


20$: 


MOV     R5,-(SP) 
MOV     aPDVNM,-(SP) 


MOV 

aPDVTA,R5 

CMP 

(R5)+,R4 

BEQ 

20$ 

DEC 

(SP) 

BGT 

10$ 

CRASH 

TST 

(SP)  + 

SUB 

aPDVTA,R5 

TST 

-(R5) 

MOV 

R5,R4 

MOV 

(SP)+,R5 

RETURN 

SAVE  R5 

GET  #  OF  PDV  ENTRIES 

POINT  TO  PDV  MAPPING  TABLE 

POINTING  AT  OUR  ENTRV  ? 

IF  EQ,  YES 

ELSE,  ONE  LESS  PDV  TO  COUNT 

IF  GT,  MORE  TO  GO 

ELSE,  CRASH  -  CAN'T  FIND  PDV  ENTRY 

CLEAN  UP  STACK 

CALCULATE  INDEX 


RETURN  INDEX  IN  R4 
RESTORE  R5 
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55 

56 

57 

58 

59  000000 

60 

61 

62 

63 

6A 

65  000000 

66  000002 

67  000000' 

68  000004 

69  000006 
70 

71 

72 

73 

74 

75        000001 

76 

77 

78  000000 


;  LOCAL  DATA 
.'  *** 

.PSECT  DATA.D 
KERNEL  MODE  STORAGE  (MAPPED  ONLV) 


.If  Df 
LSADR:  .8LKW 
LBALL:  .BLKW 
LBSIZ=L8ADR 
LPIAS:  .BLKW 
NLBLK:   .BLKW 

.ENDC 


M$$MGE 

1 

1 

1 
1 


DESCRIPTOR  VIRTUAL  ADDRESS 

LIBRARY  BIAS  WITHIN  NTPOOL 

LIBRARY  SIZE  IN  32.  WORD  BLOCKS 

LIBRARY  BLOCK  BIAS  IF  DE-ALLOCATION  NEEDED 

NETLDR  DATA  BLOCK  BIAS 


32.  WORD  BLOCK  ALLOCATION  SIZE 

.IIF  DF  M$$MGE,  BLKSIZ=1 
.IIF  NDF  M$$MGE,  BLKSIZ=100 

.PSECT 
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««FILE'MD'>XXBUf 


XX      XX 

XX      XX 

BB8B888B 

UU 

UU   F 

FFFFFFFFF 

XX      XX 

XX      XX 

BBBBBBBB 

uu 

uu   F 

FFFFFFFFF 

XX      XX 

XX      XX 

BB      BB 

UU 

UU   F 

XX      XX 

XX      XX 

BB      BB 

uu 

UU   F 

XX   XX 

XX  XX 

BB      BB 

uu 

UU   F 

XX   XX 

XX   XX 

BB      BB 

uu 

UU   F 

XX 

XX 

BBBBBBBB 

uu 

UU   F 

FFFFFFF 

XX 

XX 

BBBBBBBB 

uu 

UU   F 

FFFFFFf 

XX   XX 

XX   XX 

88     BB 

uu 

UU   F 

XX   XX 

XX   XX 

BB     BB 

uu 

UU   F 

XX      XX 

XX      XX 

BB     BB 

uu 

UU   F 

XX      XX 

XX      XX 

BB      BB 

uu 

UU   F 

XX      XX 

XX      XX 

BBBBBBBB 

UUUUUUUUUU   F 

XX      XX 

XX      XX 

BBBBBBBB 

UUUUUUUUUU   F 

SSSSSSSS 

TTTTT 

TFTTT 

SSSSSSSS 

TTTTT 

TTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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PAGE  2 

CREF   04.00 


MACRO  NAME 

CALL 

CALLR 

RETURN 

SWSTif.S 

TTAB$ 


REFERENCES 

6-158 
9-279 
6-160 
8-209 
#5-67 
5-89 
5-99 
5-109 
5-119 
5-129 


8-209 

7-170 

5  •80 

5-90 

5-100 

5-110 

5-120 

5-130 


8-213 

7-176 

5-81 

5-91 

5-101 

5-111 

5-121 

5-131 


8-219 
7-182 


8-240 
7-187 


5-82 

5-83 

5-92 

5-93 

5-102 

5-103 

5-112 

5-113 

5-122 

5-123 

5-132 

8-258 

10-295 

8-241 

8-259 

10-296 

5-84 

5-85 

5-86 

5-87 

5-88 

5-94 

5-95 

5-96 

5-97 

5-98 

5-104 

5-105 

5-106 

5-107 

5-108 

5-114 

5-115 

5-116 

5-117 

5-118 

5-124 

5-125 

5-126 

5-127 

5-128 
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MACRO  DEFINITIONS 

5U 
515 
516 

517  000722 

518  000726 

519  000730 

520  000732 

521  00073^ 

522  000736 

523  000742 
52A  000744 

525  000746 

526  000754 

527  000756 

528  000762 

529  000764 

530  000766 

531  000770 

532  000774 

533  000776 

534  001 000 

535  001004 

536  001006 

537  001012 

538  001020 
559  001022 

540  001024 

541  001026 

542  001032 
5'.3  001036 
544 
545 
546 

547  001040 
548 
549 
550 
551 
552 

553  001042 

554  001046 

555  001052 

556  001056 

557  001060 

558  001064 

559  001066 
560 
561 
562 
565 
56'. 

565  001070 

566  001072 


';  SECONDARY  LINKED  FILE 

005267 

000154' 

MXPTB: 

INC 

FLAGS 

005723 

TST 

(R3)  + 

010346 

MOV 

R3,-(SP) 
(r5)+,-(SP) 

112546 

MOVB 

122525 

CMPB 

(R5)+,(R5)t 
-2(P3!,R5 

016305 

177776 

MOV 

010546 

MOV 

R5,-(SP) 

011605 

10$: 

MOV 

(SP),R5 

126467 

000013  000152' 

CMPB 

L.UNT(R4), INDEX 

001003 

BNE 

20$ 

026405 

OOJ004 

CMP 

L.DDS(R4),R3 

001026 

BNE 

101$ 

005002 

20$: 

CLR 

R2 

152502 

BJSB 

(R5)+,R2 

122702 

OOOOOOG 

CMPB 

#.E0F,R2 

001404 

BEQ 

50$ 

106502 

ASLB 
CALL 

R2 
aTABLE-2(R2) 

000767 

BR 

20$ 

005267 

000152' 

30$: 

INC 

INDEX 

126667 

000002  000152' 

CMPB 

2(SP), INDEX 

001351 

BNE 

10$ 

022626 

CMP 

(SP)+,(5P)+ 

012603 

MOV 

(SP)+,R5 

005067 

000152' 

CLR 

INDEX 

005067 

000154' 

CLR 
RETURN 

FLAGS 

;  ERROR 

CONDITION 

101$: 

CRASH 

;  CURRENT  TIME 

016746 

OOOOOOG 

TIME: 

MOV 

2T1ME,-(SP) 

062716 

000002 

ADD 

#2,(SP) 

017616 

000000 

MOV 

a(SP),(SP) 

111623 

MOVB 

(SP),{R3>t 

116623 

000001 

MOVB 

1(SP),(R5)t 

005726 

TST 
RETURN 

(SP)  + 

;  ACTIVE  POLLING  RATIO  (APR)  -  BYTE 

005203 

APR: 

INC 
RETURN 

R3 

567 
568 
569 
570 


;  DEAD  POLLING  RATIO  (DPRB)  -  BYTE 


INDICATE  MUX  EXPANSION 

PO'NT  PAST  FIRST  LINE  TABLE  ADDRESS 

SAVE  OUTPUT  FILE  POINTER 

GET  REPEAT  COUNT 

SKIP  ALLOCATION  ADDRESL 

GET  FIRST  LINE  TABLE  ADDRESS 

SAVE  CURRENT  BINARY  FILE  POINTER 

RESTORE  BINARY  FILE  POINTER 

DO  UNIT  NUMBERS  MATCH  ? 

IF  NE,  NO 

IS  THE  LINE  TABLE  POINTER  CORRECT  ? 

IF  NE,  NO  ..  ERROR 

GET  FUNCTION  CODE 

Is'lT  END  OF  FILE  ? 

IF  EQ,  YES 

CONVERT  TO  A  WO  "^  INDEX 

EXPAND  A  FIELD 

GO  TILL  END  OF   ILE 

TALLY  ONE  PASS  IHRU  SECONDARY  FILE 

ARE  WE  DONE  ? 

IF  NE,  NO 

PURGE  STACK 

RESTORE  OUTPUT  FILE  POINTER 

CLEAR  SECONDARY  INDEX 

AND  SPECIAL  FLAGS 


;  LINE  TABLE  POINTER  (R3)  IS  SCREWED  UP 


GET  SZTIME  ADDRESS 

GET  $ZTIME+2  ADDRESS 

GET  $ZTIME+2  CONTENTS 

STORE  TIME  ;LAA5.01 

LAA3.01 
LAA5.01 
LAA5.01 
**-4 
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Table  of  contents 
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s- 

51 

MACRO  DEFINTIONS 

«s- 

80 

LOCAL  DATA 

1S- 

880 

X3CH 

16- 

938 

X2CH 
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LOCAL   DATA 


568 

569 

;  POINTER  TO  ALLOCATED  SCOM 

570 

571 

.ENA8L 

Lse, 

572  001132 

112524 

SCOM: 

MOVB 

(R5)+,(R4)t 

573  001 13A 

112524 

MOVB 

(R5)t,(R4)+ 

574  001136 

112546 

MOVB 

(R5)+,-(SP) 

575  001140 

112566 

000001 

MOVB 

(R5)+,1(SP) 

576  001144 

012603 

MOV 

(SP)+,R3 

577  001146 

001424 

BEQ 

20$ 

578  001150 

016400 

177776 

MOV 

-2(R4),R0 

579  001154 

010346 

MOV 

R3,-(SP) 

580  001156 

006203 

ASR 

R3 

581  001160 

005020 

10$: 

CLR 

(R0)  + 

582  001162 

S08 

R3,10$ 

583  001166 

012603 

MCV 

(SP)+,R3 

584  001170 

011146 

SAVALC 

MOV 

(R1),-(SP) 

585  001172 

586 

587  001176 

016446 

177776 

MOV 

-2(R4),-(SP) 

016711 

OOOOOOG 

MOV 

$UBJAS,(R1) 
$UDA,RO 

588  001202 

016700 

OOOOOOG 

MOV 

589  001206 

012620 

MOV 

(SP)+,(RO)+ 
R3,(R0)t 

590  001210 

010320 

MOV 

591  001212 

010067 

OOOOOOG 

MOV 

RO,$UDA 

592  001216 

012611 

MOV 

(SP)+,(R1) 

593  001220 

20$: 

RETURN 

594 


DSABL  LSB 


COPY  ADDRESS  OF  SCOM  ALLOCATION 

ASSEMBLE "count  OF  ALLOCATED 
BYTES,  WHICH  MUST  ALWAYS 
BE  EVEN  (BIT  0=0) 

IF  ZERO,  NO  UNLOAD  DATA  TO  STORE 

GET  SCOM  ADDRESS 

SAVE  BYTE  COUNT 

CONVERT  TO  A  WORD  COUNT 

ZERO  THE  ALLOCATED  SCOM 

restore" THE  BYTE  COUNT 
SAVE  THE  CURRENT  MAPPING 
SAVE  THE  ALLOCATION  ADDRESS 

MAP  TO  THE  UNLOAD  BLOCK 
GET  UNLOAD  DATA  ADDRESS 
STORE  ALLOCATION  ADDRESS 
STORE  COUNT 

SET  NEW  UNLOAD  DATA  ADDRESS 
RESTORE  OLD  MAPPING 
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SYMBOL  VALUE 


ADDRB 

ADDRW 

APR 

BLKB 

BLKW 

BYTE 

CORE 

CSR 

CTIM 

DECPT 

DPRB 

DPRW 

DVCHA 

DSLNUM 

EOF 

FILE 

FLAGS 

FL.DDM 

FL.DLC 

FL.KMX 

FL.MOX 

KBAD 

ICBLN 

ICBPT 

INDEX 


INT 
I$$AS 

LB.  ■•[)■) 

LFILt 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LIBR 

LINKS 

LN.CLO 

I  N.DUM 


000156  R 

000202  R 

002142 

000232 

0002A4 

000256 

001020 

000262 


000274  R 


GX 
R 
R 
R 


-   ****** 

002170 

002176 

000302 

OOOOU 

000A52 

OOUU  R 

000160  R 

=  »»*♦*»  GX 

=  «*»♦*♦  GX 

=  *♦«»»*  GX 

=  ♦****»  GX 

000166  R 

000174  R 

000170  R 

000156  R 


001222  R 


=   ****** 

001502  R 
=  100000 
=  000400 
=  000007 
=  002000 
=  001000 
=  000100 
-  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  000040 
=--  000010 
=  020000 
=  000000 
001652 
0OC454 
=  000000 
=  000005 


GX 
GX 


REFERENCES 

6-94 

6-95 

6-125 

6-96 

6-97 

6-98 

6-99 

6-100 

6-101 

8-443 

6-126 

6-127 

6-102 

8-444 

6-103 

6-104 
#6-170 

8-508 

8-300 

8-300 

8-429 

8-361 
#6-181 
#6-184 
#6-182 
#6-165 

8-510 

14-832 

6-105 

9-560 

11-600 

13-795 

6-108 
#5-58 
#5-58 
#5-58 

"5-58 
#5-58 
#5-58 
#5-58 
#5-58 
#5-58 
#5-58 
#5-58 
#5-58 
#5-58 
#5-58 
#5-58 
6-106 
6-107 

#5-58 

#5-58 


#8-300 

#8-310 

#14-859 

#8-321 

#8-330 

#8-339 

#9-535 

#8-345 

#8-352 

#14-871 
#14-877 
#8-358 

#8-399 

#12-717 

.7-260 

8-518 

8-310 

8-310 

8-386 
*7-263 
*7-264 
*7-262 
*7-259 

8-520 
*14-839 
#11-599 

11-603 

#12-739 


#13-778 
#8-404 
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8-363 

♦12-716 

8-359 


16-943 

11-703 
11-618 
8-365 
*n-727 
14-861 


11-654 


8-388 

.12-732 

8-384 


16-953 


11-702 
8-390 
12-728 
16-945 


11-669 


8-426 
.12-738 


16-963 


♦11-703 
8-428 

♦12-731 
16-955 


8-457 
♦12-772 


16-973 


8-459 

♦12-767 

16-965 


8-468 
.14-812 


16-983 


8-470 

12-768 

16-975 


8-480 
.14-840 


8-484 

♦  12-771 

16-985 


8-493 
14-859 


8-497 
♦14-831 
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MACRO  DEFINTIONS 

*** 
EXPANSION  ROUTINES 


280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293  000360 

005203 

294  000362 

295 

296 

297 

298 

299  000364 

005723 

300  000366 

301 

302 

303 

304 

305  000370 

005000 

306  000372 

152500 

307  000374 

001002 

308  000376 

012700  000400 

309  000402 

060003 

310  000404 

311 

312 

313 

314 

315  000406 

005000 

316  000410 

152500 

317  000412 

001002 

318  000414 

012700  000400 

319  000420 

006300 

320  000422 

060003 

321  000424 

322 

323 

324 
325 

326  000426 

122523 

327  000430 

328 

329 

330 

331 

332  000432 

333  000432 

062705  000006 

334  000436 

022323 

335  000440 

336 


WITH  THE  EXCEPTION  OF  ".DVCHA",  ".PECHA"  AND  ".SECSR",  ALL  PROCESSING 
CONSISTS  OF  UPDATING  THE  BINARY  BUFFER  POINTER  (R5)  AND  THE  LINE  TABLE 
POINTER  (R3). 


LOCAL  PHYSICAL  STATION  ADDRESS  (BYTE) 


ADDRB:   INC     R3 
RETURN 


■  LOCAL  PHYSICAL  STATION  ADI 

ADDRW:   TST 

RETURN 

(R3)  + 

;  ZERO  BYTE(S) 

BLKB:   CLR 
BISB 
BNE 
MOV 

10$:    ADD 

RETURN 

RO 

(R5)+,R0 
10$ 

#256., RO 
R0,R3 

•  ZERO  WORD(S) 

BLKU:   CLR 
BISB 
BNE 
MOV 

10$:    ASL 
ADD 
RETURN 

RO 

(R5)t,R0 

10$ 

#256., RO 

RO 

R0,R3 

;  SINGLE  BYTE 

BYTE:   CMP8 

RETURN 

(R5)+,(R3)t 

;  POINTER  TO  ALLOCATED  CORE 

CORE: 


ADD     #6,R5 

CMP     (R3)t,(R3)< 

RETURN 


GET  REPEAT  COUNT 
ZERO  BECOMES  256. 


GET  REPEAT  COUNT 
ZERO  BECOMES  256. 
2  BYTES  PER  WORD 


J  6 
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836  002030 

001411 

837  002032 

016700 

000350" 

838  002036 

126400 

000013 

839  002042 

001004 

840  002044 

006300 

841  002046 

016023 

000326' 

842  002052 

000401 

843  002054 

005723 

844  002056 

845 

846 

OOOC01 

BEQ 

10$ 

MOV 

INDEX, RO 

CMPB 

L.UNT(R4),R0 

BNE 

10$ 

ASL 

RO 

MOV 

PR2HLD(R0),(R3)+ 

BR 

20$ 

10$: 

TST 

(R3)t 

20$: 

RETURN 

NO  .. 

GET  SECONDARY  FILE  COUNTER 

DO  UNIT  NUMBERS  MATCH  ? 

NO  .. 

CONVERT  TO  A  WORD  INDEX 

STORE  HOLDBACK  TIMER 

AND  EXIT 


.END 
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188 

+ 

189 

FNDADD  -  FIND 

LINE  TABLE  ADDRESS 

190 

191 

INPUTS: 

192 

R1  =  VECTOR  ADDRESS 

193 

194 

OUTPUTS: 

195 

$ADDR  = 

LINE  TABLE  ADDRESS 

196 

R1  =  PRESERVED 

197 

R2  =  DESTROYED 

198 

199 
200 
201  C00274 

" 

NDADD: 

202 

.IF  DF 

M$$MGE 

203 

.IF  DF  R$$MPL 

204 

SWSTKS 

20$ 

■ 

205 

.IFTF   ;  DF 

R$$MPL 

206 

207  000274 

208 

209  000276 

011102 

MOV 

(R1),R2 

010267 

OOOOOOG 

MOV 

R2,$ADDR 

210  000302 

066702 

OOOOOOG 

ADD 

$ICBLN,R2 

211  000306 

162702 

000004 

SUB 

#4,R2 
#4537, (R2) 

212  000312 

022712 

004537 

CMP 

213  000316 

001405 

BEQ 

10$ 

214  000320 

022722 

000137 

CMP 

#137,(R2)+ 

215 

.IFT    ;  DF 

R$$MPL 

216 

BEQ 

5$ 

217 

CLR 

R2 

218 

BR 

10$ 

219 

.IFF    ;  DF 

R$$MPL 

220  000324 

001003 

BNE 

101$ 

221 

.IFTF   ;  DF 

R$$MPL 

222  000326 

011267 

OOOOOOG 

5$: 

MOV 

(R2),$ADDR 

223  000332 

10$: 

.IFT    ;  DF 

R$$MPL 

224 

MOV 

R2,6(SP) 

225 

RETURN 

226 

221 

20$: 

TST 

R2 

228 

BEQ 

101$ 

229 

.ENDC   ;  DF 

R$$MPL 

230  000332 

231 

232 

RETURN 

.IFF 

;  DF  M$$MGE 

233 

234 

MOV 

(R1),R2 

235 

CMP 

#453?, (R2) 

236 

BNE 

101$ 

237 

MOV 

R2,$A0DR 

238 
239 

240 
241 
242 

RETURN 

.ENDC 

;  DF  M$f."GE 

;  ERROR 

CONDITIONS 

24  5 

ioi$: 

244  C00334 

CRASH 

; 

*  ENTER  KERNEL  MODE 

*  POINT  AT  ICB  OR  LINE  TABLE 

*  ASSUME  VECTOR  POINTS  AT  LINE  TABLE 

*  POINT  TO  KEY  WORD  IN  ICB 

*  iF'"JSR  R5,X",  THEN  LINE  TABLE  ADDRESS 

*  iF""JMP  LINE-TABLE",  THEN  LINE  TABLE 

*  ..ADDRESS  IS  NEXT  WORD 

*  ELSE,  ERROR 

*  ... 

..ADDRESS  IS  NEXT  WORD,  ELSE  ERROR 

»  SAVE  REAL  LINE  TABLE  ADDRESS 

»  RETURN  LINE  TABLE  ADDRESS  IN  R2 
»  BACK  TO  USER  MODE 

SUCCESS  ? 
IF  EQ,  NO 


GET  ADDRESS  OF  LINE  TABLE 

MUST  BE  "JSR  R5,X" 

IF  NE,  ERROR 

SAVE  ADDRESS  OF  LINE  TABLE 


WHAT  IS  R2  POINTING  AT  ?? 
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106 
107 
108 
109 
110 

111  000002 

112  000002 

113  000002 
IK  000002 

115  000002 

116  000002 

117  000002 

118  000002 

119  000002 

120  000002 

121  000002 

122  000002 

123  000002 

124  000002 

125  000002 

126  000002 

127  000002 

128  000002 
129 

130 
131 

132  000002 

133  000002 

134  000002 

135  000002 

136  000002 

137  000002 

138  000002 

139  000002 

140  000002 

141  000002 

142  000002 

143  000002 

144  000002 

145  000002 

146  000002 

147  000002 

148  000002 

149  000002 

150  000002 

151  000002 

152  000002 

153  000002 

154  000002 

155  000002 

156  000002 

157  000002 

158  000002 

159  000002 

160  000002 

161  000002 

162  000002 


.SBTTL  OPERATOR  KEYWORDS  STATE  TABLES 


;  OPERATOR  KEYWORDS 


STATES  OPERATOR 

TRANS  "ADDRB",N0NE,SADDR8 

TRANS  'BLKB",BLKB 

TRANS  "BYTE",BYTE,,F2.BYT,SFLAG2 

TRANS  "CN8",N0NE,SCNB 

TRANS  "END",E0F,,F2.END,SFLAG2 

TRANS  "file'', FILE 

TRANS  "0DD",NONE,SODD 

TRANS  "SLNB  ,N0NE,SSLN8 

TRANS  "STNB",NONE,SSTNB 

TRANS  "UMR",UMR 

TRANS  "UNB",NONE,$UNB 

TRANS  "VFY",VFY 

TRANS  "APR", NONE, SAPR 

TRANS  "DPRB  '  N0NE,SDPR8 

TRANS  "X3CHB ',X3CHB 

TRANS  "X2CHB",X2CHB 

TRANS  SLAMDA,, SEVEN 

WORD  ALIGNED  OPERATORS 

STATES 

TRANS  "ADDRW",NONE,$ADDRW 

TRANS  'BIN",BIN 

TRANS  "8LKW'',BLKW 

TRANS  "CNW",NONE,SCNW 

TRANS  "CORE  '.CORE 

TRANS  "CSR",CSR 

TRANS  "CTIM  ,NONE,SCTM 

TRANS  "DVCHA  ',NONE,$DVCHA 

TRANS  "EVEN", NONE 

TRANS  "INT1",INT,SINT1 

TRANS  "INT2",INT,SINT2 

TRANS  "INT3",INT,SINT3 

TRANS  "INT".INT,SINT 

TRANS  "LIBR  '.LIBR 

TRANS  "LINKS  ', NONE, SLINKS 

TRANS  "LF!LE",LFILE 

TRANS  "LFLHD",NONE,SLFLHD 

TRANS  "LSTHD",NONE,SLSTHD 

TRANS  "L TAB", NONE, SL TAB 

TRANS  "MPLHD  ,NONE,$MPLHD 

TRANS  "/»IPTAB",MPTAB 

TRANS  "MXTAB",MXTAB 

TRANS  "NODE", NONE, SNOD 

TRANS  "PECHA  ',NONE,SPECHA 

TRANS  "POOL",SCOM 

TRANS  "PRI",PRI 

TRANS  "PRTOV",PRTOV 

TRANS  "SCOM",SCOM 

TRANS  "SECSR  ,NONE,$SECSR 

TRANS  "SLNW",NONE,SSLNW 
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TMPSTB     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:46 
SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

M$$MGE 

=  000000 

9-186 

SALPHA 

=  000022 

#7-75 

SANY 

=  000020 

#7-75 

SBLANK 

=  000006 

#7-75 

SDIGIT 

=  00002A 

#7-75 

SDNUMB 

=  OOOOU 

#7-75 

SEOS 

=  000012 

#7-75 

$Exr 

=  000000 

#7-75 

SFAIL 

=  177777 

#7-75 

SGPRM 

-  ****** 

7-75 

SLAMDA 

=  000000 

#7-75 

SNUMBR 

=  000002 

#7-75 

$RAD50 

=  000016 

#7-75 

SRONLY 

r  ****** 

7-75 

SSTRNG 

=  000004 

#7-75 

SSUBXP 

=  000010 

#7-75 

STMPKU 

000000 

Rfi 

#7-75 

STMPST 

000000 

RG 

#7-75 

STPARS 

000000 

RG 

#6-67 

$S$FLG 

=  177777 

#7-75 

$$S<EY 

=  177777 

#7-75 

10-238 


12-305 


I  10 
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CREF   04.00 
U-386 


16-506 


7-75 


7-75 
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A^9 
450 
i;51 
A52 
453 
45A 
455 
456 
457 
458 
459 

460  000642 

461  000642 

462  000646 
463 

464  000652 

465  000654 

466  000656 

467  000662 

468  000664 

469  000664 

470  000666 

471  000672 

472  000676 

473  000702 
474 

475 
476 

477  000704 

478  000706 

479  000710 

480  000714 

481  000716 

482  000720 

483  000722 
484 

485  000724 

486  000726 

487  000732 

488  000740 

489  000744 

490  000746 

491  000750 

492  000752 
493 

494 
495 

496  000754 

497  000762 

498  000770 
499 

500 
501 


**♦  -  MANIN]  -  INITIALIZE  MANAGEMENT  FIELDS  OF  SLT 

INPUTS: 

RO  =  SLT  ADDRESS 

OUTPUTS: 

R1,R2  =  DESTROYED 


017702  OOOOOOG 
017701  OOOOOOG 

022100 
001403 


005741 

167701  OOOOOOG 

067701  OOOOOOG 

116002  000014 

001424 


010246 

010002 

062702  000022 

011101 

100401 

006301 

105721 

112162  000003 

112762  000001  000002 

062702  000004 

005316 

003366 

005726 

000406 


116160  000001  000021 
112760  000001  000020 


000001 


MANINI: 


10$: 


MOV 
MOV 


aSLTNM,R2 
aSLTMA,R1 


20$: 


CMP  (R1)+,R0 

BED  20$ 

soe  R2,10$ 
CRASH 


TST 

SUB 

ADD 

MOVB 

BEQ 


-(R1) 

aSLTMA,Rl 

aLLCTA,R1 

L.NSTA(R0),R2 

50$ 


MULTI-POINT  LINE 

MOV  R2,-(SP) 

MOV  R0,fi2 

ADD  #L.MPF,R2 

MOV  (RD.RI 

BMI  30$ 
CRASH 

30$:    ASL  R1 

40$:    TST8  (Rl)+ 

MOVB  (R1)+,S.0WNR(R2) 

MOVB  #LN.0FF,S.NMST(R2) 

ADD  #S.LEN,R2 

DEC  (SP) 

B6T  40$ 

TST  (SP)+ 

BR  60$ 

PT-TO-PT  LINE 

50$:    MOVB  1(R1),L.OUNR(R0) 

MOVB  #LN.OFF,L.NMST(R0) 
60$:    RETURN 


.END 


GET  NUMBER  OF  LINES  IN  SYSTEM 
POINT  TO  SLT  MAPPING  TABLE 

FIND  SLT  POINTER  IN  TABLE 
IF  EQ,  GOT  IT 
ELSE,  KEEP  LOOKING 
#$X?a  -  NOT  FOUND  ?? 

BACK  UP 

CALCULATE  SLN*2 

POINT  AT  ENTRY  IN  LLC  TABLE 

GET  NUMBER  OF  TRIBUTARIES 

IF  EQ,  NONE  ..  PT-TO-PT 


SAVE  NUMBER  OF  TRIB  ON  STACK 
POINT  TO  START  OF  TRIBUTARIES 

GET  ADDR/2  OF  MULTI-POINT  TABLE 
MAKE  SURE  SIGN  BIT  IS  SET  I  I 
ELSE,  CONSISTENCY  ERROR 
FORM  REAL  ADDRESS 

SKIP  LLN 

FILL  IN  OWNER 

AND  INITIAL  STATE  IS  OFF 

NEXT  TRIBUTARY 

ANY  MORE  ? 

IF  GT,  YES 

ELSE,  CLEAN  UP  STACK 

AND  RETURN 


FILL  IN  OWNER 

AND  INITIAL  STATE  IS  OFF 
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SYMBOL    CROSS   REFERENCE 
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PAGE    1 

CREF        0^.00 


SYMBOL 

VALUE 

REFERENCES 

A$LEN 

000004 

6-77 

DECPT 

=  »«»«**  GX 

6-73 

OSNBEA 

000056 

6-76 

DSNBRA 

000054 

6-75 

OINLN 

000030 

6-74 

ESNBR 

OOOOH 

#5-52 

ESNBS 

000020 

#5-52 

E$NCR 

000034 

#5-52 

EtNCS 

000036 

#5-52 

ESNIC 

000044 

#5-52 

ESNLEN 

000050 

#5-52 

ESNlLA 

000012 

#5-52 

ESNLNK 

000000 

#5-52 

E$NML 

000040 

#5-52 

E$NMR 

000024 

#5-52 

ESNMS 

000030 

#5-52 

ESNNOD 

000002 

#5-52 

E$NRT 

000042 

#5-52 

ESNRTP 

000005 

#5-52 

ESNSEG 

000010 

#5-52 

ESNTIM 

000046 

#5-52 

ESNUSE 

000004 

#5-52 

ESSTRT 

000006 

#5-52 

I$$AS 

=   ****** 

6-81 

6-96 

6-106 

6-114 

NSADJI 

000072 

6-71 

6-82 

N$ADJ2 

000074 

^■-87 

NSMHCl 

000036 

^.-91 

6-97 

NSMHC2 

000044 

6-92 

N$R0A1 

000022 

6-111 

6-115 

N$R0A2 

000030 

6-112 

N$TLC 

000100 

6-102 

6-107 

R$$EIS 

=  ****** 

6-81 

6-96 

6-106 

6-114 

R$$11D 

r  ****** 

6-81 

6-96 

6-106 

6-114 

TSFLAG 

000044 

#5-52 

TSLIF 

000013 

#5-52 

TSLIFL 

000013 

#5-52 

TSLIFO 

000013 

#5-52 

TSLIFS 

000013 

#5-52 

TSLIN 

000000 

#5-52 

TSLIPS 

000006 

#5-52 

T$LLD 

000012 

#5-52 

TSLLDC 

000045 

#5-52 

TSLLDL 

000012 

#5-52 

TSLLDO 

000012 

#5-52 

TSLLDS 

000012 

#5-52 

TSLLEN 

000046 

#5-52 

6-101 

TSLOPR 

000002 

#5-52 

TSLTCL 

000024 

#5-52 

TSLTIM 

000026 

#5-52 

TSLTPR 

000014 

#5-52 

rSLTPS 

000020 

#5-52 

TSMAPL 

000004 

#5-52 

UNLHC 
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295 
296 
297 
298 
299 
300 
301 
302 
303 
30^ 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3U 
315 
316 
317 
318 


.SBTTL  XX29  -  DEALLOCATE  X.29  DATA  BLOCK 

XX29  -  DEALLOCATE  X.29  DATA  BLOCK 

INPUTS 

NONE 

OUTPUTS 

RO,  R1,  R2  DESTROYED 

THE  X.29  DATA  BLOCK  IS  DEALLOCATED 


.IF  NDF  I$$AS 


000560  017701   0000006        XX29: 

00056^  016100  0000^0 

000570  00U06 

000572  005061  000040 

000576  012701  000016 

000602 

000606  10$: 


MOV 

SPSIPT,R1 

MOV 

H$X29C(R1) 

BED 

10$ 

CLR 

H$X29C(R1) 

MOV 

#Q$LEN,R1 

CALL 

$DEA16 

RETURN 

,R0 


POINT  TO  HOME  BLOCK 
GET  X.29  BLOCK  ADDRESS 
IF  EQ,  NOTHING  TO  DO 
FORGET  POINTER 
GET  SIZE  OF  BLOCK 
DEALLOCATE  IT 
AND  RETURN 


.ENDC 
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123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

l^'S 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

153 

159 

160 

161 


.SBTTL   FNCTB  -  FIND  CTB  ADDRESS 

FNCTB  -  FIND  CTB  ADDRESS 
INPUT: 


R4  =  DDM  PDV  ADDRESS 


OUTPUT: 


R1  =  CTB  ADDRESS 
R0,R2=DESrROYED 


FNCTB: 


10$: 


.IF  DF 

R$$MPL 

MOV 

Z.NAM(R4),CTBSYM+2 
#$CXUIC,RO 

MOV 

MOV 

#CErNAM,R1 

MOV 

#STSEXT,R2 

CALL 

SAZFS 

MOV 

#CTBLK,RO      ; 

CALL 

SSYMBL 

BCS 

101$ 

TST 

CrBLK+2 

BEQ 

111$ 

SUSTKS 

10$ 

MOV 

aNTLPT,RO 

CALL 

$MAPX 

MOV 

.CXALL(R2),R1 

ADD 

CTVAL.Rl       ;. 

MOV 

R1,6(SP) 

RETURN 

ERROR  CONDITIONS 


101$: 
111$: 


CRASH 
CRASH 
.ENDC 


;  STORE  2ND  HALF  OF  NAME  "$CTXXX' 
GET  THE  COMM  EXEC  UIC 
FORM  FILE  SPEC  "[XX,5X]CETAB.STB" 


POINT  AT  SYMBOL  BLOCK 

LOOK  FOR  SYMBOL  IN  STB  FILE 

IF  CS,  ERROR 

SYMBOL  DEFINED  ? 

IF  EQ,  NO 

ENTER  KERNEL  MODE 

GET  NTL  HOME  BLOCK  BIAS 

MAP  TO  NTL  HOME  BLOCK 

GET  START  ADDRESS  OF  CETAB 

CALCULATE  ADDRESS  OF  CTB 

RETURN  CTB  ADDRESS  IN  USER  Rl 

REMEMBER  -  MAPX  ADDS  ONE  WORD  TO  SP 

BACK  TO  USER  MODE  AND  TO  CALLER 


NEVER  SHOULD  HAVE  GOT  HERE  1 ! I 
CETAB  FORGOT  TO  DEFINE  SYMBOL 


J   U 
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80 
81 
82 
83 
84 
85 
86 
87 


89 

90  000000 

91  000000 

042702 

177700 

92  000004 

010267 

000000' 

93  000010 

005067 

000002' 

94  000014 

005067 

000004' 

95  000020 

017767 

OOOOOOG  000006' 

96 

97  000026 

98 

99  000032 

100  000036 

056702 

000000' 

101  000042 

105362 

OOOOOOG 

102  000046 

001041 

103  000050 

005012 

104  000052 

016267 

OOOOOOG  000002' 

105  000060 

016267 

OOOOOOG  000000' 

106  000066 

042702 

000077 

•7  000072 

026700 

000006' 

08 

109  000076 

001425 

110  000100 

005362 

000002 

111  000104 

001022 

112  000106 

113 

114  000110 

011246 

010067 

000004' 

115  000114 

116 

117  000120 

016711 

000006' 

026200 

OOOOOOG 

118  000124 

001003 

119  000126 

012662 

OOOOOOG 

120  000132 

000407 

121 

122  000134 

016211 

OOOOOOG 

123  000140 

000401 

124  000142 

011211 

125 

126  000144 

021200 

127  000146 

001375 

128  000150 

012612 

129  000152 

130 

131  000152 

132  000152 

133 

134  000154 

016700 

000002' 

135  000160 

001404 

136  000162 

016701 

000000' 

$XL8R 
INPUTS; 


RELEASE    LIBRARY   REFERENCE 


R0=LI8RARY  DESCRIPTOR  BIAS 

R2=LI9RARY   DESCRIPTOR   OFFSET    INTO  BLOCK 

OUTPUTS: 

R0,Rl,R2=DESTROYfD 


ixLBR:: 


10$: 
20$: 
30$: 

40$: 
50$: 

60$: 


BIC 
MOV 
CLR 
CLR 
MOV 


#»C<77>,R2 

R2,L8ADR 

LBALL 

LBJAS 

51NTLPT,NLBLK 


SWSTK$  60$ 


CALL 

BIS 

DECS 

BNE 

CLR 

MOV 

MOV 

BIC 

CMP 

BEQ 
DEC 
BNE 
MOV 

MOV 
MOV 

CMP 
BNE 
MOV 
BR 

MOV 

BR 

MOV 

CMP 
BNE 
MOV 


RETURN 

MOV 
BEQ 
MOV 


USE  ONLY  LOW  6  BITS  OF  OFFSET 

SAVE  OFFSET  VALUE 

NO  LIBRARY  TO  DE-ALLOCATE 

NO  LIBRARY  BLOCK  TO  DE-ALLOCATE 

SAVE  NETLDR  DATA  BLOCK  BIAS 

*  ENTER  KERNEL  MODE 

*  MAP  TO  LIBRARY  DESCRIPTOR 
»  RESTORE  LOW  6  BITS  OF  ADDRESS 

*  DECREMENT  USE  COUNT 

*  IF  NE,  STILL  SOME  ACTIVE  REFERENCES 

*  ZERO  THE  FIRST  WORD  OF  DESCRIPTOR 
;«  SAVE  LIBRARY  BIAS  AND  SIZE  FOR  LATER 

'*   RESET'tO  start  of  32.  WORD  BLOCK 

*  WAS  DESCRIPTOR  WITHIN  NETLDR  DATA  BLOCK? 

*  IF  EQ,  YES 

*  ADJUST  DESCRIPTOR  COUNT  FOR  THIS  BLOCK 
»  IF  NE,  BLOCK  IS  STILL  ACTIVE 

*  SAVE  POINTER  TO  NEXT  BLOCK 

*  SAVE  BIAS  OF  THIS  BLOCK 

*  MAP  TO  THE  DATA  BLOCK 

*  IS  OURS  THE  FIRST  LIBRARY  BLOCK? 

*  IF  NE,  NO 
;*  SET  NEW  FIRST  LIBRARY  BLOCK  ADDRESS 


$MAPX 

LBADR,R2 

L6.USE(R2) 

50$ 

(R2) 

LB. ADR(R2), LBALL 

LB.SIZ(R2),LBSIZ 

#77, R2 

NL8LK,R0 

50$ 
2(R2) 
50$ 
(R2),-(SP) 

RO.LBIAS       ; 
NLBLK,(R1)      ; 

.CXL8R;R2),R0 
10$ 

(SP)t,.CXLBR(R2) 
40$  ;* 

.CXL8R(R2),(R1)  ;*  MAP  TO  THE  FIRST  LIBRARY  BLOCK 
30$  ;  * 

'    '        ;«  MAP  TO  THE  NEXT  LIBRARY  BLOCK 


(R2),(R1) 

(R2),R0 

20$ 

(SP)t,(R2) 


LBALL, RO 

70$ 

LBSJZ.RI 


DOES  THIS  BLOCK  POINT  AT  OURS? 

IF  NE,  NO 

CHANGE  POINTER  TO  NEXT  BLOCK 


;*  BACK  TO  USER  MODE 

;  GET  LIBRARY  BIAS 

;  IF  ZERO,  NO  WORK  TO  DO 

;  GET  LIBRARY  SIZE 
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.TITLE  XXSUf  -  END  OF  TASK  BUFFER  INITIALIMTION 
.IDENT  /V05.00/ 

COPVRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

END-OF-TASK  BUFFER 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISiORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  Vt.O 
0ECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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571 

57<?  001074     005203 

573  001076 

574 

575 

576 

577 

578  001100  005723 

579  001102 


DPR8: 


INC     R3 
RETURN 


DEAD  POLLING  RATIO  (DPRW)  -  WORD 


DPRW: 


TST     (R3)t 
RETURN 
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.TITLE   T|V|PEX6  -  NTL  TEMPLATE  EXPANSION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  END  OF  PROCESS  LINE  TABLE  EXPANSION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DFCnet-IIM-PLus   V3.0 
DECnet-Muro/RSX  Vl.O 
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LOCAL  DATA 


596 
597 
598 

599  001222 

600  001226 

601  001232 

602  001236 

603  001242 

604  001246 

605  001252 

606  001254 
607 

608 
609 
610 

611  001256 

612  001262 

613  001266 

614  001272 

615  001276 

616  001302 

617  001306 

618  001312 
619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 


012724  013746 

016724  OOOOOOG 

012724  012737 

016724  000202' 

016724  OOOOOOG 

012724  004537 
112524 
112524 


INTERRUPT  ENTRy  POINT 


INT: 


016700 
016746 
066016 
062716 
042716 
056716 
016703 
066703 


000172' 

OOOOOOG 

OOOOOOG 

OOOOOOG 

160000 

000154' 

OOOOOOG 

000170' 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

M0V8 


SET  UP  KB 

MOV 
MOV 
ADD 
ADD 
BIC 
BIS 
MOV 
ADD 


10$: 


20$: 


.IFTF 


#13746, (R4)+ 
KSAfi5,(R4)+ 
#1273?, (R4)+ 
PR81AS,(R4)+ 
KSAR5,(R4)t 
#4537, (R4)+ 
(R5)+,(R4)+ 
(R5)t,(R4)*- 


NXTLN,RO 

$ADDR,-(SP) 

$VECT1(R0),(SP) 

#$JSROF,(SP) 

#160000, (SP) 

PRAPR,(SP) 

$IC8AD,R3 

IC8PT,R3 


.IF  DF  R$$MPL 


MOV 

(R1),-(SP) 

MOV 

R2,-(SP) 

CLR 

-(SP) 

TST8 

aNCPU         ; 

BEQ 

20$ 

MOV 

PRSLTA,R2 

MOV 

L.KRBA(R2),R2 

ADD 

#K.PRM,R2 
(R2),rJ 

MOV 

BEQ 

30$ 

MOV 

R2,R3 

BIC 

#7?77, R2 

BIC 

R2,R3 

SWAB 

R2 

ASR 

R2 

ASR 

R2 

ASR 

R2 

MOV 

K6TA8,TEMP 

ADD 

R2,TEMP 

MOV 

aTEMP,(Rl) 

ASL 

R3 

BIS 

#120000, R5 

MOV 

R3,(SP) 

ADD 

ICBPT,R3 

TST 

(R3)t 

STORE  MOV  a#KISAR5,-(SP) 
STORE  '"'MOV  BIAS,a#KISAR5" 

STORE  '"'JSR  R5,a#ENTRY" 


GET  COUNT  OF  CURRENT  ".INT"  *  2 
GET  ADDRESS  OF  LINE  TABLE  ON  STACK 
ADD  IN  THE  DISPLACEMENT  VALUE 
..  AND  SKIP  TO  THE  JSR  INSTRUCTION 
MAKE  SURE  WE  USE  KERNEL  APR5 

GET  ADDRESS  OF  KB 

ADD  IN  THE  DISPLACEMENT  FOR  CURRENT  KB 


SAVE  CURRENT  MAPPING 

SA  E  CURRENT  BASE  ADDRESS 

SAvE  PLACE  FOR  KB  POINTER 

IS  THIS  A  MULTIPROCESSOR  SYSTEM 

IF  EQ,  NO 

GET  THE  SLT  ADDRESS 
TO  GET  THE  KRB  ADDRESS 
GET  START  OF  KB  CHAIN 
GET  NEXT  KB 
IF  EQ,  NO  MORE 

COPY  KB  LINK  POINTER 
CLEAR  OUT  ALL  BUT  CPU  NUMBER 
CLEAN  OUT  CPU  NUMBER 
FORM  CPU  NUMBER*2 


COPY  $K6TAB  ADDRESS 

GET  CORRECT  CPU  BIAS  ADDRESS 

COPY  CPU  BIAS 

CONVERT  KB  POINTER  TO  VIRTUAL  ADDRESS 

FORCE  APR5  MAPPING 

NOTE  -  FOR  11M+,  ASSUME  APR5  IS  LOW  APR 

SAVE  KB  POINTER 

ADD  IN  THE  DISPACEMENT  TO  CURRENT  KB 

SKIP  THE  LINK  POINTER 
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CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

LN.LOA 

=  000004 

#5-58 

LN.LOO 

=  000003 

#5-58 

LN.OAU 

=  000003 

#5-58 

LN.OFF 

=  000001 

#5-58 

LN.ON 

=  000000 

#5-58 

LN.OOP 

=  000004 

#5-58 

LN.OPE 

=  000001 

#5-58 

LN.REF 

=  000002 

#5-58 

LN.SER 

=  000002 

#5-58 

LN.STA 

=  000017 

#5-58 

LN.SUB 

=  000360 

#5-58 

LN.TRl 

=  000006 

#5-58 

LSTHD 

000462 

R 

6-109 

#8-410 

LTAB 

000500 

R 

6-110 

#8-420 

L.COST 

000015 

#5-58 

L.CTL 

000012 

#5-58 

L.CVA 

177776 

#5-58 

.8-371 

L.DDM 

000002 

#5-58 

L.DDS 

000004 

#5-58 

L.DLC 

000003 

#5-58 

L.DLM 

000006 

#5-58 

L.DLS 

000010 

#5-58 

L.FLG 

000000 

#5-58 

L.KRBA 

000016 

#5-58 

L.LEN 

=  000022 

#5-58 

L.MPF 

000022 

#5-58 

L.NMST 

000020 

#5-58 

L.NSTA 

000014 

#5-58 

L.OWNR 

000021 

#5-58 

L.'JNT 

000013 

#5-58 

MP  TAB 

001474 

R 

6-111 

#12-738 

MXPTB 

001754 

R 

6-129 

#14-812 

MXTAB 

001406 

R 

6-112 

#12-716 

NOD 

000554 

R 

6-113 

#8-443 

NXTLN 

000172 

R 

#6-183 

»7-261 

11-611 

«11-701 

PAPR 

000432 

R 

#6-224 

14-862 

PECHA 

000404 

R 

6-130 

#8-383 

PRAPR 

000154 

R 

#6-152 
*14-837 

7-281 

8-412 

11-616 

PRBIAS 

000202 

R 

#6-191 

11-602 

11-668 

PRCSR 

000342 

R 

#6-219 

8-|^^ 

PRCTIM 

000222 

R 

#6-199 

8-352 

PRDCHA 

000556 

R 

#6-228 

8-373 

8-374 

PRDOPV 

000256 

R 

#6-216 

PRDEV 

000214 

R 

#6-196 

PRDLPV 

000254 

R 

#6-215 

PRDPR 

0005' 

R 

#6-225 

14-871 

14-877 

PRFLAG 

000162 

R 

#6-175 

•7-271 

8-300 

8-310 

PR  I 

001374 

R 

6-114 

#11-709 

PRiNC 

000206 

R 

#6-194 

PRLINX 

000220 

R 

#6-198 

8-404 

PRLSAD 

001224 

R 

#6-232 

8-302 

8-313 

12-757 


12-761 


12-765 


14-814 


04-816 


8-359 


8-361 


8-384 


8-386 


8-429 
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337 

338 

;  CSR 

339 

; 

340  000442 

005205 

CSR:    INC     R5 

341  000444 

005723 

TST     (R5)+ 

342  000446 

343 

344 

345 

346  000450 

RETURN 

;  COUNTER  TIMER 

005723 

CTIM:   TST     (R5)+ 

347  000452 

RETURN 

348 
349 
350 

;  DEVICE  CHARACTERISTICS 

351 

352  000454 

005767 

000352' 

DVCHA:   TST     FLAGS          ;  IS  IT  MUX  EXPANSION  ? 

353  000460 

001417 

BEQ     10$ 

NO  .. 

354  000462 

126467 

000013  000350' 

CMPB    L.UNT(R4), INDEX 

DO  UNIT  NUMBERS  MATCH  ? 

355  000470 

001013 

BNE     10$ 

NO  .. 

356  000472 

SAVRG   R2 

SAVE  REG 

357  000474 

016702 

OOOOOOG 

MOV     $SLTSV,R2 

COPY  SLT  ADDRESS 

358  000500 

010362 

177776 

MOV     R3,L.CVA(R2) 

STORE  VIRTUAL  ADDRESS  POINTER 

359  000504 

RESRG   R2 

RESTORE  REG 

360  000506 

016723 

000214' 

MOV     PRDCHA,(R3)+ 

COPY  DEVICE  CHARACTERISTICS 

361  000512 

016723 

000216' 

MOV     PRDCHA+2,(R3)+ 

TWO  WORDS 

362  000516 

000401 

BR     20$ 

363  000520 

022523 

10$:    CMP     (R3)+,(R3)+ 

364  000522 

20$:    RETURN 

365 
366 
367 
368 
369  000524 

■  PROTOCOL  EMULATOR  CHARACTERISTICS 

005767 

000352' 

PECHA:   TST     FLAGS 

IS  IT  MUX  EXPANSION  ? 

370  000530 

001407 

BEQ     10$ 

NO  .. 

371  000532 

126^67 

000013  000550' 

CMPB    L.UNT(R4), INDEX 

•  DO  UNIT  NUMBERS  MATCH  ? 

372  000540 

001005 

BNE     10$ 

•  NO  .. 

373  000542 

016723 

000224' 

MOV     PRPCHA,(R3)+ 

•  COPY  PROTOCOL  EMULATOR  CHARACTERISTICS 

374  000546 

000401 

BR     20$ 

375  000550 

005723 

10$;    TST     (R3)+ 

376  000552 

20$:    RETURN 

377 

378 

379 

;  END  OF  FILE 

580 

381  000554 

EOF:    CRASH 

582 

f 

585 

384 
585 

386  000556 

■  INTERRUPT  ENTRr  POINT 

122525 

INT:    CMPB    {R5)+,(R5)t 

587  000560 

062705 

000016 

ADD     *14.,R5 

588  000564 

RETURN 

589 

590 
591 
392 

593  C00566 

;  LIBRARY  POINTER 

LIBR: 
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Symbol   table 


ADDRB 

000360R 

K$$LDC= 

ADDRW 

000364R 

K$$TPS= 

APR 

001346R 

K.CSR 

A$SCHK= 

000000 

K.PRI 

A$$CPS= 

000000 

K.VCT 

AS$PR1= 

000000 

LDSLP  = 

A$$TRP= 

000000 

LFILE 

3LKB 

000370R 

LF.ACT= 

3LKU 

000406R 

LF.BRO= 

BLOCK 

000360R 

002  LF.BWT= 

BYTE 

000A26R 

LF.ENA= 

CORE 

000432R 

LF.LPB= 

CSR 

000442R 

LF.MDC= 

CTIM 

000450R 

LF.MFL= 

C$$CKP= 

000000 

LF.MTP= 

C$$ORE= 

000400 

LF.PAC= 

C$$RSH= 

177564 

LF.RDY= 

DPRB 

001352R 

LF.REA= 

DPRW 

001356R 

LF.SER= 

DVCHA 

000454R 

LF.TIM= 

D$$BUG= 

177514 

LF.UNL= 

D$S1S<= 

000000 

LF.X2P= 

o$$Ln  = 

000001 

LIBR 

0$$YNC= 

000000 

LINKS 

D$$YNM= 

000000 

LN.CL0= 

EOF 

000554R 

LN.DUM= 

E$$XPR= 

000000 

LN.LOA= 

FILE 

001002R 

LN.LOO= 

FLAGS 

000352R 

002  LN.OAU= 

FLT 

001362R 

LN.0FF= 

FLT16 

001362R 

LN.ON  = 

FL.KMX= 

«*«*«*  GX 

LN.OOP= 

F$$LVL= 

000001 

LN.OPE= 

G$$TPP= 

000000 

LN.REF= 

G$$TSS= 

000000 

LN.SER= 

G$$TTK= 

000000 

LN.STA= 

GS$WRD= 

000000 

LN.SUB= 

INDEX 

000350R 

00?  LN.TRI= 

INT 

000556R 

LSTHD 

I$$RAR= 

000000 

LTAB 

I$$RDN= 

cooooo 

L$$ASG= 

K$$CNT= 

177546 

L$$DRV= 

K$$CSR= 

177546 

L$$P11= 

000000 

L$$11R= 

000000 

000074 

L.COST 

000015 

000002 

L.CTL 

000012 

000000 

L.CVA 

177776 

000001 

L.DDM 

000002 

000000 

L.DDS 

000004 

001112R 

L.DLC 

000003 

100000 

L.DLM 

000006 

000400 

L.DLS 

000010 

000007 

L.FLG 

000000 

002000 

L.KR8A 

000016 

001000 

L.LEN  = 

000022 

000100 

L.MPF 

000022 

004000 

L.NMST 

000020 

000020 

L.NSTA 

000014 

000200 

L . OWNR 

000021 

040000 

L.UNT 

000013 

010000 

MPTAB 

001 11  OR 

000040 

MXPTB 

001174R 

000010 

MXTA8 

000776R 

020000 

M$$CR8= 

000124 

000000 

M$$CRX= 

000000 

000566R 

M$$FCS= 

000000 

000576R 

M$$MGE= 

000000 

000000 

M$$NET=: 

000000 

000005 

M$$OVR= 

000000 

000004 

NOD 

000602R 

000003 

NTLPT  = 

******   GX 

000003 

N$$ACC= 

000001 

000001 

N$$BUF= 

000001 

000000 

N$$LDV= 

000001 

000004 

N$$MCP= 

000001 

000001 

N$$MLL= 

000001 

000002 

N$$MOV= 

000010 

000002 

N$$NCr= 

000001 

000017 

N$$PEM= 

000001 

000360 

PECHA 

000524R 

000006 

PRDCHA 

000214R 

00061 4R 

PRFLAG 

000346R 

000620R 

PR  I 

000624R 

000000 

PRPCHA 

000224R 

000000 

PRPRI 

000222R 

000001 

PRSCSR 

0001 54R 

.    ABS.      177776 
002060 
DATA  000460 

Errors  detected: 


000 
001 
002 
0 


{RW,I,G8L,ABS,0VR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 


*»•  Assembler  statistics 


work  file  reads: 
i^crk  tile  writes; 
S^ze  of  wort  file; 
Size  of  core  pool 


0 

0 

10943  Words 

14440  Words 


{  43  Pages) 
(  55  Pages) 
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PRSLTA  000220R 

002 

UBIAS 

000354R    002 

PRTOV   000606R 

UNS 

000760R 

PR2HLD  000326R 

002 

UNW 

000764R 

PR2MBS  000246R 

002 

V$$CTR= 

001000 

PR2MRT  000266R 

002 

WORD 

000770R 

PR2MUS  000226R 

002 

X$$DBT= 

000000 

PR2RET  000306R 

002 

X2CH01 

001644R 

PR7   =  ***»*«  GX 

X2CH02 

001700R 

P$$P45=  000000 

X2CH03 

001734R 

P$$WRD=  000000 

X2CH04 

001770R 

Q$$0PT=:  000010 

X2CH05 

002024R 

R$$DER=  000000 

X3CH01 

001570R 

R$$K11=  000001 

X3CH02 

001574R 

R$$SND=  000000 

X3CH03 

001600R 

R$$11M=  000000 

X3CH04 

001604R 

SCOM    000656R 

X3CH05 

001610R 

SECSR   000666R 

X3CH06 

001614R 

SF.ACT=  000200 

X3CH07 

001620R 

SF.ENA=  000100 

X3CH08 

001624R 

SF.LPB=  000004 

X3CH09 

001630R 

SF.MFL=  000040 

X3CH10 

001634R 

SF.PAC=  000020 

X3CH11 

001640R 

SF.REA=  000010 

ZTIME  = 

******   GX 

SF.SER=  000001 

$ADDR  = 

******  GX 

SF.SVC=  000002 

$BIAS  = 

******   GX 

SF.UNL=  000040 

$BIN  = 

»♦**»*  GX 

SLNB    000740R 

$FLAGS= 

******  GX 

SLNW    000744R 

$MAPX  = 

******   GX 

STNB    000750R 

$PTR  = 

**«««*  GX 

STNU    000754R 

SSLTA  = 

******   GX 

S$$WRG=  000000 

$SLTSV= 

******  GX 

S$$YSZ=  007600 

$TMEX7 

OOOOOORG 

S.COST  000001 

$X2HLD= 

******  GX 

S.FLG   000000 

$X2MBS= 

******  GX 

S.LEN   000004 

$X2MRT= 

******   GX 

S.NMST  000002 

$X2MWS= 

******  GX 

S.OWNR  000003 

$X2RET= 

******  GX 

002  TABLE   000002R 

002 

$$DCHA= 

******   GX 

002  TEMP    OOOOOOR 

002 

$$PCHA= 

******  GX 

TIME    001314R 

$$PR1  = 

******  GX 

002  T$$KMG=  000000 

$$SCSR= 

******  GX 

002  T$$MIN=  000000 

.CXUNL= 

******  GX 

002  USA    000356R 

002 

.EOF  = 

******  GX 

K    7 
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TMPINl  -  NIL  TEMPLATE  INITIALIZ  MACRO  V05.03b  Saturday  29-Jun-85  00:A4  Page  l-l 
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TMPSTB  -  NTL  TEMPLATE  STATE  TAB  MACRO  V05.03b  Saturday  29-Jun-85  00:'i5  Page  8-1 
OPERATOR  KEYWORDS  STATE  TABLES 

165  000002  TRANS  "STNW",NONE,$STNU 

164  000002  TRANS  "UNW",NONE,$UNW 

65  000002  TRANS  ■■W0RD'',W0RD 

66  000002  TRANS  "DPRW",NONE,SDPRW 

67  000002  TRANS  "TIME'VNONE.STIME 

68  000002  TRANS  "MXPTSf ,MXPTB 
169  000002  TRANS  "X3CHW",X3CHW 

70  000002  TRANS  "X2CHW",X2CHW 

171  000002  TRANS  SLAMDA,iEXlT,ERRS1     ;  "UNDEFINED  OPERATOR' 
172 


K  9 

TMPSTB  -  NTL  TEMPLATE  STATE  TAB  MACRO  V05.03b  Saturday  29-Jun-85  00:45  Page  9 


TMPSTB     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:^6 
MACRO  CROSS  REFERENCE 


J  10 

PAGE  2 

CREF   0^.00 


MACRO  NAME 
DBGTP$ 


ISTATS 
MTRANS 
RETURN 
STATES 


TRANS 


REFERENCES 

#7-75 

#8-118 

#8-128 

#8-K3 

#8-153 

#8-163 

#9-184 

#10-236 

#12-299 

#U-372 

#15-416 

#5-60 

#7-75 

6-68 
#5-60 

9-193 

n-254 
#12-304 
#13-353 
#15-420 
#16-470 
#5-60 
#8-113 
#8-123 
#8-137 
#8-147 
#8-157 
#8-167 

9-191 
#10-222 
#10-246 
#11-276 
#12-302 
#12-328 
#14-364 
#14-399 
#15-421 
#16-461 
#16-493 


#7-82 
#8-119 
#8-134 
#8-144 
#8-154 
#8-164 
#9-191 
#10-243 
#12-300 
#14-373 
#16-444 
7-75 


7-80 
9-200 
#11-260 
12-312 
#13-356 
#15-425 
#16-472 
#7-81 
#8-114 
#8-124 
#8-138 
#8-148 
#8-158 
#8-168 
#9-194 
#10-224 
#11-255 
#11-278 
#12-303 
#13-335 
#14-365 
#14-400 
#15-426 
#16-462 
#16-494 


#7-83 

#8-120 

#8-135 

#8-145 

#8-155 

#8-165 

#9-202 

#11-262 

#12-303 

#14-380 

#16-447 


#7-88 
#9-207 
#11-264 
12-319 
14-363 
#15-430 
#16-478 
#7-82 
#8-115 
#8-125 
#8-139 
#8-149 
#8-159 
#8-169 
#9-201 
#10-225 
#11-261 
#11-279 
12-306 
#13-336 
#14-371 
#15-407 
#15-431 
#16-463 
#16-500 


#7-96 

#8-121 

#8-136 

#8-146 

#8-156 

#8-166 

#9-209 

#11-263 

#12-310 

#14-388 

#16-462 


#7-94 

10-216 
#11-267 
#12-322 
#14-370 
#15-435 
#16-485 
#7-83 
#8-116 
#8-126 
#8-140 
#8-150 
#8-160 
#8-170 
#9-202 
#10-226 
#11-262 
#11-281 

12-310 
#13-338 
#14-372 
#15-408 
#15-436 
#16-465 
#16-501 


#7-103 

#8-122 

#8-137 

#8-147 

#8-157 

#8-167 

#10-218 

#11-266 

#12-321 

#14-393 

#16-463 


#7-101 
#10-220 
#11-274 
#12-324 
#14-378 
16-442 
#16-492 
#7-89 
#8-117 
#8-127 
#8-141 
#8-151 
#8-161 
#8-171 
#9-208 
#10-232 
#11-263 
#11-282 
#12-313 
#13-344 
#14-373 
#15-409 
#16-443 
#16-471 
#16-516 


#8-113 

#8-123 

#8-138 

#8-148 

#8-158 

#8-168 

#10-219 

#11-269 

#12-326 

#14-400 

#16-480 


8-111 
#10-223 
#11-277 
#12-327 
#14-385 
#16-445 
#16-499 
#7-95 
#8-118 
#8-128 
#8-142 
#8-152 
#8-162 
#9-180 
#9-209 
#10-233 
#11-265 
#12-291 
#12-320 
#13-345 
#14-379 
#15-411 
#16-444 
#16-473 
#16-517 


#8-114 

#8-124 

#8-139 

#8-149 

#8-159 

#8-169 

#10-222 

#11-276 

#13-336 

#15-408 

#16-487 


#8-132 

#10-231 

#11-280 

13-334 
#14-398 
#16-448 

16-515 
#7-96 
#8-119 
#8-133 
#8-143 
#8-153 
#8-163 
#9-181 
#10-217 
#10-235 
#11-266 
#12-292 
#12-321 
#13-347 
#14-380 
#15-412 
#16-446 
#16-479 


#8-115 

#8-125 

#8-140 

#8-150 

#8-160 

#8-170 

#10-225 

#11-279 

#13-345 

#15-409 

#16-494 


9-179 
#10-234 

12-290 
#13-337 

15-406 
#16-454 
#16-522 
#7-102 
#8-120 
#8-134 
#8-144 
#8-154 
#8-164 
#9-183 
#10-218 
#10-236 
#11-268 
#12-298 
#12-323 
#13-354 

14-387 
#15-414 
#16-447 
#16-480 


#8-116 

#8-126 

#8-141 

#8-151 

#8-161 

#8-171 

#10-226 

#11-282 

#13-355 

#15-412 

#16-501 


#9-182 

#10-237 

#12-297 

#13-343 

#15-410 

#16-460 

#7-103 
#8-121 
#8-135 
#8-145 
#8-155 
#8-165 
#9-184 
#10-219 
10-239 
#11-269 
#12-299 
#12-325 
#13-355 
#14-388 
#15-415 
#16-449 
#16-486 


#8-117 

#8-127 

#8-142 

#8-152 

#8-162 

#9-181 

#10-233 

#12-292 

#14-365 

#15-415 

#16-517 


#9-185 

10-245 
#12-301 
#13-346 
#15-413 
#16-464 

#8-112 
#8-122 
#8-136 
#8-146 
#8-156 
#8-166 

9-187 
#10-221 

10-243 
#11-275 
#12-300 
#12-326 
#13-357 

14-393 
#15-416 
#16-455 
#16-487 


♦•FILE*«10»«TMPVCT 
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TMPVCT  -  NTL  VECTOR  SETUP  ROUTI  MACRO  V05.03b  Saturday  29-Jun-85  00:47 
Symbol  table 
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AB 

A$$CHK= 

A$$CPS= 

At$PRl= 

A$$TRP= 

C$tC<P= 

C$SORE= 

C$$RSH= 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$VNM= 

ES$XPR= 

FL.CHA= 

FL.DDM= 

FL.[)LC  = 

FL.MUX= 

FMKTMP 

FMT1 

FH.1   = 

F$$LVL= 

F1.VSE= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

GS$URD= 

1$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

K6TMP 


*«♦•••  GX 

000000 

000000 

000000 

000000 

000000 

OOOAOO 

17756A 

1775U 

000000 

000001 

000000 

000000 

000000 

***•*•  GX 

*♦«»»♦  GX 

***•*»  GX 

*«***♦  GX 

000024R 

000062R 

000000 

000001 

******  GX 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000020R 


LOSLP  = 
LF.ACT= 
LF.BRO= 
LF.BUT= 
LF.ENA= 
LF.LPB= 
LF.MDC= 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
LF.SER= 
LF.T]M= 
LF.UNL= 
LF.X2P= 
LLCTA  = 
LN.CLO= 
002  LN.DUM= 
002  LN.LOA= 
LN.LOO= 
LN.OAU= 
LN.OFF= 
LN.ON  = 
LN.O0P= 
LN.OPE= 
LN.REF= 
LN.SER= 
LN.STA= 
LN.SUB= 
LN.TR]= 
L$$ASG= 
L$$DRV= 
002 


000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

***»««  GX 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000000 

000000 


L$$P11= 
L$$11R= 


COST 

CTL 

CVA 

DDM 

DDS 

DLC 

DLM 

DLS 

FLG 

KRBA 

LEN  = 

MPF 
L.NMST 
L.NSTA 
L.OWNR 
L.UNT 
MANINI 
M$$CR8= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 
NSJTA8 
NSITMP 
NSO 
NS1 
NS2 

NS3   = 
NS4 
NS5 


000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

000642R 

000124 

000000 

000000 

000000 

000000 

000000 

OOOOOOR 

000022R 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 


.  ABS.   177776 
000772 
DATA    000066 
Errors  detected: 


000 
001 
002 
0 


(RW,I,G8L,ABS,0VR) 
(RU, I, LCL, RELCOM) 
(RW,D,LCL,REL,C0N) 


*•*  Assembler  statistics 


NS6  = 
NS7  = 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
PR7  = 
PS 

P$$P45= 
P$$URD= 
Q$$OPT= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SF.ACT= 
SF.ENA= 
SF.LPB= 
SF.HFL= 
SF.PAC= 
SF.REA= 
002  SF.SER= 
002  SF.SVC= 
SF.UNL= 
SLTMA  = 
SLTNM  = 
S$$WRG= 
S$$YSZ= 
S.COST 


****** 
****** 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
****** 
****** 

000000 
000000 
000010 
000000 
000001 
000000 
000000 
000200 
000100 
000004 
000040 
000020 
000010 
000001 
000002 
000040 
****** 
****** 

000000 
007600 
000001 


GX 
GX 


GX 
GX 


GX 
GX 


0 

0 

12005  Words 

14440  Words 

RSX-11M/PLUS 


(  47  Pages) 
(  55  Pages) 


S.FLG 

000000 

S.LEN 

000004 

S.NMST 

000002 

S.OUNR 

000003 

T$$KMG= 

000000 

T$$MIN= 

000000 

V$$CTR= 

001000 

X$$DBT= 

000000 

ZF.PSE= 

******  GX 

Z.DAT  = 

******  GX 

Z.DSP  = 

******  GX 

Z.FLG  = 

******  GX 

Z.PCB  = 

******  GX 

$ADDR  = 

******  GX 

$DDMPV= 

******  GX 

$DLCPV= 

******  GX 

$ERR38 

000026R 

$FLAGS= 

******  GX 

$FLAG1= 

******  GX 

$ICBAD= 

******  GX 

$MXADD= 

******  GX 

$MXLEN= 

******  GX 

$NVECT= 

******  GX 

$OFF  = 

******  GX 

SPDVA  = 

******  GX 

$REP.P= 

******  GX 

$SLTA  = 

******  GX 

STERR  = 

******  GX 

STMLTA 

000250RG 

STMRDY 

000564RG 

STMVCT 

OOOOOORG 

$VECT1= 

******  GX 

$$VECT= 

******  GX 

Work  file  reads: 
Work  file  writes: 
Size  of  work  ti le; 
Size  of  core  pool : 
Operating  system: 

SY?TMPVCT!v2i[°32?°54]tMPVCT/CR/-SP  =  SY:[1  J1RSXMCM.SML/MLJ130J10JWTLI8/ML  J130JO]RSXI«1CM/PA:1,[132JO]T 


002 


TMPVCT 
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UNLHC 

CREATED  BY 

MACRO  ON  29 

-JUN-85  A1  00:A8 

PAGE  2 

SYMBOL 

CROSS  REFERENCE 

CREF   C 

SYMBOL 

VALUE 

REFERENCES 

TtNFE 

000000 

#5-52 

T$NLEN 

000010 

#5-52 

T$NNUL 

000002 

#5-52 

TSNOPL 

000006 

#5-52 

TSNRNI 

0000A2 

#5-52 

riNRPL 

000005 

#5-52 

TSNRUL 

000007 

#5-52 

TSNVR 

000001 

#5-52 

T$RPRI 

OOOOAO 

#5-52 

T$5VC 

00003-; 

#5-52 

T$T5 

000030 

#5-52 

1$T6 

000032 

#5-52 

SDEAHC 

000000  RG 

#6-71 

$D[A18 

=  »*..♦»  GX 

6-84 

6-89      6-99 

6-109 

$MUL 

=  ...4»*  GX 

6-78 

6-103 

J  12 


6-117 


UNLHC 
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XTRA  -  DEALLOCATE  TRACE  DATA  STRUCTURES 

.S8TTL  XTRA  -  DEALLOCATE  TRACE  DATA  STRUCTURES 


XTRA  -  DEALLOCATE  TRACE  STRUCTURES 

INPUTS 

NONE 

OUTPUTS 

RO,  R1,  R2  DESTROYED 

TRACE  STRUCTURES  ARE  DEALLOCATED 


321 

322 

523 

32^; 

325 

326 

327 

328 

329 

330 

331 

332 

333 

33A 

335  000610 

336  000610 

337 

338  0006U 

017703 

OOOOOOG 

339  000620 

016300 

000016 

340  000624 

001436 

3A1  000626 

005063 

000016 

342  000632 

016001 

000016 

343  000636 

001403 

344  000640 

042761 

000060  000034 

345 

346  000646 

347  000650 

348 

3'.9  000654 

016001 

000010 

350  000660 

351  000674 

010002 

352  000676 

061602 

353  000700 

026002 

000004 

354  000704 

001401 

355 

356 

357  000706 

000401 

358 

359  000710 

060116 

360  000712 

361  000714 

362  000716 

363  000722 

364 

365 

366 

367 

000001 

XTRA: 


10$: 


20$: 
25$: 


30$: 


.IF  NDF  I$$AS 


SWSTK$   30$ 


aPSJPT,R3 

H$TRe(R3),R0 

30$ 

H$TRB(R3) 

T$CTCB(R0),R1 

10$  ..  -  -  . 

#T2.STP*2!T2.STP,T.ST2(R1) 


ENTER  SYSTEM  STATE 

GET  HOME  BLOCK  ADDRESS 

GET  TRACE  CONTROL  BLOCK  ADDRESS 

BR  IF  NOT  TRACING 

CAUSE  TRACE  TASK  TO  EXIT 

GET  TRACE  TASK  TCB 

IF  EQ,  NONE 


UNSTOP  TRACE  TASK 


MOV 
MOV 
BEQ 
CLR 
MOV 
BEQ 
BIC 

SAVRG 
SAVRG 

MOV 

ASL$ 

MOV 

ADD 

CMP 

BEQ 

;***  DEALLOCATE  NON-POOL  TRACE  BUFFER  HERE  (HOW?)  *•• 

BR     25$  ;;  MERGE  TO  DEALLOCATE  CONTROL  BLOCK 


<R0> 
<#T$CLEN> 

T$CSIZ(R0),R1 

6,R1 

R0,R2 

(SP),R2 

T$CBUF(R0),R2 

20$ 


SAVE  ADDRESS  OF  BLOCK 
SAVE  LENGYH  OF  SAME 

GET  SIZE  OF  BUFFER  IN  BLOCKS 

COMPUTE  SIZE  IN  BYTES 

COPY  END  POINTER 

COMPUTE  END  ADDRESS  OF  TRACE  BLOCK 

IS  BUFFER  CONTIGUOUS  WITH  CONTROL  BLOCK? 

YES,  DEALLOCATE  AS  ONE 


ADD 

RESRG 

RESRG 

CALL 

RETURN 

.ENDC 

.END 


R1,(SP) 
<R1> 
<R0> 
$DECEX 


;;  INCLUDE  LENGTH  OF  BUFFER  IN  DEALLOC 

;;  GET  LENGTH  TO  DEALLOCATE 

;;  GET  CONTROL  BLOCK  ADDRESS 

;;  DEALLOCATE  TO  POOL 

;;  RETURN  TO  USER  MODE  AND  CALLER 


<  13 
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GETPDV  -  CONVERT  PDV  INDEX  TO  PDV  ADDRESS 


163 

164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 

176  000044  067704  OOOOOOG 

177  000050  016404  OOOOOOG 
178 

179  000054 


.SBTTL  GETPDV  -  CONVERT  PDV  INDEX  TO  PDV  ADDRESS 

+ 

GETPDV  -  CONVERT  PDV  INDEX  TO  PDV  ADDRESS 

INPUTS: 

R4  -  PDV  INDEX 

OUTPUTS: 

R4  -  PDV  ADDRESS 


GETPDV: :ADD 
MOV 


aPDVTA,R4 
.C8IAS(R4),R4 


ADD  PDV  TABLE  ADDRESS 
GET  TABLE  ENTRY 


10$: 


RETURN 
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00:«9 


n?  000166 

138  000172 

139  000176 
HO  000200 
HI  00020A 
U2  000210 
U3 


016700 
00U04 
012701 


000001 


00000^' 
000001 


70$: 


80$: 


CALL 

MOV 

BED 

MOV 

CALL 

RETURN 

.END 


$DEA18 

LBJAS.RO 

80$ 

#eLKSlZ,R1 

$DEA18 


DE-ALLOCATE  LIBRARY 

GET  LIBRARY  BLOCK  BIAS 

IF  ZERO,  NO  UORK  TO  DO 

DE-ALLOCATE  LIBRARY  BLOCK 


K  15 
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.PSECT  DATA.D 
$8FLEN=:600. 


56  000000 

57 

58 

001130 

59 

60 

61 

62  000000 

000004' 

63  000002 

001130 

64 

65  000004 

66 

67 

68 

69  001134 

000003 

70  001136 

000004' 

71  001140 

000000 

;  POOL  LIMITS 

ixXBUF: :.WORD 
SXXLEN:. -.WORD 

XXBUF 
SBFLEN 

XXBUF:   .BLK8 

SBFLEN 

;  "CORAL"  POINTERS 

.WORD 

SXXAVL: :.WORD 

.WORD 

3 

XXBUF 

0 

STARTING  ADDRESS 
LENGTH  IN  BYTES 


ROUNDING  FACTOR 

POINTER  TO  FIRSr  FREE  BLOCK 


K  16 
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5-   55    MACRO  DEFINITIONS 

11-  656    X3CH 

12-  714    X2CH 
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MACRO  DEFINITIONS 


581 
582 
583 
SS'. 
585 
586 
587 
588 
SSQ 
590 
591 
592 
593 

594  001 10A 

595  001104 

596  001110 

597  001 1U 
598 

599  001120 

600  001124 

601  001130 
60<: 

603  001132 

604  001134 

605  001136 

606  001142 

607  001144 

608  001146 

609  001150 
610 

611  001152 

612  001154 

613  001160 

614  001164 

615  001166 

616  001170 
617 

618  001172 

619  001174 

620  001200 

621  001202 

622  001204 

623  001206 

624  001210 
625 

626  001212 

627  001214 

628  001216 

629  001220 

630  001222 

631  001226 

632  001230 

633  001232 

634  001234 
635 

636  001236 

637  001242 


FLT16  -  FIND  A  16  BIT  ALLOCATION  LINE  TABLE 

INPUTS: 

R3=LINE  TABLE  ADDRESS 

R4=PDV  INDEX  OF  DDM/DLC/LLC  PROCESS 

OUTPUTS: 

R0,R1,R2,R3=DESTPOYED 
UBIAS,UBA=UNLOAD  BLOCK  ADDRESS 
SLOCK=L0CAL  COPY  OF  UNLOAD  BLOCK 


FLT16. 

005067 

000160- 

FLT: 

CLR 

U8A 

017700 

OOOOOOG 

MOV 
SUSTK$ 

CALL 

SNTLPT.RO 
100$ 

$MAPX 

016211 

OOOOOOG 

MOV 

.CXUNL(R2),(R1) 

001470 

BEQ 

100$ 

005722 

10$: 

TST 

(R2)  + 

005722 

20$: 

TST 

(R2)  + 

126204 

177776 

CMP8 

-2(R2),R4 

001013 

BNE 

30$ 

022203 

CMP 

(R2)+,R3 

001443 

BEQ 

80$ 

101011 

BHI 

40$ 

011246 

MOV 

(R2),-(SP) 

042716 

000003 

BIC 

#3,(SP) 

066216 

177776 

ADD 

-2(R2),(SP) 

022603 

CMP 

(SP)+,R3 

101033 

BHI 

80$ 

000401 

BR 

40$ 

005722 

J$: 

TST 

(R2)  + 

032722 

000001 

'.0$: 

BIT 

#1,(R2)+ 

001410 

BEQ 

50$ 

005046 

CLR 

-(SP) 

152216 

BISB 

(R2U,(SP) 

005046 

CLR 

-(SP) 

n2216 

BISB 

(R2)+,(SP) 

062616 

ADD 

(iP)+,(SP) 

006316 

ASL 

(SP) 

006316 

ASL 

(SP) 

062602 

ADD 

(SP)+,R2 
#77, rJ 

032702 

000077 

50$: 

BIT 

001403 

BEQ 

60$ 

005712 

TST 

(R2) 

001340 

BNE 

20$ 

000402 

BR 

70$ 

162702 

000100 

60$: 

SUB 

#100, R2 

042702 

000077 

70$: 

BIC 

#77, R2 

INDICATE  NO  UNLOAD  BLOCK  FOUND  VET 
GET  NETLDR  DATA  BLOCK  BIAS 

*  ENTER  KERNEL  MODE 

*  MAP  TO  THE  DATA  BLOCK 

*  AND  TO  THE  FIRS^  UNLOAD  BLOCK 
»  IF  ZERO,  NO  UNLOAD  BLOCKS 

*  SKIP  POINTER  TO  NEXT  UNLOAD  BLOCK 

*  POINT  PAST  PDV  INDEX 

*  IS  THIS  THE  RIGHT  PDV? 

*  IF  NE,  NO 

*  IS  THIS  OUR  LINE  TABLE? 

*  IF  EQ,  YES 

*  IF  HI,  NO 

*  EXTRACT  SIZE  FIELD 

*  ... 

*  ADD  TABLE  ENTRY 

»  IS  THIS  OUR  LINE  TABLE? 

*  IF  Hi,  YES 

*  CLSE,  SKIP  ANY  SUB-ALLOCATIONS 

*  SKIP  THE  LINE  TABLE  ADDRESS 

*  ANY  SUB-ALLOCATIONS  THIS  ENTRY? 

*  IF  EQ,  NO 

*  GET  NUMBER  OF  ALLOCATIONS 

*  AND  NUMBER  OF  LIBRARIES 


ADD  THEM  TOGETHER 
MULTIPLY  BY  4 

GIVING"nEXT  TABLE  ENTRY 

IS  IT  PHYSICAL  END  OF  BLOCK? 

IF  EQ,  YES 

IS  IT  LOGUAL  END  OF  BLOCK? 

IF  NE,  NO  -  CHECK  NEXT  ENTRY 


;*  RESET  R2  TO  START  OF  BLOCK 
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MACRO  DE 

51 
52 
53 
54 
55 
56 
57 
8 

59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
71 
78 


NIL  TEMPI 
FINTIOMS 
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.ATE  EXPANSION  MACRO  V05.03b  Saturday  29-Jun-85  00:43  Page  5 

.SBTTL  MACRO  DEFINTIONS 

•  ♦*** 

•  LIBRARY  MACROS 

.MCALL  ASL$,SLTDF$,DHBDF$,SAVRG,RESRG 


000000 
000000 


jlTDFS 
OHBDFS 

.IF  DF 

R$$MPL 

.MCALL 

KRBDFS 

KR8DF$ 

.ENDC 

;  LOCAL  MACROS 

•  *** 

;  DEFINE  TRANSFER  TABLE  ENTRY 

.MACRO 

.WORD 

.ENDM 

TTABS   AA.BB 

AA 

TTABS 

DEFINE  SLT  OFFSETS  AND  SYMBOLS 
DEFINE  DECNET  HOME  BLOCK  OFFSETS 


DEFINE  KRB  OFFSETS 


TMPEX6  -  NTL  TEMPLATE  EXPANSION  MACRO  V05.03b  Saturday  29-Jun-85  00:43  Page  6 


K  A 

TMPEX6  -  NTL  TEMPLATE  EXPANSION  MACRO  V05.03b  Saturday  29-Jun-85  00:^3 
LOCAL  DATA 


012723  013746 
016723  OOOOOOG 


012723  012737 
016723  000202' 
016723  OOOOOOG 


653  001316 

65A  001322 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667  001326 

668  001332 

669  001336 
670 
671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681  0013A2  012723  000137 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695  001346 

696 

697 

698 

699 

700 

701  001350 

702  001356 

703  001364 

704  001372 
705 
706 
707 
708 
709  001374 


25$: 


27$: 


30$: 


012623 


062767  000002  000172' 
016760  000170'  OOOOOOG 
066767  000174"  0D0170' 


MOV 
MOV 

.IFT 

MOV 
ADD 
BIT 
BEQ 
MOV 
MOV 

.IFTF 

MOV 
MOV 
MOV 

.IFT 

BIT 
8EQ 
MOV 
MOV 
MOV 

.IFTF 

MOV 

.IFT 

MOV 
MOV 
BNE 
TST 
MO" 
MOV 
TST 


#13746, (R3)t 
KSAR5,(R3)t 


FMASK,TEMP 

#2, TEMP 

#F2.DAS,aTEMP 

25$ 

#13746, (R3)+ 

#KINAR5,(R3)+ 


#12737, (R3)+ 
PR8IAS,(R3)t 
KSAR5,(R3)+ 


#F2.DAS,51TEMP 

27$ 

#12737, (R3)+ 

PRSIAS,(R3)+ 

#KINAR5,(R3)t 


#137,(R3)+ 


6(SP),(R3)t 

(SP),R2 

10$ 

(SP)t 

(SP)+,R2 

(SP)+,(R1) 

(SP)  + 


.IFF 

MOV  (SP)t,(R3)t 

.ENDC 
CLEAN  UP   FOR  NEXT   TIME 
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:•  STORE  "MOV  S#KISAR5,-(SP)' 


GET  $FMASK  ADDRESS 

GET  $FMASK+2  ADDRESS 

IS  DATA  SPACE  ENABLED  ? 

IF  EQ,  NO 

STORE  "MOV  a#KINAR5,-(SP; 


STORE  "MOV  BIAS,a#KISAR5' 


IS  DATA  SPACE  ENABLED  ? 

IF  EQ,  NO 

STORE  "MOV  BIAS,S#KINAR5 


STORE  "JMP  a#ENTRY  IN  LINE  TABLE' 


GET  LINK  POINTER 

IF  NE,  LOOK  FOR  NEXT  KB 

CLEAN  OFF  KB  ADDRESS 

RESTORE  BASE  ADDRESS 

RESTORE  MAPPING 

CLEAN  OFF  SERVICE  ROUTINE  ADDRESS 


ADD 
MOV 
ADD 
RETURN 


#2,NXTLN 

IC8PT,$VECT1(R0) 

K8LN,ICBPT 


012714     OOOOOOG 


COMPLEMENT   OF    PRIORITY 
PR!:  MOV  #PR7,(R4) 


SET   FOR   NEXT   LINE 
;    SET   UP   FO'^   "TMPVCT" 
ADO    IN  ANCi'HER   DISPLACEMENT 


STORE   PRIORITY  7 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

PRMTP 

000350  R 

#6-222 

8-482 

8-495 

PRMUX 

000514  R 

#6-226 

PRNAME 

000200  R 

#6-190 

PRPAR 

000210  R 

#6-195 

PRPCB 

000204  R 

#6-193 

PRPCHA 

001062  R 

#6-230 

8-393 

PRPDVA 

000176  R 

#6-189 

7-267 

PRPRl 

000344  R 

#6-220 

11-710 

PRSCSR 

000516  R 

#6-227 

8-435 

PRSLN 

000260  R 

#6-217 

8-461 

8-473 

PRSLTA 

000252  R 

#6-214 

PRSNUM 

000352  R 

#6-223 

8-485 

8-499 

PRTBL 

000216  R 

#6-197 

PRTOV 

000566  R 

6-115 

#8-450 

PRVECT 

000346  R 

#6-221 

PR2HLD 

001326  R 

#6-237 

16-987 

PR2MBS 

001246  R 

#6-234 

16-957 

PR2MRT 

001266  R 

#6-235 

16-967 

PR2MUS 

001226  R 

#6-233 

16-947 

PR2RET 

001306  R 

#6-236 

16-977 

PR3CAL 

000234  R 

#6-204 

15-905 

PR3CLR 

000236  R 

#6-205 

15-910 

PR3DBS 

000224  R 

#6-200 

15-885 

PR3DWS 

000230  R 

#6-202 

15-895 

PR3MBS 

000226  R 

#6-201 

15-890 

PR3MCL 

000244  R 

#6-208 

15-925 

PR3MRE 

000246  R 

#6-209 

■  5-930 

PR3MRS 

000250  R 

#6-210 

15-935 

PR3MWS 

000232  R 

#6-203 

15-900 

PR3RES 

000240  R 

#6-206 

15-915 

PR3RST 

000242  R 

#6-207 

15-920 

PR7 

=  «*»*»*  GX 

11-709 

R$$EIS 

=  ****** 

9-560 

R$$MPL 

-  ****** 

5-61 

11-620 

R$$11D 

=  ****** 

9-560 

R$$11M 

=  000000 

6-148 

SAVALC 

001170  R 

#10-584 

14-842 

SCOM 

001132  R 

6-116 

#10-572 

SECSR 

000506  R 

6-117 

#8-426 

SF.ACT 

=  000200 

#5-58 

SF.ENA 

=  000100 

#5-58 

SF.LPB 

=  000004 

#5-58 

SF.MFL 

=  000040 

#5-58 

SF.PAC 

=  00(020 

#5-58 

SF.REA 

=  000010 

#5-58 

SF.SER 

=  000001 

#5-58 

SF.SVf 

=  000002 

#5-58 

SF.UNL 

=  000040 

#5-58 

SLNB 

000572  R 

6-118 

#8-456 

SLNW 

00C616  R 

6-119 

#8-467 

STLIN 

000164  R 

#6-177 

*7-279 

•7-281 

STNB 

000646  R 

6-120 

#8-480 

8-420 
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394  000566 

395  000572 

396  000574 
397 

398 
399 
400 

401  000576 

402  000600 
403 

404 
405 
406 

407  000602 

408  000604 
409 

410 
411 
412 

413  000606 

414  000610 

415  000612 
416 

417 
418 
419 

420  000614 

421  000616 
422 

423 
424 
425 

426  000620 

427  000622 
428 

429 
430 
431 

432  000624 

433  000630 

434  000632 

435  000640 

436  000642 

437  000646 

438  000652 

439  000654 
440 

441 
442 
443 

444  000656 

445  000662 

446  000664 
447 

448 
449 
450 

062705 
022323 

000006 

ADD     *6,R5 

CMP     (R3)+,(R3)+ 

RETURN 

;•  LOGICAL  LINKS 

005723 

LINKS:   TST     (R3)t 
RETURN 

;  LOCAL  NODE  ADDRESS 

005723 

NOD:    TST     (R3)t 
RETURN 

;•  MAXIMUM  PROTOCOL  SIZE 

105723 
105725 

PRTOV:   TSTB    (R3)+ 
TST8    (R5)t 
RETURN 

!•  LISTHEAD 

022325 

LSTHD:   CMP     (R3)+,(R3)t 
RETURN 

;  LINE  TABLE  ADDRESS 

005723 

LTAS:   TST     (R3)t 
RETURN 

;  COMPLEMENT  OF  PRIORITY 

005767 
001410 
126467 
001004 
012713 
046713 
005723 

000352' 

000013  000350 

OOOOOOG 
000222' 

PRI:    TST     FLAGS 
BEQ     10$ 

CMPB    L.UNT(R4), INDEX 
BNE     10$ 
MOV     #PR7,(R5) 
BIC     PRPRI,(R3) 

10$:    TST     (R3)+ 
RETURN 

062705 
005723 

000004 

;  POINTER  TO  ALLOCATED  SCOM 

SCOM:   ADD     #4,R5 
TST     (R3)+ 
RETURN 

';    SECONDARY  CSR 

ADJUST  TEMPLATE  ADDRESS 


ADJUST  TEMPLATE  ADDRESS 
ADJUST  BINARY  BUFFER  ADDRESS 


IS  THIS  A  MUX  EXPANSION  ? 
IF  EQ,  NO  ..  NO  UPDATE 
IS  THIS  THE  RIGHT  UNIT  ? 
IF  NE,  NO 
GET  COMPLEMENT  OF  PRIORITY 

SKJP  PRIORITY 
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Symbol  table 


A$$CHK= 

A$$CPS= 

A$$PR1= 

A$$TRP= 

C$tCKP= 

CttORE= 

C$$RSH= 

D$$BUG= 

D$$ISK= 

D$tL11= 

D$$YNC= 

0$$YNM= 

ES$XPR= 

FL.CHA= 

FL.DOM= 

FL.LLC= 

FMTO 

FMT3 

FM.O  = 

FM.3  = 

FNDADD 

F$$LVL= 

F1.UHR= 

G$$TPP= 

G$$TSS= 

G$$TTIC  = 

G$$WRD= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$rSR= 

K$$LDC= 

K$ITPS= 

ABS. 


000000 

000000 

000000 

000000 

000000 

000400 

177564 

177514 

000000 

000001 

000000 

000000 

000000 

♦**♦**  GX 

♦«.**«  ex 

**«»*♦  GX 

000072R 

000073R 

000000 

000000 

000274R 

000001 

**♦♦«•  GX 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 


LF 
002  LF 
002  LF 


K.CSR 
K.PRl 
K.VCT 
LDSLP  = 
LF.ACT= 
LF.BRO= 
LF.BWT= 
LF.ENA= 
LF.LPB= 
LF.MDC= 
LF.MFL=: 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
SER= 
TIM= 
-  .UNL= 
LF.X2P= 
LN.CLO= 
LN.DUM= 
LN.LOA= 
LN.LOO= 
LN.OAU= 
LN.OFF= 
LN.ON  = 
LN.OOP= 
LN.OPE= 
LN.REF= 
LN.SER= 
LN.STA= 
LN.SUB= 
LN.TRI= 


000002 

000000 

000001 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 


L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLH 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NMST 

L.NSTA 

L.OUNR 

L.UNT 

M$$CRS= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$0VR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$M0V= 

N$$NCr= 


000000 
000000 
000001 
000000 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
000014 
000021 
000013 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 


177776 
000336 
DATA    000120 
Errors  detected: 


000 
001 
002 
0 


(RW 
(RW 
(RW 


I,GBL,A8S,0VR) 
I,LCL,REL,CON) 
D,LCL,REL,CON) 


♦♦*  Assembler   statistics 
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N$$PEM=  000OO1 

SADDR  = 

****** 

GX 

P$$P45=  000000 

SAZFS  = 

****** 

GX 

P$$WRD=  000000 

$BIN  = 

****** 

GX 

Q$$OPr=  000010 

$CLIOS= 

****** 

GX 

RTSPC   000242R 

$CLQUE= 

****** 

GX 

R$$DER=  000000 

$DFN  = 

****** 

GX 

R$$K;11=  000001 

SERRWZ 

000042R     002 

R$$SND=  000000 

$ERR8 

000004R     002 

R$$11M=  000000 

$FLAGS= 

****** 

GX 

SF.ACT=  000200 

$FLAG1= 

****** 

GX 

SF.ENA=  000100 

$FNOUT= 

****** 

GX 

SF.LPB=  000004 

$ICBLN= 

****** 

GX 

SF.MFL=  000040 

SLEFT  = 

****** 

GX 

SF.PAC=  000020 

$MXADD=: 

****** 

GX 

SF.REA=  000010 

$MXSIZ= 

****** 

GX 

SF.SER=  000001 

SNALL  = 

****** 

GX 

SF.SVC=  000002 

SNAME  = 

****** 

GX 

SF.UNL=  000040 

$NVECT= 

****** 

GX 

S$$WRG=  000000 

$OFF  = 

****** 

GX 

S$$YSZ=  007600 

SPDVA  = 

****** 

GX 

S.COST  000001 

$PRV.N= 

****** 

GX 

S.FLG   000000 

$PTR  = 

****** 

GX 

S.LEN   000004 

SSIZE  = 

****** 

GX 

S.NMST  000002 

SSLTA  = 

****** 

GX 

S.OWNR  000003 

SSZPTR= 

****** 

GX 

TMPEXT  OOOOOOR 

002  STM.IN 

OOOOOORG                 1 

T$$KMG=  000000 

STWARN= 

****** 

GX 

T$$M1N=  000000 

STWE  = 

****** 

GX 

V$$CTR=  001000 

SXBUF2= 

****** 

GX 

X$$DBT=  000000 

SXLEN2= 

****** 

GX 

ZF.PSE=  »»**«*  GX 

SSCSR  = 

****** 

GX 

Z.DAT  =  •****»  GX 

S$VECT= 

****** 

GX 

Z.FLG  =  ♦»♦*♦*  GX 

Work     file     reads:  0 

Work      file   writes:  0 

Size  of   work    file:  12057  Words      t   '18  Pages) 

Size  of   core  pool:  144'i0  Words      (   55  Pages) 

Operating      system:  RSX-llM/PLUS 

SV:TMPINIA2;[?3^?°34]TMPINI/CR/-SP=SV:[1,1]RSXMCM.SML/ML,[130,110]NETL1B/ML,[130,10]RSXMCM/PA:1,C132,10]TMP 
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17A 
175 
176 
177 
178 

179  000002 

180  000002 

181  000002 

182  000002 

183  000002 

184  000002 

185  000002 
186 

187  000002 

188 

189 

190 

191  000002 

192 

193  000002 

194  000002 
195 

196 
197 
198 
199 

200  000002 

201  000002 

202  000002 
203 

204 
205 
206 

207  000002 

208  000002 

209  000002 
210 


.SBTTL   .BIN,.BLKW,.8LKB 


3IN' 


'.BLK8" 


STATES 

BIN 

TRANS 

!FNAME1,BIN1,.ABFI 
lERROR.SEXIT 

TRANS 

STATES 

BIN1 

TRANS 

IEND,SEXIT,SBINF 

TRANS 

<•,> 

STATES 

.IF  DF 

MSSMGE 

TRANS 

!POSEXP,BIN2,SCORE2 

.JFF 

TRANS 

IEAT,0NLY2,SBINF 

.IFTF 

TRANS 

1  ERROR, SEXIT 

.IFT 

STATES 

BIN2 

TRANS 

SLAMDA,0NLY2,SBINF 

.ENDC 

" 
STATES 

BLK8 

TRANS 

:posexp,onlyi,sblkb 

TRANS 

lERROR, SEXIT 

.BLKW" 


STATES  BLKW 
TRANS   !P0SEXP,0NLY1,S8LKW 
TRANS   lERROR, SEXIT 
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••F!lE«*1D««TMPVCT 


TTTTT 

TTTTT 

MM 

MM 

PPPPPPPP 

VV 

vv 

cccccccc 

TTTTT 

TTTTT 

TTTTT 

TTTTT 

MM 

MM 

PPPPPPPP 

vv 

vv 

cccccccc 

TTTTT 

TTTTT 

MMMf 

MMMM 

PP      PP 

VV 

vv 

cc 

MMMW 

MMMM 

PP      PP 

vv 

vv 

cc 

MM 

m     MM 

PP      PP 

vv 

vv 

cc 

MM 

m    m 

PP      PP 

vv 

vv 

cc 

MM 

MM 

PPPPPPPP 

vv 

vv 

cc 

MM 

MM 

PPPPPPPP 

vv 

vv 

cc 

MM 

MM 

PP 

vv 

vv 

cc 

MM 

MM 

PP 

vv 

vv 

cc 

MM 

MM 

PP 

vv 

vv 

cc 

MM 

MM 

PP 

vv 

vv 

cc 

MM 

MM 

PP 

vv 

cccccccc 

MM 

MM 

PP 

vv 

cccccccc 

LL 

SSS5SS3S 

LL 

SSSSSSSS 

LL 

SS 

-L 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

TTTTT 
TTTTT 


■TTTT 
■TTTT 
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TMPVCT     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:A7 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


AB 

FL.CHA 

FL.DDM 

FL.DLC 

FL.MUX 

FMICTMP 

FMTl 

FM.1 

F1.VSE 

I$$AS 

K6TMP 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.HTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

Lf .X2P 

LLCTA 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.BDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.<RBA 

L.LEN 


*♦ t **  * 
****** 
****** 
****** 
****** 
000024 
000062 
000000 


GX 
GX 
GX 
GX 
GX 

R 

R 

GX 


000020  R 

100000 

OOOAOO 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

****** 
000000 
000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
:  000022 


GX 


REFERENCES 

7-377 
6-137 
6-135 
7-348 
7-370 
#5-90 
5-96 
#5-96 
6-270 
6-159 
#5-88 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
9-471 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 


7-381 
7-344 
7-354 
7-365 


#5-108 
6-313 


8-432 


9-487 


7-387 

7-385 
♦7-389 

7-390 
•7-357 
*7-392 
♦8-432 
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7-363 


9-497 


7-387 

7-385 

♦7-399 

7-402 

♦7-404 


7-390 
8-427 


8-429 


7-402 
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MACRO  CROSS   REFERENCE  CREf        04.00 


MACRO  NAME 

REFERENCES 

ADJDFS 

#5-47 

5-49 

ASRt 

*5-47 

6-81 

CALL 

6-78 

6-84 

CTRDFl 

#5-47 

5-5<^ 

DHBDFS 

#5-47 

5-50 

RETURN 

6-119 

XPDOBS 

#5-4^ 

5-51 

*«FiLE««ID'»UNLPSl 


6-96  6-106  6-114 

6-89  6-99  6-103  6-109  6-117 
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Symbol  table 


a$$chk;= 

000000 

G$$TSS= 

000000 

LS$GDN= 

000004 

At$CPS= 

000000 

G$$TTK= 

000000 

LSS0FF= 

2S8S8? 

A$$PRI= 

000000 

G$$WRD= 

000000 

LS$STR= 

000002 

A$$TRP= 

000000 

HF$DLM= 

000002 

LS$UP  = 

000003 

CF$BLK= 

000102 

HF$GWV= 

000010 

LSSWT  = 

000001 

CtDTE 

000012 

HF$H0S= 

000004 

LSACHN 

9922]? 

C$FLG 

000015 

HF$XDF= 

000020 

LSAPVC 

000014 

CSGNAM 

000016 

H$CUG 

000010 

LSASVC 

000010 

CtLCN 

000010 

H$DST 

000012 

L$AUC 

000042 

C$LEN 

000016 

H$D29 

000014 

LSCHLS 

000034 

C$LNK 

000000 

H$FL6 

000000 

LSCHTB 

000030 

C$NAM 

000002 

HIGLEN 

000104 

L$CLEN= 

000044 

CSNML 

000002 

H$GLT 

000044 

L$C1cN 

000032 

CSPORT 

OOOOU 

HSGNAM 

000050 

LSCTIM 

000040 

c$sck;p= 

000000 

H$GNML= 

000020 

LSDTEA 

000020 

C$$ORE= 

000400 

H$GPT 

000046 

LSDTEL 

000017 

C$$RSH= 

17756'! 

HSHITS 

000034 

LSGLEN 

000134 

OEADST 

0001 50R 

H$HLEN 

000044 

LSLEN 

000122 

DEALST= 

«»♦**»  GX 

HSLBDA 

000070 

LSLLCH 

000016 

D$ACL 

000027 

H$L8DN 

000072 

LSLNK 

000000 

DSCUGL 

000023 

HSLDTE 

000002 

LSMCHN 

000036 

DSCUGN 

000022 

HSLEN 

000042 

LSNETW 

000114 

DSDATL 

000030 

HSLOTS 

000032 

LSNIRE 

000072 

DSDSL 

000022 

HSNETW 

000024 

LSNLRE 

000104 

DSDST 

000010 

HSNML  = 

000006 

LSNMAC 

000076 

DSDTEL 

000031 

H$NPT 

000022 

LSNMAS 

000074 

DSFLEN 

000032 

HSPTB 

000020 

LSNMST 

000003 

DtGLEN 

000032 

HSPVC 

000006 

LSNNRE 

000106 

D$GVBL 

000032 

HSRDTE 

000004 

LSNRBY 

000046 

DSLNtC 

000000 

H$RNW 

000042 

LSNRCA 

000066 

D$NAM 

OOOOOil 

H$SVC 

000036 

LSNRFS 

000100 

DSNOD 

000010 

HSTRB 

000016 

LSNRPK 

000056 

D$OBJ 

000003 

HSXAVL 

000100 

LSNRRE 

000105 

DSPAL 

000026 

HSXBIA 

000074 

LSNRST 

000107 

DSPRl 

000002 

H$X29C 

000040 

LSNTBY 

000052 

DSPRL 

000024 

I$$RAR= 

000000 

LSNTCA 

000070 

D$SH1 

000020 

I$$RDN= 

000000 

LSNTFS 

000102 

D$SLO 

000016 

KSAR5  = 

»»»**»  GX 

LSNTPK 

000062 

DSUSL 

000025 

K$HIC 

000004 

LSOMST 

000002 

OSVBL 

000032 

KSLEN 

000006 

L$PC5 

000112 

D$$BUG= 

177514 

K$LNK 

000000 

L$PLS 

000110 

D$$ISK= 

000000 

K$LOC 

000002 

LSQCNT 

000122 

0$$L11= 

000001 

K$$CNT= 

177546 

LSQUEH 

000124 

D$$YNC= 

000000 

K$$CSR= 

177546 

LSQUET 

000130 

D$$YNM= 

000000 

K$$LDC= 

000000 

LSRTRY 

000007 

E$$XPR= 

000000 

K$$TPS= 

000074 

LSSLN 

000004 

F$$LVL= 

000001 

LD$LP  = 

000000 

LIST 

000005 

GF$BUG= 

000001 

LN$0FF= 

000001 

LSTCLZ 

000044 

G$CUG 

000010 

LN$0N  = 

000000 

L$TIM 

000006 

GSDTE 

000012 

LN$SHU= 

000002 

L$$ASG= 

000000 

GSFLG 

000014 

LP$EIP= 

002000 

L$$DRV= 

000000 

GSGNAM 

000016 

LP$ENB= 

004000 

L$$P11= 

922221 

G$LEN 

000016 

LP$PCT= 

001400 

L$$11R= 

000000 

GSLNK 

000000 

LP$TMR= 

100000 

M$$CRB= 

000124 

GSNAM 

000002 

LP$UP  = 

010000 

MS$CRX= 

000000 

GSNML 

000015 

LP$wrD= 

020000 

H$$FCS= 

000000 

G$$rPP 

=  000000 

LP$WTS= 

C40000 

H$$MGE= 

000000 

M$$NET= 

000000 

TC$LNG= 

000002 

M$$0VR= 

000000 

TC$TDA= 

000001 

N$$ACC= 

000001 

TR$DCE= 

000010 

N$$BUF= 

000001 

TR$FIL= 

000001 

N$$LDV= 

000001 

rR$OVR= 

000004 

N$$MCP= 

000001 

TR$TRU= 

000020 

N$$MLL= 

000001 

TR$TX  = 

000002 

N$$HOV= 

000010 

TS.BLK= 

171700 

N$$NCT= 

000001 

TS.CKP= 

000200 

N$$PEM= 

000001 

TS.CKR= 

000100 

PSIPT  = 

»««*»«  GX 

TS.EXE= 

100000 

P$$P45=: 

000000 

TS.HLD= 

002000 

P$$WRD= 

000000 

TS.MSG= 

020000 

QSACTC 

000004 

TS.NRP= 

010000 

QSAUC 

000006 

TS.0UT= 

000400 

Q$CLEN= 

000006 

TS.RDN= 

040000 

OSCTIM 

000000 

rS.RUN= 

004000 

QSICRE 

000014 

TS.STP= 

001000 

Q$LEN 

000016 

TY$LAB= 

000002 

QSMXAC 

000012 

TY$LAP= 

000000 

QSMXVC 

000002 

TSCBUF 

000004 

Q$TCLZ 

000010 

TSCEND 

000006 

Q$$0PT= 

000010 

T$CFLG 

000000 

R$DAL 

000013 

T$CIN 

000012 

n$DTE 

000014 

TSCLEN 

000020 

K$LEN 

000024 

TSCMAP 

000002 

RSLNK 

000000 

TSCOUT 

000014 

RSMAM 

000002 

TSCSIZ 

000010 

R$0WN 

000010 

TSCTCB 

000016 

R$R0  = 

000002 

TSCUSE 

000001 

R$R1  = 

000004 

TSLCHK 

000076 

R$R2  = 

000006 

TSLFLG 

000034 

R$R3  = 

000010 

TSLIDN 

000030 

R$R4  = 

000012 

TSLLEN 

000100 

R$R5  = 

000014 

TSLTIM 

000004 

R$$DER= 

000000 

TSLTRA 

000000 

R$$K11= 

000001 

TSLTSK 

000024 

R$$SND= 

000000 

TSRCNT 

000002 

R$$11H= 

000000 

TSRFLG 

000000 

SF$BLK= 

000001 

TSRFRM 

000007 

SF$INC= 

000002 

T$RL  N 

000004 

SSADSZ 

000007 

TSRSTS 

000005 

SSCTL 

000002 

TSRTYP 

000001 

S$DTE 

000020 

TSSBUF 

000001 

S$FLG 

000010 

TSSDCT 

000030 

S$LEN 

000032 

TSSDDM 

000026 

SSLFT 

000012 

TSSDEV 

000002 

SSLNK 

000000 

TSSDUN 

000031 

SSOUNR 

000030 

TSSFNC 

000000 

SSPKSZ 

000004 

TSSFNM 

000007 

S$RCL 

000013 

TSSFTP 

000020 

SSSTA 

000003 

T$3GRP 

000006 

S$TIM 

000014 

TSSLEN 

000032 

S$TMR 

000016 

TSSMEM 

0000C5 

S$WND 

000006 

T$SN0D= 

000023 

S$$URG= 

000000 

TSSTID 

000023 

s$sysz= 

007600 

TSSTIU 

000025 
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K  U 


10 


181 

182 

183 

18^ 

185 

186 

187 

188 

189 

190 

191 

192 

193 

19A 

195  000056 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 

219 


.SBTTL  XKRB  -  DE-ALLOCATE  KRB 


XKR8  -  DE-ALLOCATE  KRB 

INPUTS: 

RO  -  KRB  ADDRESS 

OUTPUTS: 

KRB  IS  DE-ALLOCATED 


XKRB: 


.IF  DF  R$$11M 


000056  012701   OOOOOOG 

000062 

000066 

000072 


10$: 


.IF  DF 

R$$MPL 

ADD 

*K.PRM,RO 

.ENDC 

MOV 

#$KR8LN,R1 

SWSTKS 

10$ 

CALLR 

$DECEX 

RETURN 

.IFF 

;  DF  R$$11M 

MOV 

R3,-(SP) 

MOV 

R4,-(SP) 

MOV 

RO.RI 

MOV 

*$KRBLN,R3 

.INHO 

CALL 

$$RLC8 

.ENBO 

MOV 

(SP)+,RA 

MOV 

(SP)+,R3 

RETURN 

.ENDC 

;  DF  R$$11M 

POINT  TO  START  OF  KRB 

GET  LENGTH  OF  KRB  ALLOCATION 
;  ENTER  KERNEL  MODE 
;  DE-ALLOCATE  KRB 

RETURN  TO  CALLER 


GET  2  FREE  REGISTERS 

COPY  ADDRESS  OF  BLOCK  TO  DEALLOCATE 

GET  LENGTH  OF  THE  BLOCK 

INHIBIT  TASK  SWITCHING 
:  RELEASE  THE  BLOCK 
:  ENABLE  TASK  SWITCHING 

RESTORE  REGISTERS 
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AttrHK=  000000 

F$$L\/L=  000001 

L8SIZ  = 

OOOOOOR 

002  M$$OVR= 

02252° 

R$$DER= 

000000 

At$rP5=  000000 

G$$TPP=  000000 

LB.ADR= 

»•*»»♦  GX 

NLBLK 

000006R 

002  R$$I<;11  = 

000001 

n*»*»vp  J     \j  \j  yj  \j  V  \j 

A$$PR1=  000000 

G$$TSS=  000000 

LS.SIZ= 

******   GX 

NTLPT  = 

******   GX 

R$$SND= 

000000 

AilTRP=  000000 

G$$TT<=  000000 

LB.USE= 

»*««*«  GX 

N$$ACC= 

000001 

R$$11M= 

000000 

r^  tr  ^  i  1  \'              \j  \j  \J  v  V  V 

BLKS1Z=  000001 

G$$WRD=  000000 

LD$LP  = 

000000 

N$$8UF= 

000001 

S$$WRG= 

000000 

^J^^l'^Jit    V  \j  \/  \j  \j  ' 

CttCKP=  000000 

1$SRAR=  000000 

L$$ASG= 

000000 

N$$LDV= 

000001 

S$$YSZ= 

007600 

C$$ORE=  OOOAOO 

I$$RDN=  000000 

L$$DRV= 

000000 

N$$MCP= 

000001 

T$$KMG= 

000000 

C$$RSH=  177564 

K$$CNT=  177546 

L$$P11= 

000001 

N$$MLL= 

000001 

T$$MIN= 

000000 

\,  *>  V  i\  ^  '  '            ^    '    <     J  \j^ 

D$tBUG=  1775U 

<$$CSR=  177546 

L$$11R= 

000000 

N$$M0V= 

000010 

V$$CTR= 

001000 

D$$1SK.=  000000 

K$$LDC=  000000 

M$$CR8= 

000124 

N$$NCT= 

000001 

X$$DBT= 

000000 

L^*'*'*J'\      \J  \J  \J  \J  W  V 

D$$Lll=  000001 

K$$TPS=  000074 

M$$CRX= 

000000 

N$$PEM= 

000001 

$DEA18= 

****** 

GX 

DttYNr=  000000 

LBADR   OOOOOOR 

002 

M$$FCS= 

000000 

P$$P45= 

000000 

$MAPX  - 

1,***** 

GX 

\^  V  V    '    '^\.                \J  \J  \J  \J  \J  \J 

D$$YNM=  000000 

LBALL   000002R 

002 

M$$MGE= 

000000 

P$$WRD= 

000000 

$XLBR 

OOOOOORG 

E$$XPR=  000000 

LBIAS   000004R 

002 

M$$NEr= 

000000 

0$$0PT= 

000010 

.CXLBR= 

****** 

GX 

.  ABS.  000000 

000 

(RW,],GBL,ABS,OVR) 

000212 

001 

(RW,I,LCL,REL,CON) 

DATA    000010 

002 

(RW,D,LCL,REL,CON) 

Errors  detected: 

0 

♦•♦  Assembler  statistic 

s 

Work  file  reads 

0 

Work   file  writes 

0 

Size  of  work  f i  le 

8942 

Words  (  35  Pages) 

Size  of  core  pool 

14440  Words   (  55  Pages) 

Operating  system 

RSX- 

IIM/PLUS 

SYfxLBR.V2'!'!i32,i34ixLBR/CR/-SP=SY:[l,1]RSXMCM.SMl/ML,[130,110]NETL  IB/ML,  [130, 


I0JRSXMCM/PA;1,[132,10]XLBR 


XLBR 
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SXXINl  -  INITIALIZE  TASK  POOL 


75 

7^ 

75 

76 

77 

78 

79 

80 

81 

82 

8B 

84 

85 

86 

87 

88 

89  000000 

90 

91  000000 

01 0046 

92  000002 

012700 

000004' 

93  000006 

066700 

001134' 

9A  000012 

046700 

001134' 

95  000016 

010067 

000000' 

96  C00022 

010067 

001136' 

97  000026 

012746 

001134' 

98  000032 

160016 

99  000034 

011667 

000002' 

100  000040 

005020 

101  000042 

012610 

102  000044 

012600 

103  000046 

104 

105 

000001 

THIS  ROUTINE  IS  CALLED  TO  DETERMINE  THE  STARTING  ADDRESS  AND  LENGTH 
OF  THE  TASK  POOL  AND  TO  FORMAT  THE  POOL  SO  THAT  IT  MA^  BE  USED  WITH 
THE  "CORAL"  ROUTINES. 

INPUTS: 

NONE 

OUTPUTS: 

SXXSUF  =  STARTING  ADDRESS 

SXXLEN  =  LENGTH 

SXXAVL  =  "COf)AL"  POINTER 


.PSECT 


$XXJNI::MOV 

RO,-(SP) 

MOV 

#XX8UF,R0 

ADD 

$XXAVL-2,R0 

BIC 

$XXAVL-2,R0 

MOV 

RO.SXXBUF 

MOV 

RO, SXXAVL 

MOV 

#XX8UF+$BFLEN,-(SP) 

SUB 

RO,(SP) 

MOV 

(SP),$XXLEN 

CLR 

(R0)  + 

MOV 

(SP)+,(RO) 

MOV 

(SP)t,RO 

RETURN 
.END 


SAVE  RO 

POINT  AT  THE  BUFFER  AREA 

ADD  IN  THE  ROUNING  FACTOR 

ROUND  UP,  USUALLY  TO  A  4  BYTE  BOUNDARY 

SET  THE  BUFFER  ADDRESS 

SET  THE  "CORAL"  POINTER  ALSO 

ADDRESS  PAST  END  OF  BUFFER 

GET  REAL  LENGTH  OF  BUFFER 

SET  THE  BUFFER  LENGTH 

CLEAR  LINK  TO  NEXT  SEGMENT 

SET  LENGTH  OF  SEGMENT 

RECOVER  RO 

FINISHED 


L  16 


XXBUF  -  END  OF  TASK  BUFFER  INIT  MACRO  V05.03b  Saturday  29-Jun-85  00:49  Page  6-1 
Symbol  table 
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2 
3 

5 
6 

7 

8 
9 

10 
11 
:2 
13 
u 
15 
16 

17 

18 
19 
20 
21 
22 
23 
?A 
25 
26 
27 
28 
29 
50 
31 
32 
33 
34 
55 
36 
37 
38 
39 
40 
41 
A2 
i3 
44 

45 
46 
47 
48 
49 
50 
5' 


.TITLE   TMPEX5  -  NTL  LINE  TABLE  UPDATE  EXPANSION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1932,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  AcOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  Dl   AL. 

MODULE  DESCRIPTIOfi: 

NTL  -  MUX  CHARACTERISTICS  UPDATE  EXPANSION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FES-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  VI. 1 

4.00     07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


.♦.-1 
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TMPEX5   - 

NTL   LINE    TABLE 

UPDATE 

MACRO  V05.03b 

Saturday 

29-Jun-85   00:43 

MACRO  DEFINITIONS 

638 
639 

001246 

011211 

MOV 

(R2),(R1) 

640 

001250 

011202 

MOV 

(R2),R2 

6^.1 
6A2 

001252 

001327 

8NE 

10$ 

6A3 

001254 

000416 

BR 

100$ 

644 

001256 

005742 

80$: 

TST 

-(R2) 

645 
646 
647 

001260 

010267 

000160' 

MOV 

R2,UBA 

001264 

011167 

000156' 

MOV 

(RD.UBIAS 

648 

001270 

042702 

000077 

BIC 

#77, R2 

649 

001274 

012700 

000162' 

MOV 

#BL0CK.R0 
#32.,Rf 

650 

001300 

012701 

000040 

MOV 

651 

001304 

012220 

90$: 

MOV 

(R2)+,(R0)+ 
R1,90i 

652 
653 
654 

001306 

SOB 

001312 

100$: 

RETURN 

Page  10-1 


*  MAP  TO  THE  NEXT  UNLOAD  BLOCK 
GET  NEXT  UNLOAD  BLOCK  ADDRESS 

«  IF  NE,  THERE  IS  ANOTHER  ONE 

*  RESET  R2  TO  FIRST  WORD  OF  ENTRY 

*  SAVE  UNLOAD  ENTRV  ADDRESS 

*  AND  BIAS 

*  RESET  R2  TO  START  OF  BLOCK 

*  MAKE  A  LOCAL  COPY  OF  THE  UNLOAD  BLOCK 


»  BACK  TO  USER  MODE  AND  THEN  TO  CALLER 
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LOCAL  DATA 
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80 

81 

82 

83 

8A 

85 

86  000000 

87 

do 

89  000000 

90 

91 

92 

93 

94  000002 

95  OOOOOA 

96  000006 

97  000010 

98  000012 

99  OOOOU 

100  000016 

101  000020 

102  000022 

103  000024 
10'.  000026 

105  000030 

106  000032 

107  000034 

108  000036 

109  000040 
'10  000042 

111  000044 

112  000046 

113  000050 

114  000052 

115  000054 

116  000056 

117  000060 

118  000062 

119  000064 

120  000066 

121  000070 

122  000072 

123  000074 

124  000076 

125  000100 

126  000102 

127  000104 

128  000106 

129  000110 

130  000112 

131  000114 

132  000116 

133  000120 

134  000122 

135  000124 

136  000126 


.SBTTL  LOCAL  DATA 


•  It  If  Is 

•  LOCAL  DATA 

•  *** 


000000 


TEMP: 


.PSECT  DATA.D 


.WORD   0 


TEMP   LOCATION 


TRANSFER    TABLE   USING   FUNCTION   CODE   AS    INDEX 


TABLE : 


TTAB$ 
TTABS 
TTAB$ 
TTABS 
TTA8$ 
TTAB$ 
TTABS 
TTA8$ 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 


ADDRB.NULL 

ADDRW.NULL 

BLKB.POPI 

BLKW,P0P1 

BVTE.POPI 

CORE.XCORE 

CSR,P0P1 

CTIM,NULL 

DVCHA.NULL 

EOF .NULL 

FILE.POPI 

INT,P0P2 

LIBR.XLIBR 

LINKS, NULL 

LFILE,P0P3 

LSTHD.NULL 

L TAB, NULL 

MPTAB,P0P3 

MXTAB,P0P1 

NOD, NULL 

PRI.NULL 

PRT0V,P0P1 

SCOM,XSCOM 

SECSR,NULL 

SLNB,NULL 

SLNW.NULL 

STNB,NULL 

STNW,NULL 

UNB,NULL 

UNW,NULL 

W0RD,P0P2 

APR,P0P1 

DPRB,P0P1 

DPRW,P0P2 

TIME,P0P2 

MXPTB,XMXPTB 

PECHA.NULL 

X3CH01,NULL 

X3CH02,NULL 

X3CH03,NULL 

X3CH04,NULL 

X3CH05,NULL 

X3CH06,NULL 


EXPANSION  ROUTINE  .'S  FIRST  ENTRY 
CLEANUP  ROUTINE  IS  SECOND  ENTRY 
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LOCAL  DATA 

710  OOKOO  0A672^  0003A4'  BIC     PRPRI,{RA)t     ;  CLEAR  ACTUAL  PRIORI  TV  BITS 

711  00K04  RETURN 


n  4 
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TMPEXt  CREATED   BY     MACRO     ON  29-JUN-85   AT   00:^5 

SYMBOL   CROSS   REFERENCE 


L     5 

PAGE  k 

CREF       0^.00 


SYMBOL 

VALUE 

REFERENCES 

STNW 

00070^   R 

6-121 

#8-493 

S.COST 

000001 

#5-58 

S.FLG 

000000 

#5-58 

S.LEN 

OOOOOA 

#5-58 

S.NHST 

000002 

#5-58 

S.OWNR 

000003 

#5-58 

TABLE 

000002  R 

#6-94 

7-289 

12-725 

12-750 

14-829 

TEMP 

000000  R 

#6-89 

♦14-848 

♦14-849 

14-850 

♦14-851 

TIME 

002110  R 

6-128 

#14-848 

UNB 

0007A6  R 

6-122 

#8-508 

UNU 

000770  R 

6-123 

#8-518 

WORD 

001012  R 

6-124 

#8-528 

X2CH01 

002306  R 

6-142 

#16-942 

X2CH02 

002334  R 

6-143 

#16-952 

X2CH03 

002362  R 

6-144 

#16-962 

X2CH0A 

002';i0  R 

6-145 

*1 6-972 

X2CH05 

002';36  R 

6-146 

#16-982 

X3CH01 

002204  R 

6-131 

#15-885 

X3CH02 

002212  R 

6-132 

#15-890 

X3CH03 

002220  R 

6-133 

#15-895 

X3CH0A 

002226  R 

6-134 

#15-900 

X3CH05 

002234  R 

6-135 

#15-905 

X3CH06 

002242  R 

6-136 

#15-910 

X3CH07 

002250  R 

6-137 

#15-915 

X3CH08 

002256  R 

6-138 

#15-920 

X3CH09 

002264   R 

6-139 

#15-925 

X3CH10 

002272  R 

6-140 

#15-930 

X3CH11 

002300  R 

6-141 

#15-935 

ZTIME 

=   »•**♦♦      6X 

14-848 

SADDR 

=    »»».*»      GX 

7-277 

11-612 

12-752 

SBIAS 

=   ♦**♦*•     GX 

7-275 

$B1N 

=   »♦»«♦»     GX 

7-282 

SFLAGS 

=   »»*«*»      GX 

7-271 

16-943 

16-953 

16-963 

16-973 

SICBAD 

=    .»...»     GX 

7-263 

11-617 

SICBLN 

=    **»♦»*      GX 

7-264 

$JSROF 

=    ,..*.*     GX 

n-614 

$LDA 

=   »»**♦»     GX 

13-797 

*1 3-801 

$MAPX 

=    ,«**»«      GX 

7-276 

SMXSIZ 

=   ,*.*,»      GX 

14-841 

SPDVA 

=    »»«».*     GX 

7-266 

$PTR 

=   ,»..*.     GX 

7-283 

SSLTSV 

=   ,.*♦.»     GX 

8-370 

SSMTSZ 

=    »*»**«      GX 

7-265 

$TMEX6 

000000  RG 

#7-258 

SUBIAS 

=    »»,♦.*     GX 

9-546 

10-587 

13-796 

SUDA 

-   ,♦.*..      GX 

9-547 

♦9-553 

10-588 

♦10-591 

SVECTI 

=    ♦»....      GX 

11-613 

♦11-702 

.EOF 

-   ■,.....     GX 

n-7i2 

12-747 

14-826 

14-852 


16-983 


TMPEX6 
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TMPEX7  -  NTL  TEMPLATE  EXPANSION 
MACRO  DEFINTIONS 


L  6 

MACRO  VO5.03b  Saturday  29-Jun-85  00:A4  Page  7-1 


A51  000666 

005767  000352' 

A52  000672 

001420 

453  00067A 

016700  000350' 

45-;  000700 

126400  000013 

A55  00070A 

001013 

A56  000706 

032767  OOOOOOG 

457  0007U 

001403 

458  000716 

006200 

459  000720 

006200 

460  000722 

006200 

461  000724 

006300 

462  000726 

016023  000154' 

463  000732 

000401 

464  000734 

005723 

465  000736 

466 

467 

468 

469 

470  000740 

005203 

471  000742 

472 

473 

474 

475 

476  000744 

005723 

477  000746 

478 

479 

480 

481 

482  000750 

005203 

483  000752 

484 

485 

486 

487 

488  000754 

005723 

489  000756 

490 

491 

492 

493 

494  000760 

005203 

495  000762 

496 

497 

498 

499 

500  000764 

005723 

501  000766 

502 

503 

504 

505 

5C6  0007^0 

122525 

507  000772 

005723 

000346' 


SECSR: 


10$: 


20$: 
30$: 


TST 

FLAGS 

BEQ 

20$ 

MOV 

INDEX, RO 

CMPB 

L.UNT(R4),R0 

BNE 

20$ 

BIT 

#FL.KMX,PRFLAG 

BEQ 

10$ 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ASL 

RO 

MOV 

PRSCSR(R0),(R3)+ 

BR 

30$ 

TST 

(R3)t 

IS  IT  MUX  EXPANSION  ? 

NO  .. 

GET  SECONDARY  FILE  COUNTER 

DO  UNIT  NUMBERS  MATCH  ? 

NO  .. 

IS  THIS  A  COMIOP  MUX  LINE  ? 

NO  .. 

YES  ..  DIVIDE  COUNTER  BY  8 

(NUMBER  OF  LINES  PER  CONTROLLER) 

CONVERT  TO  A  WORD  INDEX 
;  COPY  SECONDARY  CSR  ADDRESS 


RETURN 


SYSTEM  LINE  NUMBER    (BYTE) 

SLNB:        INC  R3 

RETURN 

SYSTEM  LINE   NUMBER    (WORD) 
SLNW: 


TST  (R3)+ 

RETURN 


STATION  NUMBER    (BYTE) 
STNB: 


INC  R3 

RETURN 


STATION  NUMBER    (WORD) 
STNW: 


TST  (R3)t 

RETURN 


UNIT   NUMBER    (BYTE) 

UNB:  INC  R3 

RETURN 

UNIT  NUMBER    (WORD) 

UNW:  TST  (R3)t 

RETURN 


SINGLE    WORD 


WORD: 


CMPB 
TST 


(R5)i 
(R3)< 


,(R5)< 


n   6 
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TMPEX7     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:44 
SYMBOL  CROSS  REFERENCE 


L  7 

PAGE  1 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

ADDRB 

000560  R 

5-91 

#7-293 

ADDRW 

000364  R 

5-92 

#7-299 

APR 

001346  R 

5-122 

#9-637 

BLKB 

000370  R 

5-93 

#7-305 

BLKW 

000406  R 

5-94 

#7-315 

BLOCK 

000360  R 

#5-179 

k'iV, 

10-713 

BYTE 

000426  R 

5-95 

#7-326 

CORE 

000432  R 

5-96 

#7-332 

GSR 

000442  R 

5-97 

#7-340 

CTIM 

000450  R 

5-98 

in-liii, 

DPRB 

001352  R 

5-123 

#9-644 

DPRW 

001356  R 

5-124 

#9-650 

OVCHA 

000454  R 

5-99 

#7-352 

EOF 

000554  R 

5-100 

#7-381 

FILE 
FLAGS 

001002  R 
000352  R 

5-101 
#5-172 

#8-514 
♦6-202 

7-352 

7-369 

7-432 

7-451 

♦8-513 

8-517 

♦8-546 

*8-574 

♦9-580 

♦9-616 

12-783 

12-796 

12-809 

12-822 

12-835 

FLT 

001362  R 

#10-667 

FLT16 

001362  R 

6-242 

#10-666 

FL.KMX 
INDEX 

=  »»«*«»  GX 
000350  R 

7-456 
#5-167 

♦6-201 

7-354 

7-371 

7-434 

7-453 

8-519 

♦8-541 

8-542 

♦8-545 

♦8-569 

8-570 

♦8-573 

9-588 

♦9-610 

9-611 

♦9-615 

12-785 

12-798 

12-811 

12-824 

12-837 

INT 

000556  R 

5-102 

#7-386 

I$$AS 

-   ****** 

6-269 

8-522 

9-591 

LFILE 

001112  R 

5-105 

#8-558 

LF.ACT 

=  100000 

#5-60 

LF.BRO 

=  000400 

#5-60 

LF.BWT 

=  000007 

#5-60 

LF.ENA 

=  002000 

#5-60 

LF.LPB 

=  001000 

#5-60 

LF.MDC 

=  000100 

#5-60 

LF.MFL 

=  004000 

#5-60 

LF.MTP 

=  000020 

#5-60 

LF.PAC 

=  000200 

#5-60 

LF.RDY 

=  040000 

#5-60 

LF.REA 

=  010000 

#5-60 

LF.SER 

=  000040 

#5-60 

LF.TIM 

=  000010 

#5-60 

LF.UNL 

=  020000 

#5-60 

LF.X2P 

=  000000 

#5-60 

LISR 

000566  R 

5-103 

#7-393 

LINKS 

000576  R 

5-104 

#7-401 

LN.CLO 

=  000000 

#5-60 

LN.DUM 

=  000005 

#5-60 

LN.LOA 

=  000004 

#5-60 

LN.LOO 

=  000005 

#5-60 

LN.OAU 

=  000003 

#5-60 

LN.OFF 

=  000001 

#5-60 

LN.ON 

=  000000 

#5-60 

LN.OOP 

=  000004 

#5-60 

LN.OPE 

=  000001 

#5-60 

TMPEX7 
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TMPINl 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE 


L  8 

PAGE  1 

CREF   OA.OO 


FL.CHA 

FL.DDM 

FL.LLC 

FMTO 

FMT3 

FM.O 

FM.5 

FNDADD 

F1.UMR 

K.CSR 

<.VCT 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2F 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.DN 

LN.OOP 

LN.OPE 

LN.REF 


=  ****** 
=  ****** 
=  ****** 

000072  R 

000073  R 
=  000000 

=  000000 
000274  r 

-   ****** 

000002 
000001 
=  100000 
=  000400 
=  000007 
=  002000 
=  001000 
=  000100 
=  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  000040 
=  000010 
=  020000 
=  000000 
=  000000 
=  000005 
=  000004 
=  000003 
=  000003 
=  000001 
=  000000 
=  000004 
=  000001 
000002 


GX 
GX 
GX 


GX 


LN.SER 

=  000002 

LN.STA 

=  000017 

LN.SUB 

=  000360 

LN.TRI 

=  000006 

L.COST 

000015 

L.CTL 

000012 

L.CVA 

177776 

L.DDM 

000002 

L.DDS 

000004 

L.DLC 

000003 

L.DLM 

000006 

L.DLS 

000010 

L.FLG 

000000 

L.KRBA 

000016 

L.LEN 

=  000022 

L.MPF 

000022 

REFERENCES 

6-141 
6-135 
6-181 
5-88 
5-87 
#5-88 
#5-87 
6-155 
6-126 
6-166 
6-152 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 


#5-97 
#5-98 


#7-201 


6-138 


6-142 


TMPINI 
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TMPSTB  -  NTL  TEMPLATE  STATE  TAB  MACRO  V05.03b  Saturday  29-Jun-85  00:A5 
.BYTE, .CORE 

212 
215 
2U 
215 

216  000002 

217  000002 

218  000002 

219  000002 

220  000002 

221  000002 

222  000002 

223  000002 

224  000002 

225  000002 

226  000002 
227 
228 
229 
230 

231  0u0002 

232  000002 

233  000002 
23A  000002 

235  000002 

236  000002 

237  000002 
238 

239  000002 
2A0 
2a1 
242 

243  000002 
244 

245  000002 

246  000002 
247 
248 
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.SBTTL 

.BYTE, .CORE 

;  ".BYTE" 

STATES 

BYTE 

TRANS 

:exp,bytei,sbyte 

TRANS 

<',>,8YTE2,$ZBYTE 

TRANS 

ierror,sexit 

STATES 

bytei 

TRANS 

lEND.SEXlT 

TRANS 

<',> 

STATES 

BYTE2 

TRANS 

:EXP, BYTEI, SBYTE 

TRANS 

<',>,BYTE2,SZ8YTE 

TRANS 

IEND,SEXIT,SZBYTE 

•  ".CORE" 

STATES 

CORE 

TRANS 

IP0SEXP,C0RE1,SC0RE1 
IERROR,SEXIT 

TRANS 

STATES 

COREI 

TRANS 

IEND,SEXIT, SCORE 

TRANS 

<'  ,> 

STATES 

.IF  Df 

MSSMGE 

TRANS 

IPOSEXP,CORE2,SCORE2 

.IFF 

TRANS 

:EAT,0NLY2, SCORE 

.IFTF 

TRANS 

!ERROR,SEXIT 

.IFT 

STATES 

C0RE2 

TRANS 

SLAMDA,0NLY2, SCORE 

.ENDC 

N  9 
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1 

2 

3 

I, 

5 

6 

7 

8 

9 
10 
11 
\2 
15 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE 
.IDENT 


TMPVCT  -  NTL  VECTOR  SETUP  ROUTINES 
/V05.00/ 


COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BF  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  INTERRUPT  VECTOR  SETUP  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-11M-PLUS  VI.'. 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V5.0 
DECnet-Micro/RSX  Vl.O 
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TMPVCT  CREATED  8V     MACRO     ON  29-JUN-85  AT   00:A7 

SYMBOL  CROSS  REFERENCE 


L  11 

PAGE  2 

CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

L.MPF 

000022 

#5-67 

9-479 

L.NMST 

000020 

#5-67 

•9-497 

L.NSTA 

OOOOU 

#5-67 

9-472 

L.OUNR 

000021 

#5-67 

*9-496 

L.UNT 

000013 

#5-67 

MANIN! 

000642 

R 

8-431 

#9-460 

M$$MGE 

=  000000 

6-248 

7-347 

NSITAB 

000000 

R 

#5-78 

6-161 

NSITMP 

000022 

R 

#5-89 

NSC 

=      »♦*♦** 

GX 

5-78 

NSl 

r     ****** 

GX 

5-79 

N52 

-     ****** 

GX 

5-80 

NS3 

-     ****** 

GX 

5-81 

NS4 

-     ****** 

GX 

5-82 

NS5 

=     ****** 

GX 

5-83 

NS6 

z;     ****** 

GX 

5-84 

NS7 

-     ****** 

GX 

5-85 

PR7 

=     ****** 

GX 

6-228 

6-251 

6-261 

PS 

=:     ****** 

GX 

*6-228 

•6-268 

R$$EIS 

-     ****** 

6-159 

R$$MPL 

r     ****** 

5-59 

5-97 

6-152 

6-230 

R$$11D 

r     ****** 

6-159 

R$$11M 

=  000000 

6-149 

SF.ACT 

=  000200 

#5-67 

SF.ENA 

=  000100 

#5-67 

SF.LPB 

=  000004 

#5-67 

SF.MFL 

=  000040 

#5-67 

SF.PAC 

=  000020 

#5-67 

SF.REA 

=  000010 

#5-67 

5F.SER 

=  000001 

#5-67 

SF.SVC 

=  000002 

#5-67 

SF.UNL 

=  000040 

#5-67 

SLTMA 

=    ****** 

■jV 

7-380 

9-462 

9-470 

SLTNM 

=    ****** 

G/, 

7-376 

9-461 

S$$BAS 

=    *■   ■  *** 

5-96 

5-96 

S.COST 

000001 

#5-67 

S.FLG 

000000 

#5-67 

S.LEN 

000004 

#5-67 

9-488 

S.NMST 

000002 

#5-67 

♦9-487 

S.OWNR 

000003 

#5-67 

•9-486 

ZF.PSE 

z:     ****** 

GX 

6-133 

Z.DAT 

r     ****** 

GX 

*7-368 

Z.D5P 

=:     ****** 

GX 

7-357 

Z.FLG 

=     ****** 

6X 

6-133 

z.pca 

-     ****** 

GX 

8-421 

8-424 

$ADDR 

=     *♦**♦♦ 

GX 

6-249 

6-26? 

7-351 

7-360 

SDDMPV 

-     ****** 

GX 

8-423 

SDLCPV 

-     ****** 

GX 

7-353 

8-419 

$ERR38 

000026 

R 

#5-96 

6-315 

SFLAGS 

r     ****** 

GX 

6-135 

6-137 

7-344 

7-348 

$FLAG1 

-     ****** 

GX 

6-130 

•6-270 

6-313 

7-340 

JKBAD 

r     ****** 

GX 

6-252 

6-271 


6-306 


8-434 


7-354 


7-363 


7-365 


7-370 


TMPVCT 
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»F1LE>«10"UNLPS1 
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uu    uu 

NN 

NN 

PPPPPPPP 

SSSSSSSS 

Illlil 

uu    uu 

NN 

NN 

PPPPPPPP 

SSSSSSSS 

iiini 

uu    uu 

NN 

NN 

PP      PP 

SS 

11 

uu    uu 

NN 

NN 

PP      PP 

SS 

uu    uu 

NNNN 

NN 

PP      PP 

SS 

uu    uu 

NNNN 

NN 

PP      PP 

SS 

uu    uu 

NN  NN 

NN 

PPPPPPPP 

ssssss 

:i 

uu    uu 

NN  NN 

NN 

PPPPPPPP 

ssssss 

11 

uu    uu 

NN 

MNNN 

PP 

ss 

J 

uu    uu 

NN 

NNNN 

PP 

SS 

}} 

uu    uu 

NN 

NN 

PP 

ss 

uu    uu 

NN 

NN 

PP 

SS 

I 

uuuuuuuuuu 

NN 

NN 

LLL 

.LLLLLL 

PP 

SSSSSSSS 

niiii 

uuuuuuuuuu 

NN 

NN 

LLLLLLLLLL 

PP 

SSSSSSSS 

mill 

SSSSSSSS 

TTTTTl 

TTTT 

SSSSSSSS 

TTTTT1 

Mil 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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Symbol  table 
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TSSUNT 

T$S<MG= 

T$$M1N= 

T.ACTL 

T.ASTL 

T.ATT 

T.CPCB 

T.DPRI 

T.EFLG 

T.IOC 

T.LBN 

T.LDV 

T.LNK 

T.MXSZ 

T.NAM 

T.OFF 

T.PCB 

T.PRI 

T.RCVL 

T.RRFL 

T.SAST 

T.SRCT 

T.STAT 

T.ST2 

T.ST3 

T.TCBL 


OOOOOA 
000000 
000000 
000052 
000016 
000062 
000004 
000040 
000022 
000003 
000041 
000044 
000000 
000050 
000006 
000066 
000046 
000002 
000012 
000072 
000054 
000071 
000032 
000034 
000036 
000030 


T.TIO 

T.TKSZ 

T.UCB 

T2.AB0= 

T2.AST= 

T2.CAF= 

T2.CHK= 

T2.CKD= 

T2.DST= 

T2.FXD= 

T2.HLT= 

T2.REX= 

T2.SEF= 

T2.SPN= 

T2.STP= 

T2.WFR= 

T3.ACP= 

T3.CAL= 

T3.CL1= 

T3.GFL= 

T3.MCR= 

T3.NET= 

T3.NSD= 

T3.PMD= 

T3.PRV= 


000057 
000060 
000026 
000100 
100000 
000400 
020000 
010000 
040000 
002000 
000200 
001000 
004000 
000004 
000020 
000001 
100000 
000100 
001000 
000010 
004000 
000020 
000200 
040000 
010000 


T3.REM= 

T3.R0V= 

T3.RST= 

T3.SLV= 

T3.SUS= 

V$$CTR= 

XA$NC0= 

XA$RR  = 

XA$UCL= 

XA$URE= 

XF$NC0= 

XF$0FF= 

XF$0R]= 

XF$0TI= 

XF$TIL= 

XF$TIR= 

XLDTE 

XPORT 

XTRA 

Xr$CHN= 

XT$DGR= 

XT$FAS= 

XT$INC= 

xr$ouc= 

XT$PVC= 


020000 

000040 

000400 

002000 

000002 

001000 

000020 

000200 

000040 

000100 

000020 

000200 

000002 

000001 

000010 

000004 

000250R 

000436R 

00061  OR 

000100 

000002 

000200 

000004 

000010 

000001 


XX29 

000560R 

X$ABQ 

000076 

X$ALF 

000055 

X$AUC 

000056 

X$CLEN= 

000025 

XSCTIM 

000060 

XSDIAG 

000003 

X$DTE 

000024 

X$FLG 

000014 

XSGLEN 

000106 

X$LCN 

000026 

X$LEN 

000106 

XSMOWN 

000023 

XSNLRE 

000052 

XSNNRE 

000054 

X$NPL 

000006 

X$NPR 

000007 

X$NRBY 

000032 

XSNRPK 

000042 

XSNRRE 

000053 

X$NT8Y 

000036 

XSNTPK 

000046 

XSPKSZ 

000016 

X$PR 

000011 

X$PRT 

000021 

X$PS 

000010 

X$RPR 

000013 

X$RPS 

000012 

XSRTRY 

000002 

X$RXI 

000104 

XSRXQ 

000072 

X$SS 

000004 

X$ST 

000005 

XSTCLZ 

000030 

XSTIMC 

000001 

XSTJHR 

000000 

X$TXI 

000102 

X$TXQ 

000066 

X$TYP 

000015 

XtUSR 

000022 

XSUAQ 

000062 

XSWSZ 

000020 

X$$OBT= 

000000 

$CEACX= 

****** 

GX 

$DEA16= 

****** 

GX 

$DECEX= 

****** 

GX 

$XDEAC= 

****** 

GX 

$XPSI 

OOOOOORG 

$$$   = 

000062 

$$$R  = 

000010 

.  ABS.  000134 
000724 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,QVR) 
(RW,1,LCL,REL,C0N) 


'*♦  Assembler  statistics 

Work   file  reads:  60 

Work   file  writes:  63 

Size  of  work  file:  20003  Words   (  79  Pages) 

Size  of  core  pool:  17608  Words  (  67  Pages) 

Operating  system:  RSX-11M/PLUS 

DB2:UNLPS!'!'T34?n32;n43UNLPSI/CR/-SP=DB2:[1  J]RSXMCM.SML/m,n30,110]NFTLIB/ML,C130,10]RSXMCM/PA:1,[132,101UNLPSI 


UNLPSI 
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UNLSUB  -  NIL  UNLOAD  SUBROUTINES  MACRO 
FNOADD  -  HND  LINE  TABLE  ADDRESS 


221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234  00007A 

235 

236 

237 

238 

239 

240 

241  000074 

242  000076 

243  000100 

244  000104 

245  000110 

246  000114 

247  000116 
248 

249 
250 
251 
252 
253 
254 
255 
256 
?57  000122 


V05.03b  Saturday  29-jLin-85  00:48  Page  11 

.S8TTL  fNDADD  -  FIND  LINE  TABLE  ADDRESS 

FNDADD  -  FIND  LINE  TABLE  ADDRESS 

INPUTS: 

R3  =  VECTOR  ADDRESS 

OUTPUTS: 

R3  =  LINE  TABLE  ADDRESS 

FNDADD:: 


011303 

010302 

066702  OOOOOOG 

162702  000004 

022712  004537 

001406 

022712  000137 


c58 
259 
260 

261  000124 

262  000130 
263 

264  000132 

265 

266 

267 

268 

269 

270 

2^1 

272 

273  COO'32 

274 

275 

276 

277  000134 


001004 


062702  000002 
011203 


.IF  DF   R$$MPL 

SWSTK$ 

20$ 

.IFTF 

DF  R$$MPL 

MOV 
MOV 
ADD 
SUB 
CMP 
BEQ 
CMP 

(R3),R3 

R3,rJ 

$IC8LN,R2 

#4,R2 

#4537, (R2 

10$ 

#137, (R2) 

;  ; 

.IFT 

DF  R$$MPL 

BED 
CLR 
BR 

5$ 
R3 
10$ 

.IFF    ; 

DF  R$$MPL 

BNE 

101$ 

; 

.IFTF 

DF  R$$MPL 

5$: 

ADD 

MOV 

#2,R2 
(R2),R3 

•:■: 

10$: 

.IFT     ; 

DF  R$$MPL 

MOV 
RETURN 

R3,10(SP) 

•:•: 

20$: 

TST 
BEQ 

RETURN 

R3 

101$ 
.ENDC 

DF  R$$MPL 

;  ERROR 

CONDITIONS 

i01$: 

CRASH 

J* 

ENTER  KERNEL  MODE  ON  M+  ONLY 


POINT  TO  KB  OR  LINE  TABLE 

COPY  KB  OR  LINE  TABLE  ADDRESS 

POINT  TO  END  IF  KB 

POINT  TO  POSSIBLE  JSR  INSTRUCTION 

IF  "JSR  R5,X",  THEN  THIS  IS  LINE  TABLE 

..ADDRESS 

IF  "JMP  line-table",  THEN  LINE  TABLE 


..ADDRESS  IS  NEXT  WORD 
ELSE,  ERROR 


..ADDRESS  IS  NEXT  WORD,  ELSE  ERROR 


POINT  TO  REAL  TIME  LINE  TABLE  ADDRESS 
SAVE  REAL  LINE  TABLE  ADDRESS 


RETURN  LINE  TABLE  ADDRESS  IN  R3 
BACK  TO  USER  MODE 

SUCCESS  ? 

IF  EO,  NO  ..  ERROR 


WHAT  IS  R3  POIN'ING  AT  ?' 


H  14 


n    I"* 
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XlBR      created  BV  macro  on  29-JUN-85  AI  00:^9 
SVMBOl  CROSS  REFERENCE 


SYMBOL   VALU3 


BLUSIZ 

LBADR 

LBALL 

lbias 

LBSIZ 

LB. ADR 

LB.SIZ 

LB. USE 

M$$MGE 

NLBL< 

NTLPT 

$DEA18 

SMAOX 

tXLBR 

.CXLBR 


000001 
000000  R 
000002  R 
000004  R 
000000 

****** 


GX 
......  GX 

......  GX 

000000 
000006  R 
......  GX 

......  GX 

......  GX 

000000  RG 
......   GX 


REFERENCES 

#5-75 
#5-65 
#5-66 
#5-68 
#5-67 

6-10A 

6-105 
•6-101 

5-6A 
#5-69 

6-95 

6-137 

6-99 
#6-90 

6-117 


6-UO 

5-67 

•6-93 

•  6-94 

•6-105 


5-75 
•  6-95 

6-Ul 
•6-119 


•6-92 
•6-104 
•  6-1U 
6-136 


5-76 
6-107 


6-122 


L  15 
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CREf   04.00 


6-100 
6-154 
6-138 


6-115 


<lBR 
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XXBUf  -  END  Of  TASK  BUffER  INIT  MACRO  V05.0?b  Saturday  29-Jun-85 
Symbol  table 


U? 


9  Page  6-1 


At$CHK= 
A$tCPS: 
AttPRl= 
A$tTRP= 
C$$CKP= 
Ct$ORE= 
rS$RSH= 
D$$BUG=- 
D$tISI<,= 
0$SL11= 
Dt$yNC= 
DStvNM= 
Et$XPR= 


000000 
000000 
000000 
000000 
000000 
OOOAOO 
17756A 
1775U 
000000 
000001 
000000 
000000 
000000 


F$$LVL= 
G$$TPP= 
G$$TSS= 
G$STT<= 
G$$WRD= 
IS$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$L[)C  = 
Kl$TPS= 
LD$LP  = 
L$SASG= 


000001 
000000 
000000 
000000 
000000 
000000 
000000 
1775';6 
177546 
000000 
000074 
000000 
000000 


L$$DRV= 
L$$P11= 
L$$11R= 
M$$CRe= 
M$$CRX= 
f1S$fCS= 
M$$MGE= 
M$$NET= 
M$$0VR= 
N$$ACC= 
N$$BUF= 
N$$LDV= 


000000 
000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 


N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$WRD= 
Q$$OPT= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 


000001 
000001 
000010 
000001 
000001 
000000 
000000 
000010 
000000 
000001 
000000 
000000 


S$$WRG= 

s$$vsz= 

r$$KMG= 

T$$MIN= 

V$$CTR= 

XXBUF 

X$$DBT= 

$8FLEN= 

SXXAVL 

$XXBUF 

IXXINI 

$XXLEN 


000000 

007600 

000000 

000000 

001000 

000004R 

000000 

001130  G 

001136RG 

OOOOOORG 

OOOOOORG 

000002RG 


002 


002 
002 

002 


.  ABS.  000000 
000050 
DATA    001142 
Errors  detected: 


000 
001 
002 
0 


(RW,!,GBL,ABS,0VR) 
(RW,1,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 


•*•  Assembler  statistics 


Work  file  reads; 
WorK  file  writes: 
Sizr  of  work  file: 
Size  of  core  pool : 
Operatirig  s/stem: 


0 

0 

8926  Words      (   ')5   Pagps) 

K440  Words     (    55  Pages) 

RSX-11M/PIUS 


SY:XxauF!v2!n32;°34]XXBUF/fR/-SP=5V:[1  J]RSX^ICM.S^1L/^IL,[130J10]NETLI8/^lL,tl30JOJRSXMCM/PA:l  J132J0JXX8 
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TMPEXS  -  NTl  line  MBLE  UPDATE 

MAiRC  BEMNIMONS 

55 

56 

57 

58 

59 

60 

61 

62  000000 

63 

eA 

65 

66 

6^ 

68 

69  000000 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

8' 

82 

85 

8A 

85 

86  OCOOOO 

87 

88 

39 

90 

91  OOOOCO 

92  000002 

93  000004 

94  000006 

95  000010 

96  000012 

97  OOOOH 

98  00CC16 

99  C00020 

100  000022 

101  0OO024 

102  000026 

105  000030 

n4  000052 

105  000034 

106  000036 

107  000040 

108  OOO'-^.^ 

10=  :c( 

MO  CCC   - 

111  CC'irtO 

H  1 
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.SBTTL  MACRO  DEMNITIONS 
•  **• 
':    MACRO  CALLS 


.MCALL  NKR[)F$, SLIDES, SAVRG,RESRG 


SLIDES 

.IF  DE   RSSMPL 
.MCALL  KRSDES 
KRBDES 
.ENDC 

NKRDES 


;  DEFINE  SLI  0FF5EIS 

;  DEFINE  I^RB  OFFSEIS 

;  DEFINE  NEIWORK  KRB  OFFSETS 


•  **  * 

•  LOCAL  MACROS 
;  *** 


;  DEFINE  TRANSFER  TABLE  ENTRY 

.MACRO 

ITABS   AA.BS 

.WORD 

AA 

.ENDM 

TTABS 

■  *  *  * 

;  LOCAL  DATA 

•  *** 

.PSECT 

DAIA.D 

;  TRANSFER  TABLE  USING  FUNCTI 

tABLE:   IIABS 

ADDRB.NULL 

TTABS 

ADDRW.NULL 

ITABS 

BLKB.POPI 

TTABS 

BLKU.POPl 

TTABS 

BYTE,P0P1 

TTABS 

CORE.XCORE 

TTABS 

CSR.POPI 

TTABS 

CTIM.NULL 

TTABS 

DVCHA.NULL 

TTABS 

EOF, NULL 

TTA8S 

FUE.POPl 

TTABS 

INT,PDP2 

TTABS 

LIBR.XLIBR 

TTABS 

LINKS, NULL 

TTABS 

LFILE.POP') 

TTABS 

LSTHD.NULL 

TIaBS 

LIA6,NULL 

TTABS 

MPIA8,P0P3 

ITABS 

MXIA6,P0P1 

TTABS 

NOD, NULL 

TTABS 

PRI,NULL 

EXPANSION  ROUTINE  IS  FIRST  ENTRY 
CLEANUP  ROUTINE  IS  SECOND  ENTRY 


(Mtro 


Ml 


INF 


N  1 
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TMPEXS  - 
X3CH 

656 
657 
658 
659 
660 
661 


N  2 

Wl   LINE  TABLE  UPDATE  MACRO  V05.03b  Saturday  29-Jun-85  00;43  Page  11 

.SBTTL   X3CH 


001 
662  001 
663 
66A 
665 

666  001 

667  001 
668 
669 
670 

671  001 

672  001 
673 
67A 
675 

676  001 

677  001 
678 
679 
680 
681 
682 
683 
68A 
685 

686  001 

687  001 


31',  005723 
316 


320  005723 
322 


324  005203 
326 


330  005203 
332 


001 
001 


334  005203 
536 


3A0  005205 
342 


689 
690 

691  001344 

692  001346 
693 

694 
695 

696  001350 

697  001352 
698 

699 
700 

701  001554 

702  001556 
703 

704 
705 

706  001360 

707  001362 
708 

709 
710 

711  001364 

712  001566 


005205 


005205 


005205 


005203 


005203 


DEFAULT  BLOCK  SIZE 

X3CH01:  TST  (R3j* 
RETURN 

MAXIMUM  BLOCK  SIZE 

X3CH02:  TST  (R3)t 
RETURN 

DEFAULT  UINDOW  SIZE 


X3CH03:  INC 

RETURN 


R3 


MAXIMUM  WINDOW  SIZE 


X3CH04:  INC 

RETURN 

CALL  TIMER 

XjCHOS:  INC 

RETURN 

CLEAR  TIMER 


X3CH06: 


INC 
RETURN 


R5 


R5 


R3 


RESET  TIMER 

X3CH07:  INC     R5 
RETURN 

RESTART  TIMER 

X5CH08:  INC     R5 
RETURN 

MAXIMUM  CLEAR  VALUE 

X5CH09:  INC     R3 
RETURN 

MAXIMUM  RESETS  VALUE 

X3CH10:  INC     R3 
RETURN 

MAXIMUM  RESTARTS  VALUE 


X3CH11:  INC 

RETURN 


R3 
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TMPEX6  - 

NTL  Tr.'i 

LOCAL  DATA 

137 

000130 

138 

300132 

139 

3001 3A 

UO 

300136 

141 

3001A0 

K2 

000142 

K3 

300K4 

UA 

000H6 

1A5 

000150 

U5 

000152 

K7 

K8 

H9 

150 

151 

152 

000154 

153 

15A 

155 

156 

157 

158 

159 

160 

161 

162 

163 

16A 

165 

000156 

166 

167 

168 

169 

170 

000160 

171 

172 

173 

17A 

175 

000162 

176 

177 

000164 

178 

179 

180 

181 

000166 

182 

000170 

183 

000172 

18A 

000174 

185 

186 

187 

188 

189 

000176 

190 

000200 

191 

000202 

192 

193 

000204 

M  3 
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TTAB$ 
TTAB$ 
TTABS 
TTA8$ 
TTABS 
TTAB$ 
TTABS 
TTAB$ 
TTABS 
TTABS 


X3CH07,NULL 
X3CH08,NULL 
X3CH09,NULL 
X3CH10,NUi  L 
X3CH11,NULL 
X2CH01,NULL 
X2CH02,NULL 
X2CH03,NULL 
X2CH04,NULL 
X2CH05,NULL 


120000 


.IF  DF  RSS11M 
INITIAL  DISPLACEMENT  FOR  ALL  ADDRESS  REQUESTS 
PRAPR:   .WORD   120000         ;  USE  APR5 
.IFF 
INITIAL  DISPLACEMENT  FOR  ALL  ADDRESS  REQUESTS 
PRAPR:   .WORD   60000         ;  USE  APR3 
.ENDC 

SECONDARY  FILE  INDEX  VALUE 
INDEX:   .BLKW   1 


MUX/MTP  FLAGS 
FLAGS:   .BLKW   1 

STATUS  FLAG 
PRFLAG:  .BLKW   1 
STLIN:   .BLKW   1 

KB  ALLOCATION  DATA 


IC8AD 
ICBPT 
NXTLN 
IC8LN 


.BLKW  1 

.BLKW  1 

.BLKW  1 

.BLKW  1 


;  100000=MUX,  200=MTP 

;  COPY  OF  GLOBAL  STATUS  FLAG 
;  START  OF  LINE  TABLE 


ADDRESS  OF  KB 
POINTER  INTO  KB  Of  CURRENT 
COUNT  OF  CURRENT  ".INT"  «  2 
KB  LENGTH 


.INT' 


LOCAL  COPY  OF  GLOBAL  SYMBOL  TABLE  FROM  ".'.TLRoO' 


PRPDVA 
PRNAME 
PR8IAS 


.BLKW 
.BLKW 
.BLKW 


PRPC8:   .BLKW   1 


PDV  ADDREjS 
RAD50  PDV  NAME 
RELOCATION  BIAS 

PCB  ADDRESS 
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LOCAL  DATA 


715 
7U 
715 

716  00U06 

717  fOI^U 

718  C.1U16 

719  00U20 

720  00U22 

721  00H2A 

722  00U26 

723  00K32 
IIU  00U34 

725  00U36 

726  001 A42 

727  00UA4 

728  001A50 

729  0OU56 

730  00U6O 

731  001462 

732  00U66 

733  001472 
734 

735 
736 
737 

738  001474 

739  001502 

740  001504 

741  001506 

742  001512 

743  001514 

744  001516 

745  001520 

746  001522 

747  001524 

748  001530 

749  0C1532 

750  001534 

751  0015^0 

752  001542 

753  001546 

754  001552 

755  001554 

756  001560 

757  001564 

758  001570 

759  001572 

760  001574 

761  001576 

762  001602 

763  001604 

764  001606 

765  001610 

766  001614 

767  001620 

768  001624 

769  001632 


012767 
112546 
010546 
011605 
005003 
152503 
122703 
001404 
106303 

000767 
005267 
126667 
001360 
022626 
005067 
005067 


012767 
112546 
112546 
112566 
010546 
011605 
010446 
005003 
152503 
022703 
001404 
106303 

000767 
016700 
042700 
050200 
066600 
016003 
046703 
050203 
011613 
040213 
056713 
012603 
005013 
040203 
056703 
010360 
005267 
126667 
001330 


100000  000160' 


OOOOOOG 


SECONDARY  FILE 


MX  TAB: 
FILE: 

10$: 
20$: 


000156' 

000002  000156' 


000156' 
000160' 


000200  000160' 
000001 

OOOOOOG 


30$: 


MOV 

MOVB 

MOV 

MOV 

CLR 

BISS 

CMPS 

BEQ 

ASLB 

CALL 

BR 

INC 

CMPB 

BNE 

CMP 

CLR 

CLR 

RETURN 


*100000, FLAGS 

(R5)+,-(SP) 

R5,-(SP) 

(SP),R5 

R3 

(R5)+,R3 

#.E0F,R3 

30$ 

R3 

aTABLE-2(R3) 

20$ 

INDEX 

2(SP), 

10$ 

(SP)+, 

INDEX 

FLAGS 


INDEX 
(SP)» 


LINKED  SECONDARY  FILE 


MP TAB: 
LFILE: 


OOOOOOG 
160000 

000004 
000002 
000154' 


000154' 


10$: 
20$: 


30$: 


000154' 

000002 

000156' 

000004  000156' 


MOV 

MOVB 

MOVB 

MOVB 

MOV 

MOV 

MOV 

CLR 

BISB 

CMP 

BEQ 

ASLB 

CALL 

BR 

MOV 

BIC 

BIS 

ADD 

MOV 

BIC 

BIS 

MOV 

BIC 

BIS 

MOV 

CLR 

BIC 

BIS 

MOV 

INC 

CMPB 

BNE 


#200, FLAGS 

(R5)+,-(SP) 

(R5)+,-(SP) 

(R5)+,1(SP) 

R5,-(SP) 

(SP),R5 

R4,-(SP) 

R3 

(R5)+,R3 

#.E0F,R3 

30$ 

R3 

aTABLE-2(R3) 

20$ 

$ADDR,RO 

#160000, RO 

R2,R0 


,R0 
,R3 


4(SP), 

2(R0), 

PRAPR,R3 

R2,R3 

(SP),(R3) 

R2,(R3) 

PRAPR,(R3) 

(SP)+,R3 

{R3) 

R2,R3 

PRAPR,R3 

R3,2(R0) 

INDEX 

4(SP), INDEX 

10$ 
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INDICATE  MUX  EXPANSION 

GET  REPEAT  COUNT 

SAVE  CURRENT  BINARY  FILE  POINTER 

RESTORE  BINARY  FILE  POINTER 

GET  FUNCTION  CODE 

IS  IT  END  OF  FILE? 

IF  EO,  YES 

CONVERT  TO  A  WORD  INDEX 

EXPAND  A  FIELD 

KEEP  LOOKING  FOR  EOF 

TALLY  ONE  PASS  THRU  SECONDARY  FILE 

ARE  WE  DONE? 

IF  NE,  NO 

PURGE  STACK 

CLEAR  SECONDARY  INDEX 

AND  SPECIAL  FLAGS 


INDICATE  MTP  EXPANSION 

SAVE  REPEAT  COUNT 

AND  LISTHEAD  DISPLACEMENT 

SAVE  BJNARY  POINTER 

RESET  BINARY  POINTER 

SAVE  SECONDARY  TABLE  ADDRESS 

GET  FUNCTION  CODE 

IS  IT  END  OF  FILE? 

IF  EO,  YES 

CONVERT  TO  WORD  INDEX 

EXPAND  A  FIELD 

KEEP  LOOKING  FOR  EOF 

GET  MULTIPOINT  LISTHEAD  ADDRESS 

CLEAR  CURRENT  APR 

USE  OUR  APR 

ADD  IN  LIST  HEAD  DISPLACEMENT 

POINT  AT  LAST  ENTRY  IN  LINKED  LIST 

CLEAR  OUT  THE  USER'S  APR  VALUE 

SET  UP  OUR  OWN  APR 
PLACE  LINK  TO  NEW  LAST  ENTRY  IN 

OLD  LAST  ENTRY,  REPLACE  OUR  APR 

WITH  USER'S  APR 
POINT  AT  NEW  LAST  ENTRY 
ZERO  OUT  IT'S  LINK 
REPLACE  OUR  APR  VALUE  WITH 

USER'S  APR  VALUE 
RESET  POINTER  TO  LAST  ENTRY 
TALLY  ONE  PASS  THRU  SECONDARY  FILE 
ARE  WE  DONE? 
IF  NE,  NO 


N  A 
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MACRO  CROSS  REFERENCE  CREF       OA.OO 


MACRO  NAME 

REFERENCES 

A5L$ 

#5-56 

9-560 

CALL 

7-273 

7-276 

7-289 

12-725 

12-750 

14-829 

CALLR 

K-842 

CRASH 

8-399 

DHBDFS 

#5-56 

5-59 

RESRG 
RETURN 

#5-56 
7-291 

8-372 
8-303 

8-305 

8-315 

8-317 

8-325 

8-334 

8-340 

8-348 

8-353 

1  \  l_    1   wl  \  ■  V 

8-375 

8-378 

8-394 

8-405 

8-415 

8-421 

8-436 

8-438 

8-445 

8-451 

8-462 

8-475 

8-486 

8-488 

8-501 

8-503 

8-511 

8-513 

8-521 

8-523 

8-530 

9-566 

10-593 

11-704 

11-711 

12-733 

12-773 

13-807 

14-853 

14-863 

14-865 

14-872 

14-878 

15-886 

15-891 

15-896 

•5-901 

15-906 

15-911 

15-916 

15-921 

15-926 

15-931 

15-936 

16-948 

16-958 

16-968 

16-978 

16-988 

SAVRG 

#5-56 

8-369 

SlTDFS 

#5-56 

5-58 

SOB 

9-562 

10-582 

SWSTKS 
TTAB$ 

7-273 
#5-76 

6-04 

6-95 

6-96 

6-97 

6-98 

6-99 

6-100 

6-101 

6-102 

6-103 

6-104 

6-105 

6-106 

6-107 

6-108 

6-109 

6-110 

6-111 

6-112 

6-113 

6-114 

6-115 

6-116 

6-117 

6-118 

6-119 

6-120 

6-121 

6-122 

6-123 

6-124 

6-125 

6-126 

6-127 

6-128 

6-129 

6-150 

6-1^1 

6-132 

6-133 

6-134 

6-135 

6-136 

6-137 

6-138 

6-139 

6-140 

6-141 

6-142 

6-143 

6-144 

6-145 

6-146 

N    5 
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MACRO  OEFINTIONS 

508  00077A  RETURN 
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TMPEX7     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:4A 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LSTHD 

LTAB 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MPTAB 

MXPTB 

MX  TAB 

M$$MGE 

NOD 

NTLPT 

PECHA 

PRDCHA 

PRFLAG 

PR  I 

PRPCHA 

PRPRl 

PRSCSR 

PRSLTA 

PRTOV 

PR2HLD 

PR2MBS 

PR2MRT 

PR2MWb 

PR2RET 

PR7 

R$$MPL 

R$$11D 

R$$11M 

SCOM 

SECSR 

SF.ACT 

SF.ENA 


000002 
000002 
000017 
000360 
000006 
0006U 
000620 
000015 
000012 
177776 
000002 
000004 
000005 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
00001A 
000021 
000013 


001110  R 
001174  R 
000776  R 
000000 
000602  R 


=  ****** 
000524 
000214 
000346 


GX 


R 
R 
R 
000624  R 
000224  R 
000222  R 
000154  R 
000220  R 
000606  R 
000326  R 
000246  R 
000266  R 
000226  R 
000306  R 


GX 


000000 
000656  R 
000666  R 
000200 
000100 


REFERENCES 

#5-60 
#5-60 
#5-60 
#5-60 
#5-60 

5-106 

5-107 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 

12-812 

5-108 

5-126 

5-109 

4-4 

5-110 

10-668 

5-127 
#5-149 
#5-162 

5-111 
#5-152 
#5-151 
#5-148 
#5-150 

5-112 
#5-157 
#5-154 
#5-155 
#5-153 
#5-156 

7-436 

5-62 

6-269 

6-248 

5-113 

5-114 
#5-60 
#5-60 


#7-420 
#7-426 


•7-358 
6-241 
8-530 


7-354 

12-825 

#8-557 

#9-580 

#8-513 

#7-407 

#7-369 
*6-210 
♦6-203 
#7-432 
♦6-212 
♦6-213 
•6-206 

#7-413 
♦6-236 
♦6-221 
•6-226 
•6-216 
♦6-231 


8-522 

#7-444 
#7-451 


M  7 
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CREF   04.00 


9-599 


7-371 
12-838 


♦6-211 
7-456 

7-373 
7-437 
7-462 


12-841 
12-802 
12-815 
12-789 
12-828 


9-591 


7-434 


7-454 


8-519 


9-588 


12-786 


12-799 


7-360 


7-361 
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SYMBOL  CROSS  REFERENCE 
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PAGE  2 

CREF   OA.OO 


SYMBOL  VALUE 


L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

M$$MGE 

RTSPC 

R$$MPL 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

S$$BAS 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

TMPEXT 

ZF.PSE 

Z.DAT 

Z.FLG 

$ADDR 

SAZFS 

SSIN 

SCLIOS 

SCLQUE 

$DFN 

SERRWZ 

$ERR8 

SFLAGS 

SFLAGI 

SFNOUT 

SICBLN 

$LEFT 

SMXADD 

tMXSIZ 

$NALL 

$NAME 

SNVECT 

$OFF 

SPOVA 

SPRV.N 

$PTR 

$SIZE 

$SLTA 

$SZPTR 

STM.IN 


000020 

o021 
U00013 
000000 
000242 

****** 

000200 
000100 
000004 
OOOOAO 
000020 
000010 
000001 
000002 
000040 

****** 

000001 
000000 
000004 
000002 
000003 
000000 

**t*** 

:  ****** 
****** 
:  ****** 
****** 
:  ****** 
:  ****** 
:  ****** 
:  ****** 

OOOO'i?  R 
OOOOOA  R 

** t *** 

:  ****** 

**x  *** 

****** 

:  ****** 

;  ****** 

****** 

z     ****** 

z     ****** 

:  ****** 

-  ****** 

r  ****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
000000  RG 


«****■♦ 
****** 


REFERENCES 

#5-59 
#5-59 
#5-59 
#5-59 

7-202 

5-88 

5-61 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 

5-87 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-80 

6-133 
*6-184 

6-133 
»6-121 

6-172 
♦6-118 

6-174 

6-173 

6-131 
#5-88 
#5-87 

6-135 
•6-126 

5-87 

7-210 
♦6-120 
♦6-122 
♦6-123 
♦6-128 

6-130 
♦6-127 
♦6-124 

6-132 

5-87 
♦6-119 
♦6-125 

6-137 

6-129 
#6-117 


#6-176 
6-144 


6-157 


7-203 


5-87 


6-1^1 


♦6-138 


6-168 

6-185 

♦6-141 


5-8 


♦7-209 


6-181 


♦7-222 


6-183 


♦6-129 


tmpin; 
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TMPSTB  - 

NTL  TEMPLATE 

.CSR, .END, .FILE 

250 

251 

252 

253 

254 

000002 

255 

000002 

256 

257 

258 

259 

260 

000002 

261 

000002 

262 

000002 

263 

000002 

264 

000002 

265 

000002 

266 

000002 

267 

000002 

268 

000002 

269 

000002 

270 

271 

272 

273 

274 

000002 

275 

000002 

276 

000002 

277 

000002 

278 

000002 

279 

000002 

280 

000002 

281 

000002 

282 

000002 

283 
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.SBTTL   .CSR, .END, .FILE 


.CSR" 


STATES  CSR 
TRANS   IMODIFY,NONE,$CSR 


.END' 


STATES  EOF 

TRANS   IP0SEXP,E0F1,$END1 

TRANS  <',>,E0F2 

TRANS   IEND,SEXIT 

STATES  E0F1 

TRANS   IEND,$EXIT 

TR-'NS  <",> 

STATES  E0F2 

TRANS   IPOSEXP,ONLY2,SEND2 

TRANS   IERROR,SEXIT 


.FILE" 


STATES  FILE 
TRANS   !FNAME,FILE1 

TRANS  :error,sexit 

STATES  FILE1 

TRANS        IEND,SEXIT,SF1LE 

TRANS   <',> 
STATES 

TRANS   1P0SEXP,SEXIT,SCFILE 

TRANS   IERR0R,SEX1T 
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55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67  000000 

68 

69 

70 

71 

72 

73  000000 

74 

75 

76 

77 

78  000000 

79  000002 

80  000004 

81  000006 

82  000010 

83  000012 

84  000014 

85  000016 
86 

87 

88  000020 

89  000022 

90  000024 
91 

92 

93 

94 

95 

96  000026 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 

108  000062 
109 

no 
111 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


LIBRARY  MACROS 

.MCALL  ASR$,EMSG$,EMSG$R,NTLER$,SLTDF$,CALLR 
.IF  DF  R$$MPL 


DEFINE  KRB  OFFSETS 
DEFINE  SLT  OFFSETS 


.MCALL 

KRBDFS 

KRBDFS 

.ENDC 

SLTDFS 

•  *** 

;  LOCAL 

DATA 

;  *** 

.PSECT 

DATA,D 

':    NONSENSE  INTERRUPT  T 

NSITAB: 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

NSO 
NS1 
NS2 
NS3 
NS4 
NS5 
NS6 
NS7 

K6TMP: 

NSITMP: 

FMKTMP: 

.BLKW 
.BLKW 
.BLKW 

1 
1 

1 

•  ERROR 

MESSAGES 

$K6TAB  TEMPORARY  LOCATION 
$NSX  TEMPORARY  LOCATION 
SFMASK  TEMPORARY  LOCATION 


.ENA8L  LC 


NTLERS 
.IF  DF 

NTLERS 
.ENDC 


,38,1,$TERR,$REP.P, 

R$$MPL 

,9D,1,$TERR,$REP.P, 


,<Vector  Setup  Error> 
,<Unibus  run  not  accessible> 


.DSABL  LC 


ERROR  MESSAGE  FORMAT  STRING 


052 


040 


000  FMT1: 


ENABL 

IC 

NLIST 

HFX 

ASCIZ 

'  '* 

EVEN 

DSABL 

IC 

LIST 

BtX 

N  10 
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SYMBOL    CROSS  REFERENCE  CREF       OA.OO 

7-374 
7-356  7-367 

«8-419 


SYMBOL 

VALUE 

REFERENCES 

SMXAOD 

- 

**  * t »  * 

GX 

7-372 

SMXLEN 

- 

****** 

GX 

7-394 

SNVECT 

- 

****** 

nx 

6-141 

$OFF 

r 

****** 

GX 

7-362 

$PDVA 

- 

****** 

GX 

6-132 

SREP.P 

= 

****** 

GX 

5-96, 

SSLTA 

- 

****** 

GX 

7-343 

STERR 

= 

****** 

GX 

5-96 

STMLTA 

000250 

RG 

#7-339 

STMRDY 

000564 

RG 

7-406 

STMVCT 

000000 

RG 

#6-129 

$VECT1 

r 

****** 

GX 

6-140 

$$VECT 

= 

****** 

GX 

6-139 

N  11 
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UNLPSI  -  NIL  UNLOAD  ROUTINES  FQ  MACRO  VO5.05b  Wednesday  17-Jul-85  12:05 
Table  of  contents 

MACRO  DEFINITIONS 

LOCAL  SYMBOL  DEFINITIONS 

$XPSI  -  UNLOAD  PSI  DATA  BASES 

DEADST  -  DEALLOCATE  DESTINATION  DESCRIPTORS 

XLDTE  -  DEALLOCATE  LOCAL  DTE  BLOCK 

XPORT  -  DEALLOCATE  PORT  TABLE  AND  CIRCUIT  BLOCKS 

XX29  -  DEALLOCATE  X.29  DATA  BLOCK 

XTRA  -  DEALIOCA'E  TRACE  DATA  STRUCTURES 


s- 

S2 

(S- 

H', 

9S 

8- 

140 

9- 

1K4 

10- 

249 

11- 

29', 

12- 

520 

N  12 
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UNLPSl     CREATED  BV  MACRO  ON  17-JUL-85  AT  12:05 
SYMBOL  CROSS  REFERENCE 


SVMBOL  VALUE 


C$LEN 

DEADST 

OEALST 

D$DATL 

DtDTEL 

DSfLEN 

G$LEN 

HSCUG 

H$DST 

H$D29 

HSLRTE 

H$LEN 

H$NPT 

H$PTB 

HSPVC 

HSRDTE 

H$SVC 

HtTRB 

H$X29C 

I$$AS 

KSAR5 

KSLEN 

LSCHLS 

LSCHTB 

LSCTEN 

L$rEN 

PSIPT 

Q$LEN 

RSLEN 

R$RO 

R$R1 

R$R2 

R$R3 

R$R4 

R$R5 

R$$EIS 

R$$11D 

SSLEN 

T$CBUF 

TSClEN 

TSCSIZ 

TSCTCB 

T.ST2 

T2.STP 

XLDTE 

XPORT 

XTRA 

XX29 

X$LEN 

SCEACX 

$DEA16 

SDECEX 


GX 


000016 
000150  R 

r  ****** 

000050 
000031 
000052 
000016 
000010 
000012 
OOOOU 
000002 
0OO0A2 
000022 
000020 
000006 
OOOOOA 
000056 
000016 
OOOOAO 

r  ****** 
-     ****** 

000006 
000034 
000050 
000052 
000122 
=  ****** 

000016 
000024 
=  000002 
=  OOOOOA 
=  000006 
=  000010 
=  000012 

=  OOOOU 

r  ****** 


000032 
000004 
000020 
000010 
000016 
000054 
000020 
000250  R 
000456  R 
000610  R 
000560  R 
000106 


GX 


GX 


GX 
GX 
GX 


REFERENCES 

7-114 

7-126 

7-115 

8-168 

8-172 

8-166 

7-117 

7-116 

7-125 

7-127 

9-205 

7-154 

10-265 

10-264 

7-115 

7-119 

7-122 
2-359 

11-511 

7-109 

8-155 

9-218 

9-215 

9-222 

9-224 

9-215 

7-111 

11-514 

7-120 
#6-88 
#6-89 
#6-90 
#6-91 
#6-92 
#6-95 

9-225 

9-225 

7-125 

12-353 

12-347 

12-549 

12-542 
»12-544 

12-344 

7-130 

7-129 

7-152 

7-131 

10-278 

8-162 

7-135 

9-219 


7-128 
7-118 


119 
127 


•9-210 


7-116 
7-122 
7-125 
♦12-541 
♦11-515 
8-155 
8-180 

♦9-217 


9-228 
7-155 


10-286 


10-287 

12-350 
12-350 


12-544 
#9-200 
#10-263 
#12-555 

#11-310 

9-208 

11-315 

9-235 


#8-154 
7-121 


M  13 

PAGE  1 

CREF   04.00 


7-124 


9-198 
9-202 


7-136 


9-225 
9-244 


9-204 


10-262 
10-268 


10-263 


11-508 
10-279 


11-510 


12-535 
10-283 


12-558 


12-550 
10-290 


10-270 
12-562 


UNLPSl 


CREATED  BY  MACRO  ON  17-JUL-85  AT  12:05 
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fNDADP   -   f'.ND   LINE    TABLE    ADDRESS 

2^8 


N  K 

UNLSUB  -  NIL  UNLOAD  SUBROUTINES  MACRO  V05.03b   Saturday  29-Jun-85  00:48     Page   12 
«;r4M  -  ';r4Ni  si  T  for  ArriuiTY 


uBR  CREATED  B"     MACRO     ON  ?<i-JijN-85   AI   OO:'.^ 

MAfRO   -RCi?   REl^ERENCE 
MACRO  NAME  REfEREN!:ES 


M  15 

PAGE   ? 

CREF       OA.OO 


'ALL 

6-97 

6-99 

RETURN 

6-13? 

6-U2 

SiJ5''$ 

b-^7 

6-137 


6-U1 


N  1S 


"f  1LE*'ID*'XPAR 


M  16 

XXBuF  CREATED  BV      MACRO     ON  i^-J'M-8'i    AT    00:49  PAGE    1 

SVWBOl    CROSS   REFERENCE  CREF        OA.OO 


5-70  6-92  6-97 

5-65  6-97 

6-94  •6-96 


SYMBOL 

VALUE 

REFERENCE 

S 

XXBUf 

=  8§??rO  ^G 

^rH 

#5-65 

SBFlEN 

#5-?8 

5-63 

$XXAVL 

001136  RG 

#5-70 

6-93 

tXXBut 

000000  RG 

#5-62 

•  6-95 

tXXIN! 

000000  RG 

#6-91 

$XXLEN 

00000?  RG 

#5-65 

•  6-99 

J     5  E  10  M  14 


TMPUS   -  NTl   line    TABlE    update 
WACi»C   DEFINITIONS 


N  1 

MACRO  V05.03b  Saturday  29-Jun-85  00:43  Page  5-1 


IV 

000052 

it; 

000054 

114 

000056 

lis 

000060 

116 

000062 

117 

000064 

118 

000066 

im 

000070 

vo 

000072 

i?i 

000074 

^^?? 

000076 

i;=3 

000100 

i?4 

000102 

vs 

000104 

1?6 

0001C6 

V7 

000110 

■?R 

000112 

1?9 

000114 

HO 

000116 

131 

00C120 

13P 

000122 

133 

000124 

134 

000126 

I'lS 

000130 

Mft 

000132 

13/ 

000134 

13« 

000156 

139 

000140 

140 

000142 

K1 

000144 

14;> 

000146 

143 

000150 

144 

US 

14<S 

14/ 

148 

000152 

149 

ISO 

1S1 

ISr* 

1S3 

000154 

•|S4 

•ss 

1S6 

is/ 

1SR 

000156 

1S9 

000160 

160 

000162 

162 

000000 

TTAB$ 
TTAB$ 
TTA8$ 
TTA8$ 
TTA8$ 
TTAB$ 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTA8S 
TTABS 
TTABS 
TTABS 
T1A8S 
TTABS 
TTABS 
TTABS 
TTA8S 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 


PRTOV.PQPI 

SCOM.XSCOM 

SECSR,NULL 

SLNB.NULL 

SLNW.NULL 

STNB.NULL 

STNW.NULL 

UNB.NULL 

UNU.NULL 

W"^D,P0P2 

,'  ,^,P0P1 

DPRB.POPI 

DPRW,P0P2 

TIME,P0P2 

MXPTB.XMXPTB 

PECHA.NUll 

X3CH01,N 

X3CH02,Ni-  . 

X3CH03,NL  L 

X3CH04,NULL 

X3CH05,NULL 

X3CH06,NULL 

X3CH07,NULL 

X3CH08,NULL 

X3CH09,NULL 

X3CH10,NULL 

X3CH11,NULL 

X2CH01,NULL 

X2CH02,NULL 

X2CH03,NULL 

X2CH04,NULL 

X2CHC5,NULL 


SECONDARY  FILE  INDEX  VALUE 
INDEX:   .BLKW   1 

MUX/MTP  FLAGS 
FLAGS:   .BLKW   1 


ZERO  =  NORMAL,  NON-ZERO  =  MUX 


DATA  NEEDED  FOR  SEARCH  OF  UNLOAD  BLOCKS 


UBIAS: 

.BLKW 

1 

UBA: 

.BLKW 

1 

BLOCK: 

.BLKW 

32. 

BIAS/ADDRESS  OF  LIBRARY  DESCRIPTOR 

OFFSET  TO  LIBRARY  DESCRIPTOR 

I OCAL  COPY  OF  UNLOAD  BLOCK  (FROM  POOL..) 


.PSECT 


N  2 

TMPEX5  -  NTL  LINE  TABLE  UPDATE  MACRO  VO5.05b  Saturday  29-Jun-85  00:«3  Page  12 
X2CH 

714 
715 
716 
717 

718  001370 

719  001374 

720  001376 

721  001402 

722  001406 

723  001410 

724  001412 

725  001416 

726  001420 

727  001422 
728 
729 
730 

731  001424 

732  001430 

733  001432 

734  001436 

735  001442 

736  001444 

737  0C1446 

738  001452 

739  001454 

740  001456 
741 
742 
7',  3 

744  001460 

745  001464 

746  001466 

747  001472 

748  001476 

749  001500 

750  001502 

751  001506 

752  001510 

753  001512 
754 
755 
756 

757  001514 

758  001520 

759  001522 

760  001526 

761  001532 

762  001534 

763  00153.- 

764  001542 

765  001544 

766  001546 
767 
768 
769 
770  001550 


005767 

000154' 

001411 

016700 

000152' 

126400 

000013 

001004 

006300 

116023 

OOOOOOG 

000401 

005203 

005767 

000154' 

001411 

016700 

000152' 

126400 

000013 

001004 

006300 

016023 

OOOOOOG 

000401 

005723 

005767 

000154' 

001411 

016700 

000152' 

126400 

000013 

001004 

006300 

116023 

OOOOOOG 

000401 

005203 

005767 

000154' 

001411 

016700 

000152' 

126400 

000013 

001004 

006300 

016023 

OOOOOOG 

000401 

005723 

005767  000154' 


.SBTTL 

X2CH 

;•  MAXIMUM  WINDOW  SIZE 

X2CH01:  TST 

FLAGS 

BEQ 

10$ 

MOV 

INDEX, RO 

CMPB 

L.UNT(R4),R0 

BNE 

10$ 

ASL 

RO 

M0V8 

$X2MWS(R0),{R3)+ 

BR 

20$ 

10$:    INC 

R3 

20$:    RETURN 

•  MAXIMUM  BLOCK 

SIZE 

X2CH02:  TST 

FLy>GS 

BEQ 

10$ 

MOV 

INDEX, RO 

CMPB 

L.UNT(R4),R0 

BNE 

10$ 

ASL 

RO 

MOV 

$X2MBS(R0),(R3)+ 

BR 

20$ 

10$:    TST 

tR3)  + 

20$:    RETURN 

;  MAXIMUM  RETRANSMIT  COUNT 

X2CH03:  TST 

FLAGS 

BEQ 

10$ 

MOV 

INDEX, R'l 

CMPB 

L.UNT(K.;,RO 

BNE 

10$ 

ASL 

RO 

MOVB 

$X2MRT(R0),(R3)+ 

BR 

20$ 

10$:    INC 

R3 

?0$:    RETURN 

;  RETRANSMIT  TIMER 

X2CH04:  TST 

FLAGS 

BEQ 

10$ 

MOV 

INDEX, RO 

CMPB 

L.UNT(R4),R0 

3NE 

10$ 

ASL 

RO 

MOV 

$X2RET(RO),(R3)+ 

BR 

20$ 

10$:    TST 

(R3)i 

20$:    RETURN 

;  HOLDBACK  TIMER 

X2CH05:  TST 

FLAGS 

MUX  EXPANSION? 

BR  IF  NO 

GET   SECONDARY   FILE   COUNTER 

DO  UNIT  NUMBERS  MATCH   ? 

NO    .. 

CONVERT  TO  A  WORD  INDEX 

STORE  MAXIMUM  WINDOW  SIZE 

AND  EXIT 


MUX  EXPANSION? 

BR  IF  NO 

GET    SECONDARY   FILE   COUNTER 

DO  UNIT  NUMBERS  MATCH   ? 

NO    .. 

CONVERT  TO  A  WORD  INDEX 

STORE  MAXIMUM  BLOCK  SIZE 

AND  EXIT 


MUX  EXPANSION? 

BR  IF  NO 

GET  SECONDARY  FILE  COUNTER 

DO  UNIT  NUMBERS  MATCH  ? 

NO  .. 

CONVERT  TO  A  WORD  INDEX 

STORE  MAXIMUM  RETRANSMIT  COUNT 

AND  EXIT 


MUX  EXPANSION? 

BR  IF  NO 

GET   SECONDARY   FILE   COUNTER 

DO  UNIT   NUMBERS   MATCH   ? 

NO    .. 

CONVERT  ro  A  WORD  INDEX 

STORE  RETRANSMIT  TIMER 

AND  EXIT 


MUX  EXPANSION? 
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TMPEX6  -  NTL   TEMPLATE   EXPANSION  MACRO  V05.03o  Saturday  29-Jun-85  00:43 
LOCAL   DATA 

194  000206 

195  000210 

196  0002U 

197  000216 

198  000220 

199  000222 

200  000224 

201  000226 

202  000230 
205  000232 

204  000234 

205  000236 

206  000240 

207  000242 

208  000244 

209  000246 

210  000250 
211 
212 
213 

214  000252 

215  000254 

216  000256 

217  000260 

218  000262 

219  000342 

220  000344 

22 1  000346 

222  000350 

223  000352 

224  000432 

225  000512 

226  000514 

227  000516 

228  000556 

229  000562 
233  001062 

231  001064 

232  001224 

233  001226 
^34  001246 
235  001266 
256  001306 
237  001326 
238 
239  000000 


PRJNf: 

.8LKU 

PRPAR: 

.BLKU 

PRDEV: 

.BLKW 

PRTBL: 

.BLKW 

PRLINX: 

.BLKW 

PRCTIM: 

.BLKW 

PR3DBS: 

.BLKU 

PR3MBS: 

.BLKW 

PR5DWS: 

.BLKW 

PR3MWS. 

.BLKU 

PR3CAL. 

.BLKW 

PR3CLR 

.BLKW 

PR3RES 

.BLKW 

PR5RST 

.BLKW 

PR3MCL 

.BLKU 

PR3MRE 

.BLKU 

PR3MRS 

.BLKW 

;  LINE 

PARAMETERS 

PRSLTA 

.BLKW 

PRDLPV 

.8LKW 

PRDDPV 

.BLKU 

PRSLN: 

.BLKU 

.8LKB 

48.             : 

PRCSR: 

.BLKW 

PRPRI: 

.BLK  ■ 

PRVECT 

.BLKU 

PRMTP: 

.BLKW 

PRSNUM 

.8LKB 

48.              ; 

PAPR: 

.BLKB 

48. 

PRDPR; 

.BLKU 

PRMUX : 

.BLKU 

PRSCSR 

.BLKU 

16. 

PRDCHA 

.BLKW 

.BLKW 

48. *2 

PRPCHA 

.BLKW 

.BLKU 

48. 

PRLSAD 

.BLKU 

PR2MWS 

.BLKW 

8. 

PR2M8S 

.BLKW 

8. 

PR2MRT 

.BLKU 

8. 

PR2RET 

•  .BLKU 

8. 

PR2HLD 

•  .8LKW 

8. 

Page  6-2 

INCREMENT  SIZE  IN  32.  WORK  BLOCKS 

RAD50  PARTITION  NAME 

ASCII  DEVICE  NAME 

DEVICE  DISPATCH  TABLE  ADDkLSS 

LOGICAL  LINK  COUNT 

COUNTER  TIMER  VALUE 

DEFAULT  BLOCK  SIZE 

MAXIMUM  BLOCK  SIZE 

DEFAULT  UINDOU  SIZE 

MAXIMUM  WINDOW  SIZE 

CALL  TIMER 

CLEAR  TIMER 

RESET  TIMER 

RESTART  TIMER 

MAXIMUM  CLEAR  VALUE 

MAXIMUM  RESETS  VALUE 

MAXIMUM  RESTARTS  VALUE 


SLT  ADDRESS 
DLC  PDV  ADDRESS 
DDM  PDV  ADDRESS 
SVSTEM  LINE  NUMBER 
MUX  SLN'S 
CSR  ADDRESS 
INTERRUPT  PRIORITY 
VECTOR  ADDRESS 
MULTIPOINT  STATION  COUNT 
MULTIPOINT  STATION  NUMBERS 
MULTIPOINT  STATION  ACTIVE  POLLING  RATIO 
DEAD  POLLING  RATIO 
MUX  UNIT  COUNT 
SECONDARY  CSR  TABLE 
DEVICE  CHARACTERISTICS 
MUX  CHARACTERISTICS 
PROTOCOL  (MULATOR  CHARACTERISTICS 

MUX  CHARACTERISTICS 
LOCAL  PHYSICAL  STATION  ADDRESS 
MAXIMUM  WINDOW  SIZE 
MAXIMUM  BLOCK  SIZE 
MAXIMUM  RETRANSMIT  COUNT 
RETRANSMIT  TIMER 
HOLDBACK  TIMER 


.PSECT 


N  4 
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LOCAL  DATA 


770  001634  062705  000006 

771  001640  005067  000156' 

772  001644  005067  000160' 

773  001650 


ADD  #6,SP 

CLR  INDEX 

CLR  FLAGS 
RETURN 


PURGE  STACK 

CLEAR  SECONDARY  INDEX 

AND  SPECIAL  Fl  AGS 


♦F1LE'*ID'«TMPEX7 


N    5 


TTiTTTTTTT 

MM 

MM 

PPPPPPPP 

EEEEEEEEEE 

XX      XX 

7777777? 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

EEEEEEEEEE 

XX      XX 

77777777 

MMMM 

MMMM 

PP      PP 

EE 

XX      XX 

77 

MMM.^ 

MMMM 

PP      PP 

EE 

XX      XX 

77 

MM 

^v\    m 

PP      PP 

EE 

XX  XX 

77 

MM 

MM  MM 

PP      PP 

EE 

XX  XX 

77 

MM 

MM 

PPPPPPPP 

EEEEEEEE 

XX 

77 

MM 

MM 

PPPPPPPP 

EEEEEEEE 

XX 

77 

MM 

MM 

PP 

EE 

XX  XX 

77 

MM 

MM 

PP 

EE 

XX  XX 

77 

MM 

MM 

PP 

EE 

XX      XX 

77 

MM 

MM 

PP 

EE 

XX      XX 

77 

MM 

MM 

PP 

EEEEEEEEEE 

XX      XX 

77 

MM 

MM 

PP 

EEEEEEEEEE 

XX      XX 

77 

ssssssss 

TTTTTl 

TTTT 

SS3SSSSS 

TTTTT' 

rni 

ss 

ss 

ss 

ss 

LL 

ssssss 

SSS5SS 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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MACRO  DEFINTIONS 


510 

511 

512 

515  000776 

5U  001002 

515  001 OOA 

516  001006 

517  001010 

518  0010H 

519  001016 

520  001021 
521 

522 
523 
521 
525 
526 
527 
528 
529 

530  001026 
531 

532 

533  001032 

531  001031 

535  001036 

536  001010 

537  001011 

538  001016 

539  001050 
5^0  001051 

511  001056 

512  001062 

513  001070 
511  001072 

515  001071 

516  001100 

517  001101 
518 

519 

550 

551 

552  001106 

553 

551 

555 

556 

557  001110 

558  001112 

559  001111 

560  001116 

561  001120 

562  001122 

563  001121 
561  001126 

565  001132 

566  001131 


;  SECONDARY  FILE 


005267 
112516 
010516 
011605 
005767 
001107 
126167 
001003 


000352' 


000352' 


000013  000350' 


026103  000001 


001025 
005002 
152502 
122702 
001101 
106302 

000767 
005267 
126667 
001316 
022626 
005067 
005067 


OOOOOOG 


000350' 

000002  000350' 


000350' 
000352' 


112516 
122525 
010516 
011605 
005002 
152502 
022702 
001101 
106302 


OOOOOOG 


MX  TAB: 

INC 

FLAGS 

FILE: 

MOVB 

(H5)+,-(SP) 

MOV 

R5,-(SP) 

10$: 

MOV 

(SP),R5 

TST 

FLAGS 

BEQ 

20$ 

CMP8 

L.UNT(RI), INDEX 

BNE 

20$ 

.IF  DF 

R$$11D  1  i$$AS 

MOV 

R3,-(SP) 

BIC 

#160000, (SP) 

BIS 

#60000, (SP) 

CMP 

L.DDS{R1),CSP)+ 

.IFF 

CMP 

L.DDS(R1),R3 

.ENDC 

BNE 

101$ 

20$: 

CLR 

R2 

BISB 

(R5)+,R2 

CMPB 

#.E0F,R2 

BEO 

30$ 

ASL8 

R2 

CALL 

aTABLE-2(R2; 

BR 

20$ 

30$: 

INC 

INDEX 

CMP8 

2(SP), INDEX 

BNE 

10$ 

CMP 

(SP)+,(SP)+ 

CLR 

INDEX 

CLR 

FLAGS 

RETURN 

;  ERROR 

CONDITION 

101$: 

CRASH 

;  LINKED  SECONDARY  FILE 

MPTAB: 

CRASH 

LFILE: 

MOVB 

(R5)+,-(SP) 

CMPB 

(R5H,(R5)t 

MOV 

R5,-(SP) 

10$: 

MOV 

(SP),R5 

20$: 

CLR 

R2 

BISB 

(R5H,R2 

CMP 

#.E0F,R2 

BEQ 

30$ 

ASL8 

R2 

Page  8 


INDICATE  MUX  EXPANSION 

GET  REPEAT  COUNT 

SAVE  CURR:NT  BINARY  POINTER 

RESTORE  BINARY  POINTER 

IS  IT  MUX  EXPANSION  ? 

NO  .. 

DO  UNIT  NUMBERS  MATCH  ? 

NO  .. 


GET  LINE  TABLE  ADDRESS 

CLEAR  MAPOING  BITS 

SLT  LINE  TABLE  ADDRESS  USES  APR3 

IS  THE  LINE  TABLE  POINTER  CORRECT 


IS  THE  LINE  TABLE  POINTER  CORRECT- 


NO  ..  ERROR 

GET  FUNCTION  CODE 

IS  IT  END  OF  FILE? 

IF  EQ,  YES 

CONVERT  TO  A  WORD  INDEX 

EXPAND  A  FIELD 

KEEP  LOOKING  FOR  EOF 

TALLY  ONE  PASS  THRU  SECONDARY  FILE 

ARE  UE  DONE? 

IF  NE,  NO 

PURGE  STACK 

CLEAR  SECONDARY  INDEX 

AND  SPECIAL  FLAGS 


LINE  TABLE  POINTER  (R3)  IS  SCREWED  UP 


SAVE  REPEAT  COUNT 

DISCARD  LISTHEAD  DISPLACEMj' 

SAVE  CURRENT  BINARY  POINTER 

RESET  BINARY  POINTER 

GET  FUNCTION  CODE 

IS  IT  END  C-  FILE? 

IF  EQ,  YES 

CONVERT  TO  WORD  INDEX 


TMPEX7  CREATED  BY     MACRO     ON  29-JUN-85   AT  00:4A 

SYMBOL  CROSS  REFERENCE 


N     7 

PAGE   3 

CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

SF.LPB 

=  000004 

#5-60 

SF.MFL 

=  000040 

#5-60 

SF.PAC 

=  000020 

#5-60 

Sf .REA 

=  000010 

#5-60 

SF.SER 

=  000001 

#5-60 

SF.SVC 

=  000002 

#5-60 

SF.UNL 

=  000040 

#5-60 

SLNB 

000740  R 

5-115 

#7-470 

SLNW 

000744  R 

5-116 

#7-476 

STNB 

000750  R 

5-117 

#7-482 

STNW 

000754   R 

5-118 

#7-488 

S.COST 

000001 

#5-60 

S.FLG 

000000 

#5-60 

S.LEN 

000004 

#5-60 

S.NMST 

000002 

#5-60 

S.OWNR 

000003 

#5-60 

TABLE 

000002  R 

#5-91 

6-266 

8-539 

3-567 

9-608 

TEMP 

000000  R 

#5-86 

*9-627 

*9-628 

9-629 

»9-630 

TIME 

001314  R 

5-125 

#9-627 

UBA 

000356  R 

#5-178 

6-245 

6-255 

*10-667 

♦10-71 

UBIAS 

000354  R 

#5-177 

*10-711 

UNB 

000760  R 

5-119 

#7-494 

UNW 

000764  R 

5-120 

#7-500 

WORD 

000770  R 

5-121 

#7-506 

X2CH01 

001644  R 

5-139 

#12-783 

X2CH02 

001700  R 

5-140 

#12-796 

X2CH03 

001734  R 

5-141 

#12-809 

X2CH04 

001770  R 

5-142 

#12-322 

X2CH05 

002024  R 

5-143 

#12-835 

X3CH01 

001570  R 

5-128 

#11-726 

X3CH02 

001574  R 

5-129 

#11-731 

X3CH03 

001600  fi 

5-130 

#11-736 

X3CH0A 

001604  R 

5-131 

#11-741 

X3CH05 

001610  R 

5-132 

#11-746 

X3CH06 

001614  R 

5-133 

#11-751 

X3CH07 

001620  R 

5-134 

#11-756 

X3CH08 

001624  R 

5-135 

#11-761 

X3CH09 

001630  R 

5-136 

#11-766 

X3CH10 

001634  R 

5-137 

#11-771 

X3CH11 

001640  R 

5-138 

#11-776 

ZTIME 

=   »**»**     GX 

9-627 

SADDR 

r    »**«»»     GX 

6-239 

$8 1  AS 

r    ......      GX 

6-252 

$BIN 

=   *♦»»»»     GX 

6-254 

SFLAGS 

-   «t»*t*     GX 

6-205 

$MAPX 

=    ..».♦«      GX 

6-253 

10-672 

$PTR 

=    »♦♦«»*     GX 

6-260 

SSLTA 

r    ..»*♦*      GX 

6-240 

SSLTSV 

-    .»*.«♦     GX 

7-357 

$TMEX7 

000000  RG 

#6-200 

$X2HLD 

r     ♦♦**♦♦        GX 

6-236 

$X2MBS 

=    ,.,.,.      GX 

6-221 

9-631 


IMP  in; 

CREATED   BY 

MACRO     ON  2 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

STUARN 

$TWE 

$XBUF2 

$XLEN2 

$$CSR 

$$VECT 

z     **vt  ** 
r     ****** 

::      *♦*♦*♦ 
r      ****** 

GX 
GX 
GX 
GX 
GX 
GX 

5-88 

5-87 

6-118 

6-120 

6-166 

6-164 

N    8 
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CREf       04.00 


6-119 
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TMPSTB  -  NTL  TEMPLATE  STATE  TAB  MACRO  V05.03b  Saturday  29-Jun-85  00:45 
. !NT,.INT1,.INT2,.INT3,.L1BR,.LFILE 
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285 
286 
287 
288 
289 

290  000002 

291  000002 

292  000002 
293 

294 
295 
296 

297  000002 

298  000002 

299  000002 

300  000002 

301  000002 

302  000002 

303  000002 

304  000002 
305 

306  000002 

307 

308 

509 

310  000002 

311 

312  000002 

313  000002 
314 

315 
316 
317 
318 

319  000002 

320  000002 

321  000002 

322  000002 

323  000002 

324  000002 

325  000002 

326  000002 

327  000002 

328  000002 


SBTTL   .INr,.INT1,.INT2,.INT3,.LIBR,.LFILE 


.INT",  ".INTV 


,]NT2",  OR  ".INT3' 


STATES  INT 
TRANS   .'SYMBOL, ONLYI.SINTX 
TRANS   lERROR.SEXlT 


';  ".LISP" 

STATES 

LiBR 

TRANS 

IFNAME1,LIBR1,SL1BR1 

TRANS 

IFNAME1.LIBR1,.ABFI 
!ERROR,SEXIT 

TRANS 

STATES 

LI8R1 

TRANS 

IEND,SEXIT,SLIBR 

TRANS 

<',> 

STATES 

.IF  DF 

MSSMGE 

TRANS 

!POSEXP,LIBR2,SCORE2 

.IFF 

TRANS 

IEAT,0NLY2,SLIBR 

.IFTF 

TRANS 

lERROR.SEXIT 

.IFT 

STATES 

LIBR2 

TRANS 

$LAMDA,0NLY2,SLIBR 

.ENDC 

;  ".LFILE" 

STATES 

LFILE 

TRANS 

IFNAME.LFILEI 

TRANS 

;error,sexit 

STATES 

LFILE1 

TRANS 

<',> 

STA.ES 

TRANS 

1P0SEXP.LF1LE2 

TRANS 

;ERR0R,SEXIT 

STATES 

LFILE2 

TRANS 

I0NLV2,SEXIT,SLF1LE 

J 


N  10 

rWpvfT  -  NTL  VECTOR  SETUP  ROUTI  MACRO  V05.03b  Saturday  29-Jun-85  00:47  Page  5-1 

11? 

113  000000  .PSECT 


N  11 

TMPVCT  CREATED   BY     MACRO     ON  29-JUN-85   AT    00:47  PAGE   4 

MACRO  CROSS  REFERENCE  CREF       04.00 


7-406  8-431 
9-482 

7-4i 7  8-447  9-498 

6-264  9-466 


MACRO  NAME 

REFERENCES 

ASR$ 

#5-58 

6-15? 

CALL 

6-151 

6-315 

CALLR 

#5-58 

6-147 

CRASH 

6-320 

9-467 

EMSG$ 

#5-58 

6-315 

EMSGSR 

#5-58 

MIPS 

6-228 

6-268 

NTLERS 

#5-58 

5-96 

RETURN 

6-274 

6-316 

SLTDFt 

#5-58 

5-67 

SOB 

6-165 

6-254 

SWSTkS 

6-151 
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1 
2 
3 

5 
6 
7 
8 
9 

in 
11 

12 
13 

u 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

:i 

32 
33 
34 
55 
36 
37 
38 
39 
AO 
41 
A2 
43 
44 
45 
46 
47 
48 
49 
50 


.TITLE 
.IDENT 


UNLPSI  -  NTL  UNLOAD  ROUTINES  FOR  PSI 
/V05.00/ 


COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  HAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MA  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  UNLOAD  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

2.00  06-AUG-81 

DECNET-r"1/S  V3.1 
DECNET- ( iM-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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UNLPSl     CREATED  BY  MACRO  ON  17-JUL-85  AT  12:05     PAGE  2 

SYMBOL  CROSS  REFERENCE  CREf   04.00 

SYMBOL   VALUE  REFERENCES 

SXDEAC  =  ......  GX     8-177     9-241      10-281     10-289 

tXPSI     000000  RG     #7-111 


N  U 
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280 

281 

282 

283 

28^ 

285 

286 

287 

288 

289 

290 

291 

292 

293 

29A 

295  000136 

005000 

296  OOOUO 

005001 

297  OO0K2 

005067 

177632 

298  0OOK6 

299 

300  000152 

017702 

OOOOOOG 

017704 

OOOOOOG 

301  000156 

302 

303  000160 

012203 

032763 

040000 

000000 

304  000166 

001420 

305  000170 

126365 

000003 

000003 

306  000176 

001001 

307  000200 

005200 

3CS  000202 

126365 

000002 

000002 

309  000210 

001007 

310  000212 

005201 

311  0002U 

126365 

000012 

000012 

312  000222 

001002 

313  000224 

005267 

177550 

3H  000230 

315  000234 

010067 

OOOOOOG 

316  000240 

010167 

OOOOOOG 

317  000244 

016702 

177530 

318  000250 

319 

320 

000001 

.SBTTL   SCAN  -  SCAN  SLT  FOR  ACTIVITY 

y 

SCAN  -  SCAN  SLT  FOR  ACTIVITY 

INPUTS: 

R5  -  SLT  ADDRESS 

OUTPUTS: 

RO  -  COUNT  Of  OTHER  LINES  USING  THIS  DLC 

R1  -  COUNT  Of  OTHER  LINES  USING  THIS  DDM 

R2  -  COUNT  OF  OTHER  LINES  ON  THIS  CONTROLLER 


SCAN: 


10$: 


20$: 


30$: 


CLR 
CLR 
CLR 
MOV 

MOV 
MOV 

BIT 

BED 

CMP8 

BNE 

INC 

CMP8 

BNE 

INC 

CMP8 

BNE 

INC 

SOB 

MOV 

MOV 

MOV 

RETURN 

.END 


RO 

R1 

UNITS 

a$LTMA,R2 

SSLTNM,R4 
(R2)+,R3 


OTHER  READY  LINES  USING  THIS  DLC 
OTHCR  READY  LINES  USING  THIS  DDM 
OTHER  READY  LINES  ON  THIS  CONTROLLER 
GET  SLT  TABLE  ADDRESS 

GET  NUMBER  Of  SLT'S 
GET  NEXT  SLT 


#Lf.RDY,L.fLG(R3)  ;  IS  THIS  LINE  READY? 
30$  ;  If  EQ,  NO 

L.DLC(R3),L.DLC(R5)  ;  SAME  DLC  AS  OURS? 
20$  ;  IF  NE,  NO 

RO  ;  TALLY  IT 

L.DDM(R3),L.DDM(R5)  ;  SAME  DDM  AS  OURS? 
30$  ;  If  NE,  NO 

R1  ;  TALLY  IT 

L.CTL(R3),L.CTL(R5)  ;  SAME  CONTROLLER  AS  OURS? 


30$ 

UNITS 

R4,10$ 

RO.DLCAC 

R1,DDMAC 

UNITS, R2 


If  NE,  NO 

TALLY  IT 

LOOP  <SLT  COUNT>  I IMES 

SETUP  ACTIVITY  COUNTS 


N  15 


,,F 1lE..1D'.XPAR 


XX      XX 

pppppppp 

AAAAAA 

RRRRRRRR 

XX      XX 

PPPPPPFP 

AAAAAA 

RRRRRRRR 

XX      XX 

pp     PP 

AA 

AA 

RR      RR 

XX      XX 

pp    pp 

AA 

AA 

RR      RR 

XX   XX 

pp    pp 

AA 

AA 

RR      RR 

XX   XX 

pp    pp 

AA 

AA 

RR      RR 

XX 

pppppppp 

AA 

AA 

RRRRRRRR 

XX 

pppppppp 

AA 

AA 

RRRRRRRR 

XX   XX 

pp 

AAAAAAAAAA 

RR  RR 

XX   XX 

pp 

AAAAAAAAAA 

-«  RR 

XX      XX 

pp 

AA 

AA 

RR    RR 

XX      XX 

pp 

AA 

AA 

:-R    RR 

XX      XX 

pp 

AA 

AA 

RR 

XX      XX 

pp 

AA 

AA 

RR      RR 

LL 

SSS5SSSS 

IITTTI 

TTTT 

LL 

SSSSSSSS 

TTTTTl 

tfll 

LL 

S5 

n 

LL 

SS 

T 

LL 

SS 

Tl 

LL 

SS 

T 

LL 

SSSSSS 

T 

LL 

SSSSSS 

T 

LL 

SS 

r 

LL 

$<■ 

LL 

SS 

•L 

SS 

T 

LuLLLLLLLL 

SSSSSSSS 

T 

LLLLLLLLLL 

SSSSSSSS 

T 

E 
f 
G 
H 
1 
J 
K 
L 
M 
N 
B 
C 
D 
F 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 

F 

G 

H 
1 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
< 
L 

n 

B 
r 
D 
E 
F 
G 
M 
I 


TMPEX5 


TMPEX6 


J 

K 

L 

M 

N 

B 

6 

C 

6 

D 

6 

E 

6 

F 

6 

G 

6 

H 

6 

1 

6 

J 

6 

K 

6 

L 

6 

M 

6 

N 

6 

B 

7 

C 

7 

D 

7 

E 

7 

F 

7 

G 

7 

H 

7 

I 

7 

J 

7 

K 

7 

L 

7 

M 

7 

N 

7 

B 

8 

C 

8 

D 

8 

E 

8 

F 

8 

G 

8 

H 

8 

I 

8 

J 

8 

K 

8 

L 

8 

M 

8 

N 

8 

B 

9 

C 

9 

0 

9 

E 

9 

F 

9 

G 

9 

H 

9 

I 

9 

J 

9 

K 

9 

L 

9 

M 

9 

N 

9 

B 

10 

C 

10 

P 

10 

10 
10 
10 


TMPEX7 


TMPINI 


^MPSTB 


H  10 


10 
10 
10 
10 


TMPVCT 


M  10 
N  10 
B  11 
C  11 
D  ' 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N  11 
B  12 
C  12 
D  ' 


UNLHC 


E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
0 
E 
F 
G 
H 

I  1, 
J  13 
K 
L 

M  . 
N  13 
B  U 


UNLPSJ 


UNLSU8 


M 

U 

N 

u 

B 

15 

C 

15 

D 

15 

E 

15 

F 

15 

G 

15 

H 

15 

1 

15 

J 

15 

K 

15 

L 

15 

M 

15 

N 

15 

B 

16 

C 

16 

D 

16 

E 

16 

f 

16 

G 

16 

H 

16 

I 

16 

J 

16 

K 

16 

L 

16 

XL8R 


XPAR 


XXBUF 


M  16 


XXBUF  CREATED  BV      MACRO     ON  29-JUN-85   AT   00:A9 

MACRO  CROSS  re':rence 

MACRO  NAME  REFERENCES 

RETURN  6-103 


B     1 

PAGE  2 

CREF       04.00 


C     1 


B  2 

VAC2  -  VNP  TEMPLATE  ACTION  ROUT  MACRO  V05.03b  Saturday  29-Jun-85  02:09  Page  12-1 


311  000A42 

110022 

MOVB    R0,(R2)t 

3V'  OOOA'.A 

062767 

000002  0000006 

ADD     *2,$SIZE 

313  0OOA52 

CALL    $RQ1 

31A  000A56 

103A02 

8"     30$ 

3,5  000A60 

112712 

000000& 

M0V6    #.E0F,(R2) 

316  000A6A 

317 

318 

30$: 

RETURN 

;  ERROR 

CONDITIONS 

319 

320  00Ch66 

ion: 

EilSGSR  22 

321  0OOA7A 

11U: 

EMSG$R  KX 

322 

ADJUST  DATA  BASE  SIZE 

REQUEST  BINARr  FILE  AGAIN 

IF  CS,  NO  ACCESS 

STORE  END  OF  FILE  FUNCTION  CODE 


FILE  COUNT  TOO  LARGE 
RESOURCE  ALLOCATION  FAILURE 


C  2 
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B  3 

VAC2       CREATED  BY  MACRO  ON  29-JUN-85  AT  C2:09     PAGE  A 

MACRO  CROSS  REFERENCE  CREF   OA.OO 


MACRO  NAME 

REFERENCES 

ASRS 
CALL 

#5-58 

6-1A1 

18-5A2 
6-1A2 

7-  1 69 

8-190 

9-209 

10-228 

11-2A7 

12-270 

12-271 

12-273 

12-280 

12-281 

12-287 

12-288 

12-305 

12-313 

U-366 

1A-368 

1A-378 

1A-588 

1A-396 

1A-397 

1A-399 

15-A33 

15-A3A 

15-A36 

15-AAO 

15-AA5 

15-451 

15-A56 

15-A57 

15-A59 

16-A82 

16-A83 

16-A86 

17-511 

13-529 

18-5AA 

19-572 

19-580 

CALLR 

6-U6 

8-19A 

9-213 

10-232 

11-251 

EMSG$ 
EMSGSR 

#5-53 
#5-58 
18-553 

17-511 
6-1  5A 
18-55A 

12-320 
18-555 

12-321 

13-3A8 

1A-A0A 

1A-A13 

1A-A1A 

1A-A15 

16-A95 

GETRV 
NTLERS 

#5-58 
#5-58 
5-106 

18-5AA 

5-92 

5-107 

5-9A 

5-108 

5-95 

5-96 

5-93 

5-99 

5-101 

5-103 

5-105 

RAND 
RETURN 

#18-5AA 
6-1A9 
19-582 

18-5AA 
7-175 

12-316 

13-3AA 

1A-A08 

15-AA2 

15-A67 

16-A90 

17-512 

18-5A8 

«F1LE*«!D'«VAC5 


C  3 


B  A 
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56 
57 
58 
59 
60 
61 
62 
^3 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 

n 

78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 


LIBRARY  MArROS 

t* 

.MCALL 
.ENABL 
.ENABL 
.ENABL 


ASR$,EMSG$,EMSG$R,NTLER$,PUTRC,PUTAD,ASL$ 

LC 

LC 

LC 


000000 


000000  OOOOOOG 

000002  000000  020000  040000 


LOCAL  DATA 

.PSECT 
.NLIST 


DaTA,D 
BEX 


MAPPING  DISPLACEMENTS 


MAPP  : 


.WORD   .8ASEB         ;  DEFAULT  MAPPING  ASSIGNMENT 
.WORD   0,20000,40000,60000,100000,120000,140000,160000 


000022 
000023 


000034 
000102 
000144 
000200 
0CO240 
000300 


000360 
000377 


000000 


MAPPING  DISPLACEMENTS  CONVERTED  TO  BYTE  VALUES 


000  C 
000 


001 


002 


.BYTE 
MAP8YT:  .BYTE 
.EVEN 


<<.3ASEB/2>877777>/10000 
0,1,2,3,4,5,6,7 


DEFAULT  MAPPING 


ERROR  MESSAGES 

NTLERI 
NTLERS 
NTLERS 
NTLER$ 
NTLERS 


,26,2,$TERR,$REP.C,$ELINE,<Resource  allocation  failure. 
,39,2,$TWARN,$REP.C,$ELINE,<Invalid  mapping  register. > 
,7A,6,$TWARN,REP6,$ELINE,<Not  built  for  APR*.> 
,76,6,$TWARN,$REP.C,$ELINE,<Base  address  not  2ero.> 
,77, 6, $TERR,$CUR.N,$ELINE,<Read  failure  (  -***.  ).> 


NTLERS  ,78,2,$TERR,$REP.C,$ELINE,<Ma\imuni  #  allocations/libraries  is  14. > 


052 
052 


040 
040 


124 


ERROR  MESSAGE  FORMAT  STRINGS 


FMT2: 
FMT6: 


.ASCIZ 

.ASCIZ 
.EVEN 

.PSECT 


Template  — 
Image  file 
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SYMBOL    CROSS   RtfERENCE 


SYMBOL      VALUE 


REFERE^JCES 


ALLERR 

000712 

R 

9-305 

FL.CHA 

-       ****** 

GX 

6-124 

FMT2 

000560 

R 

5-88 

FMT6 

000377 

R 

5-90 

FM.2 

=  000000 

#5-88 

FM.6 

-  000000 

#5-90 

F 1  . UMR 

-      t-  *  *  *  ♦  * 

GX 

6-K2 

F2.FIL 

-      ****** 

GX 

6-121 

1$$AS 

r     ****** 

7-211 

<!SARG 

-     ****** 

GX 

8-2A2 

MAPBYT 

000023 

^ 

#5-82 

MAPP 

000002 

R 

#5-76 

MAXU 

0010^6 

R 

6-139 

REP6 

co-iioo 

R 

5-90 

RSiEIS 

-   ****** 

7-211 

R$$MPL 

=   ****** 

8-2A1 

RSSIID 

-   ****** 

7-211 

S$$BA5 

=   ****** 

5-88 
5-92 

UISrtKj 

-   ****** 

G> 

8-2A6 

ZER16 

..^1200 

R 

10-365 

ZERIS 

; . .  1 36 

R 

9-305 

tALLl6 

-    ****** 

GX 

10-363 

$ALL18 

-    ****** 

GX 

6-1A6 

$ALN18 

=    ****** 

GX 

6-1AA 

SBFALL 

IT      ****** 

GX 

6-1A1 

SBFBAS 

~      ****** 

GX 

6-130 

SBFLBN 

r     ****** 

GX 

6-1 7A 

SBFPTR 

-     ****** 

GX 

6-H9 

$BFR 

~     ****** 

GX 

13-A62 

SBFXFR 

3     ****** 

GX 

6-176 

SBINF 

OOOOOA 

RG 

#6-120 

SBIMG 

000000 

RG 

#6-117 

SCAPR 

~    ****** 

GX 

»7-21A 

SCLDEQ 

-    ****** 

GX 

6-181 

SCLIOS 

=      ***.:*♦ 

GX 

6-179 

SCORE 

000510 

RG 

#9-280 

SCORE! 

000312 

RG 

#7-201 

SCORE? 

000'.  00 

RG 

6-118 

SCORK 

00050A 

RG 

#9-277 

SCUR.N 

~   ****** 

GX 

5-92 

SCVAL 

-   ****** 

GX 

*7-212 

SELiNE 

r     ****** 

6X 

5-88 

SERRZA 

000K4 

R 

#5-90 

SERR26 

0CJ03A 

fi 

#5-88 

SERR39 

000102 

R 

#5-89 

SERR76 

000200 

R 

#5-91 

SERR77 

0002^0 

R 

#5-92 

$ERR78 

OOC300 

R 

#5-93 

SFLAGS 

-  ****** 

GX 

6-12A 

SFLAG1 

-   ****** 

GX 

6-H2 

S.'lAG? 

-  *.*».* 

GX 

6-121 

#9-335 

9-293 

5-89 

5-91 
#5-89 
#5-91 

9-300 

13-AA9 
8-2A6 
7-2U 
8-258 
9-298 
#12-413 
13-449 

13-449 

5-88 

5-93 

#13-456 
#13-445 

9-304 
9-3'J2 
6-161 
6-135 
6-175 


»8-260 
6-187 


#8-232 


«7-217 
5-89 
6-132 
6-188 
8-256 
6-138 
6-180 
11-398 
9-293 
9-300 


5-89 
5-93 


6-162 


12-421 


9-278 


*9-295 
5-90 

9-335 


10-353 


B     5 

PAGE   1 

CREf       04.00 


#5-97 
#5-98 


10-364 

10-353 

5-93 

5-92 
#5-93 
#5-92 


8-260 

10-358         #11-387 


5-89 


5-90 


5-90 


5-91 


5-91 


5-92 


9-296 
5-91 


9-320 
5-92 


9-321 
5-93 


VAC4 
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vv 

\/V 

AAAAAA 

CCCCCCCC 

666666 

vv 

vv 

AAAAAA 

CCCCCCCC 

666666 

v 

VV 

AA 

AA 

cc 

66 

vv 

vv 

AA 

AA 

66 

vv 

vv 

AA 

AA 

66 

vv 

vv 

AA 

AA 

66 

vv 

vv 

AA 

AA 

66666666 

vv 

vv 

AA 

AA 

66666666 

vv 

vv 

AAAAAAAAAA 

6 'J     66 

vv 

vv 

AAAAAAAAAA 

6t     66 

vv 

/v 

AA 

AA 

66     66 

vv 

'V 

AA 

AA 

66     66 

vv 

AA 

AA 

CCCCCCCC 

666666 

vv 

AA 

AA 

CCCCCCCC 

666666 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

ss 

LL 

S5 

1  1 

SS 

lL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

Sb 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

"^SSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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SX2CH3  -  .X2i"Mb  Ai,  ;I0N  ROUTINE 


3A2 
3^5 
3A4 
3^5 

7/  / 

.SBTTL 
.SBTTL 

$X2CH8  -  .X2CH8 
$X3CHB  -  .X3CH8 

ACTION 
ACTION 

ROUTINE 
ROUTINE 

f 

sub 
3A7 

$X2CH8  -  .X2tH8  ACTION  ROUMNIE 

348 
349 

$X3CHB  -  .X3CHe  ACTION  ROUTINE 

350 
351 

INPUTS: 

SVALUE 

-  VALUE  OF  FIRST 

OPERAND 

(INDICATES  WKICH  PARAMETER 

352 
353 
354 

FROM  X2P$DF  OR 

X5P$DF 

TO  USE) 

OUTPUTS: 

355 

R1  DESTROYED 

356 

357 
358 

~ 

.ENABL 

lSB 

359  000700 

012701 

OOOOOOG 

tX2CHB: 

:M0V 

#.X2CH1,R1 

GET  FUNCTION  CODE 

360  000704 

026727 

OOOOOOG 

000001 

CMP 

$VALUE,#X2BL0 

IS  VALU:  WITHIN  RANGE? 

361  000712 

103425 

BLO 

10$ 

BR  IF  NO 

362  000714 

026727 

OOOOOOG 

000003 

CMP 

$VALUE,#X2BHI 

WITHIN  RANGE? 

363  000722 

101021 

BHl 

10$ 

BR  IF  NO 

364  000724 

026727 

OOOOOOG 

000002 

CMP 

$VALUE,#X2BLK 

BLOCK  SIZE  PARAMETER? 

365  000732 

001415 

BED 

10$ 

YES,  NOT  ALLOWED  AS  BYTE 

366  000734 

CALL 

$VXLLC 

MAKE  SURE  IT'S  NOT  AN  LLC 

367  000740 

368 

369  000742 

000417 

BR 

30$ 

012701 

OOOOOOG 

fX3CHe: 

:MOV 

#.X3C01,R1 

GET  FUNCTION  CODE 

370  000746 

026727 

OOOOOOG 

000003 

CMP 

$VALUE,#X3BL0 

IS  OPERAND  WITHIN  RANGE? 

371  ')00754 

103404 

BLO 

10$ 

BR  IF  NC 

372  000756 

026727 

OOOOOOG 

000013 

CMP 

$VALUE,*X3BHI 

WITHIN  RANGE? 

373  000^64 

101403 

BLOS 

20$ 

BR  IF  YES 

374  000766 

10$: 

EMSG$ 

91 

INVALID  OPERAND 

375  000774 

20$: 

CALL 

$VfLLC 

MAKE  :URE  IT  IS  AN  LLC 

376  001000 

066701 

OOOOOOG 

30$: 

ADD 

$VALUE,R1 

POINT  TO  CORRECT  FUNCTION 

CODE 

377  001004 

005301 

DEC 

Rl 

OPERAND  STARTS  AT  1 

378  001006 

CALL 

$RQ1 

REQUEST  BINARY  BUFFER 

379  001012 

110122 

MOVB 

R1,;R2)t 

STORE  FUNCTION  CODE 

380  001014 

005267 

OOOOOOG 

INC 

$SIZE 

ADJUST  DATA  BASE  SIZE 

381  001020 

RETURN 

382 

.DSA8L 

LS8 

C  7 
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VAC^  -  VNP  TEMPI 

20^ 

20A 

205 

206 

207 

208 

2C9 

210 

211 

212 

"•0O3A0 

213 

0003AA 

21A 

0003A6 

215 

00035A 

216 

000356 

217 

000360 

218 

00036A 

219 

000366 

220 

00037C 

221 

000374 

222 

000400 
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LINK  -  LINK  NEWlC  ALLOCATED  LIBRARY  BLOCK  INTO  LIST 

INPUTS: 

LBLK=LIBRARV  BLOCK  ADDRESS 


SNTLHBt.CXLBR.RO  ;  GET  FIRST  LIBRARY  BLOCK  BIAS 

20$  ;  IF  NE,  THERE  IS  AT  LEAST  ONE 

L8LK,$NTLHBt.CXL6R  ;  SET  HRST  LIBRARY  BLOCK  BIAS 

30$ 

(RD.RO        ;  GET  NEXT  LIBRARY  BLOCK  BIAS 

$GETLB         ;  READ  IN  A  52.  WORD  BLOCK 

(R1)  ;  IS  THIS  THE  LAST  BLOCK  IN  LIST? 

10$  ;  IF  NE,  NO 

LBLK,(R;)       ;  ^ET  LAST  LIBRARY  BLOCK  IN  LIST  BIAS 

$PUTLB         ;  HE-WRITE  LIBRARY  BLOCK 


;  OUTPUTS: 

NONE 

016700 

OOOOOOC 

LINK: 

MJV 

001005 

BNE 

016767 

000000'  OOOOOOC 

MOV 

000411 

BR 

011100 

10$: 

MOV 

20$: 

CALL 

005711 

TST 

001373 

BNE 

016711 

000000' 

MOV 
CALL 

30$: 

RETURN 

;ac7 
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A$SCH<=  000000 

F$$LVL^  000001 

L$$pn  = 

000001 

N$$NCT= 

000001 

X$$DBT= 

000000 

A$$CPS=  000000 

G$$TPP=  000000 

L$$11ft= 

000000 

N$$PEM= 

000001 

$ALB 

OOOOOORG 

A$$PRI-  000000 

G$$TSS=  000000 

yi%%Qp.a= 

000P4 

P$$P45= 

000000 

$ALN18= 

»♦*♦♦♦  GX 

A$$TRP=  000000 

G$$TTK=  000000 

M«l;i.RX  = 

OOOOOT 

P$$WRD= 

000000 

$ELINE= 

♦*«**«  GX 

C$$CKP=  000000 

GS$WRD=  000000 

M$$FCS= 

000000 

Q$$0PT= 

000010 

SERRYl 

OOOOOOR 

C$$ORE=  OOOAOO 

I$$RAR=  GOOOOO 

M$$MGE= 

000000 

R$$DER= 

, 00000 

$LBADR= 

«♦*««»  GX 

C$$RSH=  17756A 

I$$RDN=  000000 

M$$NET= 

000000 

R$$K11= 

C'^OOOI 

$LBERR= 

**«**♦  GX 

D$$BUG=  17751A 

K$$CNT=  177546 

M$$OVR= 

000000 

R$$SND= 

000000 

$LBIAS= 

**♦«**  GX 

D$$ISK=  000000 

K$$CSR=  177546 

N$$ACC= 

000001 

R$$11M= 

000000 

$PIITLB= 

*****4  GX 

DS$L11=  "00001 

K$$LDC^  000000 

N$$8UF= 

000001 

S$$WRG= 

000000 

$REP.C= 

*«*«♦*  GX 

DS$YNC=  000000 

K$tTPS=  000074 

N$$L[)V= 

000001 

S$$VSZ- 

007600 

$TERR  = 

**»**♦  GX 

D$$''NM=  OOC  JOO 

LBLK  -  *•»•«*  GX 

N$$MCP= 

000001 

T$$KMG= 

000000 

.LBIAS= 

******  GX 

E$$XPR=  000000 

LD$LP  =  000000 

N$$MLL= 

000001 

T$$MIfJ= 

000000 

.LBUFF= 

******  GX 

FMT2  =  »*»»»*  GX 

L$$ASG=  000000 

N$$MOV= 

000010 

V$$CTR= 

001000 

.MGMGE= 

******  GX 

FM.2  =  000000 

L$JDR\/=  000000 

.  ABS.   000000 

000 

(RW,:,GBL,ABS,OVR) 

000120 

001 

(RW,I,LCL,REL,CON) 

DATA    000052 

002 

(RW,D,LCL,REL,CON) 

Errors  detected: 

0 

»»♦  Assembler  statistics 

iJork   file  reads 

0 

Work  file  writes 

0 

Size-  of  work  f  i  le 

10154  Words   (  40  Pages) 

Size  of  core  pool 

14AA0  Words  (  55  Pages) 

Operating  system 

R5X- 

■11M/PLUS 

002 


Sr1'vAC8.V2",n32,i34ivAC8/CR/-SP  =  SY:[1,l]RSXMCM.SML/ML,[130,nO]NETLI6/ML,[130,10JRSXMCf1/PA:1,[132,10]VACJ 
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*'FILE*MD' 

•VALT 

VV      VV 

AAAAAA 

TTH 

TTTTT 

VV      VV 

AAAAAA 

TTTTl 

TTTTT 

VV      VV 

AA      AA 

VV      vv 

AA      AA 

VV    vv 

AA      AA 

vv    vv 

AA      AA 

vv    vv 

AA      AA 

vv    vv 

AA      AA 

vv    y\i 

AAAAAAAAAA 

vv    vv 

AAAAAAAAAA 

vv  vv 

AA      AA 

\jj    vv 

AA      AA 

vv 

AA      AA 

lLLLLLLLLL 

vv 

AA      AA 

LLL 

LLLLLLL 

B  10 


LL 

scssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

iS 

LL 

ssssss 

LL 

ssssss 

_L 

ss 

1 

ss 

LL 

ss 

.L 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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SALlCB  -  ALLOCATE  KB 


510 

511 

512 

513 

5K 

515 

516 

517 

518 

519 

520 

521 

522 

523 

52A 

525 

526 

527  000662 

528  000666 

005067 

OOOOOOG 

529  000672 

116700 

OOOOOOG 

530  000676 

116701 

OOOOOOG 

531  000702 

060001 

532  000704 

001403 

5  53  000706 

006301 

53A  000710 

006301 

53.  i.u0712 

C05721 

536  000714 

022121 

537  000716 

005721 

538  000720 

539 

5A0  000724 

010167 

OOOOOOG 

016767 

OOOOOOC  OOOOOOG 

541  000732 

001466 

542  000734 

012767 

000100  OOOOOOG 

543  000742 

012702 

OOOOOOG 

544  000746 

005077 

OOOOOOG 

545  000752 

016777 

OOOOOOG  0000006 

546 

547 

548 

549  000760 

550  000766 

551  000772 

010200 

552  000774 

062700 

000100 

553  001000 

010203 

554  001002 

005723 

555  001004 

020300 

556  001006 

001426 

557  001010 

005723 

558  001012 

005723 

559  001014 

0C1412 

560  001016 

032723 

000001 

561  001022 

001770 

562  001024 

112304 

563  001026 

112305 

564  001030 

060405 

565  001032 

006305 

566  001034 

006305 

U8A  -  CALCULATE  UMLOAO  BLOCK  ADDRESS 

INPUTS: 

$ADDR=LINE  TABLE  ADDRESS 

$S1ZE=LINE  TABLE  SIZE 

$NALL,$NLIC=NUMBER  OF  ALLOCATIONS/LIBRARIES 

$NTLPT=POINTER  TO  NTL  DATA  BLOCK 

DATA  BL0CK+.CXUNl=POINTER  TO  FIRST  UNLOAD  BLOCK 

OUTPUTS: 

$UBIAS=BIAS  OF  UNLOAD  BLOCK  (MAPPED  SYSTEM  ONLY) 

$UDA=UNLO«D  DATA  ADDRESS  FOR  FIRST  ALLOCATION  ENTRY 

$LDA=UNL0AD  DATA  ADDRESS  FOR  FIRST  LIBRARY  DESCRIPTOR  ENTRY 


USA: 


10$: 


CALL 

CLR 

M0V6 

MOVB 

ADD 

BEO 

ASL 

ASL 

TST 

CMP 

TST 

HOV 

MOV 
BEO 
MOV 
MOV 
CLR 
MOV 


GETIND 

$UDA 

$NALL,RO 

t\Ll8,R1 

RO.RI 

loi 

R1 

R1 

(R1)t 

(R1)+,(R1)+ 
(Rl)  + 
Rl.SLDA 


GET  THE  PDV  INDEX 

SET  NO  UNLOAD  DATA  ADDRESS  tE^ 

GET  NUMBER  OF  ALLOCATIONS 

AND  NUMBER  OF  LIBRARIES 

ADD  THEM  TOGETHER 

IF  ZERO,  NO  ALLOCS/LIBRS 

MULTIPLY  BY  4  (2  WORDS  PER  UNLOAD  ENTRY) 

include' i  WORD  FOR  ALL0C/LI8R  COUNT 
INCLUDE  2  WORDS  FOR  LINE  TABLE  ADDRESS/SIZE 
INCLUDE  1  WORD  FOR  PDV  INDEX  AND  RESERVED  BYTE 
SAVE  UNLOAD  SIZE  NEEDED 


.CXUNL+$NTLHB,$U8IAS  ;  GET  BIAS  OF  FIRST  UNLOAD  BLOCK 


70$ 

#64.,$RSIZE 

*$NTLUB,R2 

aSADRZ 

$U8IAS,atADRX 


IF  NONE,  GO  ALLOCATE  ONE 

SET  SIZE  OF  NETWORK  POOL  BL. "<S 

SET  VIRTUAL  ADDR.  OF  UNLOAD  BLOCK  BUFFER 

SET  UP  ADDRESS 


;  DETERMINE  IF  ROOM  EXISTS  IN  THIS  BLOCK 


20$: 


30$: 


SWTCHI 

GETAD 

MOV 

ADD 

MCV 

TST 

CMP 

8EQ 

TST 

TST 

BEQ 

BIT 

BEQ 

MOVB 

MOVB 

ADD 

ASL 

ASL 


*$NTLUB 

R2,R0 

#100,R0 

R2,r5 

(R3)  + 

R3,R0 

50$ 

(R3)<- 

(R3)t 

40$ 

#1,(R3)* 

30i 

(R3)+,R4 

(R3)i,R5 

R.',,R5 

R^ 

R5 


POINT  AT  INPUT  BUFFER 

READ  IN  BLOCK  FROM  NETWORK  POOL 

COPY  VIRTUAL  ADDRESS 

SET  32.  WORD  BLOCK  VIRTUAL  ADDRESS  LIMIT 

COPY  VIRTUAL  ADDRESS  AGAIN 

SKIP  NEXT  UNLOAD  BlOCK  POINTER 

IS  IT  END  OF  THIS  32.  WORD  BLOCK? 

IF  EQ,  YES 

SKIP  PDV  INDEX  ENTRY 

SKIP  LINE  TABLE  ADDRESS  ENTRY 

IF  ZERO,  THE  REST  OF  THIS  BLOCK  IS  AVAILABLE 

ANY  ALLOCATIONS  THIS  ENTRY? 

IF  EQ,  NO 

GET  ALLOCATION  COUNT 

AND  LIBRARY  COUNT 

ADD  THEM  TOGETHER 

MULTIPLY  BY  4  (2  WORDS  PER  ENTRY) 
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ALLPR  -  ALLOCATT  FROM  PROCESS  SPACE 


65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 

101  000004 

102  000004 
103 

104 
^05 
106 
107 

108  000004 

109  000010 

110  000016 
111 

112  000020 
115 

114  000024 

115  000030 

116  000032 

117  000036 

118  000044 

119  000C46 

120  000050 

121  000032 


.SBTTL 
.SBTTL 


.ALLPR  -  ALLOCATE  FROM  PROCESS  SPACE 
.ALOCB  -  ALLOCATE  FROM  OSR 


*»-. ALLPR/. AL0CB/.AL0C1 

THESE  ROUTINES  ALLOCATE  16-8IT  STORAGE  FROM  THE  MEMORY 

DESCRIBED  BY  THE  RESPECTIVE  LiSTHEAD: 

SPRAVL  -  ALLOCATE  FROM  THE  PROCESS/NTPOOL  FREE  SPACE 
SCRAVL  -  ALLOCATE  FROM  CCMM  EXEC  FREE  SPACE 
SCEAVL  -  ALLOCATE  FROM  THE  SYSIEM'S  DYNAMIC  MEMORY 


INPUTS: 

RO  -  ADDRESS  OF  LISTHEAD  (  CALL  AT  .AL0C1  ) 

R1  -  SIZE  OF  THE  CORE  BUFFER  TO  ALLOCATE  IN  BYTES. 

SBIAS  -  BIAS  OF  PROCESS  FOR  PARTITION  ALLOCATION 

$PDVA  -  PDV  OF  PROCESS  FOR  PARTITION  ALLOCATION 

OUTPUTS: 

C=1  IF  INSUFFICIENT  CORE  IS  AVAILABLE  TO  ALLOCATE  THE  BLOCK. 

C=0  IF  THE  BLOCK  IS  ALLOCATED. 

RO  -  VIRTUAL  ADDRESS  OF  THE  ALLOCATED  BLOCK 

R2,  R3,  R4,  R5  ARE  PRESERVED 


NOTE 


THIS  ROUTINE  ASSUMES  AN  IN  CORE  LISTHEAD  (  3  WORDS  ).  THIS 
SPEEDS  ALLOCATION  (  AND  DEALLOCATION  )  UP  CONSIDERABLY.  THE 
MODULES  VIMI  8  VIMO  MAINTAIN  THE  LISTHEAD  IMAGES.  THESE 
ROUTINES  WILL  NOT  ALLOCATE  UNLESS  THE  COMEXEC  IS  LOADED.  THE 
CONTEXT  OF  THE  FE.CEX  BIT  HAS  A  SLIGHTLY  CHANGED  MEANING  IN 
VNP.  IF  THE  BIT  IS  SET,  CEX  IMAGES  ARE  CORE  RESIDENT,  IF 
CLEAR,  THEN  THE  IMAGES  ARE  STILL  ON  THE  DISK  OR  THE  COMEXEC 
IS  NOT  LOADED. 

.MCALL  GtTRV,PUTRC,ERMSG$,ERRPT$,ERBLK$,GETAD,PCBDF$,PUTAD 
.MCALL   SWTCHI,SWTCHO,PKTDF$,RESRG,SAVRG 


PCBDFS 
PKTDFS 
.ENABL   LC 


PCB  ifFSETS 

I/O   PACKET   OFFSETS 


012700 
016767 
000404 

01,^700 

005067 

016703 
012767 
010246 
010146 
010046 
005740 


OOOOOOG 
COOOOOG  OOOOOOG 


OOOOOOG 

OOOOOOG 

COOOOOG 

00000'.  OOOOOOG 


ALLOCATION  WILL  BE  FROM  PARTITION  IF  ENTERED  HERE 
'.ALLPR 


:MOV 
MOV 
BR 


.AL0C8::M0V 


.AL0C1: 
.AL0C2: 


CLR 

SAVRG 

MOV 

MOV 

MOV 

MOV 

MOV 

Tsr 


*$PRAVL,RO 

$BIAS,$RBLC< 

.AL0C2 

#$CRAVL,RO 

$R8LCK 

<R3> 

$RB'.CK,R3 

^^.iRSIZE 

R2,-(SP) 

R1,-'SP) 

R0,-(SP) 

-(RO) 


ADDR  OF  PROCESS  FREESPACE  LISTHEAD 

BIAS  OF  PROCESS 

ALLOCATE 

GET  ADDRESS  OF  SCOM  LISTHEAD 

WHEN  CLEAR  ALLOCATE  FROM  POOL 

SAVE  REG 

SAVE  BIAS 

SET  TRANSFER  SIZE 

SAVE 

REGISTERS 
SAVE  LISTHEAD  ADDRESS  ON  THE  STACK 
POINT  AT  ROUNDING  FACTOR 


;[MP01] 
;[MP01] 
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MACRO   CROSS   REFERENCE  CREF        DA. 00 

7-309  7-324 


MACRO  NAME 

REFERENCES 

CALL 

6-155 

6-159 

6-i75 

7-243 

7-259 

7-290 

ERBLKS 

#6-98 

ERMSGt 

#6-98 

■RRPTl 

#6-98 

GET  AD 

#6-98 

6-155 

7-243 

7-259 

7-509 

GETRV 

#6-98 

=CBDFt 

#6-98 

6-101 

3KTDF$ 

#6-99 

6-102 

PUTAD 

#6-98 

6-159 

6-175 

7-290 

7-524 

PUTRf 

#6-98 

RAND 

#6-155 

6-135 

#6-159 

6-159 

#6-175 

^"1^5 

#7-290 

7-290 

#7-309 

7-309 

*7-524 

7-524 

RESRG 

#6-99 

6-191 

RETURN 

6-192 

7-5A2 

SAVRG 

#6-99 

6-115 

SWTCHI 

#6-99 

SWTCHO 

#6-99 

#7-245     7-245     #7-259     7-259 
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3 

I, 
5 
6 

7 

i 

9 

10 

11 

12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
^5 
46 
47 
48 
49 
50 
51 
52 
^^ 

54 


.TITLE  V8i0  -  VNP  BLOCK  I/O  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPME^JT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHET: 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  '"^  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HERESY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOLT  NOTICE 
AND  SHOULD  .MOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUME:)  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  LOGICAL  BLOCK  I/O  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  1u-APP-82 

DECNET-11M  V3.1 
0ECNET-11M-PLUS  VI. 1 

4.00     07-NOV-83 

DtCNET-IIM  V4.0 
DECNET-HM-PLUS   V2.0 

5. GO  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V5.0 
DECnet-Mirro/RSX  VI. 0 
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150 
151 
152  000112 

; 

ASL 

R2 

005001 

CLR 

Rl                              ; 

153  OOOIU 

15^; 

155 

000A26 

BR 

10$                            ; 

;    RSX11M,RSX11S 

156 

157  000116 

5$: 

GREGSS 

,R0 

158  000132 

103A?5 

BCS 

100$ 

159  00013A 

016701 

COOOOOG 

MOV 

$DSW,R1 

160  OOOUO 

016002 

000002 

MOV 

G.RGRS(R0),R2 

161 

000006 

.REPT 

6 

162 

ASL 

R2 

163 

.ENDR 

16A   000160 

005701 

TST 

R1 

165   000162 

001003 

BNE 

10$ 

166  00016A 

010601 

MOV 

SP.Rl 
*17777, R1 

167  000166 

168 

169  000172 

0A2701 

017777 

BK 

060102 

10$: 

ADD 

R1,fi2 

170  0001 7A 

160002 

SUB 

R0,R2 

171    000176 

010267 

000002' 

MOV 

R2,$XXLEN 

172   000202 

005020 

CLR 

{R0)  + 

173  000204 

010210 

MOV 

R2,(R0) 

17A   000206 

IOCS: 

RETURN 

175 

176 

000001 

.END 

CONVERT  TO  BYTES 

NOTE  -  ERROR  1^'  RSX-11D/IAS  DOCUMENTATION 

TASK  ALWAYS  STARTS  AT  VIRTUAL  0 

COMPUTE  BUFFER  SIZE 


GET  REGION  PARAMETERS 

NO  DIRECTIVE  IN  SYSTEM  ? 

GET  TASK  BASE  ADDRESS  (MAPPED=0,UNMP=PHY) 

GET  SIZE  IN  32.  WORD  BLOCKS 

CONVERT  TO  BYTES 

IS  THIS  A  MEMORY  MANAGEMENT  SYSTEM  ? 

IF  NE,  THEN  NO,  THIS  IS  PHYSICAL  ADDRESS 

GET  TASK'S  REAL  BASE  ADDRESS 


TASK'S  HIGHEST  ADDRESS  IN  BYTES 
MINUS  XXSTR  =  SUE  OF  POOL  IN  BYTES 
STORE  LENGTH  IN  ROOT 
THIS  IS  THE  ONLY  POOL  SEGMENT 
THIS  IS  ITS  LENGTH 


VBUF 
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SALLPR  -  ALLOCATE  eOOL  FROM  PROCESS 


266 
267 
268 
269 

270 
271 
272 
273 
27A 
275 
276 
277 
278 
279 
280 
281 

282  001024 

283  001026 

284  001032 

285  001036 

286  0010A2 

287  001046 
288 

289 
290 

291  001050 

292  001054 

293  001062 

294  001066 
295 

296  001072 

297  001074 


.SBITL   SALLPR  -  ALLOCATE  POOL  FROM  PROCESS 

SALLPR  -  ALLOCATE  SINGLE  WORD  ADDRESSABLE  STORAGE  FROM  A  PROCESS 
PARTITJON.   THE  LiSTHEAD  USED  LOOKS  LIKE  THE  FOLLOWING: 

.WORD   ROUNDING  FACTOR 
$PRAVL::.WORD   OFFSET  TC  FREE  SPACE  LISTHEAD  !N  PROCESS 

.WORD   0 


INPUTS: 

R1  - 

SPDVA 
OUTPUTS: 

C-8IT  -  SUCCESS/FAILURE 

RO  -    VIRTUAL  ADDRESS  OF  ALLOCATION 


ALLOCATION  SIZE 
PROCESS  PDV  ADDRESS 


010346 
016703 
012700 
016310 

103411 


016703 
016763 
042700 
052700 

012603 


OOOOOOG 
OOOOOOG 
OOOOOOG 


SALLPR: :MOV  R3,-(SP)  ;  SAVE  R3 

MOV  SPDVA, R3  ;  PDV  ADDRESS 

MOV  ^SPRAVL^RO  ;  ADDR  Of  PROCESS  FREE  SPACE  LiSTHEAD 

MOV  Z.AVL(R3),(R0)  ;  POSSIBLY  SOME  FREE  SPACE 

CALL  .ALLPR  ;  ATTEMPT  TO  ALLOCATE  FROM  PROCESS 

BCS  40$  ;  FAILED  IF  C-SET 


OOOOOOG 

OOOOOOG  OOOOOOG 
160000 
120000 


UPDATE  THE  FREE  SPACE  POINTER  IN  THE  PDV 


40$: 


MOV 
MOV 
BIC 
BIS 

MOV 
RETURN 


SPDVA, R3 
SPRAVL ,Z.AVL(R3) 
#1 60000, RO 
#1 20000, RO 

(SP)t,R3 


GET  THE  PDV  ADDRESS 
;  UPDATE  THE  FREE  SPACE  POINTER 
CLEAR  APR  BITS... JUST  IN  CASE 
SET  MAPPING  FOR  KERNEL  APR5 

RESTORE  R3 
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vvv 

vvv 

NNN 

NNN 

PPPPPPPPPPPP 

vvv 

vvv 

NNN 

NNN 

PPPPPPPPPPPP 

vvv 

vvv 

NNN 

NNN 

PPPPPPPPPPPP 

vvv 

vvv 

NNN 

NNN 

PPP         PPP 

vvv 

vvv 

NNN 

NNN 

PPP         PPP 

vvv 

vvv 

NNN 

NNN 

PPP         PPP 

vvv 

vvv 

NNNNNN 

NNN 

PPP         PPP 

vvv 

vvv 

NNNNNN 

NNN 

PPP         PPP 

vvv 

vvv 

NNNNNN 

NNN 

PPP         PPP 

vvv 

vvv 

NNN 

\INN 

NNN 

PPPPPPPPPPPP 

vvv 

vvv 

NNN 

MNN 

NNN 

PPPPPPPPPPPP 

vvv 

Vv'V 

NNN 

>JNN 

NNN 

PPPPPPPPPPPP 

vvv 

vvv 

NNN 

^JNNNNN 

PPP 

vvv 

vvv 

NNN 

NNNNNN 

PPP 

vvv 

vvv 

NNN 

MNNNNN 

PPP 

vvv 

vvv 

NNN 

NNN 

PPP 

vvv 

vvv 

NNN 

NNN 

PPP 

vvv 

vvv 

NNN 

NNN 

PPP 

vvv 

NNN 

NNN 

PPP 

vvv 

NNN 

NNN 

PPP 

vvv 

NNN 

NNN 

PPP 

0     1 
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324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
33A 
335 
336 
337 
338 
339 
340 
3A1 
3A2 
343 
34A 
345 
346 
347 
348 
349 


MAX14   -   CHECK   FOR  NO  MORE    THAN   '4.    ALLOCATIONS 

INPUTS: 

SNALL  =  NUMBER  OT  ALLOCATIONS 
SNLIB  =  NUMBER  Of  LIBRARIES 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 
RO  =  DESTRC/ED 


Cu0502 

000502  116700     OOOOOOG 

000506  010046 

000510  1167C0     OOOOOOG 

000514  062600 

000516  022700     000015 

000522  103401 

000524 


000526 


MAX14: 


MOVB 

SNALL, RO 

MOV 

R0,-(SP) 

MOVB 

SNLIB.RO 

ADD 

(SP)+,R0 

CMP 

#15.,R0 

BCS 

101$ 

RETURN 

•  ERROR 

CONDITION 

i01$: 

EMSGSR 

KV 

GET   NUMBER  OF    ALLOCATIONS 

SAVE    IT 

GET  NUMBER  OF  LIBRARIES 

ADD  THE  TWO 

ARE  WE  AT  THE  MAXIMUM  ALREADY 

IF  CS,  NO  MORE  ALLOWED 


ONLY  14.  ALLOCATIONS/LIBRARIE-  ALLOWED 
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VV    vv 

AAAAAA 

CCCCCCCC 

"5||? 

VV    vv 

AAAAAA 

f 

ccccccc 

333333 

vv    vv 

AA 

AA 

rr 

33     33 

vV      vv 

AA 

AA 

cc 

33     33 

vv    vv 

AA 

AA 

(.1 

33 

vv    vv 

AA 

AA 

a: 

33 

vv    vv 

AA 

AA 

cc 

33 

vv    vv 

AA 

AA 

cc 

33 

vv    vv 

AAAAAAAAAA 

cc 

33 

vv    vv 

AAAAAAAAAA 

cc 

33 

vv  vv 

AA 

AA 

cc 

33     33 

vv  vv 

AA 

AA 

re 

35     33 

vv 

AA 

AA 

•ccccccc 

333333 

vv 

AA 

AA 

ccccccc 

333333 

ssssssss 

TTTTTITTIT 

SSS5SSSS 

TTTTTTTTTT 

ss 

ss 

ss 

5S 

SSSSSS 

SSSSSS 

SS 

ss 

ss 

ss 

LLLLLLILLL 

SSSSSSSS 

LLLLlLlL.L 

SiSSSSSS 
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02:09 


105 
lOA 

$8  IMF 

-  ".BIN"  ACTION  ROUTINE 

105 

106 

INPUTS: 

107 

BINARY 

FILE  IS  OPEN  (OPENED  BY  $ABFi) 

108 

$BFALL= 

=ALL0CAT10N  SIZE 

109 

$8FLBN= 

:L0GICAL  BLOCK  NUMBER 

110 

$BFPTR= 

:8INARY  BUFFER  POINTER 

111 

$BFXFR: 

=TRANSFER  SIZE  IN 

BYTES 

112 
115 

OUTPUTS: 

114 

NONE 

•IIS 

- 

116 

117  000000 

tBING:: 

118  000000 

119 

120  000004 

CALL 

$C0RE2 

;  PROCESS  OPERAND  2 

tBINF:: 

121  000004 

032767 

OOOOOOG  OOOOOOG 

BIT 

*F2.FIL,$FLAG2 

;  WAS  VALID  FILE  NAME  SEEN? 

122  0O0D12 

001531 

BEQ 

30$ 

;  IF  EQ,  NO 

P3  000014 

005000 

CLR 

RO 

;  NO  ALLOCATION  ADDRESS  YET 

124  000016 

032767 

OOOOOOG  OOOOOOG 

BIT 

#FL.CHA,$FlAGS 

;  MUX  CHARACTERISTICS  UPDATE  ONLY 

125  000024 

126 

127  000026 

001042 

BNE 

13$ 

;  YES  .. 

005767 

OOOOOOG 

TST 

.MGMGE 

;  MEMORY  MANAGEMENT  SYSTEM  ? 

128  000032 

129 

130  000034 

100410 

BMI 

5$ 

;  NO 

026767 

OOOOOOG  OOOOOOG 

CMP 

$eF8AS,$VALUE 

;  BUILT  FOR  CORRECT  APR? 

131  000042 

001412 

BEQ 

10$ 

;  YES 

132  000044 

EMSG$ 

ZA 

;  PRINT  WARNING  MESSAGE 

133  000052 

134 

135  000054 

136 

137  000060 

000406 

SR 

10$ 

005767 

OOOOOOG 

5$: 

TST 

$6F8AS 

;  BUILT  FOR  BASE  ADDRESS  OF  0? 

001403 

BEQ 

10$ 

;  IF  EG,  YES 

138  000062 

EMSGS 

76 

;  ELSE  PRINT  WARNING  MESSAGE 

1^9  000070 

lOS: 

CALL 

MAXV. 

;  ALLOW  ONLY  14.  ALLOCATIONS 

140  000074 

103476 

BCS 

20$ 

;  IF  CS,  NO  MORE  ALLOWED 

141  000076 

016701 

OOOOOOG 

MOV 

$BFALL,R1 

;  GET  ALLOCATION  SIZE  NEEDED 

142  000102 

032767 

OOOOOOG  OOOOOOG 

BIT 

#F1.UMR,$FLAS1 

;  IS  UMR  MAPPING  NEEDED  ? 

143  000110 

001003 

BNE 

11$ 

;  IF  NE,  YES 

144  000112 

CALL 

$ALN18 

;  ALLOCATE  FROM  NON-MAPPED  AREA 

145  000116 

000402 

BR 

12$ 

146  000120 

11$: 

C«LL 

$ALL18 

;  TRY  TO  ALLOCATE 

147  000124 

103465 

12$: 

BCS 

101$ 

;  IF  CS,  FAILURE 

148  000126 

105267 

OOOOOOG 

INCB 

$NALL 

;  TALLY  SUCCESSFUL  ALLOCATION 

149  000132 

016702 

OOOOOOG 

13$: 

MOV 

$eFPTR,R2 

;  RESTORE  BINARY  BUFFER  POINTER 

150  000136 

112722 

OOOOOOG 

M0V8 

#.C0RE,(H2)t 

;  STORE  FUNCTION  CODE 

151  000142 

110022 

MOVB 

R0,(R2)t 

;  FIRST  WORD  OF  ADDRESS 

152  000144 

000300 

SWAB 

RO 

153  000146 
154 
55  0001 50 

110022 

MOVB 

R0,(R2)^ 

, 

005767 

OOOOOOG 

TST 

.MGMGE 

;  MEMORY  MANAbf'lENT  SYSTEM  ' 

156  000154 

157 

'58  000156 

100404 

BMI 

15$ 

;  NO 

116722 

OOOOOOG 

MOVB 

$VALUE,(R2l+ 

;  SECOND  WORD  ;jF  ADDRESS 

159  000-6? 

1^6722 

000001G 

MOVS 

$VALUEtl ,(R2)t 

I  D  4 
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SYMBOL   r:?OSS   reference  CREF        0^.00 


SYMBOL 

VALUE 

references 

SIOSB 

- 

*♦«*** 

GX 

6-179 

SLBN 

r 

i[***** 

GX 

•6-174 

•6-175 

SLLEN 

- 

****** 

GX 

•6-176 

SN^LL 

T. 

****** 

GX 

•  6-U8 

•9-308 

•10-366 

11-387 

$Ni   IB 

~ 

****** 

GX 

11-389 

$r    'i\D 

****** 

GX 

13-472 

$-        R 

~ 

****** 

GX 

•13-447 

•13-456 

*'3-475 

%r          ,K 

= 

****** 

GX 

•13-446 

•13-457 

SRtiADX 

- 

****** 

GX 

6-177 

SREP.C 

r 

****** 

GX 

5-88 

5-89 

5-91 

5-93 

12-413 

SRQ5 

z 

****** 

GX 

9-289 

10-350 

$RQ7 

r 

****** 

GX 

9-286 

SRSIZE 

- 

****** 

GX 

•13-450 

•13-458 

13-467 

•13-468 

13-469 

•13-471 

SSCO,'^ 

000720 

RG 

#10-348 

tSIZE 

r 

****** 

GX 

•6-167 

•6-170 

•9-326 

•9-329 

•10-373 

STERR 

r 

****** 

GX 

5-88 

5-92 

5-93 

STWARN 

^ 

****** 

GX 

5-89 

5-90 

5-91 

SVALJE 

- 

****** 

GX 

6-130 

6-158 

6-159 

7-206 

•7-213 

7-217 

9-318 

•10-355 

10-356 

•10-362 

10-371 

10-372 

SVFLVl 

r 

****** 

GX 

9-281 

10-349 

.BA^EB 

- 

****** 

GX 

5-75 

5-81 

7-213 

.COr,E 

- 

****** 

GX 

6-150 

9-309 

.MGMGE 

- 

****** 

GX 

6-127 

6-155 

6-164 

7-203 

8-233 

9-283 

.scor 

= 

**  t»»« 

GX 

10-367 

13-475  13-475  13-476 


8-236  •8-258  9-317 


9-314  9-323  13-453 
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16-  399    SVXLLC  -  VERIFY  NOT  AN  LLC 


C    6 

02:10 
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'MC6  -  VNP 

$X5CHB  - 

.X 

38A 

^85 

386 

387 

388 

389 

390 

391 

392 

393 

001 

394 

001 

395 

;)()i 

396 

001 

397 

001 

C  7 

TEMPLATE  ACTION  ROUT  MACRO  V05.03b  Saturday  29-Jun-85  02:10  Page  \'> 
3CHB  ACTION  ROUTINE 


$VFLLC  -  VERIFY  LLC  ACTION  ROUTINE 
INPUTS: 


NONE 

OUTPUTS; 

ERROR  UNLESS  LLC  BE;NG  LOADED 


022  SVFLLC: 

022  032767  OOOOOOG  OOOOOOG        BIT     *Fl .LLC ,$FLAGS 

030  001C03  BNE     10$ 

032  EMSG$   89 

040  10$:    RET'JRN 


IS  THIS  AN  LLC? 

IF  NE,  VES 

LLC  OPERATOR  IN  DDM/DLC  TEMPLAT- 


0  7 
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SVXLLC  -  VERIFY  NOT  AN  LLC 
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224 
225 

BASE 

-  CHECK 

ALREADY  RESIDENT  LIBRARY  FOR  CORRECT  BASE 

226 

ill 
229 

INPUTS: 

$LBIAS,$L8ADR=DESCRIPT0R  ADDRESS 
$CAPR=U5ER'S  APR  NUMBER 

230 
251 
232 
233 

234  000402 

235  000406 

236  000412 

257  000416 

258  000424 

239  00043' 

240  000434 

241  000442 

OUTPUTS: 

NONE 

016700 

066701 
116167 
126767 
001403 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

BASE: 

OOOOOOG 
OOOOOOG  10$: 

20$: 

MOV 

CALL 

ADD 

M0V8 

CMP8 

BEQ 

EMSG$ 

RETURN 

$L8IAS,R0       ;  GET  DESCRIPTOR  BIAS 
$GETL8         ;  GET  LIBRARY  BLOCK 
$L8ADR,R1       ;  OFFSET  TO  DESCRIPTOR 
L8.APR(R1),$8F8AS  ;  SAVE  BASE  APR 
$BF8AS,$CAPR    ;  BUILT  FOR  CORRECT  APR? 
20$            ;  IF  EQ,  YES 
v2             ;  PRINT  WARNING  MESSAGE 

D  8 
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■.AC8 

CREATED   BY 

MACRO     ON 

29 

-JUN-85   AT    02:11 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

FMT2 

r     *  **  t*  * 

GX 

5-71 

FM.2 

=  000000 

#5-71 

lBLK 

X       *   k  **  ** 

GX 

*6-94 

SStBAS 

~    ****** 

5-71 

5-71 

$ALB 

000000 

RG 

#6-87 

$ALN18 

=    ****** 

GX 

6-92 

iELINE 

z:      ****** 

GX 

5-71 

SERRYl 

000000 

R 

#5-71 

6-113 

SLBADR 

-      ****** 

GX 

»6-96 

SLBERR 

-      ****** 

GX 

6-112 

$LBli\S 

r     ****** 

GX 

»6-95 

SPUTLB 

-     ****** 

GX 

6-105 

SREP.C 

-     ****** 

GX 

5-71 

STERR 

-     ****** 

GX 

5-71 

.LB  I  AS 

-     ******* 

GX 

»6-1C', 

.LBUFf 

-     ****** 

GX 

6-97 

.MGMGE 

=     ****** 

6X 

6-89 

C  9 
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7-     2?7 


$ALKB   -   ALLOCATE    KB 
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56/ 

001036 

060503 

ADD 

R5,R3 
30i 

SKIP  THE  ALL0C/LI8R  ENTRIES 

568 

001040 

000761 

BR 

569 

001042 

02'.  343 

40$: 

CMP 

-(R3),-(R3) 

POINT  BACK  AT  THE  ZERO  WORD 

570 

001044 

010304 

MOV 

R3,R4 

COPY  VIRTUAL  ADDRESS 

571 

001046 

066704 

OOOOOOG 

ADD 

$LDA,R4 

R4,R0 

50i 

INCLUDE  UNLOAD  SIZE  NEEDED 

572 

001052 

020400 

CMP 

IS  THERE  ENOUGH  SPACE  IN  THIS  BLOCK? 

573 

001054 

101003 

BHJ 

IF  HI,  NO 

574 

001056 

CALL 

UBLTA 

STORE  LINE  TABI E  ADDRESS  IN  UNLOAD  BLOO 

575 
576 
577 

001062 

000504 

BR 

100$ 

ALL  DONE 

;  LlNKs 

DOWN  LIST  TO  NEXT  UNLOAD  BLOCK 

578 
579 

U01064 

016767 

OOOOOOG 

OOOOOOG 

50$: 

MOV 

$NTLUB,$UBIAS 

SET  VIRTUAL  ADDRESS  OF  NEXT  BLOCK 

580 

001072 

001406 

BEQ 

70$ 

NO  MORE,  GO  ALLOCATE  ONE 

581 

001074 

016777 

OOOOOOG 

OOOOOOG 

MOV 

$NTLUB,a$ADRX 

SET  UP  ADDRESS 

582 

001102 

005077 

OOOOOOG 

CLR 

a$ADRZ 

583 
584 

001106 

000724 

BR 

20$ 

GO'SEE  IF  ROOM  EXISTS  IN  IT 

585 
586 
587 
588 

;  ALLOCATE  AN  UNLOAD  BLOCK  SINCE 

NO  ROOM  EXIST  IN  ANY  CURRENTLY  ALLOCATED 

001110 

70$: 

589 

001110 

016701 

OOOOOOG 

MOV 

$UN8S7,R1 

SET  SIZE  OF  ALLOCATION 

590 

001114 

SWTCHl 

RESTORE  DEFAULT  BUFFER  ADDRESSES 

591 

001122 

SWTCHO 

592 

001130 

CALL 

$ALN18 

ALLOCATE  AN  UNLOAD  BLOCK  FROM  NTPOOL 

593 

001134 

103463 

BCS 

101$ 

THIS  IS  VERY  BAD  !l 

594 

001136 

010067 

OOOOOOG 

MCV 

RO,$UBIAS 

SET  ADDRESS 

595 

001142 

00507' 

OOOOOOG 

CLR 

aSADRZ 

0  VIRTUAL  ADDRESS 

596 

001146 

01007" 

OOOOOOG 

MOV 

RO,a$ADRX 

SET  BLOCK  BIAS 

597 

001152 

SWTCHl 

#$NILUB 

POINT  AT  INPUT  BUFFER 

598 

001160 

GETAD 

READ  IN  BLOCK  IMAGE 

599 

001164 

012703 

OOOOOOG 

MOV 

#$NTLUB,R3 

POINT  AT  IT 

600 

001170 

005023 

CLR 

(R3)  + 

CLEAR  LINK  TO  NEXT  UNLOAD  BLOCK 

601 

001172 

010304 

MOV 

R3,R4 

ZERO  THE  REMAINDER  OF  THE  32.  WORD  BLC: 

602 

001174 

012705 

000037 

MOV 

#31., R5 

603 

001200 

005024 

75$: 

CLR 

(R4)  + 

604 

001202 

005305 

DEC 

R5 

605 

001204 

001375 

BNE 

75$ 

606 

001206 

CALL 

U81TA 

stoRE  LINE  TABLE  ADDRESS  DATA 

607 

001212 

016767 

OOOOOOC 

OOOOOOG 

MOV 

.CXUNLt$NTLHB,$BFR  ;  DO  ANY  PREVIOUS  UNLOAD  BLOCKS  EXIST 

608 

001220 

001003 

BNE 

90$ 

YES 

609 

001222 

010067 

OOCOOOC 

MOV 

RO,.CXUNL<-$NTLHB 

;  SET  UP  THIS  BLOCK  AS  THE  FIRST 

610 
611 

001226 

000422 

BR 

100$ 

AND  WE'RE  DONE 

612 
613 

;  FIND 

LAST  Bl 

XK  AND  ADD  THIS  UNLOAD  BLOCK  TO  CHAIN 

614 
615 

001230 

90$: 

SWTCHl 

*$eFR 

■  USE  OVERUSED  BUFFER 

616 
617 
618 

001236 

U05077 

OOOOOOG 

CLR 

a$ADRZ 

■  SET  UP  ADDRESS 

0C1242 

016^77 

OOOOOOG 

OOOvOOOG 

91$: 

MOV 

$8FR,a$ADRX 

619 

001250 

GETAD 

■  READ  BLOCK  INTO  BUFFER 

62C 

C01254 

005767 

OOOOOOG 

TST 

$BFR 

;  IS  THIS  THE  LAST  BLOCK 

621 

001260 

001370 

B^E 

91$ 

■  NOT  YET  ... 

622 

001262 

016767 

OOOOOOG 

COOOOCG 

MOV 

$U8IAS,$BFR 

;  LINK  IN  RECENTLY  ALLOCATED  UNLOAD  BLOCK 

623 

001270 

PUT  AD 

;  REWRITE  BLOCK 

D  11 
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122  000054 

061001 

ADD 

(RO.R'' 

ROUND  ALLOCATION 

125  0C0056 

12A 

125  000060 

042001 

BIG 

(R0)+,R1 

UP... 

000261 

10$: 

SEC 

ASSUME  ZERO  LENGTH  BLOCK 

126  000062 

001446 

BEQ 

50$             : 

WAS  ZERO  LENGTH  BLOCK  1 

127  00006A 

128 

129  000070 

011067 

OOOOOOG 

10V 

(R0/,$BFR 

PREPARE  TO  ENTER  LOOP 

010002 

20$: 

MOV 

R0,R2 

SAVE  ADDRESS  OF  CURRENT  BLOCK 

130  000072 

016767 

000002G  177700 

MOV 

$8FR*2.BISIZ 
$BFR,R0 

SAVE  SIZE  OF  PREVIOUS  BLOCK 

131  000100 

(i16700 

ODOOOOG 

MOV 

GET  ADDRESS  OF  NEXT  BLOCK 

132  OOOIOA 

001765 

BEQ 

10$ 

IF  EQ  END  OF  FREE  BLOCK  CHAIN 

133 
134 

.IF  NDF 

R$$MPL 

;tMP01] 

135  OOOiOi' 

GETAD 

RO 

READ  FIRST  TWO  WORDS  OF  NEXT  BLOCK 

156 

.IFF 

;CMP01] 

157 
138 

rsT 

R3 

ALLOCATE  FROM  PROCESS  SPACE  ? 

;CMP01] 

139 

BEQ 

22$ 

IF  NO  -  BRANCH 

.-CMPOIJ 

140 

GETAD 

RO 

READ  FROM  PROCESS  SPACE 

.-[M-'OI] 

141 

BR 

23$ 

CONTINUE 

;[MP01] 

142 

22$: 

GETRV 

RO 

DO  A  POSSIBLE  D-SPACE  READ 

; [MPOl ] 

143 

.ENDC 

144  000116 

23$: 

145  000116 

020167 

000002G 

CMP 

R1,$8FR+2 

BLOCK  BIG  ENOUGH? 

146  000122 

10'362 

BHI 

20$ 

IF  HI  NO 

147  000124 

160167 

000002G 

sua 

R1,$8FRt2 

REDUCE  SIZE  OF  FREE  BLOCK 

'48  000130 

001015 

BNE 

50$ 

IF  NE  MORE  LEFT  IN  BLOCK 

149  000132 

020216 

CMP 

R2,(SP) 

IS  THIS  BEING  REWRITTEN  TO  THE  LISTHEAD  ? 

150  000134 

001005 

BNE 

25$ 

NO 

151  000136 

016712 

OOOOOOG 

MOV 

$BFR,(R2) 

UPDATE  APPROPRIATE  LISTHEAD 

152  000142 

153 

154 

000414 

BR 

40$ 

;  SPECIAl  CASE 

WHERE  ALLOCATE  BLOCK  IS  THE  SAME  SIZE  AS  THE  FREE  BLOCK 

156  000144 

016767 

177630  000002G 

^5$: 

MOV 

BLSIZ,$BFRt2 

SET  SIZE  OF  CURRENT  BLOCK 

157 
158 

.IF  MDF 

R$$MPL 

; [MPOl ] 

159  000152 

PUTAD 

R2 

•  REMOVE  BLOCK  FROM  LIST 

160 
161 
162 

.IFF 

;[MP01] 

TST 

R3 

•  ALLOCATE  FROM  PROCES  SPACE  ? 

.•EMPOn 

163 

BFQ 

26$ 

■  IF  NO  -  BRANCH 

; [MPOl ] 

164 

PJTAD 

R2 

;  ALLOCATE  FROM  PROCESS 

; [MPOl ] 

165 

BR 

50$ 

;  CONTINUE 

; [MPOl 3 

166 
167 

26$: 

PUTRC 

R2 

;  POSSIBLE  D-SPACE  READ 

;[MP01] 

168 

.ENDC 

169 

170  000lo2 

000406 

BR 

50$ 

171  C00164 

30$: 

172 
■73 

174 

175  000164 

.IF  NLF 

R$$MPL 

.•fMPor. 

PUTAD 

RO 

;  WRITE  UPDATED  BLOCK  DESCRIPTOR 

176 

.IFF 

;[MP01] 

17/" 

TS^ 

R3 

;  ALLOCATE  FROM  PROCESS  SPACE 

;[MP01] 

178 

BEQ 

55$ 

;  IF  NO  -  BRANCH 

;[MP01] 
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-irATC      CDriM      hCD 


••F1LE««1D««VAL22 


C  13 


vv    vv 

AAAAAA 

222222 

222222 

vv    vv 

AAAAAA 

222222 

222222^ 

vv    vv 

AA      AA 

22             22 

22     22 

vv    vv 

AA      AA 

22     11 

22             22 

vv    vv 

AA      AA 

22 

22 

v>,     vv 

AA      AA 

22 

22 

vv    vv 

AA      AA 

22 

22 

vv    vv 

AA      AA 

..22 

.-?^ 

vv    vv 

AAAAAAAAAA 

22 

22 

vv    vv 

AAAAAAAAAA 

22 

22 

vv  vv 

AA      AA 

22 

22 

vv  vv 

AA      AA 

22 

22 

vv 

AA      AA 

LLLLLLLLLL 

2222222222 

2222222222 

vv 

AA      AA 

LLLLLLLLLL 

2222222222 

2222222222 

LL 

ssssssss 

TTTTT 

TTTTT 

LL 

ssssssss 

TTTTT 

TTTTT 

LL 

ss 

LL 

ss 

_L 

ss 

-L 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LI 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

u  13, 
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56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 


000000 


000000 


000012     003 

OOOOU  OOO'^^OG 

000016  00:001 

000020  000001 

000022  00OOA2' 

00002A  000000 

000026  000000 

000030  000000 

000032  000000 
00003A 

OOOOAO  OUOOOO 


*  ** 

LIBRARV  MACROS 
*** 

.MCALL  DIR$,Q10W$,GETRV,PUTRC,GETAP,PUrAD,ASR$ 

.ENABL  LC 

•  *** 

';    LOCAL  DA!A 

#■  **  * 

.PSECT  DATA,D 

STATISTICS  BLOCK 
STAT:    .BLKW   5 


OK 


89 

90 

91 

92  000042 

93 

9A  000000 


:•  READ 

LOGICAL 

BLOCK  DPB 

LBNDP8 

:  .BYTE 

3, 

2. 

Die,  LENGTH 

.WORD 

in 

RLB 

FUNCTIOM  CODE 

.WORD 

1 

LOGICAL  UNIT 

.WORD 

1 

EVENT  FLAG 

.WORD 

$I0S8 

I/O  STATUS  BLOCK 

.WORD 

0 

AST 

$LBUF: 

:  .WORD 

0 

BUFFER  ADDRESS 

SLLEM: 

:  .WORD 

0 

BUFFER  LENGTH 

.WORD 

CARRIAGE  CONTROL 

$L8N:: 

.8LKW 
.WORD 

0 

LOGICAL  BLOCK  NUMBER 

;  I/P 

STATUS  BLOCK 

$1058::  .8LKW   2 
.PSECT 


D  U 
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A$$rHK= 

A$fCPS: 

A$$eRI= 
A$$TRP= 
C$$CKP= 
C$$ORE= 
C$$RSH= 
DSSBIjG  = 
D$$1S<= 
D$SLll= 
D$$YNC= 
DStVNMr 
Ei$XPR= 
F$$LVL= 
G$STPP=: 
G$$TSS= 
G$$TT<= 


000000 
000000 
000000 
000000 
000000 
000^00 
177S64 
1773U 
000000 
000001 
000000 
000000 
000000 
000001 
000000 
000000 
000000 


GS$WRD= 
G.RGFW= 
G.RGRB= 
G.RGRS= 
G.TSt)U= 
G.TSFW= 
G.TSGC= 
G.TSMT= 
G.TSNL= 
G.I5PC= 
G.T5PN= 
G.TSPR= 
G.TSRN= 
G.TSSY= 
G.TSTN= 
G.TSTS= 
G.TSVA= 


000000 
00000^ 
000000 
000002 
000036 
00002^ 
000017 
000022 
000020 
000016 
OOOOOA 
OOOOU 
000010 
000054 
000000 
000032 
000026 


G.TSVL= 

000030 

M$$OVR= 

000000 

R$$K11= 

000001 

I$$RAR= 

000000 

N$»ACC= 

000001 

R$$SND= 

000000 

1$$RDN= 

000000 

N$$BUF= 

000001 

R$$11M= 

000000 

K$$CNT= 

1775/.6 

N$$LDV= 

000001 

S$$WRG= 

000000 

K$$CSR= 

177546 

N$$MCP= 

000001 

S$$YSZ= 

007600 

K$$LDC= 

000000 

N$$MLL= 

000001 

T$$KMG= 

000000 

K$$TPS= 

000074 

N$$MOV= 

000010 

T$$MJN= 

000000 

LD$LP  = 

000000 

N$$NCT= 

000001 

V$$CTR= 

001000 

L$JASG= 

000000 

N$$PEM= 

000001 

XXSTR 

OOOOOOR 

OUl 

L$$DRV= 

000000 

P$$P45= 

000000 

X$$DBT= 

000000 

L$$P11= 

000001 

P$$WRD= 

000000 

$DSW  = 

*•«♦*»  GX 

L$$11R= 

000000 

Q$$OPT= 

000010 

$SAVAL= 

******   GX 

M$$CR8= 

000124 

RX$IAS= 

000003 

SXXAVL 

000006RG 

UU^ 

M$$CRX= 

000000 

RXS11D= 

000000 

SXXBUF 

OOOOOORG 

002 

M$$FCS= 

000000 

RX$11M= 

000001 

$XXINI 

OOOOOORG 

M$$MGE= 

000000 

RX$11S= 

000002 

SXXLEN 

000002RG 

002 

M$$NET= 

000000 

R$$DER= 

000000 

tS$OST= 

000006 

.  ABS.  000000 
000014 
DATA  000012 
..POOL  000210 
Errors  detected: 


000 
001 
002 
003 
0 


(rw,i,gbl,abs,0vr) 
(ru,i,lcl,rel,con) 
(rw,d,l:l,rel,con) 
(rw,!,lcl,rel,ovr) 


'♦»  Assembler   statistics 

Work      file      reads:  0 

Work      file   writes:  0 

Size  of    work    file:  9613   Words      (    38   Pages) 

Size  of   core  pool:  14440  Words      (    55  Pages) 

Operating      system:  RSX-11M/PLUS 

SY^vluF.y2?[132,'i34ivBUF/CR/-SP=SV:[l,lJRSXNlCM.SML/ML,[130,110]NIElLlB/ML,[130,10.:RSXh:M/PA:1,C132,10]VBUF 
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VCEAL  ■ 
SALL16 

299 
300 
501 
302 
303 
30-!. 
305 
306 
307 
308 
309 
310 
511 
512 
513 
3U 
515 
516 
517 
318 
319 
320 
521 
522 
523 
52A 
525 
326 
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.S8TTL   $ALL16  -  ALLOCATE  POOL  FROM  DSR 
$ALL16  -  ALLOCATE  SINGLEWOHD  ADDRESSABLE  STORAGE  (  SCOM  ) 
INPUTS: 


R1 


BYTE  COUNT  NEEDED 


OUTPUTS: 

C-8IT  -  SUCCESS/FAILURE 

RO  -    BUFFER  ADDRESS 

ALL  OTHER  REGISTERS  PRESERVED 


.ENABL  LSB 


001076  $ALL16:: 

001076  032767  OnroOOG  OOOOCOG        BIT 
00110'!.  00H05  BEQ 


001106  012700  OOGOOOG 

001112 

001116  103002 


001120 
001120 
001 12A 


$ALL15: 
10$: 


.Jf 

MOV 

CALL 

BCC 

.ENDC 


CALL 

RETURN 


#FE.CEX,$FMASK 
$ALL15 

NDF,fi$$MPL 
#$CEAVL,R0 
.ALOCl 
10$ 


.ALDC8 


IS  COMEXEC  LOADED  ? 

NO,  THEN  VNP  ALLOCATIONS  FAIL 


GET  CEX  ALLOCATION  POINTER 
TRY  TO  ALLOCATE  FROM  CEX  POOL 
IF  CC,  SUCCESS 


ATTEMPT  ALLOCATION  FROM  RSX  POOL 
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••FIlE"ID*«VAC2 


0  1 


vv    vv 

AAAAAA 

CCCCCCCC 

222222 

vv    vv 

AAAAAA 

CCCCCCCC 

222222 

vv    vv 

AA 

AA 

22     22 

vv    vv 

AA 

AA 

22     22 

vv    vv 

AA 

AA 

22 

vv    vv 

AA 

AA 

22 

vv    vv 

AA 

AA 

22 

vv    vv 

AA 

AA 

,22 

vv    vv 

AAAAAAAAAA 

22 

vv    vv 

AAAAAAAAAA 

22 

vv  vv 

AA 

AA 

22 

vv  vv 

AA 

AA 

22 

vv 

AA 

AA 

CCCCCCCC 

2222222222 

vv 

AA 

AA 

CCCCCCCC 

2222222222 

SSSSSSSS 

TITTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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351 
352 
353 
35A 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 

365  000534 

366  000534 

367  000540 

368  000544 

369  000550 

370  000552 
571  000560 

372  000562 

373  000566 

374  000572 

375  000600 

376  000602 

377  000602 

378  000606 

379  000612 

380  000614 

381  000622 

382  000624 

383  000630 

384  000634 

385  000642 


$MPT8  -  ".MPTAB"  ACTION  ROUTINE 
SLFILE  -  ".LFILE"  ACTION  ROUTINE 

INPUTS: 

$$HTP/$VALUE=REPEAT  COUNT 
$FILEN=-SECONDARY  TEMPLATE  NAME 

OUTPUTS: 

RO,R1,R2=DESTROYED 


$MPTB:: 


012700  OOOOOOG 


103500 
032767 
001475 
012700 
016701 
016767 
000415 


012700  OOOOOOG 


OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG 


SLFILE: 


103457 
032767 
001457 
012700 
016701 
022767 
103452 


OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 
000400  OOOOOOG  10$: 


386  000644 

005767 

OOOOOOG 

387  000650 

001440 

388  000652 

389  000656 

103435 

390  000660 

110022 

391  000662 

116722 

0000006 

392  000666 

110122 

393  000670 

000301 

394  0006^2 

110112 

395  000674 

016746 

OOOOOOG 

396  000700 

397  000704 

398  000710 

012600 

399  000712 

400  000716 

103415 

401  000720 

112712 

OOOOOOG 

402  000724 

166700 

OOOOOOG 

403  000730 

001005 

404  000732 

405  000740 

160067 

OOOOOOG 

20$: 

406  000744 

005367 

OOOOOOG 

30$: 

407  000750 

001373 

.ENABL  LSB 


CALL 

MOV 

CALL 

BCS 

BIT 

BEQ 

MOV 

MOV 

MOV 

BR 

'mov 

CALL 

BCS 

BIT 

BEQ 

MOV 

MOV 

CMP 

BLO 

TST 

BEO 

CALL 

BCS 

MOVB 

MOVB 

MOVB 

SWAB 

MOVB 

MOV 

CALL 

CALL 

MOV 

CALL 

BCS 

MOVB 

SUB 

BNE 

EMSG$R 

SUB 

DEC 

BNE 


$VFDLC 

#F1.MPT,R0 

SVFSPC 

40$ 

*F1.MPL,$FLAG1 

101$ 

#. MPTAB, RO 

$MPLD,R1 

$$MTP,$VALUE 

10$ 

#F1.LFI,R0 

SVFSFC 

40$ 

#F1.LFL,SFLAG1 

111$ 

#. LFILE, RO 

$LFLD,R1 

#256.,$VALUE 

CTLERR 

$VALUE 

40$ 

$RQ4 

40$ 

R0,(R2)- 

$VALUE,iR2)+ 

R1,(R2)+ 

Rl 

R1,(R2) 

$SIZE,-(SP) 

$F1LE 

$EVEN 

(SP)t,RO 

$RQ1 

40$ 

#.E0F,(R2) 

$SIZE,R0 

30$ 

43 

R0,$SIZE 

SVALUE 

20$ 


MAKE  SURE  IT'S  A  DLC 

MAKE  SURE  THIS  IS  THE  ONLY  ONE 

IF  CS, 'error 

HAS  ".MPLHD"  BEEN  SEEN? 

IF  EQ,  NO 

SET  FUNCTION  CODE 

GET  ".MPLHD"  DISPLACEMENT 

DO  IT  <STATION  COUNT>  TIMES 


MAKE  SURE  THIS  IS  THE  ONLY  ONE 

IF  CS, 'error 

HAS  ".LFLHD"  BEEN  SEEN? 

IF  EQ,  YES 

SET  FUNCTION  COD^ 

GET  ".LFLHD"  DISPLACEMENT 

IS  COUNT  >  256.? 

IF  LO,  YES 

IS  COUNT  0? 

IF  EQ,  YES 

REQUEST  BINARY  FILE 

IF  CS,  NO  ACCESS 

STORE  FUNCTION  CODE 

FILE  REPEAT  COUNT 

AND  LISTHEAD  DISPLACEMENT 


SAVE  CURRENT  LINE  TABLE  SIZE 

PROCESS  SECONDARY  TEMPLATE 

AUTOMATIC  WORD  RE-ALIGNMENT 

RESTORE  SIZE  FROM  START  OF  FILE 

REQUEST  BINARY  FILE  AGAIN 

IF  CS,  NO  ACCESS 

STORE  END  OF  FILE  FUNCTION  CODE 

GIVING  AMOUNT  ADDED  BY  SECONDARY  TEMPLATE 

IF  NE,  OK 

SECONDARY  TEMPLATE  EMPTY 

ADJUST  DATA  BASE  SIZE 

BY  <FILE  C0UNT-1>  *  <FILE  SIZE> 
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i 
1 

4 
5 
6 

7 

8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE 
.IDENT 


VAC3  -  VNP  TEMPLATE  ACTION  ROUTINES 
/V05.00/ 


COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  TURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  Of  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  'JITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
"SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODJLE  DESCRIPTION: 

VNP  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  3 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

!i-'.NT  HISTORY: 

1.00  27-FEB-7S 

VERSION  2.0  RELEASE 

2.00     14-DEC-79 

DECNET-HM/S  V3.0 
DECNET-11M-PLUS   VI. 0 

3.00     16-APR-82 

DECNET-HM  V3.1 
DECNET-11M-PLUS   VI. 1 

4.00  07-NOV-83 

DECNET-IIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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160 
161 

.00166 

116722 

OOOOOOG 

15$: 

HOVB 

$BFALL,(R2)r 

AMD  COUNT  (FOR  CLEANUP) 

162 
16? 
16A 

000172 

116712 

000001 G 

MOVB 

$BFALLtl 

(R2) 

... 

000176 

005767 

OOOOOOG 

TST 

.MGMGE 

■  MEMORr  MANAGEMENT  SYSTEM  ? 

165 
166 
167 

000202 

lOOAOA 

BM] 

17$ 

•  NO 

00020A 

062767 

OOOOOA 

OOOOOOG 

ADD 

*4,$SJZE 

•  ADJU;<T  DATA  BASE  SIZE 

168 
169 
170 

000212 

O0OA03 

BR 

18$ 

00021A 

062767 

000002 

OOOOOOC 

17$: 

ADD 

#2,$SIZE 

;  ADJUST  DATA  BASE  SIZE 

1"'1 
172 

000222 

000300 

18$: 

SWAB 

RO 

;  RESTORE  ALLOCATION  BIAS 

173 

00022A 

0C1A2A 

BEQ 

30i 

;  IF  ZERO,  MUX  CHARACTERISTICS  U 

17A 

000226 

016767 

OOOOOOG 

OOOOOOG 

MOV 

$8fLBN,$LBN 

;  SET  LOGICAL  BLOCK  NUMBER 

175 

00023A 

016767 

000002G 

000002G 

MOV 

$8FL8N+2 

$LBN+Z 

•  •  • 

176 

0002A2 

016767 

OOOOOOG 

OOOOOOG 

MOV 

$eFXFR,$LLEN 

;  AND  TRANSFER  SIZE  IN  BYTES 

177 

000250 

CALL 

$READX 

;  TRANSFER  BINARY  FILE  INTO  CORE 

178 

00025A 

103006 

BCC 

20$ 

;  IF  CC,  NO  PROBLEM 

179 

000256 

116777 

OOOOOOG 

OOOOOOG 

MOVB 

$I0S6,a$CLI0S 

;  COPY  ERROR  CODE 

180 

00026A 

EMSG$ 

77 

;  READ  FAILURE 

181 

000272 

20$: 

CALL 

tCLDEQ 

;  CLOSE  BINARY  FILE 

182 

000276 

30$: 

RETURN 

183 

18A 
185 
186 
187 

;  ERROR 

CONDI r 

ON 

000300 

'01$: 

CALL 

$CLDEQ 

;  CLOSE  BINARY  FILE 

188 

00030A 

EMSG$R 

26 

;  RESOURCE  ALLOCATION  FAILURE 

VACA 
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MACRO  CROSS  REFERENCE  CREF   OA.OO 


MACRO  NAME 

REFERENCES 

ASLS 

#5-59 

13-449 

ASRt 
CALL 

#5-59 
6-118 

7-211 
6-132 

6-138 

6-139 

6-144 

6-146 

6-177 

6-l§9 

^i^l 

6-187 

8-256 

9-278 

9-281 

9-286 

9-289 

9-298 

9-302 

9-304 

9-3C6 

10-349 

10-350 

10-358 

10-363 

10-365 

12-413 

13-472 

EMSGS 

#5-59 

6-132 

6-138 

6-180 

8-256 

EMSGSR 

#5-59 

6-188 

9-335 

11-398 

NTLERS 

#5-59 

5-88 

5-89 

5-90 

5-91 

5-92 

5-93 

OUTAD 

#5-59 

13-472 

PJTRC 

#5-59 

RAND 
RETURN 

#13-472 
6-182 

13-472 
7-215 

7-218 

8-261 

9-330 

10-374 

11-393 

12-422 

13-481 

E  5 
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D  6 


5 

6 

7 

8 

9 

10 

11 

12 

15 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
42 
49 
50 
"1 
52 


.TITLE   VAC6  -  VNP  TEMPLATE  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  AMY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TfiANSFEfi,'?ED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  6 

DISTRIBUTED  SYSTEMS  SOfWARE  ENGINEERING 

IDENT  HISTORY: 


1.00 
2.00 

3.00 

4.00 

5.00 


27-FEB-78 

VERSION   2.0  RELEASE 

14-DEC-79 
DECNET-11M/S   V3.0 
DECNET-IIM-PLUS   VI. 0 

16-APR-82 
DECNET-llM  V3.1 
DECNET-llM-PLU     Vl.1 

07-NOV-83 
DECNET-llM  V4.0 
DECNET-11M-PLUS   V2.0 


22-JUL- 

OECnet- 

V4.2 

DECnet- 

us  V3.0 

OECnet-Mi 

•  RSX  yl.O 

E  A 
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VAC6  -  VNP  rEMF;ATE  ACTION  ROUT  MACRO  V05.03b  Saturday  29-Jun-85  02:10  Page  16 
tVXLLC  -  VERIFY  NOT  AM  LLC 


.SBTTL  SVXILC  -  VERIFY  NOT  AN  LLC 

SVXLLC  -  VERIFY  NOT  AN  LLC 
INPUTS: 


399 
ADO 
401 
402 
403 
40A 
405 
406 
407 
408 
409 
4-10 

412  001042  032767  OOOOOOC  OOGOOOG  IvXLLC:  BIT     ffFL.DDMI  FL  .DLCSFLAGS 

413  001050  001003  BNE     10$ 

414  001052  EMSG$   90 

415  001060  10$:    RETURN 
416 

417        000001  .END 


SFLAGS  -  FLAGS  WORD 

OUTPUTS: 

ERROR  IF  LLC  BEING  LOADED 


IS  IT  DDM  OR  DLC? 
BR  If  YES 
ELSE  ERROR 


VAC6  -  VNP  TEMPLATE  ACTION  ROUT  MACRO  V05.03b  Saturday  29-Jun-85 
Symbol  table 
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243 
244 
245 
246 

*USE 

-  INCREMENT  LIBRARY  USE  COUNT 

INPUTS: 

247 

$LBIAS= 

DESCRIPTOR  BIAS  (MAPPEJ  ONLY) 

248 

$LBADR= 

DESCRIPTOR  VIRTUAL 

ADTRESS 

249 
250 

OUTPUTS: 

251 

LB. USE 

$NLIB  INCREMENTEt 

252 

253  000444 

016702 

OOOOOOG 

JSE: 

MOV 

$BFPTR,R2 

GET  BINARY  BUFFcR  POINTER 

254  000450 

112722 

OOOOOOG 

MOVB 

#.LIBR,(R2)+ 

STORE  FUNCTION  CODE 

255  000454 

016700 

OOOOOOG 

MOV 

$LBJAS,RO 
R0,(R2)t 

GET  LIBRARY  DESCRIPTOR  BIAS 

256  000460 

110022 

MOVB 

STORE  DESCRIPTOR  BIAS 

257  000462 

116722 

OOOOOOG 

MOVB 

$LBIASt1,(R2)+ 

258  000466 

116722 

OOOOOOG 

MOVB 

$L6ADR,(R2)t 

STORE  DESCRIPTOR  ADDRESS 

259  000472 

116722 

000001 G 

MOVB 

$LSADR+1,(R2)+ 

260  000476 

005767 

OOOOOOG 

TST 

.MGMGE 

MAPPED  TARGET  SYSTEM? 

261  000502 

100410 

BMI 

10$ 

IF  MI,  NO 

262  000504 

116722 

0000006 

MOVB 

$VALUE,(R2)+ 

STORE  USER'S  MAPPING  TO  LIBRARY 

263  000510 

116712 

000001 G 

MOVB 

$VALUE+1,(R2) 

264  000514 

062767 

000004 

OOOOOOG 

ADD 

#4,$SIZE 
20i 

ADJUST  LINE  TABLE  SIZE 

265  000522 

000403 

BR 

266  000524 

062767 

000002 

OOOOOOG 

10$: 

ADD 

#2,$SIZE 

ADJUST  LINE  TABLE  SIZE 

267  000532 

032767 

OOOOOOG 

OOOOOOG 

20$: 

BIT 

#FL.CHA,$FLAGS 

MUX  CHARACTERISTICS  UPDATE  ONLY 

268  000540 

001012 

BNE 

30$ 

NO  ..  DON'T  CHANGE  USE  COUNT 

269  000542 

CALL 

$GErLB 

GET  LIBRARY  BLOCK 

270  UC0546 

066701 

OOOOOOG 

ADD 

$L6ADR,R1 

OFFSET  TO  DESCRIPTOR 

271  000552 

005261 

OOOOOOG 

INC 

LB.USE(Rl) 

INCREMENT  USE  COUNT 

272  000556 

CALL 

$PUTLB 

RE-WRITE  LIBRARY  BLOCK 

273  000562 

105267 

OOOOOOG 

INC8 

$NL]8 

■  INCREMENT  LIBRARY  COUNT 

274  000566 

30$: 

RETURN 
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VACC       CREATED  BY  MACRO  ON  29-JUN-85  AT  0?:11     PAGE  2 

MACRO  CROSS  REFERENCE  CREf   CA.OO 

MACRO  NAME      REFERENCES 

6-11? 


CALL 

6-92 

5-105 

EMSGSR 

#5-59 

6-113 

NTLER$ 

#5-59 

5-71 

RETURN 

6-107 

E  9 
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1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
;8 
39 
40 
41 
42 
43 
44 
45 
ut 
47 
48 
49 
50 


.TITLE   VALT  -  VNP  LINE  TABLE  ALLOCATION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1°78,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMEN'  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NO^  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITL;  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  \l   NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  LINE  TABLE  .'LLOCATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWME  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-lin/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  15-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-1 iM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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VAl!  -  VNP  LINE  TABLE  ALLOCATIO  MACRO  V05.03b  Monday  08-Jul-85  22:06 
lALlCB  -  ALLOCATE  KB 


ION 

SSADDR.RO 

$S1ZE,R1 

$DEA16 

SSADDR 

86 


Page  11-2 


624 

625  001274 

626  001502 
627 

628 
629 
650 

651  001504 

652  001510 
655  001514 

654  001520 

655  001524 

lOOJ: 

SWTCHI 
RETURN 

;  ERROR 

CONDI r 

016700 
016701 

005C67 

OOOOOOG 
OOOOOOG 

OOOOOOG 

lOli: 

MOV 

MOV 

CALL 

CLR 

EMSGIR 

RESET  DEFAULT  BUFFER 


DE-ALLOCATE  LINE  TABLE 


INDICATE  NO  LINE  TABLE 

UNLOAD  BLOCK  ALLOCATION  FAILURE 
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VAL16  -  VNP  BYTE  ALLOCATION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  02:12 
.AlOCB  -  ALLOCATE  FROM  DSR 

179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 


35$: 

PUTAD 

BR 

PUTRC 

RO 

36$ 

RO 

000174 

36$: 

.ENDC 

0001:^4 

000200 

066700 
0C5226 

000002G 

40$: 
50$: 

ADD 
INC 

$BFRt2,R0 
(SP)  + 

000202 
000204 
C00206 
000210 

012601 
012602 

MOV 
MOV 
RESRG 
RETURN 

(SP)+,R1 
;SP)+,R2 
<H3> 

Page  6-2 


READ  FROM  PROCESS 

CONTINUE 

DO  A  POSSIBLE  D-SPACE  WRITE 


CALCULATE  ADDRESS  OF  ALLOCATED  BLOCK 
CLEAR  LISTHEAD  ADDRESS  FROM  STACK 
WITHOUT  AFFECTING  THE  C-BIT 
RESTORE  ORIGINAL  REQUESTED  SIZE 
RESTORE  R2 
RESTORE  REG 


;[HP01] 
;[MP01] 
;[MP01] 

;[HP013 


;[MP01] 
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7AL22  -  VNP  BLOCK  ALLOCATION  RO  MACRO  V05.05b  Saturday  29-Jun-85 
Table  ot  contents 


& 


6- 

7- 


111 
198 


.AMEM 
.DMEM 


ALLOCATE  VIRTUAL  MEMORY  IN  NTPOOL 
DEALLOCATE  MEMORY  FROM  VIRTUAL  NTPOOL 


E  13 
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96 
97 
98 
99 
100 
101 
102 
105 
104 
105 
106 
107 
108 
109 
110 
111 
112 
11? 


SCLOPE  -  USE  GCL  TO  OPEN  A  CONTIGUOUS  FILE 

INPUTS: 

R1=FILE  SPEC  ADDRESS 
R2  =  F  ii  E  SPEC  LENGTH 

OUTPUTS: 

RO^STATISTICS  BLOCK  ADDRESS 
$LBN=LA8EL  BLOCK  LOGICAL  BLOCK  NUMBER 


000000 
000000 

cooooi; 

000010 

oooou 

000020 
000024 


012700  000000- 

012700  000002' 

011067  000036' 

OU067  OOOu?-;' 


iCLOPE;: 


MOV 

CALL 

MOV 

MOV 

MOV 

RETURN 


#STAT,RO 

SCLQST 

*STATt2,R0 

(R0),fLBNt2 

-(RO),$LBN 


GET  STATISTICS  WHILE  OPENING 
USE  GCL  TO  OPEN  THE  FILE 
GET  STATISTICS  BLOCK  ADDRESS 
COPY  LABEL  BLOCK  LBN 
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VBUf  CREATED  HY     MACRO     ON  ?9-JUN-85   AT   02:15  PAGE   1 

SYMBOL    CROSS  REFERENCE  CREF        OA.OO 


SYMBOL 

VALUE 

REFERENCES 

G.RCRB 

=   000000 

6-157 

G.RGRS 

=  000002 

6-160 

G.TSSY 

=  00003A 

6-139 

G.TSTN 

=  000000 

6-157 

G.TSTS 

=  000032 

6-K9 

XXSTR 

JOOOOO 

R 

6-11A 

#6-119 

$DSW 

r   (tt  +  i*  *• 

(IX 

6-159 

SSAVAL 

-   ****** 

r,x 

6-119 

SXXAVL 

000006 

RG 

*5-90 

6-21 

SXXBUF 

000000 

RG 

*5-83 

6-112 

SXXINI 

000000 

RG 

#6-111 

tXXLEN 

000002 

RG 

#5-8A 

•6-171 

6-120 


•6-125 


E  15 
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VCEAL   -   VNP  ALLOCATION/OEALLOCA 
$0EA16   -  DEALLOCATE    FROM  DSR 


328 

329 

330 

331 

332 

333 

354 

335 

336 

337 

338 

539 

3A0 

541 

5A2 

343 

54A 

545 

346 

547 

548 

549 

350 

551 

352 

353 

554 

555 

356 

557 

558 

559 

360 

561 

362 

365 


D  16 
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$DEA16 
$DEAIC 

INPUTS: 


.Se^L  $DEA16  -  DEALLOCATE  FROM  DSR 

DE-ALLOCATE  SINGLEWORD  ADDRESSABLE  STORAGE  (  SCOM  ) 
DE-  ALLOCATE  KB  FROM  KB  POOL  (M*  ONLV) 


RO  - 
R1  - 


BUFFER  ADDRESS 
BVTE  COUNT 


OUTPUTS: 

C-BIT  WILL  BE  SET  IF  BUFFER  ADDRESS  IS  ILLEGAL. 


001126 
001126 

001152  012705  OOOOOOG 


001136 
001142 
001144 
001150 
001152 
001160 


001162 
001166 


026700 
101007 
012705 
000261 
032767 
001402 


OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 


.IF  DF  R$$MPL 


SDEAK: 

:CALL 

$SAVAL 

MOV 

#$ICAVL 

R3 

BR 

DEAC 

.ENDC 

$DEA16: 

CALL 

SSAVAL 

MOV 

#$CRAVL 

,R5 

.IF 

NDf,R$$MPL 

CMP 
SHI 

SEXSIZ, 

W 

DEAC 

MOV 

#$CEAVL 

,R5 

SEC 

BIT 

#FE.CEX 

,$FMASK 

BEQ 

20$ 

.ENDC 

uEAC: 

CALL 

.DEAC1 

20$: 

RETURN 

SAVE  REG'S 

GET  LISTHEAD  FROM  KB  POOL 

CONTINUE 


;[MP01] 

[MP01] 
CMP01] 
CMPOI] 
CMP01] 


SAVE  ALL  REGISTERS 

ASSUME  BUFFER  IS  FROM  HSX  POOL 


IS  BUFFER  FROM  RSX  POOL? 

IF  HI,  YES 

ASSUME  CEX  POOL  THEN 

ASSUME  CEX  NOT  LOADED 

IS  CEX  LOADED? 

IF  En,  NO  -  ERROR 


DEALLOCATE  THE  bUFFER 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
10 
11 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE 
.IDENT 


VAC2  -  VNP  TEMPLATE  ACTION  ROUTINES 
/V05.00/ 


COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  2 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V5.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI.  1 

4.00  07-NOV-33 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-PldS  V3.0 
DECnet-Micro/RSX  VI. 0 


OF   ITS 


F  1 
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408  000752 

A09 

A10 

411 

412 

413  000754 

414  000762 

415  000770 
416 

417 


40$: 


RETURN 


;  ERROR  CONDITIONS 

ion:  EMSGSR  41 
111$:  EMSG$R  42 
CTLERR:  EMSG$R  22 

.DSA8L  LS8 


".MPLHD"  OPERATOR  MISSING 
".LFLHD"  OPERATOR  MISSING 
FILE  COUNT  TOO  LARGE 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
i09 
110 

m 

112 


ooooou 


000000 


LIBRARY  MACROS 


.ENA8L 
LOCAL  DATA 


.MCALL  NTLERS 


LC 


.PSECT  DATA,D 
.NLIST  BEX 

SYMBOL  NAME  IN  ASCII 
ASYM:    .BLKB   6 

GLOBAL  SYMBOL  LOOKUP  CONTROL  BLOCK 


000006  000000  000000 

000012 

000016 


000020  000032' 

000022  000054' 

000024  000114' 

000026  000154' 

000030  000204' 


000032 
000054 
000114 
Of  ■'^4 
Oi 


GBLK 
GSYM 
GVAL 


.WORD 
.BLKU 
.BLKW 


GLOBAL  SYMBOL  LOOKUP  ERRORS 


GETAB. 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


$ERR27 

UNDEFINED  SYMBOL  (WARNING) 

$ERR29 

OPEN  FAILURE 

$ERR30 

READ  FAKURE 

$ERR31 

READ  OVERFLOW 

$ERR32 

BAD  STB  FILE 

ERROR  MESSAGES 

NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 


,27,2A,$TWARN,REP2A,SELINE,<undefined> 
,29,4,STERR,SPRV.N,,<0pen  faUure  C  -»*♦. 
,30,4,STERR,$PRV.N,,<Read  faUure  (  -**♦. 
,31,4,STERR,SREP.P,,<Read  ouerfLow.> 
,32,4,$TERR,SREP.P,,<Format  error. > 


).> 
).> 


000232 
000262 


000312 


052 
052 


123 


040 
040 


124 


124 
123 


102 


ERROR  MESSAGE  FORMAT  STRINGS 

FMT2A:   .ASCI2  "*  TsmpLate  —  SymboL  *  " 

FMT4:   .ASCIZ  "*  Symbol  table  tile  —  " 
.EVEN 

SYMBOL  TABLE  UIC  AND  EXTENSION 

STBEXT:  .ASCIZ  "STB" 

.EVEN 
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190 
191 
192 
193 
194 
195 
190 
197 
198 
199 

SCOREI  -  ".CORE"  OPERAND  1  ACTION  ROUTINE 

INPUTS: 

$VALUE= 

■NUMBER  OF  BYTES  NEEDED 

OUTPUTS: 

$CVAL=NUM8ER  OF  BYTES  NEEDED 
$VALUE=DEFAULT  MAPPING  DISPLACEMENT 
$CAPR=APR  NUMBER 

200 

201  000312 

202 

203  000312 

204  000316 
205 

206  000320 

207  000324 

208  000330 

209  000332 

210  000334 

211  000336 

212  000346 

213  000352 

214  000360 

215  000366 
216 

217  000370 

218  000376 

;C0RE1: 

005767 
100424 

OOOOOOG 

TST 
BMI 

.MGMGE 
30$ 

MEMORY  MANAGEMENT  SYSTEM 
NO 

016700 
062700 
006000 
000241 
006000 

010067 
012767 
116767 

OOOOOOG 
000077 

OOOOOOG 
OOOOOOG 
000022' 

0000006 
OOOOOOG 

MOV 

ADD 

ROR 

CLC 

ROR 

ASR$ 

MOV 

MOV 

MOVB 

RETURN 

$VALUE,RO 
#77, RO 
RO 

RO 
4,R0 

r6,$cval 
#.8aseb,$value 

MAP8YT-1,$CAPR 

GET  EXPRESSION  VALUE 
ROUND  UP  TO  NEXT  MULTIPL 

SET  NEw'eXPRESSION  VALUE 
SET  DEFAULT  MAPPING 
SET  DEFAULT  APR  NUMBER 

016767 

OOOOOOG 

OOOOOOG 

30$: 

MOV 
RETURN 

$value,$cval 

COPY  EXPRESSION  VALUE 

100 
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vv    vv 

AAAAAA 

CCCCCCCC 

:555555555 

vv    vv 

AAAA, 

,A 

CCCCCCCC 

5555555555 

vv    vv 

AA 

AA 

55 

vv    vv 

AA 

AA 

55 

vv    vv 

AA 

AA 

555555 

vv    vv 

AA 

AA 

555555 

vv    vv 

AA 

AA 

55 

vv    vv 

AA 

AA 

55 

vv    vv 

AAAAAAAAAA 

55 

vv    vv 

AAAAAAAAAA 

55 

vv  vv 

AA 

AA 

55     55 

vv  vv 

AA 

AA 

55     55 

vv 

AA 

A  , 

CCCCCCCC 

555555 

vv 

AA 

AA 

CCCCCiCC 

555555 

SSSSSSSS 

TTTTUrTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

5SSSSS 

ssssss 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

F     5 

VACS   -  VNP   TEMPLATE   ACTION  RCUT  MACRO  V05.03b   Saturday  29-jLin-85  02:10     Page  4 


E  A 

VAC6  -  VNP  TEMPLATE  ACTION  ROUT  MACRO  V05.03b  Saturday  29-Jun-85  02:10  Page  5 
MACRO  DEFINITIONS 


5A 
55 
56 
5^ 
58 
59 


.SBTTL  MACRO  DEFINITIONS 

Mr 

.IBRARV  MACROS 

.MCALL  EMSG$,NTLER$,RESRG,SAVRG 
.ENABL  LC 
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VAC6  -  VNP  TEMPLATE  ACTION  ROUl 
Symbol  Cable 


MACRO  V05.03b  Saturday  29-Jun-85 


02:1 


0  Page  16-1 


ASCII 

000001 R 

002 

G$STPP= 

000000 

N$$BUF= 

000001 

X3BHI  = 

922011 

$RQ1  - 

******  GX 

AS$CHK= 

000000 

G$$TSS= 

000000 

N$$LDV= 

000001 

X3BL0  = 

000003 

$RQ5  = 

******  GX 

A$$CPS= 

000000 

G$$TTK= 

000000 

N$$MCP= 

000001 

X3UHI  = 

000002 

$RQ7  = 

******  GX 

A$$PR1  = 

000000 

G$$WRD= 

000000 

N$$MLL= 

000001 

X3WL0  = 

000001 

SSIZE  = 

******  GX 

A$$TRP= 

000000 

I$$RAR= 

000000 

N$$MOV= 

000010 

$BFPTR= 

******  GX 

STERR  = 

««♦**»  GX 

CHECK 

000522R 

1$$RDN= 

oooooc 

N$$NCT= 

Ol/OOOl 

$CAPR  = 

«**«*♦  GX 

SUMROF 

000544RG 

C$$CKP= 

000000 

K$$CNT= 

177546 

N$$PEM= 

000001 

SCATS  = 

******  GX 

SUHRON 

000512RG 

C$$ORE= 

000^00 

K$$CSR= 

177546 

P$$P45= 

000000 

$ELINE= 

******  GX 

$VALUE= 

«»»*♦*  GX 

C$$RSH= 

17756^ 

K$$LDC= 

000000 

P$$WRD= 

000000 

SERRZK 

00001 2R 

002 

SVFLLC 

001022R 

D$$BuG- 

1775H 

K$$TPS= 

000074 

Q$$OPT= 

000010 

$ERR89 

000054R 

002 

SVFLV1= 

******  GX 

D$$ISK= 

000000 

LB.ADR= 

******  GX 

R$$DER= 

000000 

$ERR90 

000102R 

002 

SVXLLC 

001042R 

DS$L11= 

000001 

LB.USE= 

***•»♦  GX 

R$$K11= 

000001 

$ERR91 

0001 36R 

002 

SX2CHB 

000700RG 

D$$YNC  = 

000000 

LDSLP  = 

000000 

R$$SND= 

000000 

$FLAGS= 

•♦***♦  GX 

SX2CHW 

000554RG 

D$$YNM= 

000000 

L$$ASG= 

000000 

R$$11M= 

000000 

$FLAG1= 

******  GX 

SX3CHB 

000742RG 

E$$XPR= 

000000 

L$tDRV= 

000000 

S$$URG= 

000000 

$FLAG2= 

******  GX 

SX3CHW 

00061 6RG 

FL.CHA= 

****** 

GX 

L$$P11= 

000001 

s$$ysz= 

007600 

$FNR50= 

******  GX 

.BASEB= 

******  GX 

FL.PDM= 

****** 

GX 

L$$11R= 

000000 

T$$KMG= 

000000 

$GETLB= 

»♦***«  GX 

.CXLBR= 

******  GX 

FL.DLC= 

GX 

MAPBYT 

OOOOOOR 

002  T$$HIN= 

000000 

$LBADR= 

«♦****  GX 

.CXLB1= 

******  GX 

FL.LLC= 

****** 

GX 

M$$CRB= 

000124 

V$$CTR= 

001000 

$LBIAS= 

******  GX 

.LINKS= 

******  GX 

FMT2 

0001 66R 

002 

M$$CRX= 

000000 

X$$DBT= 

000000 

SLIBRI 

OOOOOORG 

.MGEXT= 

******  GX 

FM.2  = 

000000 

M$$FCS= 

000000 

X2BHI  = 

000003 

SLINKS 

000464RG 

.MGHGE= 

******  GX 

F$$LVL= 

000001 

M$$MGE= 

000000 

X2BLK  = 

000002 

SNTLH8= 

******  GX 

.PSTCN= 

******  GX 

FI .UMR= 

****** 

GX 

M$$NET= 

000000 

X28L0  = 

000001 

$NTLPT= 

******  GX 

.PSTPT= 

******  GX 

F2.FIL= 

♦*+*♦* 

GX 

M$$0VR= 

000000 

X2WHI  = 

000005 

SQSTRT= 

******  GX 

.X2CH1^ 

******  GX 

F2.LBR= 

****** 

GX 

N$$ACC= 

000001 

X2UL0  = 

000004 

SREP.C= 

******  GX 

.X3C01= 

******  GX 

.  ABS. 

000000 
001062 

000 
001 

(RW,I,G8L,A8S,0VR) 
(RU,:,LCL,REL,COM) 

DATA 

000206 

002 

(RW,D,LCL,REL,CON) 

Errors 

detectec 

: 

0 

»*♦  Assembler  statistics 


Work  file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  10184  Words 

Size  of  core  oool:  14440  Words 

Operating  system:  RSX-11M/PLUS 


(  40  Pages) 
(  55  Pages) 
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276 

277 

278 

279 

280 

281 

282 

283  000570 

28^  000570 

285  000576 

286  000600 

287  000604 

288  000610 

289  000612 

290  000616 

291  000622 

292  00062A 

293  000630 

294  000634 


SLBERR  -  CLEANUP  AFTER  AN  ERROR 


INPUTS: 


032767 
001002 

016700 
001411 
012701 
005767 
100002 
012701 


OOOOOOG  OOOOOOG 


ilBERR: 


000000" 

000001 
OOOOOOG 

000100 


10$: 


15$: 
2C$: 


F2.LBR  SET  IF  LIBRARY  WAS  ALREADY  RESIDENT 
LBLK=LI8RARY  BLOfl'  ADDRESS  IF  IT  WAS  ALLOCATED 


WAS  LIBRARY  RESIDENT? 

IF  NE,  YES 

CLOSE  LIBRARY  FILE 

GET  LIBRARY  BLOCK  ADDRESS 

IF  EQ,  NONE  ALLOCATED 

ASSUME  MAPPED  TARGET 

MAPPED  TARGET  SYSTEM? 

IF  PL,  YES 

UNMAPPED  ALLOCATION  SIZE 

DE-ALLOCATE  LIBRARY  BLOCK 


BIT 

#F2.LBR,$FLAG2 

BNE 

10$ 

CALL 

$CLDEQ 

MOV 

LBLK,RO 

BEQ 

20$ 

MOV 

#1,R1 

TST 

.MGMGE 

BPL 

15$ 

MOV 

#100, R1 

CALL 

$DEA18 

RETURN 
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E     9 


vv    vv 

AAAAAA 

CCCCCCCC 

999999 

vv    vv 

AAAAAA 

CCCCCCCC 

999999 

vv    vv 

AA 

AA 

99     99 

vv    vv 

AA 

AA 

99     99 

vv    vv 

AA 

AA 

99     99 

vv    vv 

AA 

AA 

99     99 

vv     vv 

AA 

AA 

99999999 

vv    vv 

AA 

AA 

99999999 

vv    vv 

AAAA.! 

AAAAA 

99 

vv    vv 

AAAAAAAAAA 

99 

vv  vv 

AA 

AA 

99 

vv  vv 

AA 

AA 

99 

vv 

AA 

AA 

CCCCCCCC 

999999 

vv 

AA 

AA 

CCCCCCCC 

999999 

LL 

SSSSSSSS 

TTTTl 

TTTTT 

LL 

SSSSSS5S 

TTTT 

TTTTT 

LL 

SS 

T 

_L 

SS 

1 

LL 

SS 

'T 

_L 

SS 

^T 

LL 

SSSSSS 

T 

LL 

SSS3SS 

T 

LL 

SS 

^T 

LL 

SS 

T 

LL 

SS 

T 

LL 

SS 

rr 

LLLLLLLLLL 

SSSSSSSS 

rr 

LLLLLLLLLL 

SSSSSSSS 

FT 
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000000 


5A 

55 

56 

57 

58 

59 

60 

61 

62 

63 

6^ 

65 

66 

67 

68 

69  000000 

70 

71 

72 

73 

71, 

75 

76  000000 

77 

78 

79 

80 

81 

82 

83 

S-i 

35 

86  000002 

87  OOOOOA 

88  000006 
89 

90 
91 
92 
93  000010 

95 
96 
97 
98 

99  000012 
100  000044 
101 

102  0001U 

103  000152 

104  000220 

105  000264 

106  000550 

107  000402 

108  000442 

109  000502 
110 


LIBRARY  MACROS 

t« 

.MCALL 
.MCALL 

.1"^  DF 
.MCALL 
KRBDFS 
CTBDFS 
.ENDC 


EMSG$R,NTLER$,GETAD,PUTAD,SWTCHI,SUFCHO,ASL$,PUTRC,NKR[)F$ 
GETRV,RESRG,SAVRG 

R$$MPL 
KR8DF$, CTBDFS 


.ENABL  LC 

.IF     NDF,R$$MPL 

NKRDFS 

.ENDC 


;  DEFINE  KR8  OFFSETS  'M+) 
;  DEFINE  CTB  OFFSETS 


DEFINE  NETWORK  KRB  OFFSETS 


CMP01] 
CHP01] 
CMPOIJ 
CMP01] 
CMP01] 


OOOOOOG 
OOOOOOC 
OOOOOOC 


000000 


LOCAL  DATA 

.PSECT  DATA.D 

STORAGE  FOR  PDV  INDEX 
PDVX:    .BLKW   1 

INTERRUPT  BITS  TABLE 

ITAB:    .WOR'   FT. INI 

.WORD   F1.IN1!F1.IN2 

.WORD   F1.IN11F1.IN2IF1.IN3 

CPU  NUMBER 
CPU:    .WORD   0 


ERROR  MESSAGES 

NTLERS  ,33,1,$TWE,$REP.P,,<Line  table  empty. > 

NTLERS  ,34,1,$TERR,$REP.P,,<Line  table  allocation  failure. > 

NTLERS  ,35,5,$TERR,$REP.P,,<No  interrupt  linkage. > 

NTLERS  ,56,3,$TERR,SREP.P,,<Incomplete  interrupt  linkage. > 

NTLERS  ,57,3,STERR,SREP.P,,<".MPTAB"  operator  missing. > 

NTLERS  ,84,5,STERR,$REP.P,,<".LFILE"  opertaor  missing. > 

NTLERS  ,86,l,STERR,SREP.P,,<Unload  block  allocation  failure. > 

NTLERS  ,88,3,STERR,iREP.P,,<CTB  allocation  failure) 

NTLERS  ,9C,1,STERR,SREP.P,,<KRB  allocation  failure) 

NTLERS  ,9D,1,STERR,$REP.P,,<IC8  allocation  failure) 
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F  10 


r  lu 

VNP  LINE  TABLE  ALLOCATIO  MACRO  V05.03b  Monday  08-JuL-85  22:06  Page  5-1 


E  11 

VALT   -  VNP  LINE   TABLE   ALLOCATIO  MAr^o  V05.03b  Monday  08-Jul-85  22t06     Page   12 
SALICB   -   ALLOCATE    KB 


637 

+ 

638 

GETIND  -  GEf 

PDV  INDEX 

639 

640 

INPUTS: 

6A1 

$PDVA  = 

PD7  ADDRESS  OF  CURRENT  PRO'ES? 

642 

643 

OUTPUTS: 

644 
645 

PDVX  = 

PDV  INDEX  OF  CURRENT  PROCESS 

646 
647 

~ 

648  001332 

3ETIND; 

649  001332 

0^04^6 

MOV 

R-t.-CSP) 

SAVE  R4 

650  001334 

016746 

OOOOOOG 

MOV 

$PDVNM,-(SP) 

GET  #  OF  PDV  ENTRIES 

651  001340 

016704 

OOOOOOG 

MOV 

$PDVTA,R4 
(R4)t,$PDVA 

GET  ADDRESS  OF  PDV  MAPPING  TABLE 

652  001344 

022467 

OOOOOOG 

10$: 

CMP 

S  THIS  OUR  PDV  ? 

653  001350 

001403 

BEQ 

20$ 

F  EQ,  YES 

654  001352 

005316 

DEC 

(SP) 

ANY  MORE  PDVS  ? 

655  001354 

003373 

BGT 

10$ 

IF  GT,  YES 

656  001356 

000004 

lOT 

OOPS  -  CAN'T  FIND  PDV 

657  001360 

005726 

20$: 

TST 

(SP)t 

CLEAN  UP  STACK 

658  001362 

1 66704 

OOOOOOG 

SUB 

$PDVTA,R4 

C/ICULATE  PDV  INDEX 

659  001366 

005744 

TST 

-(R4) 

660  001370 

010467 

nooooo' 

MOV 

R4,PDVX 

SAVE  PDV  INDEX 

661  001374 

012604 

MOV 

(SP)t,R4 

RESTORE  R4 

662  001376 

RETURN 
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I  12 
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195 
196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 

219  000212 

220  000216 
221 

222 

223 

22A 

225 

226 

227  000221 

228 

229  000226 

230 

231  000232 

232  000236 

233  000242 

234  000244 

235  000246 

236  000254 

237  000256 

238  000260 

239  000262 
240 

241 


.SBTTL   .DEAPR 
.S8TTL   .DEACB 


DEALLOCATE  FROM  PROCESS 
DEALLOCATE  FROM  DSR 


«*-. DEACB  (.DEABl) 

CALLED  TO  RETURN  16-BIT  MEMORY  TO  FREE  LISTHEAD.  ENTRY 
AT  .DEAPR  RETURNS  MEMORY  TO  PROCESS  FREE  SPACE.  ENTRY 
AT  .DEACl  RETURNS  MEMORY  TO  LISTHEAD  PASSED  IN  R3.  ENTRY 
AT  .DEACB  RETURNS  MEMORY  TO  SCOM. 


INPUTS: 

RO  -  ADDRESS  OF  THE  CORE  BUFFER  TO  BE  DEALLOCATED. 

Rl  -  SIZE  OF  THE  CORE  BUFFER  TO  DEALLOCATE  IN  BYTES. 

R3  -  ADDRESS  OF  LISTHEAD  (  .DEACl  ) 

SBIAS  -  BIAS  OF  THE  PROCESS  FOR  PARTITION  DEALLOCATION 

$P8IAS  -  BIAS  OF  NETWORK  POOL  FOR  NETWORK  POOL  DEALLOCATION 

SPDVA  -  PDV  OF  PROCESS  FOR  PARTITION  DEALLOCATION 

THE  CORE  BLOCK  IS  MERGED  INTO  THE  FREE  CORE  CHAIN  BY  CORE 
mDDRESS  AND  IS  AGGLOMERATED  IF  NECESSARY  WITH  ADJACENT  BLOCKS. 
R^  IS  DESTROYED 


012703 
016767 


000404 


OOOOOOG 
OOOOOOG 


OOOOOOG 


.DEAPR: :MOV 
MOV 


#$PRAVL,R3 
SBIAS, SRBLCK 


012703  OOOOOOG 


005067 
012704 
010546 
010305 
012767 
005743 
061301 
C42301 
U01462 


OOOOOOG 
OOOOOOG 


000004  OOOOOOG 


.DEAIC::8IS 

.ENDC 

BR 

.DEACB:  :M0\/ 

.DEAC1;:CLi^ 
.DEAC2::M0V 
MOV 
MOV 
MOV 
TST 
ADD 
BJC 

eeo 


JF  DF  R$$MPL 

#DF.PDE,$DFLAG 


.DEAC2 

#$CRAVL,R3 

SRBLCK 

#$8FR,R4 

R5,-(SP) 

R3,R5 

#4,$RSIZE 

-(R3) 

(R3),R1 

{R3)+,R1 

60$ 


242 

243  000264 

GETAD 

244 

.IFF 

245 

246 

BIT 

247 

BNE 

248 

GETRV 

249 

BR 

250 

1$: 

GETAD 

251 

.IF  NDF  R$$MPL 
(R3) 


*Df .PDE,$DrLAG 

1$ 

(R3) 

2$ 

(R3) 


DEALLOCATE  FROM  PARTITION 
BIAS  OF  THE  PROCESS 


SET  PROCESS  OR  KB  DEALLOCATIOfJ  FLAG 


DEALLOCATE 

ADDRESS  OF  SCOM  LISTHEAD 

WHEN  CLEAR  DEALLOCATE  FROM  POOL 
POINTER  TO  WORK  BUFFER 
SAVE  R5 

COPY  LISTHEAD  ADDRESS 
SET  TRANSFER  SIZE 
POINT  AT  ROUNDING  FACTOR 
ROUND  ALLOCATION  UP 
BY  ROUNDING  FACTOR 
ZERO  LENGTH  ? 


READ  IN  FIRST  BLOCK 


PROCESS  SPACE  OR  KB  DEALLOCATION 
IF  YES  -  BRAN  .* 

POSSIBLE  d-sp-.i;e  read 

CONTINUE 

READ  FROM  PROCESS  SPACE 


;CMP01] 

; [MPOl ] 
;CMP01] 


;CMP01] 


;[MP01] 

; [MPOl ] 
;CMP01] 
;[MP01] 
; [MPOl ] 
.•[MPOl] 
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1 
2 
5 

5 

6 

7 

8 
9 

10 
11 
12 
15 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 

3^; 

35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE   VAL22  -  VNP  BLOCK  ALLOCATION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  10  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  D0U8LEU0RD  ADDRESSABLE  ALLOCATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
OECnet-llM-PLus  V3.0 
DECnet-Micrt'RSX  VI. 0 
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115 

117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 
127 
128 
129 
130 
131 
132 
135 


SRLBL  -  READ  LABEL  BLOCK 

INPUTS: 

R0-8UFFER  ADDRESS 

OUTPUTS: 

C-S1T=SUCCESS/FA1LURE 

$LBN=F1RST  TEXT  BLOCK  LOGICAL  BLOCK  NUMBER 

$LLEN=512. 


000026 

$RL 

BL:: 

000026 

012767 

001000  000030' 

MOV 

000034 

CALL 

OOOO'iO 

006016 

ROR 

000042 

066067 

OOOOOOG  000036' 

ADD 

000050 

005567 

000034' 

ADC 

000054 

006316 

ASL 

000056 

RETURN 

#512.,$LLEN 

$READ 

(SP)  . 

L$SHRB(R0),$LBNt2 

$LBN 

(SP) 


set  buffer  length 

read  label  block 

save  c-bit 

;  set  lbn  of  first  text  block 

restore"c-bit 
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VBUF 

CREATED  B¥ 

MACRO     ON  29 

■JUN-85   AT   02:15           PAGE   2 

MACRO   CROSS 

REFERENCE 

CREF        04.00 

MACRO  NAME 

REFERENCES 

CALL 

OIR$ 

GREGS5 

GTSKSS 

MOVS 

OFFt 

RETURN 

6-1U 
#6-157 
#5-76 
#5-76 
#6-157 
#6-157 

6-115 

6-119 
6-157 
6-157 
6-157 
6-157 
#6-157 
6-174 

#6-157             6-157 

#6-157             6-157             6-157 
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365 
566 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 

392  001170 

393  001170 

394  001176 
395 

396  001200 

397  001204 

398  001206 

399  001210 

400  001212 

401  001216 

402  001222 

403  001224 

404  001230 
405 

406  001232 

407  001232 

408  001232 

409  001240 
410 

411  001242 

412  001246 

413  001250 

414  001252 

415  001254 

416  001260 

417  001264 

418  001266 

419  001272 

420  001274 

421  001276 


032767 
001441 

004567 
010246 
010146 
010105 
016704 

103414 
010467 
000420 


032767 
001420 

004567 
010246 
010146 
010105 
016704 

103403 
010467 
010500 
012601 
012602 


.SBTTL 
.SSTTL 


$ALN18 
$ALL18 
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ALLOCATE  NON-UMR  NETWORK  POOL 
ALLOCATE  FROM  UMR  NETWORK  POOL 


$ALN18  -  ALLOCATE  NON-UMR  MAPPED  STORAGE  (NETWORK  BUFFER  POOL) 

$ALL18  -  ALLOCATE  DOUBLEWORD  ADDRESSABLE  STORAGE  (NETWORK  BUFFER  POOL) 

$ALL22  -  ALLOCATE  DOUBLEWORD  ADDRESSABLE  STORAGE  (NETWORK  BUFFER  POOL) 


INPUTS: 

Rl  - 
SQBIAS 


BLOCK  COUNT  (MAPPED)  OR  BYTE  COUNT  (UNMAPPED)  NEEDED 
-  BIAS  OF  BASE  OF  NEXT  FREE  SEGMENT 


OUTPUTS: 

C-aiT  -  SUCCESS/FAILURE 
RO  -    BIAS  OF  BASE  OF  BUFFER 
SQBIAS  -  BIAS  OF  NEXT  FREE  SEGMENT 
ALL  OTHER  REGISTERS  PRESERVED 


NOTE: 


$ALN18: 


OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG        13$: 

OOOOOOG 

15$: 
14$: 


$ALL22: 
$ALL18: 


THIS  ROUTINE  ALLOCATES  ON  32-WORD  BOUNDARIES,  AND  THUS 
THE  BUFFER  VIRTUAL  ADDRESS  LOW  SIX  BITS  'vILL  ALWAYS  BE 
ZERO.  IF  THE  CALLER  INTENDS  TO  REIURN  THE  MEMORY  ALLOCATED 
VIA  THE  $DEA22  ROUTINE  THE  BUFFER  SIZE  (  AS  CALLED  )  MUST 
BE  PRESERVED.  THE  GLOBAL  VALUE  $QBIAS  MUST  BE  PROPERLY 
INITIALIZED  BEFORE  THIS  ROUTINE  IS  CALLED.  SEE  COMMENTS 
IN  THE  .AMEM  ROUTINE  (  MODULE  'VAL22'  ). 


IS  COMEXEC  LOADED  ? 

NO,  THEN  VNP  ALLOCATIONS  FAIL 


BIT 

*FE.CEX,$FMASK 

BEQ 

101$ 

m 

R5,$SAVRG 

MOV 
MOV 

R2,-(SP) 

R1,-(SP) 

MOV 

R1,fi5 

MOV 

$N8IAS,R4 

CALL 

.AMEM 

BCS 

13$ 

MOV 

R4.$NBIAS 

BR 

15f 

BIT 
BEQ 

JSR 

MOV 

MOV 

MOV 

MOV 

CALL 

BCS 

MOV 

MOV 

MOV 

MOV 


*FE.CEX,$FM,'SK 
101$ 

R5,$SAVRG 

R2,-(SP) 

R1,-(SP) 

R1,R5 

$QBIAS,R4 

.AMEM 

14$ 

R4,$QBIAS 

R5,R0 

(SP)+,R1 

(SP)t,R2 


SAVE  R3,R4,R5 

SAVE  R2 

SAVE  Rl 

COPY  BLOCK  COUNT 

GET  POINTER  TO  NON-MAPPED  AREA 

TRY  TO  ALLOCATE 

IF  CS,  FAILURE  -  TRY  MAPPED  AREA 

SET  NEW  POINTER  VALUE 


;  IS  COMEXEC  LOADED  ? 

;  NO,  THEN  VNP  ALLOCATIONS  FAIL 

SAVE  R3,R4,R5 

SAVE  R2 

SAVE  Rl 

COPY  BLOCK  COUNT 

LOAD  POINTER  IN  R4 

TRY  TO  ALLOCATE  FROM  NETWORK  POOL 

IF  CS,  FAILURE 

UPDATE  $QB1AS 

RETURN  BIAS  IN  RO 

RESTORE  Rl 

RESTORE  R2 
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55 

•  *t 

56 

;  LIBRARY  MACROS 

57 

•  ** 

58 

.MCALL  ASfi$,EMSG$, 

EMSG$R,NTLE 

59 

.ENABLE  LC 

60 

61 

•  ** 

62 

;  LOCAl  DATA 

63 
64 
65 
66 
67 

',  ** 

000000 

.PSECT  DATA.D 

.NLIST  BEX 

68 
69 

70 

■  TEMPLATE  EXTENSION 

71 

• 

72 

000000 

104     101 

124   TMPEXT:  .ASCIZ  "DAT" 

73 

Ik 

.EVEN 

75 
76 
77 

;  NONSENSE  INTERRUPT  TABLE 

(RSXllM) 

78 

79 

80 

000004 

OOOOOOG 

NSITAB:  .WORD   .NSO 

81 

000006 

OOOOOOG 

.WORD   .NS1 

82 

000010 

OOOOOOG 

.WORD   .NS2 

83 

000012 

OOOOOOG 

.WORD   .NS3 

84 

000014 

OOOOOOG 

.WORD   .NS4 

85 

000016 

OOOOOOG 

.WORD   .NS5 

86 

000020 

OOOOOOG 

.WORD   .NS6 

87 

000022 

OOOOOOG 

.WORD   .NS7 

89 

90 

91 

92  000024 

93 

94  000064 

95  000126 

96  000156 
97 

98  000206 

99  000252 
100 

101  000316 

102 

103  000360 

-04 

:05  000416 

106  000444 

107  000474 

108  000542 
109 

110 
111 


ERROR  MESSAGES 

NTLERS  ,17,3,$rERR,$PRV.N,$ELINE,<0pen  failure  (  -**•.  ).> 

NTLERS  ,23,2,$TERR,$REP.C,$ELINE,<Interrupt  Linkage  error. > 

NTLERS  ,24,2B,$7:RR,REP2B,$ELINE,<not  in  system. > 

NTLERS  ,25,2B,$TERR,REP2B,$ELINE,<not  ai/ai'lable.> 

NTLERS  ,41,2,STERR,SREP.C,SELINE,<".MPLHD"  operator  missing. > 

NTLERS  ,42,2,$TERR,$REP.C,$ELINE,<".LFLHD"  operator  missing. > 

NTLERS  ,43,2,STERR,SREP.C,SELINE,<Secondary  table  missing. > 

NTLERS  ,22, 2, STERR,SREP.C,SELINE,<File  count  too  Large. > 

NTLERS  ,81,2,STERR,SREP.C,SELINE,<MUX  operator> 

NTLERS  ,85,2,STERR,SREP.C,SELINE,<C0MI0P  operator) 

NTLERS  ,KX,2,STERR,SREP.C,SELINE,<Resource  allocation  failure. > 

NTLERS  ,KY,2,STERR,$REP.C,SELINE,<0nly  14.  allocations/libraries  allowed. > 

ERROR  MESSAGE  FORMAT  STRINGS 
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419 
A20 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 

432  000776 

433  000776 

434  001002 

435  001006 

436  001012 

437  001016 

438  001024 

439  001032 

440  001036 

441  001042 

442  001046 
443 

444 

445  001050 

446  001054 

447  001060 
4'.8  001066 

449  001070 

450  001074 

451  001076 


SMXTAB 
SCFILE 


.MXTA8"  ACTION  ROUTINE 

.FILE"  ACTION  ROUTINE  IF  COUNT  IS  SPECIFIED 


INPUTS: 

$$I»IUX/$VALUE=FILE   REPEAT   COUNT 
$FILEN=SECONDARY   TEMPLATE   FILE  NAME 

OUTPUTS: 

"iO,R1,R2=DESTROYE[) 


SMXTAB:: 


.ENA8L  LS8 


012700  OOOOOOG 


016767 
016767 
012700 


OOOOOOG  OOOOOOG 
0000006  OOOOOOG 
OOOOOOG 


010067  OOOOOOG 


012700 
022767 
103740 
005767 
001432 


SCFILE: 
OOOOOOG 
000400  OOOOOOG  5S: 

OOOOOOG 


452  001102 

103427 

453  001104 

110022 

454  001106 

116712 

OOOOOOG 

455  001112 

016746 

OOOOOOG 

456  001116 

457  001122 

458  001126 

012600 

459  001130 

460  001134 

103412 

461  001136 

112712 

OOOOOOG 

462  001142 

166700 

OOOOOOG 

463  001146 

000402 

464  001150 

160067 

OOOOOOG 

465  001154 

005367 

OOOOOOG 

466  001160 

001373 

467  001162 

468 

469 

lOS: 
20S: 

30S: 


CALL 

CALL 

MOV 

CALL 

MOV 

MOV 

MOV 

CALL 

MOV 

RETURN 


:CALL 
MOV 
CMP 
BLO 
TST 
BEQ 
CALL 
BCS 
M0V8 
M0V8 
MOV 
CALL 
CALL 
MOV 
CALL 
BCS 
MOVB 
SUB 
BR 

sue 

DEC 
BNE 
RETURN 


SVFDDM 

SVFMUX 

#F1.HXT,R0 

SVFSPC 

SSIZE.SOFF 

SSMUX.SVALUE 

*.MXTAB,RO 

5$ 

RO.SMXLEN 


SEVEN 

*.F]LE,RO 

#256.,SVALUE 

CTLERR 

SVALUE 

30S 

SRQ2 

30S 

R0,(fi2)+ 

SVALUE, (R2) 

$SIZE,-(SP) 

SFILE 

SEVEN 

(SP)+,RO 

SR01 

30S 

#.EOF 

SSIZE 

20$ 

RO, SSIZE 

SVALUE 

10$ 


(R2) 
RO 


.DSA8L  LSB 


MAKE  SURE  IT'S  A  DDM 

AND  A  MUX  LINE 

MAKE  SURE  THIS  IS  THE  ONLV  OCCURANCE 

USE  CURRENT  SIZE  AS  OFFSET  VALUE 
DO  IT  <UNIT  COUNT>  TIMES 
FUNCTION  CODE  TO  8E  USED 
PROCESS  SECONDARY  TEMPLATE 
SAVE  MUX  TABLE  LENGTH 


AUTOMATIC  WORD  ALIGNMENT  (SFILE  NOT  ALIGNED) 

FUNCTION  CODE  TO  BE  USED 

IS  COUNT  >  256.? 

IF  LO,  YES 

IS  COUNT  0? 

IF  EQ,  YES 

REQUEST  BINARY  FILE 

IF  CS,  NO  ACCESS 

STORE  FUNCTION  CODE 

AND  FILE  REPEAT  COUNT 

SAVE  CURRENT  LINE  TABLE  SIZE 

PROCESS  SECONDARY  TEMPLATE 

AUTOMATIC  WORD  RE-ALIGNMENT 

RESTORE  SIZE  FROM  START  OF  FILE 

REQUEST  BINARY  FILE  AGAIN 

IF  CS,  NO  ACCESS 

STORE  END  OF  FILE  FUNCTION  CODE 

GIVING  AMOUNT  ADDED  BY  SECONDARY  TEMPLATE 

AfJjUST  DATA  BASE  SIZE 

BY  <FILE  C0UNT-1>  *  <FILE  SIZE> 
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220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 

232  OOOAOO 

233  000400 

234  000404 
235 

236  000406 

237  000412 

238  000414 

239  000420 
240 

241 

242  000422 

243  000426 

244  000430 

245  000434 

246  000436 

247  000442 

248  000444 

249  000450 
250 

251 
252 
253 
254 
255 

256  000452 

257  000460 

258  000464 

259  000472 

260  000474 

261  000502 


$C0RE2  -  ".CORE"  OPERAND  2  ACTION  ROUTINE 

INPUTS: 

$VALUE=MAPPING  REGISTER  ADDRESS 

OUTPUTS: 

R0=DESTROYED 

$VALUE=MAPPlNr  DISPLACEMENT 
$CAPR=APR  NUMBER 


005767 
100436 

016700 
001422 
032700 
001014 


162700 
100403 
022700 
103013 
162700 
100403 
022700 
103005 


OOOOOOG 

OOOOOOG 
000001 

OOOOOOG 
000016 
OOOOOOC 
000016 


$C0RE2: 


10$: 


20$ 
012700  177776        25$ 
016067  000002'  OOOOOOG  30$ 
006200 
116067  000023'  OOOOOOG 

40$ 


TST 
BMI 

MOV 
BEQ 
BIT 
BNE 

.IF  NDF 

SUB 

BMI 

CMP 

(3HIS 

I  US 

BHI 

CMP 

BHIS 

.IFF 
BR 

.ENDC 

EMSG$ 
MOV 
MOV 
ASR 

Move 

RETURN 


.MGMGE 
40$ 

$V/':UE,RO 
25$ 
#1,fiO 
20i 


MEMORV  MANAGEMENT  SYSTEM 
NO 

GET  EXPRESSION  VALUE 
IF  ZERO,  USE  DEFAULT 
IS  IT  ODD? 
IF  NE,  YES 


R$$MPL 

#KISARO,RO 

10$ 

#16, RO 

30$  . 

#UISAR0-KISAR0,R0 

20$ 

#16, RO 

30$ 


30$ 


39 

#-2,R0 

MAPP(R0),$VALUE 

RO 

MAP8YT(R0),$CAPR 


IS  IT  WITHIN  KERNEL  PAGE  REGISTER  SET? 

IF  MI,  NO 

VALID  KERNEL  PAGE  REGISTER? 

IF  HIS,  YES 

;  IS  IT  WITHIN  USER  PAGE  REGISTER  SET? 

IF  MI,  NO 

VALID  USER  PAGE  REGISTER? 

IF  HIS,  YES 


;[MP01] 


;CMP01] 
;rMP01] 

;[MP01] 


PRINT  WARNING  MESSAGE 
USE  DEFAULT  MAPPING 
SET  MAPPING  DISPLACEMENT 
CONVERT  TC  BYTE  INDEX 
;  SET  APR  NUMBER 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
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TRANSFERRED. 
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CORPORATION. 
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DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Pljs  V3.0 
DECnet-Micro/RSX  VI. 0 


OF  ITS 


VACS  -  VNP  TEMPLATE  ACTION  ROUT  MACRO  V05.03b  Saturday  29-Jun-85 


52:10 


Page  5 


VAf6  -   VNP   TEMPLATE   ACTION  ROUT   MACRO  V 
CONSTANT    DEFINITIONS 


F  6 

,^.03b  Saturday  29-Jun-85  02:10 


Page  6 


61 

62 

63 

000001 

64 

000002 

65 

000003 

66 

000013 

67 

OOOOOA 

68 

000005 

69 

000001 

70 

000003 

71 

000C02 

.SBfTL   CONSTANT  DEFINITIONS 


X3WL0 
X3WHI 
X3BL0 
X3BHI 
X2WL0 
X2WHI 
X28L0 
X2BHI 
X2BLK 


1 
2 
3 

n. 

5 

1 

3 
2 


LOW  VALUE  FOR  .X3CHW  OPERATOR 

HIGH  VALUE  FOR  .X3CHW  OPERATOR 

LOW  VALUE  FOR  .X3CHB  OPERATOR 

HIGH  VALUE  FOR  .X3CH8  OPERATOR 

LOW  VALUE  FOR  .X2CHW  OPERATOR 

HIGH  VALUE  FOR  .X2CHW  OPERATOR 

LOW  VALUE  FOR  .X2CHB  OPERATOR 

HIGH  VALUE  FOR  .X2CHB  OPERATOR 

BLOCK  SIZE  -  .X2CHW  SPECIAL  CASE  (SORRY) 
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LOCAL  DATA 


F  7 


VAC6 

CREATED  BY 

MACRO  ON  29 

-JUN-S5  AT 

02:10 

PAGE  1 

SVMBOL 

CROSS  REFERENCE 

CREF   04 

00 

SYMBOL 

VALUE 

REFERENCES 

ASCII 

000001  R 

#7-90 

8-128 

8-158 

CHECH 

000522  R 

8-170 

8-172 

8-179 

8-181 

8-183 

FL.CHA 

=  ».♦**«  GX 

9-233 

FL.DDM 

=  *»*«*♦  GX 

16-412 

FL.DLC 

=  »*.♦»»  GX 

16-412 

FL.LLC 

=  ♦•«*«♦  GX 

15-394 

FMT2 

000166  R 

7-97 

7-98 

7-99 

7-100 

#7-104 

FM.2 

=  000000 

#7-97 

#7-98 

#7-99 

#7-100 

F1.UMR 

=  ♦**»««  GX 

9-235 

11-279 

12-297 

F2.FIL 

=  »*•«««  GX 

8-125 

8-206 

F2.LBR 

=  .«♦»*«  GX 

8-192 

9-241 

9-245 

LB. ADR 

=  ******  GX 

9-237 

LB. USE 

=  ******  GX 

9-239 

MAPBYT 

000000  R 

#7-84 

8-200 

M$$MGE 

=  000000 

7-83 

R$$MPL 

-   ****** 

8-131 

S$$BAS 

r  ****** 

7-97 

7-97 

7-98 

7-98 

7-99 

X2BHI 

=  000003 

#6-70 

14-362 

X2BLK 

=  000002 

#6-71 

13-318 

14-364 

X2BL0 

=  000001 

#6-69 

14-360 

X2WHI 

=  000005 

#6-68 

13-322 

X2WL0 

=  OOOOOA 

#6-67 

13-320 

X3BHI 

=  000013 

#6-66 

14-372 

X3BL0 

=  000003 

#6-65 

14-370 

X3WHI 

=  000002 

#6-64 

13-330 

X3WL0 

=  000001 

#6-b3 

13-328 

SBFPTR 

=  ******  GX 

♦8-204 

SCAPR 

=  ******  GX 

*8-200 

$CAT5 

=  ******  GX 

8-159 

8-161 

8-163 

SELINE 

=  ******  GX 

7-97 

7-98 

7-99 

7-100 

SERRZK 

000012  R 

#7-97 

11-284 

$ERR89 

000054  R 

#7-98 

15-396 

$ERR90 

000102  R 

#7-99 

16-414 

$ERR91 

000136  R 

#7-100 

13-332 

14-374 

SFLAGS 

=  ******  GX 

9-233 

15-394 

16-412 

SFLAGI 

=  ******  GX 

9-235 

♦11-279 

♦12-297 

$FLAG2 

=  ******  GX 

8-125 

8-192 

♦8-206 

♦9-241 

9-245 

$FNR50 

=  ******  GX 

♦8-160 

♦8-162 

♦8-164 

9-225 

9-227 

SGETLB 

=  **,♦.*  GX 

8-176 

SLBAOR 

=  ******  GX 

♦8-165 

•9-242 

♦9-243 

SLBIAS 

=  *♦.«*»  GX 

♦9-222 

SLIBRI 

000000  RG 

#8-124 

SLINKS 

OOO'i.64  R6 

#10-259 

SNTLHB 

=  ******  GX 

8-167 

8-174 

11-282 

SMTLPT 

=  ******  GX 

8-166 

SQSTRT 

-    «*♦*»«   GX 

9-237 

IREP.C 

=  ******  GX 

7-97 

7-98 

7-99 

7-100 

$rv31 

r  ******  GX 

10-261 

13-336 

14-378 

$RQ5 

=  ******  GX 

8-203 

$RQ7 

=  *.*♦».  GX 

8-201 

isiie 

-    »*,**.  GX 

♦10-264 

♦13-338 

♦14-380 

tTERR 

=  ******  GX 

7-97 

7-98 

7-99 

7-100 

8-185 


8-187 


#9-222 


7-99 


7-100 


7-100 


9-229 


VAC6 
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296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 

308  000636 

309  0006AO 

310  00064'! 

311  000646 

312  000652 

313  000654 

314  000656 

315  000660 

316  000662 

317  000664 

318  000670 

319  000672 

320  000676 

321  000700 

322  000704 

323  000710 
324 

325 


112314 
122724 
005304 
012700 
112024 
001376 
005304 
010500 
005720 
122720 
001375 
122720 
001372 
112710 
156710 


000001 


REP6  -  REPLACE  LIBRARY  NAME  AND  THEN  FORM  APR  NUMBER 

INPUTS: 

R3=F0RMAT  STRING  ADDRESS 

R4=ERR0R  MESSAGE  BUFFER  ADDRESS 

$CAPR=APR  NUMBER  IN  BINARY 

OUTPUTS: 

R0=DESTROYED 
R3,R4=UPDATED 


000052 
OOOOOOG 


000120 

000122 

000060 
OOOOOOG 


REP6: 


10$: 


20$: 


Move 

CMP8 

DEC 

MOV 

M0V8 

BNE 

DEC 

MOV 

TST 

CMP8 

BNE 

CMPB 

BNE 

M0V8 

BISB 

RETURN 

.END 


(R3)+,(R4) 

#'*,CR4)t 

R4 

#$FILEN,R0 

(R0)+,(R4)+ 

10$ 

R4 

R5,R0 

(R0)  + 

#'P,(R0)t 

20$ 

*'R,(RO)t 

20$ 

*'0,(R0) 

$CAPR,(RO) 


COPY  FORMAT  STRING 
LOOKING  FOR  FIRST  ASTERISK 
SKIP  THE  ASTERISK 
GET  ASCIZ  FILE  NAME  ADDRESS 
COPY  THE  FILE  NAME 

SKIP  THE"ZER0  BYTE 

copy  error  message  block  address 
now  points  at  text  string 
look  for  "p" 

fcllowed'by  "R" 

FORM  APR 'number 
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111 

112 

113 

1U 

115 

'^b  0005^2  052  0^0  000 

117 

118  000545  052  040  124 

119 

120 

121 

122 

125  000000  .PSECT 


ERROR  MESSAGE 

FORMAT  STRINGS 

.NLIST 

BEX 

Tl:   .ASCIZ 

"*  " 

T3:    .ASCIZ 

"*  Template  fUe 

.LIST 
.EVEN 

BEX 
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SALlCB  -  ALLOCATE  KB 


66A 
665 
66'' 
667 
668 
66'5  001400 

670  00U04 

671  00K06 

672  00U12 

673  00U16 

674  001420 

675  001424 

676  001426 

677  001430 

678  001432 

679  001436 

680  001442 

681  001446 

682  001450 

683  001452 

684  001454 

685  001460 
686 

687 
688 


UBLTA  -  STORE  LINE  TABLE  ADDRESS  DATA  IN  UNLOAD  BLOCK 


116723 
105023 
016723 
016713 
005203 
005767 
001404 
105243 
005723 
016723 
010367 
116704 
006304 
006304 
060304 
010467 


000001 


000000' 

OOOOOOG 
OOOOOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


UBLTA: 


10$: 


MOVB 

PDVX,(R3)+ 

CLRB 

(R3)t 

MOV 

$SADDR,(R3)t 

V. 

$SIZE,(R3) 

R3 

ST 

SNALL 

BEQ 

10$ 

INCB 

-iR3) 

TST 

{R3)  + 

MOV 

$NALL,(R3)+ 

MOV 

R3,$UDA 

MOVB 

$NALL,R4 

ASL 

R4 

ASL 

R4 

ADD 

R3,R4 

MOV 

R4,$LDA 

STORE  PDV  INDEX  OF  THIS  PROCESS 

CLEAR  RESERVED  BYTE 

STORE  LINE  TABLE  ADDRESS 

AND  LINE  TABLE  SIZE 

MAKE  IT  AN  ODD  ADDRESS  (TEMPORARY) 

ANY  ALL0CS/LI8RS7 

IF  ZERO,  NO 

INDICATE  SOME  ALLOCS/LIBRS 

SKIP  LINE  TABLE  SIZE 

STORE  ALL0C/LI8R  COUNTS 

SET  UNLOAD  DATA  VIRTUAL  ADDRESS 

GET  NUMBER  OF  ALLOCS 

MULTIPLY  BY  4  (2  WORDS  PER  ENTRY) 

ADD  UNLOAD  BLOCK  ADDRESS 
GIVING  LIBRARY  DATA  ADDRESS 


RETURN 


.END 
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VAL16  -  VNP  BYTE  ALLOCATION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  02:12 
DEACR  -  DEALLOCATC  PROM  DSR 

2$: 


25? 

25A 

255  00027'. 

011314 

256  000276 

000404 

257  000500 

258 

259  000500 

260 

261 

262 

265 

264 

265 

266 

267 

268 

269 

270  000510 

010502 

271  000512 

011405 

272  0005K 

001402 

275  000516 

020005 

274  000520 

105567 

275  000322 

010246 

276  00052A 

066416  000002 

277  000530 

020026 

278  000332 

001004 

279  000354 

010200 

280  000356 

066401  000002 

281  0OU342 

000411 

282  000544 

010014 

285  000546 

020205 

284  000550 

001002 

285  000552 

010015 

286  000354 

000404 

287  000556 

288 

289 

290  000356 

291 

292 

293 

294 

295 

296 

297 

298 

299 

500 

501  000366 

010514 

302  000370 

010046 

505  000572 

060116 

504  000574 

020326 

305  000376 

001006 

506 

507 

508 

.ENDC 

88^ 

(R5),(R4) 
15$ 

10$: 

.IF  NDF 

R$$MPL 

GETAD 

R5 

.IFF 
BIT 

#DF.PDE,$DFLAG  ; 

BNE 

11$ 

GETRV 

R3 

BR 

12$ 

11$: 

GETAD 

R3           ; 

12$: 

.ENDC 

15$: 

MOV 

R3,R2 

MOV 

(R4),R3 

BEQ 

20$           ; 

CMP 

R0,R3 

BHIS 

10$ 

20$: 

MOV 

R2,-(SP; 

m 

2(R4),(SP) 
R0.(SP)t 

BNE 

30i          ; 

NOV 

R2,R0 

ADD 

2(R4),R1 

BR 

40$ 

30$: 

MOV 

R0,(R4) 

CMP 

R2,R5         ; 

85 

35i           ; 

R0,(R5) 

BR 

40l 

55$: 

.IF  NDF 

R$$MPL 

PUTAD 

R2 

.IFF 

BIT 

*DF.PDE,$OFLAG  , 

BNE 

56$ 

PUTRC 

R2 

BR 

37$ 

56$: 

PUTAD 

R2 

57$: 

.ENDC 

40$: 

MOV 

R5,fR4) 

MOV 

R0,-(SP) 

ADD 

R1,(SP) 

CMP 

R3,(SP)t 

BNE 

50i 

.IF  NDF 

R$$MPL 

Page  7-1 


PREPARE  TO  ENTER  LOOP 


READ  NEXT  FREE  BLOCK  DESCRIPTOR 


PROCESS  SPACE  OR  KB  DEALLOCATION 

IF  YES  -  BRANCH 

POSSIBLE  D-SPACE  READ 

CONTINUE 

READ  FROM  PROCESS  SPACE 


SAVE  ADDRESS  OF  CURRENT  BLOCK 

GET  ADDRESS  OF  NEXT  BLOCK 

IF  EO  END  OF  LIST 

BLOCK  GO  HERE? 

IF  HIS  NO 

CALCULATE  HIGHEST  ADDR.  IN  CUR.  BLK. 

EQUAL  TO  BLOCK  BEING  RELEASED? 

IF  NE  NO 

REDEFINE  ADDR.  OF  BLOCK  BEING  RELEASED 

CALCULATE  SIZE  OF  AGGLOMERATED  BLOCK 

SET  ADDRESS  OF  NEXT  BLOCK 

IS  THIS  THE  LISTHEAD  ? 

NO 

POINT  LISTHEAD  AT  NODE 


;CMP01] 


CMPOl] 
[MP01] 
CMPOl] 
CMPOl] 
CMPOl] 
CMPOl] 


WRITE  UPDATE  BLOCK  DESCRIPTOR 


PROCESS  SPACE  OR  KB  DEALLOCATION 
IF  YES  -  BRANCH 
POSSIBLE  D-SPAC.  READ 
CONTINUE 


ASSUME  NO  AGGLOMERATION 

CALCULATE  HIGHEST  ADDRESS  IN  BLOCK 

EQUAL  TO  NEXT  BLOCK? 
IF  NE  NO 


; CMPOl] 

; CMPOl ] 

; CMPOl ] 
; CMPOl ] 
; CMPOl ] 
; CMPOl 1 

; CMPOl ] 


; CMPOl] 


12 
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55 
56 
57 
58 
59 
60 
61 
62 
63 
6^ 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 


THESE  ROUTINES  WERE  ADAPTED  FROM  THE  RSX11D/IAS  MEMORY 

ALLOCATION  ROUT.'NES  .FMEM  i   .FRSEG  (  EM09.MAC  )  FOR 
USE  BY  THE  DISTRIBUTED  SYSTEMS  GROUP  ON  THEIR 
RSX  FAMILY  PRODUCTS. 

THE  WORD  AT  .QBIAS  IS  THE  LISTHEAD  FOR  A  LINKED  LIST 

OF  FREE  SEGMENTS  OF  MEMORY.  THE  CHAIN  POINTERS  ARE 
KEPT  IN  THE  FIRST  WORD  OF  EACH  SEGMENT  AND  ARE  THE 
REAL  MEMORY  ADDRESS  MODULO  64  (  1/64  REAL  MEMORY 
ADDRESS).  THIS  IS  THE  VALUE  THAT  SHOUlD  BE  PUT  INTO 
THE  SCRATCH  APR  TO  MAP  TO  THE  NEXT  SEGMENT.  THE 
SECOND  WORD  OF  EACH  SEGMENT  IS  THE  SIZE  IN  32  WORD 
BLOCKS  OF  THE  CURRENT  SEGMENT.  IT  IS  IMPORTANT  TO 
UNDERSTAND  THAT  ALL  SEGMENTS  MUST  BE  ALIIGNED  ON  32 
WORD  BOUNDARYS,  BUT  THAT  THE  LISTHEAD  SQBIAS  IS  NOT 
SO  CONSTRAINED.  THIS  CAUSES  SOME  EXCEPTION  TESTING 
IN  THESE  ROUTINES. 

INITIALLY  SQBIAS  SHOULD  CONTAIN  THE  BIAS  (  1/64  PHYSICAL 
MEMORY  ADDRESS  )  FOR  THE  BASE  OF  THE  MEMORY  TO  BE 
AS  A  BUFFER  POOL.  THIS  POOL  CAN  BE  ALLOCATED  IN  THE 
SYSTEM  BY  EITHER  USING  A  PARTITION  OR  TASK.  ADDITIONALLY 
THE  FIRST  WORD  OF  THE  PARTITION/TASK  SHOULD  BE  ZERO 
(  LAST  SEGMENT  )  AND  THE  SECOND  WORDTHE  SIZE  OF  THE 
PARTITION/TASK  IN  32-WORD  BLOCKS. 

INITIALLY: 


SQBIAS  — > 


0 

SIZE 

REST 

OF 
FREE 
SPACE 


AFTER  THESE  TWO  ROUTINES  HAVE  BEEN  RUNNING  FOR  AWHILE,  THE 
THE  PARTITION/TASK  WILL  PROBABLY  CONTAIN  A  LINKED 
LIST  OF  FREE  SEGMENTS  OF  MEMORY.  THE  LISTHEAD  SOBIAS 
IS  MAINTAINED  BY  THESE  ROUTINES  SO  THAT  IT  IS  ALWAYS 
A  POINTER  TO  TO  FIRST  FREE  SEGMENT  OF  MEMORY.  ONE 
SURE-FIRE  WAY  TO  CRASH  THE  SYSTEM  IS  TO  MODIFY  SQBIAS 
SINCE  THIS  ROUTINE  CANNOT  TELL  WHETHER  OR  NOT  IT 
IS  PROCESSING  GARBAGE  AND  CAN  ALLOCATE  MEMORY  FROM 
ANYWHERE  IN  THE  REAL  ADDRESS  SPACE. 

THESE  ROUTINES  ALWAYS  AGGLOMERATE  SEGMENTS  WHEN  THEY  ARE 
CONTIGUOUS.  THESE  ROUTINES  ARE  NOT  REENTRANT. 

NOTE  THAT  IT  IS  THE  CALLERS'  RESPONSIBILITY  TO  SET  UP  THE 

ADDRESS  BIAS  AND  SIZE  OF  SEGMENTS  BEING  RETURNED  TO 
THE  POOL  CORRECTLY.  IF  EITHER  VALUE  IS  INCORRECT,  IT 
WILL  EVENTUALLY  CRASH  THE  SYSTEM. 
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135 

136 

137 

138 

139 

KG 

U1 

142 

1A3 

U4 

K5 

1A6 

U7  000060 

K8  000060 

U9 

150  000064 

151  000070 
152 

153  000072 

154  000074 
155 

156  000106 

157  000112 

158  000120 

159  000122 

160  000126 

161  000132 

162  000134 

163  000140 

164  000144 

165  000146 

166  000154 

167  000160 

168  000204 

169  000210 

170  000212 

171  000214 

172  000216 


SREADX  -  READ  A  LOGICAL  BLOCK  INTO  EXTENDED  MEMORY 
INPUTS: 


RO 

OUTPUTS: 

C-BIT 
RO 


004267 

005767 
002006 

006000 


016702 
012767 
010001 
012700 
162702 
002002 
060267 

103424 
062767 
005567 

062701 
005702 
003345 
000241 


OOOOOOG 
OOOOOOG 


SREADX:: 


000030' 
001000 

OOOOOOG 
001000 

000030' 


000030' 


5$: 


10$: 


20$: 


000001 
000034' 

000010 


000036' 


30$: 


JSR 

TST 
8GE 

ROR 
ASR$ 

MOV 
MOV 
MOV 
MOV 

sua 

BGE 

ADD 

CALL 

BCS 

ADD 

ADC 

PUTAD 

ADD 

TST 

BGT 

CLC 

RETURN 


OUTPUT  BUFFER  BIAS 


SUCCESS/FAILURE 
DESTROVED 


R2,$SAVVR 

.MGMGE 
5$ 

RO 
5,R0 

$LLEN,R2 

#512.,$LLEN 

RO.RI 

#$BFR,RO 

#512. ,R2 

20$ 

R2,$LLEN 

SREAD 

30$ 

#1,$LBNt2 

$L8N 

#0,$LLEN,R1 

#10, R1 

R2 

10$ 


SAVE  VOLITAL  REGISTERS 

MEMORY  MANAGEMNET  SYSTEM 
YES 

CONVERT  ADDRESS  TO  BIAS 


R2  -    TOTAL  NUMBER  OF  BYTES  TO  TRANSFER 
TRANSFER  THIS  MANY  BYTES/RECORD 
BIAS  OF  MEMORY  BLOCK 
BUFFER  ADDRESS 
ATTEMPT  TO  TRANSFER 

AT  LEAST  512  BYTES. 
TRANSFER  REMAINDER 
READ  IN  NEXT  BLOCK 
ERROR  DURING  READ 
INCREMENT  BLOCK  NUMBER 

DOUBLE  WORD 
WRITE  BLOCK  TO  VIRTUAL  MEMORY 
INCREMENT  VIRTUAL  BLOCK  TO  NEXT  512  BYTE  BLOCK 
ANY  BYTES  LEFT  ? 
YES 
'  GNAL  SUCCESS 
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•F1lE"1D'«VCEAL 


vv    vv 

cccccccc 

EEEEEEEEEE 

AAAAAA 

vv    vv 

cccccccc 

EEEEEEEEEE 

AAAAAA 

vv      V" 

EE 

AA 

AA 

vv    vv 

EE 

AA 

AA 

vv    vv 

EE 

AA 

AA 

vv    vv 

EE 

AA 

AA 

vv    vv 

EEEEEEEE 

AA 

AA 

vv    vv 

EEEEEEEE 

AA 

AA 

vv    vv 

EE 

AAAAAAAAAA 

vv    vv 

EE 

AAAAAAAAAA 

vv  vv 

EE 

AA 

AA 

vv  vv 

EE 

AA 

AA 

vv 

cccccccc 

EEEEEEEEEE 

AA 

AA 

LLLLLLLLLL 

vv 

cccccccc 

EEEEEEEEEE 

AA 

AA 

LLLLLLLLLL 

LL 

SSSSS5SS 

TTTTT 

TrTTT 

LL 

ssssssss 

TTTTT 

mil 

LL 

ss 

T 

-L 

ss 

T 

-L 

ss 

1 

.L 

ss 

T 

.L 

ssssss 

1 

.L 

ssssss 

r 

.L 

ss 

1 

.L 

ss 

! 

-L 

ss 

1 

-L 

ss 

1 

.LLLLLLLLL 

ssssssss 

T 

LLLLLLLLLL 

ssssssss 

1 
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$ALL18   -   ALLOCATE    FROM  UMR   NETWORK   POOL 


A22  001300 
423 

426  001302     000261 

427  001304 


RETURN 
ERROR   CONDITIONS 


Ion.- 


SEC 
RETURN 


INDICATE  ERROR 
AND  LEAVE 
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Vector  ♦ 


112  000622 

115  0006^6 

1H 

115  000665 

116 

117 

118 

119  000000 

052 
052 

OAO 
OAO 

124 
124 

FMT3: 
FMT2: 

.ASCI  7 
.ASCIZ 

"*  Template  f 
"*  Template  - 

052 

0^0 

124 

FMT2B: 

.ASCIZ 

.EVEN 

.PSECT 

"*  Template  - 
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471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 


001164 
001164 
001170 
001174 
001202 
001204 
001210 
001212 
001216 
001224 


001226 


032767 
001411 

103405 
112712 
062767 


OOOOOOG  OOOOOOG 


OOOOOOG 

000002  OOOOOOG 


SSECSR  -  ".SECSR"  ACTION  ROU 

INPUTS: 

NONE 

OUTPUTS: 

R2=DESTR0YED 

ESECSR:: 

CALL 

SVFDDM 

CALL 

SVFMUX 

BIT 

#FL.LMC,$FLAGS 

BEQ 

101$ 

CALL 

$RQ1 

BCS 

10$ 

MOVB 

#. SECSR, (R2) 

ADD 

#2,$SIZE 

10$:    RETURN 

•  ERROR  CONDITION 

i01$:   EMSGSR 

85 

MAKE  SURE  IT'S  A  DDM 
AND  THAT  IT'S  A  MUX  LINE 
IS  IT  A  COMIOP  DEVICE? 
IF  EO,  NO 

REQUEST  BINARY  FILE 
IF  CS,  NO  ACCESS 
STORE  FUNCTION  CODE 
ADJUST  DATA  BASE  SIZE 


NOT  COMIOP  DEVICE 
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116 
117 
118 
119 

$GLOBL  -  GLOBAL  SVMBOL  ACTION  ROUTINE 

INPUTS: 

120 

.PSTPT= 

SYMBOL  ADDRESS 

121 

.PSTCN: 

-SYMBOL  LENGTH 

122 
123 

OUTPUTS: 

12A 

R0,R1,R2=DESTROYFD 

125 

$VALUE= 

=EXTERNAL  SYMBOL  VALUE 

126 

127 

000000 

icLOBL: 

128 

000000 

005067 

OOOOOOG 

'CLR 

$VALUE 

SET  NO  VALUE  YET 

129 

OOOOOA 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#F1.STE,$FLAG1 

ANY  SYMBOL  TABLE  ERRORS  YET? 

130 

000012 

001063 

BNE 

50$ 

IF  NE,  YES 

131 

OOOOU 

016700 

OOOOOOG 

MOV 

.PSTPT.RO 

GET  SYMBOL  ADDRESS 

132 

000020 

012701 

000000' 

MOV 

#ASYM,R1 

GET  LOCAL  SCRATCH  PAD  ADDRESS 

133 

00002A 

016702 

OOOOOOG 

MOV 

. PSTCN, R2 

GET  SYMBOL  LENGTH 

13A 

000030 

022702 

000006 

CMP 

#6,R2 
lOi 

6  CHARACTERS  OR  LESS? 

135 

000034 

103002 

BHIS 

IF  HIS,  YES 

136 

000036 

012702 

000006 

MOV 

#6,R2 

USE  ONLY  FIRST  6  CHARACTERS  OF  SYMBOL 

137 

OO0OA2 

010246 

10$: 

MOV 

R2.-(SP) 
(R0)t,(R1)+ 

SAVE  LENGTH 

138 

OOOCAA 

112021 

20$: 

MOVB 

COPY  SYMBOL 

139 

0000A6 

005302 

DEC 

R2 

HO 

000050 

001375 

BNE 

20$ 

U1 

000052 

012702 

000006 

MOV 

#5,R2 

IS  SYMBOL  LENGTH  6? 

U2 

000056 

162602 

SUB 

(SP)+,R2 

U3 

000060 

001404 

BEQ 

40$ 

IF  EQ,  YES 

14A 

000062 

112721 

000040 

30$: 

MOVB 

#•  ,|R1)+ 

FILL  WITH  BLANKS 

l^tS 

000066 

005302 

DEC 

R2 

K6 

000070 

001374 

BNE 

30$ 

UP  TO  A  LENGTH  OF  6 

U7 

000072 

012700 

000000' 

40$: 

MOV 

*ASYM,R0 

CONVERT  6  CHARACTERS 

U8 

000076 

010701 

MOV 

PCRI 

FROM  ASCII  TO  RAD50 

U9 

000100 

CALL 

$CAT5 

AND  STORE  IN  CONTROL  BLOCK 

150 

000104 

010167 

000012' 

MOV 

Rl.GSYM 

151 

000110 

010701 

MOV 

PCRI 

152 

000112 

CALL 

$CAT5 

153 

000116 

010167 

000014' 

MOV 

Rl,GSYMt2 

*  <  • 

15A 

000122 

005000 

CLR 

RO 

SETUP  ASCIZ  FILE  SPEC 

155 

000124 

005001 

CLR 

R1 

NOTE  -  C1,1]XXX.STB  FOR  11D/IA5 

156 

000126 

012702 

000312' 

MOV 

*ST8EXT,R2 

.  .  . 

157 

000132 

CALL 

SAZFS 

158 

000136 

012700 

000006' 

MOV 

#GBLK,RO 

•  POINT  to'   ilBOL  CONTROL  BLOCK 

159 

000U2 

CALL 

$SYMBL 

•  LOOK  FOR  GLOBAL  SYMBOL 

160 

000146 

103406 

BCS 

101$ 

■  IF  CS,  FILE  ERROR  OF  SOME  SORT 

161 

000150 

016767 

000016' 

OOOOOOG 

MOV 

GVAL,$VALUE 

•  SET  SYMBOL  VALUE 

162 

000156 

005701 

TST 

R1 

•  CHECK  COUNT  OF  UNDEFINED5 

163 

000160 

001010 

BNE 

111$ 

•  IF  NE,  SYMBOL  UAS  UNDEFINED 

16A 

000162 

50$: 

RETURN 

165 

166 

167 
168 
169 

•  ERROF 

CONDITIONS 

000154 

126727 

OOOOOOG 

000006  101$: 

CMPB 

$CLEVL,#6 

;  IS  GCL  AT  MAXIMUM  DEPTH? 

1/0 

000172 

001403 

BEQ 

111$ 

;  IF  EQ,  YES 

171 

000174 

052767 

OOOOOOG 

OOOOOOG 

BIS 

#fl.STE,$FLAG1 

;  INDICATE  SYMBOL  TABLE  ERROR 

172 

000202 

016000 

000020' 

111$: 

MOV 

GETA8-2(R0),R0 

;  GET  ERROR  MESSAGE  BLOCK  ADDRESS 

VAC3 
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265 

+ 

264 
265 
266 

SCORE 

-  ".CORE"  ACTION  ROUTINE 

INPUTS: 

267 

$CVAL= 

NUMBER  OF  BLOCKS  (MAPPED)  OR  BYTES  (UNMAPPED)  NEEDED 

268 

SVALUE 

=MAPPING  DISPLACEMENT  TO  BE  USED 

269 

270 

OUTPUTS: 

271 

C-BIT= 

SUCCESS/FAILURE 

272 

R0,R1, 

R2=DESTR0YED 

273 

SNALL 

INCREMENTED  IF  ALLOCATION  SUCCEEDED 

274 

FI.ERf 

SET  IF  ALLOCATION 

FAILED 

275 

- 

276 

277  000504 

ECORK:: 

278  000504 

279 

280  000510 

CALL 

$C0RE2 

PROCESS  OPERAND  2 

ECORE:: 

281  000510 

CALL 

$VFLV1 

MAKE  SURE  IT'S  THE  PRIMARY  TEMPLA 

282 

283  000514 

005767 

OOOOOOG 

TST 

.MGMGE 

MEMORY  MANAGEMENT  SYSTEM  ? 

284  000520 

285 

286  000522 

100403 

BMI 

5$ 

NO 

CALL 

$RQ7 

REQUEST  BINARY  FILE 

287  000526 

288 

289  000530 

290 

291  000534 

000402 

BR 

8$ 

5$: 

CALL 

$RQ5 

DITTO 

103465 

8$: 

acs 

20$ 

IF  CS,  NO  ACCESS 

292  000536 

005000 

CLR 

RO 

ASSUME  ZERO  LENGTH 

293  000540 

032767 

COOOOOG  OOOOOOG 

BIT 

#FL.CHA,$FLAGS 

MUX  CHARACTERISTICS  UPDATE  ONLY  ? 

294  000546 

001402 

BED 

80$ 

NO  .. 

295  000550 

005067 

OOOOOOG 

CLR 

$CVAL 

YES  ..  NO-OP  THE  ALLOCATION 

296  000554 

016701 

OOOOOOG 

80$: 

MOV 

SCVAL,R1 

GET  BLOCK  COUNT 

297  000560 

001421 

BEQ 

10$ 

IF  ZERO,  DON'T  ALLOCATE 

298  000562 

CALL 

MAX  14 

ALLOW  ONLY  14.  ALLOCATIONS 

299  000566 

103450 

BCS 

20$ 

IF  CS,  NO  MORE  ALLOWED 

300  000570 

032767 

OOOOOOG  OOOOOOG 

BIT 

#F1.UMR,$FLAG1 

IS  UMR  MAPPING  NEEDED  ? 

301  000576 

001003 

BNE 

81$ 

IF  NE,  YES 

302  000600 

CALL 

$ALN1S 

ALLOCATE  FROM  NON-MAPPED  AREA 

303  000604 

000402 

BR 

82$ 

304  000606 

81$: 

CALL 

SALL18 

ALLOCATE  18  BIT  ADDRESSABLE  STORA 

305  000612 

103437 

82$: 

BCS 

ALLERR 

IF  CS,  FAILURE 

306  000614 

307 

308  000620 

CALL 

ZER18 

ZERO  OUT  18-BIT  ALLOCATION 

105267 

OOOOOOG 

9$: 

INC8 

$NALL 

TALLY  SUCCESSFUL  ALLOCATION 

309  000624 

112722 

OOOOOOC 

10$: 

MOVE 

*.CORE:200,(R2)+ 

;  STORE  FUNCTION  CODE 

310  000630 

110022 

MOVE 

R0,(R2)t 

STORE  F!^:,:  WORD  OF  ADDRESS 

311  000632 

000300 

SWAB 

RO 

312  000634 

313 

314  000636 

110022 

MOVB 

R0,(fi2)t 

... 

005767 

OOOOOOG 

TST 

.MGMGE 

MEMORY  MANAGEMENT  SYSTEM  ? 

315  000642 

316 

317  000644 

100404 

BMI 

11$ 

NO 

116722 

OOOOOOG 

MOVB 

$VALUE,(R2  + 

STORE  SECOND  WORD  OF  ADDRESS 

318  000650 

116722 

000001G 

MOVB 

$VALUE'-1,(R2)t 

319 

H  A. 
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56 

57 

58 

59 

60 

61 

62 

63 

6A 

65 

66  000000 

67 

68 

69 

70 

71  000000 

72  000040 

73  000070 

74  000U4 

75  000206 

76  000260 
77 

78 

79 

80 

81  000332 
000335 
000340 
000343 
000346 
000351 

82 

83 

84 

85 

86 

87  000354 

88 

89 

90 

91 

92 

93 

94 

95 

96  000000 

97 

98  000000 


LIBRARY  MACROS 


.MCALL  ASL$,EMSG$,EMSG$R,NTLER$ 
.ENABL  LC 


LOCAL  DATA 
** 

.PSECT  DATA.D 


ERROR  MESSAGES 

NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 


,69,6,STERR,SPRV.N,$ELINE,<0pen  failure  (  -**♦.  ).> 
,71,6,STERR,SREP.P,$ELINE,<not  contiguous. > 
,72,6.$TERR,SCUR.N,SELINE,<Label.  block  read  failure  t  -« 
,73,6,STERR,SREP.C,SELINE,<not  a  valid  binary  image. > 
,74,6,STERR,$REP.C,SELINE,<size  exceeds  32k-32  word  blocks. > 
,75,6,STERR,SREP.C,$ELINE,<Extension  size  exceeds  32k  words. > 


).> 


052 
155 
145 
151 
040 
040 


OOOC 


040 
141 
040 
154 
055 
000 


111 
147 
146 
145 
055 


000000 


ERROR  MESSAGE  FORMAT  STRING 
FMT6:.ASCIZ     "*  Image  file  — 


.EVEN 

DEFAULT  APR  N:M8ER 
MAPBYT:  .BYTE   «.BASEB/2>877777>/10000 
.EVEN 
.PSECT   ..8UF 

DISK  BUFFER  FOR  LABEL  BLOCK  READ 
DSKBUF:  .BLKW   1 
.PSECT 
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LOCAL  DATA 


§2:^ 


10  Page  7 


73 

7^ 

7S 

76 

77 

78  000000 

79 

80 

81 

82 

83 

8A  000000 

85 

86 

87 

88 

89 

90  000001 

91 

92 

93 

94 

95 

96 

97  000012 

98  00005A 

99  000102 
100  000136 
101 

102 

103 

104  000166 
000171 
0001 7A 
000177 
000202 

105 

106  000000 


.SBTTL      LOCAL    DATA 
*** 
LOCAL   DATA 


.PSECT      DATA,D 


DEFAULT  APR  NUMBER 


COOC 


MAPBYT: 


.IF  DF 

.BYTE 

.ENDC 


M$$MGE 
«.BASEB/2>&77777>/10000 


FILE  NAME  IN  ASCII  BLANK  FILLED  TO  NINE  CHARACTERS 
ASCII:   .BLKB   9. 
.EVEN 


ERROR  MESSAGE 

NTLERS 
NTLERS 
NTLERS 
NTLERS 


,ZK,2,$TERR,$REP.C,$ELINE,<UMR's  have  been  disabled. > 
,89,2,$TERR,$REP.C,$ELINE,<LLC  operator. > 
,90,2,$TERR,$REP.C,$ELINE,<DDM  or  DLC  Operator> 
,91,2,$TERR,$REP.C,$ELINE,<IUegal  operand> 


052  040 

145  155 

154  141 

145  040 

055  040 


124 
160 
164 
055 
000 


ERROR  MESSAGE  FORMAT  STRING 
FMT2:   .ASCIZ  "*  Template  — 


.EVEN 
.PSECT 


H  6 
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VAC6      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:10 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE  REFERENCES 


G  7 

PAGE  2 

CREF   OA.OO 


SUMROF 

0005A4 

RG 

#12-296 

SUMRON 

000512 

RG 

#11-278 

SVALUE 

-   ****** 

GX 

•8-199 

13-318 

13-320 

13- 

-322 

K-364 

14-370 

•4-372 

14- 

•i/b 

SVFLLC 

001022 

R 

10-260 

13-333 

14-375 

#15- 

■393 

SVFLVI 

=  ****** 

GX 

8-196 

SVXLLC 

001042 

R 

13-324 

14-366 

#16-412 

$X2CHB 

000700 

RG 

#14-359 

$X2CHW 

00055A 

RG 

#13-317 

$X3CHB 

000742 

RG 

#14-369 

$X3CHW 

000616 

RG 

#13-327 

.BASES 

=   ****** 

GX 

7-84 

8-199 

.CXLBR 

r      ****** 

GX 

8-174 

.CXLBl 

-     ****** 

GX 

8-169, 

.LINKS 

=:     ****** 

GX 

10-263 

.MGEXT 

=     ****** 

GX 

11-280 

.MGMGE 

=     ****** 

GX 

8-197 

9-231 

.PSTCN 

=     ****** 

GX 

8-29 

8-- 53 

.PSTPT 

=     ****** 

GX 

8-- 27 

.X2CH1 

=     ****** 

GX 

13-317 

14-359 

.X3C01 

=:     ****** 

GX 

13-327 

14-369 

13-328 


13-330 


13-334 


14-360 


14-362 
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Symbol   table 
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AS$CHK= 

000000 

G$$TPP= 

000000 

M$$FCS= 

000000 

A$$CPS= 

000000 

G$$TSS= 

000000 

H$$MGE= 

000000 

A$$PR1= 

000000 

G$$TTK= 

000000 

M$$NET= 

000000 

A$$TRP= 

000000 

G$$URD= 

000000 

M$$OVR= 

992299 

BASE 

000A02R 

I$$RAR= 

000000 

N$$ACC= 

000001 

C$$CKP= 

000000 

I$tRDN= 

000000 

N$$BUF= 

000001 

C$$ORE= 

OOOAOO 

K$$CNT= 

177546 

N$$LDV= 

000001 

CS$RSH= 

177564 

K$$CSR= 

177546 

N$$MCP= 

000001 

D$$BUG= 

1775K 

K$$LDC= 

000000 

N$$MLL= 

000001 

D$$ISK= 

000000 

K$$TPS= 

000074 

N$$MOV= 

000010 

D$$Ln  = 

000001 

LBLK 

OOOOOORG 

002  N$$NCT= 

000001 

D$$YNC= 

000000 

LB.APR= 

******  GX 

N$$PEM= 

000001 

D$$YNM= 

000000 

LB.USE= 

**♦♦«*  GX 

P$$P45= 

000000 

EI$XPR= 

000000 

LD$LP  = 

000000 

P$$WRD= 

000000 

FL.CHA= 

»**♦**  GX 

LINK 

000340R 

Q$$0PT= 

000010 

FMT2 

00031 7RG 

002 

L$$ASG= 

000000 

REP6 

000636R 

FMT6 

000276RG 

002 

L$$DRV= 

000000 

R$$DER= 

000000 

FM.2  = 

000000 

L$$P11= 

000001 

R$$K11= 

000001 

FM.6  = 

000000 

L$$11R= 

000000 

R$$SND= 

000000 

F$$LVL= 

000001 

MAXU 

000304R 

R$$11M= 

000000 

F1.UMR= 

*♦***»  GX 

M$$CRB= 

000124 

S$$WRG= 

000000 

F2.FIL= 

*•**♦♦  GX 

M$$CRX= 

000000 

S$$YSZ= 

007600 

F2.LBR= 

«*«♦*♦  GX 

.  ABS. 

000000 

000 

tRW,I,GBL,ASS,OVR) 

000712 

001 

(RU,I,LCL,REL,CON) 

DATA 

000336 

002 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

♦  ♦♦  Assembler  statis'-'cs 

Work   f 

ile  reads 

0 

Work   f 

ile  writes 

0 

Size  of 

work  file 

10239  Words 

(  40  Pages) 

Size  of 

core  pool 

U4A0  -lords 

(  55  Pages) 

Operating  system 

RSX- 

11M/PLUS 

T$$KMG= 

000000 

$FLAGS= 

******  GX 

T$$MIN= 

000000 

$FLAG1= 

******  GX 

USE 

000444R 

$FLAG2= 

******  GX 

V$$CTR= 

001000 

$GETLB= 

******  GX 

XFER 

0001 20R 

$LBADR= 

******  GX 

X$$DBT= 

000000 

SLBERR 

000570RG 

$AL8  = 

«*♦«*»  GX 

$LBIAS= 

******  GX 

$ALL18= 

»*»***  GX 

$LBXFR= 

*««**«  GX 

$ALN18= 

•***♦*  GX 

$LIBR 

OOOOOORG 

$BFALL= 

»*»»♦*  GX 

$NALL  = 

******  GX 

$BFBAS= 

******  GX 

SNLIB  = 

******  GX 

$BFPTR= 

******  GX 

$NTLHB= 

******  GX 

$CAPR  = 

******  GX 

$PUTLB= 

******  GX 

$CLDEQ= 

******  GX 

$REP.C= 

******  GX 

$DEA18= 

******  GX 

$REP.P= 

******  GX 

$ELINE= 

******  GX 

SSIZE  = 

******  GX 

$ERRY2 

000002R 

002 

STERR  = 

******  GX 

$ERRY3 

000076R 

002 

$TWARN= 

******  GX 

$ERRY4 

0001 52R 

002 

$VALUE= 

******  GX 

$ERRY6 

000220R 

002 

.CXLBR= 

******  GX 

$ERRY7 

000036R 

002 

.LIBR  = 

******  GX 

$FILEN= 

******  GX 

.MGMGE= 

******  GX 
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1 
2 
3 

; 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
1,7 
48 
A9 
50 
51 
52 
53 


.TITiE  VAC9  -  VNP  TEMPLATE  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  9 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00     07-NOV-83 

DECNET-HM  V4.0 
DECNET-11M-PLUS    V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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125 

126 

127 

128 

129 

130 

131 

132 

133 

13^ 

135 

136 

137 

138 

139 

1A0 

U1 

1A2 

143 

KA 

1A5 

H6 

1A7 

K8  000000 

K9  000000 

150  OOOOOA 

151  000006 

152  OOOOU 

153  000016 

154  000024 


$TMALT  -  ALLOCATE  LINE  TABLE 

THIS  ROUTINE  IS  CALLED  TO  ALLOCATE  THE  PROCESS  LINE  TABLE.  AN  ATTEMPT 
IS  MADE  TO  FIRST  ALLOCATE  FROM  EXTENSIBLE  SPACE  WITHIN  THE  PROCESS.  IF 
THIS  IS  SUCCESSFUL  AND  THE  IMAGE  IS  A  MEMORY  MANAGEMENT  SYSTEM  AND  WE 
ARE  ALLOCATING  FOR  A  DDM,  THEN  A  SECONDARY  LINE  TABLE  IS  ALLOCATED  FROM 
DYNAMIC  MEMORY.  (THE  VECIOR  FOR  THE  DDM  WILL  POINT  TO  THE  SECONDARY 
LINE  TABLE).  THE  ADDRESS  FOR  THE  ACTUAL  LINE  TABLE  IS  SAVED  FOR  THE 
BINARY  EXPANSION  ROUTINES. 

INPUTS: 

$SIZE=NUM6ER  OF  BYTES  NEEDED 

$NVECT=NUM6ER  OF  VECTORS  (FOR  VECTOR  BLOCK  STORAGE  ALLOC) 

OUTPUTS: 

RO,R1,R2=DESTROYEO 
$ADDR=LINE  TABLE  ADDRESS 
$SADfi,$TADR=REAL  LINE  TABLE  ADDRESS 
$ICBAD=IC6  ADDRESS  OR  LINE  TABLE  ADDRESS 
$ICB=AND  ITS  LENGTH 
$LINK=LINE  TABLE  LINK  VALUE 


005767 
100522 
032767 
001116 
032767 
001411 


OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


iTMALT: 


TST 
BMI 
BIT 
BNE 
BIT 
BEQ 


155 

156  000026 

016701 

OOOOOOG 

MOV 

157  000032 

032761 

OOOOOOG 

OOOOOOG 

BIT 

158  000040 

001003 

BNE 

159  000042 

CALL 

160  000046 

161 

162  000050 

103501 

SCS 

005067 

OOOOOOG 

10$: 

CLR 

163  000054 

016701 

OOOOOOG 

MOV 

164  000060 

001475 

BEQ 

165  000062 

062701 

000003 

ADD 

166  000066 

042701 

000003 

BIC 

167  000072 

010167 

OOOOOOG 

MOV 

168  000076 

032767 

OOOOOOC 

OOOOOOG 

BIT 

169  000104 

001437 

BEQ 

170  000106 

CALL 

171    000112 

103434 

BCS 

172  000114 

005067 

OOOOOOG 

CLR 

173 

174  000120 

032767 

OOOOOOG 

OOOOOOG 

BIT 

175  000126 

001433 

BEQ 

176  000130 

016701 

OOOOOOG 

MOV 

177  000134 

032761 

OOOOOOG 

OOOOOOG 

BIT 

178  000142 

001025 

BNE 

179  000144 

010002 

rISv 

180  000146 

016700 

OOOOOOG 

181   000152 

016701 

OOOOOOG 

$FLAG1 

ANY   ERROR   YET? 

100$ 

IF   MI,    YES  -  DO  NOTHING 

#FL.CHA    tFI.AGS 

"UX   CHARACTERISTICS   UPDATE   ONLY 

100$ 

;S    ..    DON'T   ALLOCATE 

#FL.DD^        L'>f"S 

iS    THIS  A  DDM  ? 

10$ 

IF   EQ,   NO 

$PDVA,R1 

GET  PDV  ADDRESS 

*ZF.PSE,7.FLG(R1, 

■    IS   THIS  A  PSEUDO-DEVICE? 

10$ 

IF    YES 

KRBAL 

.OCATE   A  KRB 

100$ 

CS,    FAILURE 

$LINK  ;  SET  LINE  TABLE  LINK  VALUE 

$SIZE,R1  ;  GET  BYTE  COUNT  NEEDED 

101$  ;  IF  ZERO,  ERROR 

#3,R1  ;  ROUND  UP  NEXT  MULTIPLE  OF  4 

#3,R1  ; 

R1,$SIZF  ;  RESET  LINE  TABLE  SIZE 

#FL.DDM!FL.DLC,$FLAGS  ;  IS  THIS  A  DDM  OR  DLC? 

30$  ;  BR  IF  NO  -  MUST  BE  AN  LLC 

$ALLPR  ;  ATTEMPT  ALLOCATION  FROM  PROCESS 

30$  ;  NO  IF  C-SET 

$ICBAD  ;  POTENTIAL  KB  ADDRESS 


#FL.DDM,$FLAGS  ; 

40$  ; 

$PDVA,R1       ; 

#ZF.PSE,Z.FLG(R1) 

40$ 

R0,R2 

$IC8LN,R0 

$NVECT,R1 


IS  THIS  A  DDM? 

IF  EQ  NO,  SO  DO  NOTHING 

GET  PDV  ADDRESS 

;  IS  THIS  A  PSEUDO-DEVICE? 

BR  IF  YES 

LINE  TABLE  ADDRESS  SAVED  IN  R2 

SIZE  OF  EACH  KB 

NUMBER  OF  VECTORS 
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VAI.T  - 

^NP  LINE  TABLE  ALLOCATIO 

MACRO  V05.03b  Monday  08 

G  n 

-Jul-85  22:06 

Symbol 

table 

A$$CH<= 

000000 

F1.LFL= 

».*»*♦  GX 

M$$MGE= 

000000 

A$$CPS= 

000000 

F1.MPL= 

»»««»*  GX 

M$$NET= 

000000 

A$$PR1^ 

000000 

F1.MPT= 

•*«*»«  GX 

M$$OVR= 

2S9599 

A$$TRP= 

000000 

GETIND 

001332R 

N$$ACC= 

000001 

CPU 

00001  OR 

002 

G$$TPP= 

000000 

N$$BUF= 

000001 

C$tCKP= 

000000 

G$$TSS= 

000000 

N$$LDV= 

000001 

C$$ORE= 

000400 

G$$TTK= 

000000 

N$$MCP= 

000001 

C$$RSH= 

177564 

G$$WRD= 

000000 

NJ$MLL= 

000001 

D$$auG= 

1775U 

ITAB 

000002R 

002  N$$M0V= 

000010 

Dt$!SK= 

000000 

I$$RAR= 

000000 

N$$NCT= 

000001 

D$$L11= 

000001 

I$$RDN= 

000000 

N$$PEM= 

000001 

D$$YNC= 

000000 

KRBAL 

000322R 

PDVX 

OOOOOOR    0 

D$SYNM= 

000000 

K$$CNT=: 

177546 

P$$P45= 

000000 

E$$XPR= 

000000 

KS$CSR= 

177546 

P$$WRD= 

000000 

Fl  .CHA= 

♦*«*•«  GX 

K$$LDC= 

000000 

Q$$OPT= 

000010 

FL.DDM= 

«***»*  GX 

K$tTPS= 

000074 

R$$DER= 

000000 

FL.DLC= 

*«*♦**  GX 

K.CSR 

000002 

R$$K11= 

000001 

FL.LLC= 

«***»«  GX 

K.PRl 

000000 

R$$SND= 

000000 

FMTl 

000542R 

002 

K.VCT 

000001 

R$$11M= 

000000 

FMT5 

000545R 

002 

LD$LP  = 

000000 

SYSFDB= 

******  GX 

FM.l   = 

000000 

L$$ASG= 

000000 

S$$WRG= 

000000 

FM.3  = 

000000 

L$$DRV= 

000000 

S$$YSZ= 

007600 

F$$LVL= 

000001 

L$$P11= 

000001 

T$$KMG= 

000000 

F.NRBD= 

*♦♦«*♦  GX 

L$$11R= 

000000 

T$$MIN= 

000000 

F.RSIZ= 

»♦**♦♦  GX 

L.CTL  = 

»***»♦  GX 

U8A 

000662R 

F.URBD= 

»♦♦»»*  GX 

L.DDM  = 

«»«**»  GX 

U8LTA 

001400R 

F1.INT= 

»*»♦•»  GX 

L.KRBA= 

******   GX 

V$$CTR= 

001000 

F1.IN1= 

•♦»♦*»  GX 

M$$CR8= 

000124 

X$$D8T= 

000000 

F1.IN2= 

..♦.».  GX 

M$$CRX= 

000000 

ZF.PSE= 

******  GX 

F1.IN3= 

•*«**»  GX 

M$$FCS= 

000000 

Z.FLG  = 

******   GX 

F1.LFI= 

*«♦*♦«  GX 

.  ABS. 

OOOOOA 

000 

(RW,I,GBL,ABS,OVR) 

001462 

001 

(RW,I,LCL,REL,CON) 

DATA 

000572 

002 

u(W,D,LCL,REL,CON) 

Errors 

detected: 

0 

•♦♦  Ass 

embler  statistics 
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$ADDR  = 
$ADRX  = 
$ADRZ  = 
$ALLPR= 
$ALL15= 
$ALL16= 
$ALN18= 
$BFR  = 
$DEA16= 
$ERR33 
$ERR34 
002  $ERR35 
$ERR36 
$ERR37 
$ERR84 
$ERR86 
$ERR88 
$ERR9C 
$ERR9D 
$FLA6S= 
$FLAG1= 
$GETAD= 
$ICBAD= 
$ICBLN= 
$ICBSZ= 
$KRBLN= 
$LDA  = 
SLINK  = 
$MUL  = 
SNALL  = 


****** 

•«♦*** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

000012R 

000044R 

000114R 

0001 52R 

000220R 

000264R 

000330R 

000402R 

000442R 

000502R 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


INLIB  = 

$NTLHB= 

$NTLUB= 

$NVECT= 

SPDVA  = 

$PDVNM= 

$PDVTA= 

$PUTAD= 

$PUTRC= 

002  $RADDR= 

002  $REP.P= 

002  $RSIZE= 

002  $SADDR= 

002  SSIZE  = 

002  SSLTA  = 

002  $SLTMA= 

002  $SLTNM= 

002  $TAODR= 

002  STERR  = 

STMALT 

STMCHK 

$TMPBF=: 

$TWE  = 

$UBIAS= 

$UDA  = 

$UNBSZ= 

$$CSR  = 

$$PRI  = 

$$VECT= 

.CXUNL= 


****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

OOOOOORG 

000514RG 

******  GX 

******  GX 

******  GX 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
uX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 
GX 


Work  file  !-eads:  0 

Work   file  writes:  0 

Size  of  work  file:  107O2  Words  (  43  Pages) 

Size  of  core  pool:  14440  Words   (  55  Pages) 

Operating  system:  RSX-11M/PLUS 
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309 

310 

311 

312 

313 

3U 

315 

316 

317 

318 

319 

3:0 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 


000400 


000410     066401     000002 
000414     010167     000002G 


000420 


000430  012605 


000432 


GETAD 
.IFF 

R3 

46$: 
47$: 

GETRV 

BR 

GFTAD 

.ENDC 

#DF.PDE,$DFLAG 

46$ 

R3 

47$ 

R3 

50$: 

ADD 
MOV 

2(R4),R1 
R1,$8FRt2 

.IF  NDF 

PUTAD 

.IFF 

R$$MPL 
RO 

56$: 
57$: 

BIT 

BNE 

PUTRC 

BR 

PUTAD 

.ENDC 

#DF.PDE,$DFLAG 

56$ 

RO 

57$ 

RO 

60$: 

MOV 

(SP)+,R5 

.IF  DF 
8IC 

R$$MPL 
#DF.PDE,$DFLAG 

.ENDC 

RETURN 

Page  7-2 

;  READ  NEXT  BLOCK  DESCRIPTOR 


PROCESS  SPACE  OR  KB  DEALLOCATION  ? 

IF  YES  -  BRANCH 

POSSIBLE  D-SPACE  READ 

CONTINUE 

PROCESS  SPACE  READ 


CALCULATE  SIZE  OF  AGGLOMERATED  BLOCK 
SET  SIZE  OF  BLOCK  BEING  RELEASED 


;  WRITE  UPDATED  BLOCK  DESCRIPTOR 


PROCESS  SPACE  OR  KB  POOL  READ  ? 

IF  YES  -  BRANCH 

POSSIBLE  D-SPACE  READ 

CONTINUE 

READ  FROM  PROCESS  SPACE 


RESTORE  R5 

CLEAR  PROCESS  SPACE  FLAG 


;CMP01] 

;[MPOn 
;[MP01] 
;CMPOn 
;CHP01] 
;[WP01] 
;[MP01] 
;[MP01] 


; CMP01 D 

; CMP01 ] 

;[MP01] 
;[MP01] 
; [MPOl ] 
;[MPOi: 
;[MP01] 


;[MP01] 
;CMP01] 

; [MP01 ] 
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111 

112 

113 

1U 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

13A 

135 

136 

137 

138 

139 

KO 

U1 

142 

143 

144 

145 

146 

147  000000 

148  000004 

149  000006 

150  000010 

151  000030 

152  000034 

153  000036 

154  000040 

155  000042 

156  000046 

157  000050 

158  00005.. 
159 

160 
161 

162  000056 

163  000062 

164  000066 
165 

166 
167 


.SBTTL  .AMEM  -  ALLOCATE  VIRTUAL  MEMORV  IN  NTPOOL 

.AMEM  -  SUBROUTINE  TO  ALLOCATE  A  CONTIGUOUS  BLOCK  OF  MEMORY 
FROM  PARTITION. 


INPUTS: 


R4 
R5 


CURRENT  VALUE  OF  SOBIAS 

NUMBER  OF  32  WORD  BLOCKS  REQUIRED 


OUTPUTS: 


C  BIT   SET  IF  NO  MEMORY  ALLOCATED 

CLEAR  IF  MEMORY  ALLOCATED 
R4  -    NEW  VALUE  OF  SOBIAS 

R5  -    BIAS  OF  MEMORY  ALLOCATED,  IF  ALLOCATION  SUCCEEDS 
R0,R1,R2  ARE  DESTROYED 


NOTE: 


THE  VALUE  OF  SOBIAS  RETURNED  IN  R4  MUST  BE  UPDATED  IN 
IT'S  GLOBAL  STORAGE  LOCATION. 


REGISTER  USAGE: 

RO  - 

R1  - 

R4  - 

R5  - 


BUFFER   FOR  ADJUSTED   HOLE   SIZE 

BIAS  OF    PREVIOUS   HOLE 

BUFFER   FOR  BIAS   OF    NEXT   HOLE 

SIZE    (IN   32-WD  BLKS)    OF    SPACE    REOUIRED 


010467     OOOOOOG 

000261 

001470 

016700     000002G 

160500 

103414 

001406 

016746     OOOOOOG 

060016 

010067  000002G 

000441 


016746  OOOOOOG 
016704  OOOOOOG 
000434 


.AMEM: 


.MCALL 
.ENASL 

MOV 

SEC 

BEO 

GETAD 

MOV 

SUB 

BLO 

BEQ 

MOV 

ADD 

MOV 

BR 


GETAD,PUTAD,ERMSG$,ERBLKS,ERRPTS,ASL$ 
LC 


R4,$R8LCK 

70S 

#0,*4 

S8FR*-2,R0 

R5,R0 

40i 

30$ 

$RBLCK,-(SP) 

R0,(SP) 

R0,SBFR+2 

60i 


;  DELETE  HOLE  FROM  LIST 
30$: 


MOV 
MOV 
BR 


SRBLCK,- 

$BFR,R4 

60$ 


(SP) 


MAP  TO  LISTHEAD  HOLE 

ASSUME  NO  FIRST  HOLE 

NO  FIRST  HOLE 

READ  IN  LISTHEAD  DESCRIPTOR 

LOAD  RO  WITH  THIS  HOLE  SIZE 

SUBTRACT  DESIRED  HOLE  SIZE 

HOLE  TOO  SMALL 

HOLE  JUST  RIGHT 

PUSH  CURRENT  BIAS  ON  STACK 

ALLOCATE  FROM  TOP  OF  FREE  SPACE 

BASE  OF  ADJUSTED  (SHORTENED)  HOLE. 

RETURN 


SET  BIAS  OF  ALLOCATED  SPACE  ON  STACK 
NEXT  HOLE  POINTER  IS  NEW  $QBIAS  VALUE 
RETURN 


SPACE  NOT  FOUND  IN  FIRST  HOLE  —  CHECK  REMAINING  HOLES  (IF  ANY) 


H  13 


VAL22  -  VNP  BLOCK  ALLOCATION  RO  MACRO  V05.03b  Saturday  29-Jun-85  02:12  Page  6-1 


VBIO  -  VNP  BLOCK  I/O  ROUTINES   MAtRO  V05.03b  Saturday  29-Jun-85  02:12  Page  9 


G  14 

02:12 


17^ 
175 
176 
177 
178 
179 
180 
181 
182 
183 
18i 
185 
186 
187 
188 
189 
190 
191 
192 
193 
19A 


000220 

000220  010067  000026' 

00022A 

000232  10340A 

00023A  105767  O000'i2' 

0002A0  100001 

0002A2  000261 

00024^ 

000001 


$READ  -  READ  A  LOGICAL  BLOCK 

INPUTS: 

RO=BUFFER  ADDRESS 
$LLEN=8UFfER  LENGTH 
SLBN=LOGICAL  BLOCK  NUMBER 

OUTPUTS: 

C-BIT=SUCCESS/FA1LURE 

IrEAD:: 


10$: 


MOV 

RO.SLBUF 

01R$ 

*L8NDPB 

BCS 

10$ 

TSTB 

$JOSB 

BPL 

10$ 

SEC 

RETURN 

SET  BUFFER  ADDRESS 
READ  LOGICAL  BLOCK 
IF  CS,  DPB  ERROR 
WAS  I/O  SUCCESSFUL? 
IF  PL,  YES 
INDICATE  FAILURE 


(CLEARS  C-BIT) 


.END 


H  H 
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H  15 

VCEAL  -  VNP  ALLOCATION/OEALLOCA  MACRO  V05.03b  Saturday  29-Jun-85  02:15  Page  4 


VCEAL   -   VNP  ALLOCATION/DEALLOCA  MACRO  V05.03b   Saturday  ?9-Jun-85 
SAU18   -   ALLOCATE    FROM  UMR   NETWORK   POOL 


V:^ 


5  Page  i? 


1,29 
A30 
431 
432 
433 
434 
435 
4  56 
437 
438 
439 
440 
441 
442 
443 
444 

445  001306 

446  001306 

447  001306 

448  001314 
449 

450  001316 

451  001522 

452  001524 

453  001526 

454  001550 

455  001554 

456  001540 

457  001342 

458  001346 

459  00135? 

460  001556 

461  001560 

462  001364 
465  001566 
464  001372 
465 

466 


$[)EA22  -  DE-ALLOCATE  OOUBLEWORD  ADDRESSABLE  STORAGE  (  BUFFER  POOL  ) 

INPUTS: 

RO  -  BIAS  OF  BASE  OF  BUFFER  TO  BE  RETURNED 

R1  -  BLOCK  SIZE  (MAPPED)  OR  BVTE  SIZE  (UNMAPPED)  OF  BUFFER 

SQBIAS  -  BIAS  OF  BASE  OF  NEXT  FREE  BUFFER 

OUTPUTS: 

SQBIAS  -  BIAS  OF  BASE  OF  NEXT  FREE  BUFFER 
ALL  REGISTERS  PRESERVED 


NOTE: 


032767 
001772 


010005 
010105 
010046 
016704 
026705 
101402 
016704 

026726 
101403 
010467 
000402 
010467 


OOOOOOG  OOOOOOG 


OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


IF  IMPROPER  VALUES  ARE  SUPPLIED  TO  THIS  ROUTINE,  IT  WILL 
PROBABLY  RESULT  IN  THE  CORRUPTION  OF  THE  OPERATING  SYSTEM. 


;  IS  COMEXFL  LOADED  ? 

;  NO,  THEN  VNP  ALLOCATIONS  FAIL 

SAVE  ALL  REGISTERS 

COPf  BUFFER  BIAS 

COPY  BLOCK  COUNT 

SAVE  BIAS  FOR  LATER 

ASSUME  MAPPED  AREA 

IS  ALLOCATION  FROM  MAPPED  AREA  ? 

IF  LOS,  YES 

ELSE  USE  NON-MAPPED  POINTER 

DE-ALLOCATE  BACK  TO  NETWORK  POOL 

WAS  ALLOCATION  FROM  MAPPED  AREA  ? 

IF  LOS,  YES 

UPDATE  NON-MAPPED  POINTER 


iDEA22: 

$DEA18: 

BIT 

*FE.CEX,$FMASK 

BEQ 

101$ 

CALL 

SSAVAL 

MOV 

R0,R5 

MOV 

R1,R5 

MOV 

RO,-(SP) 

MOV 

$Q8IAS,R4 

CMP 

$QSTRT,R5 

BLOS 

2$ 

MOV 

$N81AS,R4 

2$: 

CALL 

.DMEM 

CMP 

$OSTRT,(SP)t 

BLOS 

4$ 

MOV 

R4,$N81AS 

BN 

6$ 

4$: 

MOV 

R4,$08IAS 

6$: 

RETURN 

.DSABL 

LS8 

UPDATE  MAPPED  POINTER 
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121 
122 
123 
12A 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 

135  000000 

136  000000 

137  000006 

138  000010 

139  000012 

140  000016 

141  000022 

142  000026 

143  000032 

144  000036 

145  000040 

146  000044 

147  000050 

148  000050 

149  000054 
150 

151 

152 

153 

154  000056 

155 

156 


SflLE  -  ".FILE"  ACTION  ROUTINE 

INPUTS: 

F2.FIL  SET  IF  VALID  FILE  NAME  SEEN  ON  THIS  LINE 
$FILEN=ASCIZ  FILE  NAME 

OUTPUTS: 

R0,R1,R2=DESTROYED 

SECONDARY  TEMPLATE  FILE  PROCESSED 


032767 
001422 
005000 
012701 
012702 


105777 
100407 
016746 


OOOOOOG  0000006 


OOOOOOG 
000000' 


$FILE: 


OOOOOOG 
OOOOOOG 


012667  OOOOOOG 


SFILEX: 
10$: 


.ENA8L 

LS8 

BIT 

#F2.FIL,$FLAG2 

BEQ 

10$ 

CLR 

RO 

MOV 

#$FILEN,R1 

MOV 

#TMPEXT,R2 

CALL 

SAZFS 

CALL 

$CLQUE 

TSTB 

aSCLIOS 

BMI 

101$ 

MOV 

$VALUE,-(SP) 

CALLR 

STMFIX 

MOV 

(SP)+,$VALUE 

RETURN 


ERROR  CONDITIONS 
101$:   EMSG$R  17 
.DSA8L  LS8 


WAS  VALID  FILE  NAME  SEEN? 
IF  EQ,  NO 

SETUP  ASCIZ  FILE  SPEC 
FOR  [131, 5XJFILENAME.DAT 


TRY  TO  OPEN  SECONDARY  TEMPLATE 

SUCCESS? 

IF  MI,  NO 

SAVE  EXPRESSION  VALUE 

PROCESS  SECONDARY  TEMPLATE 

OVERLAY  RETURN  ADDRESS 

RESTORE  EXPRESSION  VALUE 


;  SECONDARY  TEMPLATE  NOT  FOUND 
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^98 
(.99 
500 
501 
502 
503 
50^ 
505 
506 
507 
508 
509 
510 
511 
512 
513 


SVFMUX 
INPUTS: 


VERIFY  MULTIPLEXED  LINE 


NONE 

OUTPUTS: 

ERROR  UNLESS  MULTIPLEXED  LINE 


001 23A 
001 23A 
0012^2 
001 2AA 
001252 


032"'67 
001003 


OOOOOOG  OOOOOOG 


SVFMUX: 


10$: 


BIT 
BNE 
EMSGS 
RETURN 


#FL.MUX,$FLAGS 

10$ 

81 


MUX  LINE? 

IF  NE,  YES 

NOT  MULTIPLEXED  LINE 
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520  000654  116722     OOOOOOG  11$: 

321   000660  116712     000001G 

322 

323  00066A  005767  OOOOOOG 

324  000670  100A04 

326  000672  062767  000004  OOOOOOG 

327  000700  000403 
328 

329  000702  062767  000002  OOOOOOG  12$: 

330  000710  20$: 
331 

332  ; 

333  ;    ERROR  CONDITION 
334 

335  000712  ALLERR:  EMSG$R  26 


Move 

MOVB 

$CVAL,(R2)t 
$CVAlt1,(R2) 

;  STORE  COUNT  (FOR  CLEANUP 

T3T 
BMI 

.MGMGE 
12$ 

;  MEMORY  MANAGEMENT  SYSTEM 
;  NO 

ADD 
BR 

#4,$SIZE 
20i 

;  ADJUST  DATA  BASE  SIZE 

ADD 
RETURN 

#2,$SIZE 

;  ADJUST  DATA  BASE  SIZE 

RESOURCE  ALLOCATION  FAILURE 
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100 
101 

+ 
SABFI 

-  ACCESS  BINARY/LIBRARY 

FILE  ACTION  ROUTINE 

102 
103 

INPUTS: 

104 
105 
106 

$FJLEN= 

■BINARY  FILE  NAME 

OUTPUTS: 

107 

S8FALL= 

:ALLOCATION  SIZE 

IN  32.  WORD  BLOCKS 

108 

$BFL8N= 

^LOGICAL  BLOCK  NUMBER 

109 

SBFPTR^ 

=8INARY  BUFFER  POINTER 

110 

SBFXFR- 

=TRANSFER  SIZE  IN 

BYTES 

111 

F2.FJL 

CLEARED  IF  ANY  ERROR  OCCURS 

112 

113  000000 

;ABFI:: 

114  000000 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#F2.FIL,$FLAG2 

;  WAS  VALID  FILE  NAME  SEEN? 

115  000006 

001447 

BEQ 

20$ 

;  IF  EQ,  NO 

117  000010 

005767 

OOOOOOG 

TST 

.MGMGE 

;  MEMORY  MANAGEMENT  SYSTEM  ? 

118  000014 

119 

120  000016 

100406 

BMI 

4$ 

;  NO 

012767 

OOOOOOG 

OOOOOOG 

MOV 

#.8aseb,$value 
mapbytJcapr 

;  SET  DEFAULT  MAPPING 

121  000024 

122 

123  000032 

124 

125  000036 

116767 

000354- 

OOOOOOG 

MOVE 

;  AND  DEFAULT  APR  NUMBER 

4$: 

CALL 

SVFLVI 

;  MAKE  SURE  IT'S  THE  PRIMARY  TEMPL 

005767 

OOOOOOG 

TST 

.MGMGE 

;  MEMORY  MANAGEMENT  SYSTEM  ? 

126  000042 

127 

128  000044 

100403 

SHI 

6$ 

;  NO 

CALL 

$RQ7 

;  REQUEST  BINARY  BUFFER 

129  000050 

130 

131  000052 

132 

133  000056 

000402 

BR 

8$ 

5$: 

CALL 

$RQ5 

;  DITTO 

103420 

8$: 

BCS 

15$ 

;  IF  CS,  NO  ACCESS 

134  00006C 

010267 

OOOOOOG 

MOV 

R2,$8FPTR 

;  SAVE  BUFFER  POINTER 

135  000064 

005067 

OOOOOOG 

CLR 

SBFALL 

;  NO  FILE  SIZE  YET 

136  000070 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.CHA,$FLAGS 

;  MUX  CHARACTERISTICS  UPDATE  ONLY 

137  000076 

001013 

BNE 

20$ 

;  YES  .. 

138  000100 

CALL 

BN.OPN 

;  OPEN  BINARY  FILE,  GET  ATTRIBUTES 

139  000104 

103405 

BCS 

15$ 

;  IF  CS,  FAILURE 

140  000106 

CALL 

BN.LBL 

;  PROCESS  LABEL  BLOCK 

141  000112 

103005 

BCC 

20$ 

;  IF  CC,  SUCCESS 

142  000114 

10$: 

CALL 

SCLDEQ 

;  CLOSE  BINARY  FILE 

143  000120 

042767 

OOOOOOG 

OOOOOOG 

15$: 

BIC 

#F2.FIL,$FLAG2 

;  CLEAR  VALID  FILE  NAME  FLAG 

144  000126 

20$: 

RETURN 

VACS 
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108 
109 
110 
111 
112 
113 
1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 


SLIBRI 


'.LIBR"  OPERAND  1  ACTION  ROUTINE 


THIS  ROUTINE  IS  CALLED  TO  LOOK  FOR  AN  EXISTING  LIBRARY  WHOSE  NAME  MATCHES 
THE  FILE  NAME  FROM  THE  TEMPLATE  LINE.  IF  NO  MATCH  IS  FOUND,  THE  TPARS 
TRANSITION  IS  REJECTED. 

INPUTS: 

.PSTPT=TPARS   STRING  POINTER 
.PSTCN=TPARS   COUNT 

OUTPUTS: 

F2.LBR  SET  IF  A  HATCH  IS  FOUND 
*LSIAS=LI8ftARY  DESCRIPTOR  BIAS  (MAPPED  ONLY) 
$LBADR=LIBRARY  DESCRIPTOR  ADDRESS  OR  0 


000000 
000000 


032767 
001513 
016700 
012701 
016702 


112021 


126  000006 

127  000010 

128  OOOOU 

129  000020 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 

143  000024 
144 
145 

146  000026 
147 
148 
149 
150 
151 

152  000032 

153  000036 

154  000042 

155  000044 

156  000050 

157  000052 

158  000054 

159  000060 

160  000064  010167 

161  000070 

162  000074 

163  000100 

164  000104 


OOOOOOG  OOOOOOG 

OOOOOOG 
000001  ' 
OOOOOOG 


klBRl: 


012702 
166702 
001404 
112721 
005302 
001374 
012700 


010167 
010167 


oooon 

OOOOOOG 
000040 


000001 ' 
OOOOOOG 
000002G 
000004G 


BIT 

#F2.FIL,$FLAG2  ; 

BEQ 

65$ 

MOV 

.PSTPT.RO 

MOV 

#ASCII,R1 

MOV 

.PSTCN,R2 

.IF  DF 

R$$MPL 

SAVRG 

<R3,R2> 

MOV 

#$LIBNM,R3 

MOV 

#10.,R2        ; 

1$: 

CLRB 

(R3)+         ; 

SOB 

R2,l$ 

<R2>          ; 

RESRG 

MOV 

#$L18NM,R3 

5$: 

MOVB 
.IFTF 

(R0),(R3)t 

10$: 

MOVB 
.IFF 

(RO  +  .CRD*- 

SOB 

R2,10$         ; 

.IFT 

SOB 

R2,5$ 

^ESRG 

<R3> 

.ENDC 

MOV 

#9.,R2 

SUB 

.PSTCN,R2 

BEQ 

30$           ; 

20$: 

MOVB 

#'  ,(R1)t 

DEC 

R2 

BNE 

20$ 

^0$: 

MOV 

#ASCII,RO 

CALL 

$CAT5 

MOV 

R1,$FNR50       ; 

CALL 

$CAT5 

MOV 

R1,$FNR50t2 

CALL 

$CAT5 

MOV 

Rl,$FNR50+4 

WAS  VALID  FILE  NAME  SEEN? 

IF  EQ,  NO 

GET  TPARS  POINTER 

LOCAL  DATA  ADDRESS 

AND  TPARS  LENGTH 


SAVE  REGS 

GET  BUFFER  ADDRESS 
GET  BUFFER  SIZE 
SPACE  OUT  BUFFER 


RESTORE  .PSTCN 
GET  BUFFER  ADDRESS 

COPY  FILE  NAME 


COPY  FILE  NAME 


RESTORE  REG 

BLANK  FILL  OUT  TO  9  CHARACTERS 
IF  EQ.'nAME  WAS  9  !  ONG 

CONVERT  FILE  NAME  TO  RAD50 
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MACRO  CROSS  REFERENCE  CREF   OA.OO 
MACRO  NAME      REFERENCES 

CALL          8-159     8-161     8-163  8-170     8-172     8-176     8-179     8-181     8-183     ?:185 

'-'-'-          8-87     8-96     8-201  8-203     10-260    10-261     11-284    13-324     13-332    13-333 

13-336    14-366    14-374  14-375    14-378    15-396    16-414 

EMSG$         #5-58      11-284     13-332  14-374     15-396     16-414 

NTLERS        #5-58      7-97      7-98  7-99      7-100 

RETURN        *8-207     9-248     10-265  11-285    12-298    13-339    14-381     15-397    16-415 
SAVRG          #5-58 
SOB            8-146 
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CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

BASE 

0O0AO2 

R 

6-126 

#10-234 

FL.CHA 

=   ****** 

GX 

6-109 

11-267 

FMT2 

000517 

RG 

5-79 

5-80 

#5-87 

5-89 

FMT6 

000276 

RG 

5-76 

5-77 

5-78 

#5-86 

5-89 

FM.2 

=  000000 

#5-79 

#5-80 

FM.6 

=  000000 

#5-76 

#5-77 

#5-78 

F1.UMR 

~      ****** 

GX 

7-157 

F2.FIL 

=      ****** 

GX 

6-107 

F2.LBR 

=:  ****** 

GX 

6-112 

12-284 

LBLK 

000000 

RG 

#5-71 

♦6-111 

6-120 

9-214 

9-220 

LB. APR 

=  ****** 

GX 

10-237 

LB. USE 

~    ****** 

GX 

»11-271 

LINK 

000340 

R 

6-122 

#9-212 

MAX1A 

000304 

R 

6-127 

7-154 

#8-190 

REP6 

000636 

D 

5-76 

#13-308 

S$$BAS 

=      ****** 

5-76 
5-80 

5-76 

5-77 

5-77 

5-78 

USE 

OOOAAA 

R 

6-129 

#11-253 

XFER 

000120 

R 

6-118 

#7-143 

$ALB 

~   ****** 

GX 

6-116 

SALLIB 

=   ****** 

GX 

7-161 

$ALN18 

=   ****** 

GX 

7-159 

SBFALL 

=  ****** 

GX 

7-156 

7-174 

SBFBAS 

~   ****** 

GX 

7-U5 

7-147 

7-151 

♦10-237 

10-238 

SBFPTR 

=   ****** 

GX 

11-253 

tCAPR 

=  ****** 

GX 

10-238 

13-322 

SCLDEQ 

r  ****** 

GX 

12-286 

$DEA18 

-  ****** 

GX 

7-175 

12-293 

SELINE 

-  ****** 

GX 

5-76 

5-77 

5-78 

5-79 

5-80 

$ERRY2 

000002 

R 

#5-76 

7-149 

10-240 

$ERRY3 

000076 

R 

#5-78 

7-171 

SERRYA 

000152 

R 

#5-79 

7-173 

SERRY6 

000220 

R 

#5-80 

8-201 

$ERRY7 

000036 

R 

#5-77 

7-153 

SFILEN 

=      ****** 

GX 

13-311 

SFLAGS 

-   ****** 

GX 

6-109 

11-267 

SFLAGI 

=   ****** 

GX 

7-157 

$FLAG2 

-   ****** 

GX 

6-107 

6-112 

12-284 

SGETLB 

-   ****** 

GX 

9-217 

10-235 

11-269 

SLBADR 

-      ****** 

GX 

6-1U 

10-236 

n-258 

11-259 

11-270 

SLBERR 

000570 

RG 

7-170 

7-172 

7-176 

8-200 

#12-283 

SLBIAS 

-   ****** 

GX 

10-234 

11-255 

11-257 

SLBXFR 

-   ****** 

GX 

7-163 

SLIBR 

000000 

RG 

#6-106 

$NALL 

=    ****** 

GX 

8-190 

SNLIB 

3   ****** 

GX 

8-191 

♦11-273 

$NTLHB 

=    ****** 

GX 

9-212 

♦9-214 

SPUTLB 

-  ****** 

GX 

9-221 

11-272 

tREP.C 

z:     ****** 

GX 

5-77 

5-79 

5-80 

SREP.P 

r   ****** 

GX 

5-78 

$SI7E 

-   ****** 

GX 

*1 1-264 

♦11-266 

$TERR 

-   ****** 

GX 

5-78 

5-79 

5-80 

12-287 


5-78 


5-79 


5-79 


5-80 
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000000 


55 
56 
57 
58 
59 
60 
61 
62 
63 
6'. 
65 
66 

67  000000 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 

92  000000 
93 
94 
95 
96 

97  000002 
98 
99 
100 
101  000000 


*** 
LIBRARY  MACROS 

.MCALL  ASR$,EHSG$,NTLER$,CEACC$,PUTAD,SAVRG,RESRG,VECDF$ 
.ENA8L  LC 


VECDFS 


;    VECTOR  BLOCK  OffSETS 


*** 
LOCAL  DATA 


.PSEC7      DATA.D 


.IF    DF      R$$MPL 


LIBTAB: 
LI8LEN: 


.ASCII 
.ASCII 


/SXXXVT/ 
/SXXXVL/ 


LIBRARY  VECTOR  TABLE  START 
LIBRARY  VECTOR  TABLE  LENGTH 

SYMBOL  TABLE  EXTENSION 

SYMBOL  CONTROL  BLOCK  FOR  SXXXVT 

SYMBOL  CONTROL  BLOCK  FOR  SXXXVL 


STBEXT:  .ASCIZ  /STB/ 


LIBT8:  .WORD  LI8LN,0 

LIBTB5:  .BLKW  2 

TABVAL:  .WORD  0 

LI8LN:  .WORD  0,0 

LIBLN5:  .BLKW  2 

LENVAL:  .WORD  0 

.ENDC 


LIBRARY  ADDRESS  WITHIN  NTPOOL 
BFADR:   .BLKW   1 

ERROR  MESSAGE  (FORMAT  STRING  ADDRESS  DEFINED  GLOBALLY  IN  "TMPAC7") 
NTLERS  ,Y5,6,$TERR,$CUR.N,$ELINE,<Read  failure  (  -»♦*.  ).> 
.EVEN 
.PSECT 
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182  000156 

CALL 

$MUL 

SEE  HOW  MUCH  SPACE  WE  NEED 

183  000162 

010167 

0000006 

MOV 

R1,$ICBSZ 

WILL  NEED  LATER  FOR  WRITE  TO  IMAGE 

184 
185 

.IF  DF 

R$$MPL 

[MP01] 

186 

ADD 

#4,$ICBSZ 

INCLUDE  LINK  POINTER  AND  COUNT  FILED 

CMP01] 

187 

MOV 

$ICBSZ,R1 

UPDATE  ALLOCATION  SIZE 

[MP01J 

188 
189 

CALL 

$ALICB 

ALLOCATE  KB 

[MP01] 

190 

BR 

25$ 

CONTINUE 

CMP01] 

191 

.ENDC 

[MP01] 

192  000166 

20$: 

CALL 

$ALL16 

ALLOCATE  SINGLEWORD  STORAGE 

193  000172 

103450 

BCS 

112$ 

IF  CS,  FAILURE 

194 
195 

.IF  DF 

R$$MPL 

CMPOI] 

196 

GETRV 

RO,$ICBSZ 
<R0> 

READ  KB 

CMP01] 

197 

SAVRG 

SAVE  REG 

[MPOl] 

198 

MOV 

#$BFR,RO 

GET  BUFFER  ADDRESS 

[MPOl] 

199 

MOVB 

$NVECT,(RO)+ 

SET  UP  VECTOR  COUNT 

CMP01] 

200 

MOVE 

$JC8LN,(R0)+ 

SET  UP  KB  SIZE 

CMPOn 

201 

CLR 

(RO) 

CLEAR  LINK  WORD 

[MPOl] 

202 

RESRG 

<R0> 

RESTORE  REG 

[MPOl] 

203 

PUTRC 

UPDATE  IMAGE 

•[MPOl] 

204 

ADD 

#2,R0 

POINT  TO  BEGINNING  OF  KB 

•[MPOl] 

205 
206 

.ENDC 

•[MPOl] 

207 
208 
209  000174 

010067 

OOOOOOG 

25$: 

MOV 

RO,$ICBAD 

STORE  ALLOCATION  ADDRESS 

210  000200 

010200 

MOV 

R2.R0 
40i 

LINE  TALE  ADDRESS 

211  000202 

212 

213  000204 

000405 

BR 

30$: 

CALL 

$ALL16 

ALLOCATE  SINGLEWORD  STORAGE 

214  000210 

103436 

BCS 

111$ 

IF  CS,  FAILURE 

215  000212 

010067 

OOOOOOG 

35$: 

MOV 

RO,$ICBAD 

STORE  LINE  TABLE  ADDRESS 

216  000216 

010067 

OOOOOOG 

40$: 

MOV 

RO,$SADDR 

SAVE  LINE  TABLE  ADDRESS 

217  000222 

010067 

OOOOOOG 

MOV 

RO,$TADDR 

SAVE  LINE  TABLE  ADDRESS  (  DYNAMIC  ) 

218  000226 

012767 

OOOOOOG 

OOOOOOG 

MOV 

#$TMPBF,$ADDR 

SET  INTERMEDIATE  BUFFER  ADDRESS 

219  000234 

010067 

OOOOOOG 

MOV 

RO,$LINK 

COMPUTE  RELOCATION  BIAS  FROM  #$TMPBF 

220  000240 

162767 

OOOOOOG 

OOOOOOG 

SUB 

#$TMPBF,$LINK 

TO  SCOM  LINE  TABLE 

221  000246 

CALL 

USA 

CALCULATE  UNLOAD  BLOCK  ADDRESS 

222  000252 

100$: 

RETURM 

223 

224 
225 
226 
227  000254 

;  ERROF 

CONDITIONS 

012767 

177777 

OOOOOOG 

i01$: 

MOV 

#-1,$SADDR 

■  SET  ADDRESS  FOR  EMPTY  LLC  DATA  BASE 

228  000262 

012767 

OOOOOOG 

OOOOOOG 

MOV 

#$TMPBF,$AODR 

•  SET  INTERMEDIATE  BUFFER  ADDRESS 

229  000270 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.LLC,$fLAGS 

■  IS  THIS  AN  LLC? 

230  000276 

001365 

BNE 

100$ 

■  IF  NE,  YES 

231  000300 

EMSG$R 

33 

■  LINE  TABLE  EMPTY 

232  000306 

111$: 

EMSG$R 

34 

;  LINE  TABLE  ALLOCATION  FAILURE 

235  000314 

112$: 

EMSG$R 

88 

;  CTB  ALOCATION  FAILURE 

234 

235 

I  10 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


CPU 

FL.CHA 

FL.DDM 

FL.DLC 

FL.LLC 

FMT1 

FMT3 

FM.l 

FM.3 

F.NRBD 

F.RSIZ 

F.URBD 

FLINT 


INI 
F1.IN2 
F1.IN3 
F1.LFI 
F1.LFL 
F1.MPL 
F1.MPT 
GETIND 
I  TAB 
KRBAL 
K.CSR 
K.PRl 
K.VCT 
L.CTL 
L.DDM 
L.KRBA 
POVX 
R$$MPL 
SYSFDB 
S$$BAS 


UBA 

UBLTA 

ZF.PSE 

Z.FLG 

$ADDR 

SADRX 

SADRZ 

SALLPR 

$ALL15 

$ALL16 

$ALN18 

$BFR 

$DEA16 
$ERR33 
$ERR34 
$ERR35 


000010 

R 

****** 

(,X 

****** 

GX 

****** 

GX 

****** 

GX 

0005A2 
0005A5 
OOOOOO 
OOOOOO 

R 
R 

****** 

GX 

****** 

GX 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

001332 
000002 
000322 
000002 
OOOOOO 
000001 

R 
R 
R 

****** 

GX 

****** 

GX 

****** 

GX 

OOOOOO 

R 

*t**  *  *■ 
****** 
****** 


GX 


000662 
OOUOO 

R 
R 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

*♦♦*** 

GX 

****** 

GX 

*  ***** 

GX 

GX 

****** 

GX 

****** 

GX 

****** 

C00012 
OOOOAA 
0001 K 

GX 
R 
R 
R 

REFERENCES 

#5-93 

6-151 

6-153 

6-168 

6-229 

5-99 

5-102 
#5-99 
#5-102 
♦9-A52 
»9-A53 
*9-451 

10-48A 

5-86 

5-87 

5-88 

10-497 

10-A95 

10-491 

10-493 

11-527 
#5-86 

6-159 
♦9-395 
♦9-390 
♦9-394 

9-400 

9-399 
■.y-426 
#5-81 

5-60 
♦9-451 

5-99 

5-104 

5-109 

6-221 

11-574 

6-157 

6-157 
♦6-218 

11-545 

11-544 

6-170 

9-379 

6-192 

11-592 

9-384 
♦11-622 

11-633 
#5-99 
#5-100 
#5-102 


6-213 

9-451 
11-625 

6-231 
6-232 

10-504 


6-174 


5-106 

5-104 

#5-106 

#5-104 


6-168 


5-100 

5-103 

#5-100 

#5-103 

♦11-591 


♦11-549  '11-590 

5-87  5-88 

5-88  10-488 

10-488 


#12-648 
10-489 
#9-377 


9-415 
9-413 

♦  12-660 
5-68 

♦9-452 
5-99 
5-105 
5-109 

#11-527 
11-606 
6-177 
6-177 

♦6-228 
11-581 
11-582 


13-669 
6-185 
•9-453 
5-100 
5-105 


#13-669 
10-480 
10-480 

11-596 
11-595 


9-452 
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10-477 


5-108 

5-105 

#5-108 

#5-105 


♦11-597 
10-488 


6-195 

♦11-549 

5-100 

5-106 


11-618 
11-616 


11-590 


5-109 

5-107 

#5-109 

#5-107 


♦11-615 


#5-116 
#5-118 


♦11-625 


7-248 

♦11-590 

5-102 

5-106 


9-386 

9-402 

9-418 

9-^5L 

♦11-591 

♦11-597 

♦11-615 

♦11-625 

5-102 

5-103 

5-103 

5-104 

5-107 

5-107 

5-108 

5-108 

11-591 


•11-607 


11-615 


11-618 


11-620 
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DEACB  -  DEALLOCATE  FROM  DSR 

3A6 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 
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.IF  DF  R$$MPL 

.S8TTL   .ALSPK  -  ALLOCATE  SECONDARy  POOL 

.ALSPK  -  ALLOCATE  SECONDARY  POOL 

INPUTS: 

NONE 

OUTPUTS: 

RO  -  BLOCK  BIAS  OF  ALLOCATED  I/O  PACKET 


.ALSPK: :SAVRG 
MOV 


10$: 


20$: 


<R5,R4,R3>     ;  SAVE  REG'S 
#<I.LGTHt77>/100,R1  ;  SET  SIZE  TOO  ALLOCATE 

;  ASSUME  ALLOCATION  FAILURE 

50$  ;  IF  NO  MORE  FREE  BLOCKS  -  BRANCH 

#$POLHD,R0      ;  GET  ADDRESS  OF  LISTHEAD 

R0,R4  ;  SAVE  LISTHEAD 

(RO),$SFR       ;  PREPARE  TO  ENTER  LOOP 

R0,R2         ;  SAVE  ADDRESS  OF  CURRENT  BLOCK 

$8FR+?  Ri'IZ    ;  SAVE  SIZE  OF  PREVIOUS  BLOCK 

$8FR,R         ;  GET  ADDRESS  OF  NEXT  BLOCK 

10$  ;  IF  Efl  END  OF  FREE  BLOCK  CHAIN 


SEC 
BEQ 
MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
BEQ 

GETAD   #120000, (P4,$BFR  ;  READ  FIRST  TWO  WORDS  OF  NEXT  BLOCK 


CMP 
BHI 

SWTCHI 
GETRV 

sua 

SWTCHO 
PUTRC 
SWTCHI 
SWTCHO 

SUB 
BNE 
CMP 
BNE 
MOV 
BR 


R1,$8FR+2 
20$ 

#SECTMP 
.SECFR,*2 
R1,SECTMP 
i»SECTMP 


Rl,$BFRt2 

30$ 

R2.R4 

25i 

$8FR,(R2) 

40$ 


BLOCK  BIG  ENOUGH? 
IF  HI  NO 

SET  BUFFER  ADDRESS 

READ  VALUE 

ADJUST  AMOUNT  OF  FREE  SECONr   V 

SET  BUFFER  ADDRESS 

WRITE  TO  IMAGE 

RESET  DEFAULT 


POOL 


CMPOn 

[HP01] 
[MP01] 
CMPOI] 
CHPOI] 
CMPOI J 
[MPOU 
CMPOI] 
CMPOI] 
CMPOI] 
CMPOI] 
CMPOI] 


; CMPOI] 
; CMPOI] 

; CMPOI] 
; CMPOI] 
; CMPOI] 
.-CMPOI] 
; CMPOI] 

;  CMPOI  ] 
; CMPOI] 
.•CMPOI] 
; CMPOI] 

; CMPOI] 

; CMPOI] 
;  CMPOI] 

; CMPOI : 
; CMPOI] 
; CMPOI ] 
; CMPOI] 
; CMPOI] 
; CMPOI  ] 
; CMPOI] 

REDUCE  SIZE  OF  FREE  BLOCK  ; CMPOI] 

IF  NE  MORE  LEFT  IN  BLOCK  ; CMPOI] 

IS  THIS  BEING  REWRITTEN  TO  THE  LISTHEAD  ? 
NO  ; CMPOI ] 

UPDATE  APPROPRIATE  LISTHEAD  ;CHP01] 

; CMPOI] 


SPECIAL  CASE  WHERE  ALLOCATE  BLOCK  IS  THE  SAME  SIZE  AS  THE  FREE  BLOCK   .-CMPOI] 


25$: 


MOV 

PUTAD 
BR 


SLSIZ,$BFRt2 

#120000, #4, R2 
50$ 


SET  SIZE  OF  CURRENT  BLOCK 
REMOVE  BLOCK  FROM  LIST 


.-CMPOI] 

; CMPOI] 
; CMPOI] 
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AMEM  -  ALLOCATE  VIRTUAL  MEMORY  IN  NTPOOL 


168  000070 

169  00007A 

170  000102 

171  00010A 

172  000106 

173  000112 

174  000116 

175  000120 

176  000122 

177  0001 2^. 

178  000130 

179  000132 

180  000136 
181 

182 
183 
18A  OOOUO 

185  OOOUA 

186  000150 

187  00015A 
188 

189 
190 

191  000160 

192  00016A 

193  000166 
19A  000170 
195 

196 


016701 
016767 
000261 
00U31 

016700 
160500 
103763 
001A06 
0167A6 
060016 
010067 
000A10 


0167A6 
016702 
010167 
010267 


0002A1 
012605 


OOOOOOG       40$; 
OOOOOOG  OOOOOOG 


000002G 


OOOOOOG 
000002G 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


MOV 

MOV 

SEC 

BED 

GETAD 

MOV 

sue 

BLO 
BEQ 
MOV 
ADD 
MOV 
BR 


$RBLCK,R1 
$8FR,$RBLCK 

70$ 

$8fR*2,R0 
R5,R0 

50$ 

$R8LCK,-(SP) 

RO.CSP) 

R0,$8FR+2 

60i 


Page  6-1 

SAVE  CURRENT  BIAS  INS  Rl  (  PREVIOUS  HOLE  ) 

LINK  UP 

ASSUME  NO  HOLE 

END  OF  CHAIN  ! 

READ  IN  NEXT  DESCRIPTOR 

LOAD  HOLE  SIZE  INTO  RO 

SUBTRACT  DESIRED  SPACE 

TOO  SMALL 

JUST  RIGHT 

PUSH  CURRENT  BIAS  ON  STACK 

ALLOCATE  FROM  TOP  OF  FREE  SPACE 

BASE  OF  ADJUSTED  (SHORTENED)  HOLE. 

RETURN  (  REWRITE  DESCRIPTOR  ) 


;  DELETE  EXACT  SIZE  HOLE  FROM  LIST 
50$: 


MOV 
MOV 
MOV 
MOV 


$RBLCK,-(SP) 
$eFR,R2 
R1,$RBLCK 
R2,$6FR 


SET  BIAS  OF  ALLOCATED  SPACE  ON  STACK 
SET  POINTER  TO  NEXT  HOLE  (IF  ANY)  IN 
PREVIOUS  HOLE. 
RETURN 


;  REWRITE  LAST  DESCRIPTOR  REFERENCED  AND  RETURN 
60$ 


70$: 


PUTAD 

CLC 

MOV     (SP)+,R5 

RETURN 


REWRITE  LAST  DESCRIPTOR 

INDICATE  SUCCESS 

RETURN  BIAS  OF  MEMORY  ALLOCATED 
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A$$CHK= 

000000 

G$$TSS= 

000000 

L$$11R= 

000000 

At$CPS= 

000000 

G$$TTK= 

000000 

M$$CR8= 

000124 

A$$PR1= 

000000 

G$$WRD= 

000000 

M$$CRX= 

000000 

A$tTRP= 

000000 

IO.RLB= 

»♦»«*»  Gx 

M$$FCS= 

000000 

C$$C<P: 

000000 

I$$RAR= 

000000 

M$$MGE= 

000000 

Ct$ORE= 

OOOAOO 

I$$RDN= 

000000 

M$$NET= 

9992S2 

C$$RSH= 

177564 

K$$CNT= 

177546 

M$$OVR= 

000000 

D$tBUG= 

1775U 

K$$CSR= 

177546 

N$$ACC= 

000001 

D$$1SK= 

000000 

K$$LDC= 

000000 

N$$SUf= 

000001 

D$$L11= 

000001 

K$$TPS= 

000074 

N$$LDV= 

000001 

D$$yNC= 

000000 

LBNDPB 

00001 2R 

002  N$$MCP= 

000001 

D$$YNM= 

000000 

LDSLP  = 

000000 

N$$MLL= 

000001 

E$$XPR= 

000000 

L$BHRB= 

«»»«»«  GX 

N$$M0V= 

000010 

F$$LVL= 

000001 

L$$ASG= 

000000 

N$$NCr= 

000001 

F.RSIZ= 

*♦♦***  6X 

L$$DRV= 

000000 

N$$PEM= 

000001 

G$STPP= 

000000 

L$$P11= 

000001 

.  ABS. 

000000 

000 

(RW,I,GBL,A8S,0VR) 

000246 

001 

(RW,I,LCL,REL,CON) 

DATA 

0OOOA6 

002 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

♦*♦  Assembler  statistics 

Work   f 

ile   reads 

0 

Work   t 

■i  le  writes 

C 

Size  of 

work  file 

94^/ 

Words 

(  37  Pages) 

Size  of 

core  pool 

U440  Words 

(  55  Pages) 

P$$P45= 

000000 

$BFR  = 

♦**«4*  GX 

P$$WRD= 

000000 

SCLOPE 

OOOOOORG 

Q$$0PT= 

000010 

$CLQST= 

»»«**♦  GX 

R$$DER= 

000000 

SIOSB 

000042RG 

UU2 

R$$K11= 

000001 

$LBN 

000034RG 

UU2 

R$$SND= 

000000 

$LBUF 

000026RG 

002 

R$$11M= 

000000 

$LLEN 

000030RG 

0U2 

STAT 

OOOOOOR 

002  $PUTAD= 

******  GX 

SYSFD8= 

»*♦**•  GX 

$RADDR= 

******  GX 

S$$URG= 

000000 

$RBLCK= 

******  GX 

S$$VSZ= 

007600 

SREAD 

000220RG 

r$$KMG= 

000000 

SREADX 

000060RG 

T$$MIN= 

000000 

$RLBL 

000026RG 

V$$CTR= 

001000 

$SAVVR= 

******  GX 

X$$DBT= 

000000 

.HGMGE= 

******  GX 

Operating  system:  RSX-11M/PLUS 
Sy'?VB!O.V2'!'!i32,i34ivBio/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,i:i30,10:RSXMCM/PA:l,[132,10]VBIO 


VBIO 


CREATED  BY  MACRO  ON  29-JUN-85  AT  02:12     PAGE  1 


I  U 


H  15 

VCEAL  -  VNP  ALLOCATION/DEALLOCA  MACRO  V05.03b  Saturday  29-Jun-85  02:13  Page  4 


1 

2 

5 

(, 

5 

6 

7 

8 

9 

10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
1,0 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE  VCEAL  -  VNP  ALLOCATION/DEALLOCATIOl■^l  ROUTINES 
.IDENT  /V05.00/ 

COPyRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECl  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  CORE  ALLOCATION/DE-ALLOCATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-IIM-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-IIM-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-llM/S   V4.2 
DECnet-llM-Plus   V3.0 
DECnet-Micro/RSX   VI. 0 
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A68 
469 

470 
A71 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
485 
484 
485 
486 
487 
488 
489 
490 
491 

492  001374 

493  001374 

494  001402 

495  001404 

496  001416 

497  001424 

498  001432 

499  001442 

500  001446 

501  001454 

502  001464 

503  001476 

504  001506 

505  001512 

506  001522 

507  001530 

508  001536 

509  001540 

510  001542 
511 

512  001544 

513 

514 


.SBTTL   $XLINK  -  LINK/UNLINK  BLOCK  IN  EXTENDED  POOL 

•*-$XLINK-LlNK/UNLINK  BLOCK  IN  EXTENDED  POOL 

THIS  ROUTINE  IS  CALLED  TO  LINK  OR  UNLINK  A  BLOCK  IN  A  LIST  THAT  MAY 
INCLUDE  ALLOCATIONS  FROM  EXTENDED  POOL. 


INPUTS; 


TO  LINK  BLOCK  INTO  LIST: 

MOV  X,-(SP)  ;  ADDRESS  Of  BLOCK  TO  BE  LINKED  INTO  LIST 
MOV  Y,-(SP)  ;  ADDRESS  OF  PREVIOUS  BLOCK  IN  LIST 
CALL  tXLINK 

TO  UNLINK  BLOCK  FROM  LIST: 

MOV  X,-(SP)  ;  ADDRESS  OF  PREVIOUS  BLOCK  IN  LIST 

MOV  Y,-(SP)  ;  ADDRESS  OF  BLOCK  TO  BE  UNLINKED  FROM  LIST 

CALL  SXLINK 


OUTPUTS: 

BLOCK  IS  LINKED/UNLINKED, 


012767  000004 
010046 


016746  176340 
016667  000010 


012667  176274 


012600 
012616 
012616 


000001 


OOOOOOG 


176332 


REGISTERS: 

NO  REGISTERS  ARE  MODIFIED 

LINK:: 

MOV 

#4,$RSI2E            ; 

MOV 

RO,-(SP) 

CEACCS 

4(SP),R0 

SWTCHI 

*L0C8UF 

SUTCHO 

#LOCBUF 

GETAD 

RO 

MOV 

L0C8UF,-(SP) 

MOV 

10(SP),LOCBUF 

PUTAD 

RO 

CEACC$ 

LOCSUF,RO 

GETAD 

RO 

MOV 

(SP)+,LOCBUF 

PUTAD 

RO 

SWTCHI 

SWTCHO 

MOV 

(SP)+,RO 

MOV 

(SP)+,(SP) 

MOV 

(SP)t,(SP) 

RETURN 

.END 

ADDRESSES  ARE  REMOVED  FROM  THE  STACK. 


READ  IN  4  BYTES 

SAVE  RO 

CONVERT  TO  MAPPED  ADDRESS 

USE  LOCBUF  AS  INPUT  BUFFER 

AND  OUTPUT  BUFFER 

READ  IN  LISTHEAD  FOR  BLOCK 

SAVE  ADDRESS  OF  NEXT  BLOCK  IN  LIST 

SET  NEW  LINK  WORD  INTO  BLOCK 

WRITE  BLOCK  WITH  UPDATED  LINK  WORD 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  LINK  WORD 

SET  NEW  LINK  WORD 

WRITE  UPDATED  LINK  WORD 

RESTORE  DEFAULT  INPUT 

AND  OUTPUT  BUFFERS 
RESTORE  RO 

CLEAN  OFF  STACK  (SAVING  RETURN 
...  ADDRESS) 
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158 

+ 

159 

SINTX  -  ".INT 

"  ACTION  ROUTINE, 

PART  2 

160 

161 

INPUTS: 

162 

$VALUE= 

ENTRY  POINT  ADDRESS 

163 

16A 

OUTPUTS: 

165 

RO,R1,R2=DESTROYED 

166 

- 

167 

168  00006A 

BINTX:: 

169  0'^0064 

CALL 

$RQ3 

REQUEST  BINARY  FILE 

170  0C.070 

103411 

BCS 

10$ 

IF  CS,  NO  ACCESS 

171  000072 

112722 

OOOOOOG 

MOVB 

#.INT,(R2)t 

STORE  FUNCTION  CODE 

172  000076 

11672: 

OOOOOOG 

Move 

SVALUE,(R2)t 

STORE  ENTRY  POINT  ADDRESS 

173  000102 

116712 

000001 G 

Move 

$VALUEt1,(R2) 

174  000106 

062767 

000016  OOOOOOG 

ADD 

#U.,$SIZE 

ADJUST  DATA  BASE  SIZE 

175  0001U 

10$:    RETURN 

176 

J    1 
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515 
516 
517 
518 
519 
520 
521 
522 
523 
52A 
525 
526 
527 

528  001254 

529  001254 

530  001260 

531  001262 

532  001266 

533  001270 

534  001276 

535  001300 

536  001304 

537  001310 

538  001312 

539  001320 

540  001322 

541  001324 

542  001330 
543 

544  001342 

545  001360 

546  001366 

547  001370 

548  001374 
549 

550 
551 
552 

553  001376 

554  001404 

555  001412 
556 


VFVCT  -  CHECK  VECTOR  AVAILABILITY 

INPUTS: 

R0=8IT  TO  BE  SET  IN  SFLAGI 

R1=BITS  WHICH  MUST  NOT  BE  SET  IN  SFLAGI 

R2=DISPLACEMENT  FROM  FIRST  VECTOR 
OUTPUTS: 

R0,R1,R2=DESTR0YFD 

F1.ERR  SET  IF  VECTOR  NOT  AVAILABLE 

SNVECT  INCREMENTED 


VFVCT: 


103445 
030167 
001043 
016762 
006302 
066702 
026702 
101435 
032767 
001023 
010200 
042700 


027067 
001011 
005267 


OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 
000077 

000004'  OOOOOOG 
OOOOOOG 


CALL 

BCS 

BIT 

BNE 

MOV 

ASL 

ADD 

CMP 

BLOS 

BIT 

BNE 

MOV 

BIC 

ASR$ 

GETRV 
CMP 
BNE 
5$:     INC 
10$:    RETURN 


SVFSPC 

10$ 

R1, SFLAGI 

111$ 

SSIZE,$VECT1(R2) 

R2 

SSVECT,R2 

$MXVCT,R2 

121$ 

#FL.CHA,SFLAGS 

5$ 

R2,R0 

#7?,R0 

5,ftO 

R2,#4 

aNSITAB(RO),$BFR 

131$ 

SNVECT 


ERROR  CONDITIONS 

1l1$:  EMSGSR  23 

121$:  EMSGSR  24 

131$:  EMSG$R  25 


MAKE  SURE  THIS  IS  THE  ONLY  OCCURANCE 

IF  CS,  IT  ISN'T 

ARE  ANY  ILLEGAL  BITS  SET? 

IF  NE,  YES 
;  STORE  CURRENT  DISPLACEMENT 

CONVERT  TO  A  DOUBLEWORD  INDEX 

GIVING  REAL  VECTOR  ADDRESS 

LEGAL  VECTOR? 

IF  LOS,  NO 

MUX  CHARACTER   ilCS  UPDATE  ONLY  ? 

YES  .. 

COPY  VECTOR  ADDRESS 

MAKE  IT  A  MULTIPLE  OF  100 

CONVERT  TO  A  WORD  INDEX 

BY  SHIFTING  RIGHT  5  PLACES 

READ  IN  VECTOR  IMAGE 
;  IS  VECTOR  IN  USE? 

IF  NE,  YES 

TALLY  NUMBER  OF  TIMES  CALLED 


INTERRUPT  LINKAGE  ERROR 
VECTOR  NOT  IN  SYSTEM 
VECTOR  NOT  AVAILABLE 
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175 

+ 

176 
177 
178 

REP2A 

-  REPLACE  PROCESS  TYPE  AND  SYMBOL  NAME 

INPUTS: 

179 

R3=F0RMAT  STRING  ADDRESS 

180 

R4=:FRR0R  MESSAGE  BUFFER  ADDRESS 

181 
182 
183 

ASYM= 

ASCII  SYMBOL  (6  CHARACTERS) 

OUTPUTS: 

18A 

RO.Rl 

=DESTR0YED 

185 

R3,R4 

^UPDATED 

186 

187  000210 

REP2A: 

CALL 

$REP.C 

REPLACE  PROCESS  NAME 

188  0002U 

112314 

10$: 

M0V8 

(R3)+,(R4) 

LOOK  FOR  SECOND  ASTERISK 

189  000216 

122724 

000052 

CMP8 

#'»,(R4)+ 

190  000222 

001374 

BNE 

10$ 

191  00022A 

112764 

000042 

177777 

MOVB 

#"',-1(R4) 

deposit'double  quote 

192  000232 

012700 

000000' 

MOV 

#ASYM,RO 

GET  ASCII  SYMBOL  ADDRESS 

193  000236 

012701 

000006 

MOV 

#6.R1 
(R0)+,(R4) 

MAXIMUM  OF  6  CHARACTERS 

194  0002A2 

112014 

20$: 

MOVB 

LOOK  FOR  FIRST  BLANK 

195  000244 

122724 

000040 

CMPB 

#•  ,(R4)+ 

. . . 

196  000250 

001403 

BEQ 

30$ 

197  000252 

005301 

DEC 

R1 

198  000254 

001372 

BNE 

20$ 

OR  6  NON-BLANKS 

199  000256 

005204 

INC 

R4 

•  NO  BLANK  TO  CLOBBER 

200  000260 

112764 

000042 

177777  30$: 

MOVB 

*"',-1(R4) 

■  STORE  ANOTHER  DOUBLE  QUOTE 

201  000266 

202 

203 

RETURN 

000001 

.END 

VAC3  -  VNP  TEMPLATE  ACTION  ROUT  MACRO  V05.03b  Saturday  29-Jun-85  (32:09  Page  7-1 


Symbol  table 


VACA  -  VNP  TEMPLATE  AlTION  ROUT  MACRO  V05.03b  Saturday  29-Jon-85  02:09  Page  10 


337 
338 
339 
3A0 
3A1 
3A2 
343 
34A 
345 
346 
347 

348  000720 

349  000720 

350  000724 

351  000730 

352  000732 

353  000734 

354  000742 

355  000744 

356  000750 

357  000754 

358  000756 

359  000762 

360  000764 

361  000766 

362  000772 

363  000776 

364  001002 

365  001004 

366  001010 

367  001014 

368  001020 

369  001022 

370  001024 

371  001026 

372  001032 

373  001036 
37',  001044 


SSCOM  -  ".POOL"  OR  ".SCOM"  ACTION  ROUTINE 

INPUTS: 

$VALUE=NUM8ER  OF  BYTES  NEEDED 

OUTPUTS: 

R0,R1.R2=DESTROyED 

$NALL  INCREMENTED  IF  ALLOCATION  SUCCEEDED 

F1.ERR  SET  IF  ALLOCATION  FAILED 


SSCOM: 


103445 
005000 
032767 
001402 
005067 
016701 
001417 

103430 
005201 
042701 
010167 

103743 

105267 
112722 
110022 
000300 
110022 
116722 
116712 
062767 


OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG        5$: 


000001 
OOOOOOG 


OOOOOOG 

OOOOOOG        10$: 


OOOOOOG 
000001 G 
000002  OOOOOOG 

20$: 


CALL 

CALL 

BCS 

CLR 

BIT 

BEQ 

CLR 

MOV 

BEQ 

CALL 

BCS 

INC 

BIC 

MOV 

CALL 

BCS 

CALL 

INCB 

M0V8 

MOVB 

SWAB 

MOVB 

MOVB 

MOVB 

ADD 

RETURN 


SVFLVl 

$RQ5 

20$ 

RO 

#FL.CHA,$FLAG5 

5$ 

$VALUE 

SVALUE.Rl 

10$ 

MAX  14 

20$ 

Rl 

*1,R1 

R1,$VALUE 

$ALL16 

ALLERR 

ZER16 

$NALL 

#.SC0M,(R2)*- 

R0,(R2)+ 

RO 

R0,(R2)+ 

$VALUE,(R2)t 

$VALUE+1,(R2) 

*2,$SIZE 


MAKE  SURE  IT'S  THE  PRIMARY  TEMPLATE 

REQUEST  BINARY  FILE 

IF  CS,  NO  ACCESS 

ASSUME  ZERO  LENGTH 

MUX  CHARACTERISTICS  UPDATE  ONLY  ? 

NO  .. 

YES  ..  NO-OP  THE  ALLOCATION 

GET  BYTE  COUNT 

IF  ZERO,  DON'T  ALLOCATE 

ALLOW  ONLY  14.  ALLOCATIONS 

IF  CS,  NO  MORE  ALLOWED 

ROUND  COUNT  UP  TO  MULTIPLE  OF  2 

RESET  COUNT  VALUE 

ALLOCATE  16  BIT  ADDRESSABLE  STORAGE 

IF  CS,  FAILURE 

ZERO  16-BIT  ALLOCATION 

TALLY  SUCCESSFUL  ALLOCATION 

STORE  FUNCTION  CODE 

STORE  ADDRESS 


STORE  COUNT  (FOR  CLEANUP  ONLY) 
ADJUST  DATA  BASE  SIZE 
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1A6 
1A7 
148 
1A9 
150 
151 
152 
153 
15A 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 


000130  005000 

000132  012701  OOOOOOG 

000136  005002 

000140 

000144 

000150  105777  OOOOOOG 

000154  100403 

000156  052010 

000160  001404 

000162 


000164 
000172 
000176 


BN.OPN  -  OPEN  BINARY  FILE  AND  GET  ATTRIBUTES 

INPUTS: 

$FILEN=BINARY  FILE  NAME 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
R0,R1,R2=DESTROYED 


BN.OPN: 


CLR 

RO 

MOV 

#$FILEN,R1 

CLR 

R2 

CALL 

$AZFS 

CALL 

SCLOPE 

TSTB 

aSCLIOS 

BMI 

101$ 

BIS 

(R0)+,(RO) 

BEQ 

111$ 

RETURN 


ERROR  CONDITIONS 


101$: 
111$: 


EMS6$R  69 
CALL    $CLDEQ 
EMSG$R  71 


SETUP  ASCIZ  FILE  SPEC 
FOR  [151,5X]FILENAME.TSK 


OPEN  BINARY  FILE 
SUCCESS?  (CLEARS  C-BIT) 
IF  MI,  NO 

IS  FILE  CONTIGUOUS? 
IF  EQ,  NO 


OPEN  FAILURE 
CLOSE  BINARY  FILE 
FILE  NOT  CONTIGUOUS 
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LOCAL  DATA 


165  000110 

166  0001 H 

167  000120 

168  0001 2A 

169  000126 

170  000132 

171  000136 

172  OOOKO 

173  00014A 

174  0001A6 

175  000152 

176  000154 

177  000160 

178  000162 

179  000164 

180  000170 

181  000172 

182  000176 

183  000200 

184  000204 

185  000206 

186  000212 

187  000214 

188  000220 

189  000222 

190  000224 

191  000226 

192  000226 

193  000234 

194  000236 

195  000242 

196  000244 

197  000250 

198  000254 

199  000256 

200  000264 

201  000272 

202  000276 

203  000300 

204  000304 

205  000310 

206  000312 

207  000320 


40$: 


005067  OOOOOOG 

016700  OOOOOOG 

012701  OOOOOOG 
010102 

062702  OOOOOOG 

103033 

103030 

016700  OOOOOOG 

001425 

010102 
022222 

103016 

103013 

103010 

103005 

103002 
011100 
001353 

50$: 
032767  OOOOOOG  OOOOOOG  60$: 
001003 

062716  000002        65$: 
000426 

70$: 
005767  0000006 
100411 

012767  OOOOOOG  OOOOOOG 
016767  000000'  OOOOOOG 


000402 


72$: 


010267  OOOOOOG        74$: 

103003 

042767  OOOOOOG  OOOOOOG 

80$: 


CLR 

SLBADR 

MOV 

$NTLPT,RO 

MOV 

#$NTLHB,R1 

MOV 

R1,R2 

ADD 

#.CXLB1,R2 

CALL 

CHECK 

BCC 

50$ 

CALL 

CHECK 

8CC 

50$ 

MOV 

$NTLHBt.CXLBR,RO 

BEQ 

50$ 

CALL 

$GETLB 

MOV 

R1.R2 

CMP 

(rJ)+,(R2)+ 

CALL 

CHECK 

BCC 

50$ 

CALL 

CHECK 

BCC 

50$ 

CALL 

CHECK 

BCC 

50$ 

CALL 

CHECK 

BCC 

50$ 

CALL 

CHECK 

BCC 

50$ 

MOV 

(RD.RO 

BNE 

40$ 

BIT 

#F2.LBR,$FLAG2 

BNE 

70$ 

ADD 

#2.(SP) 

BR 

80i 

CALL 

$VFLV1 

TST 

.MGMGE 

BMI 

72$ 

MOV 

#. BASES, $VALUE 

MOV 

MAPBYT,$CAPR 

CALL 

$RQ7 

BR 

74$ 

CALL 

$R05 

MOV 

R2,$BFPTR 

BCC 

80$ 

BIC 

#F2.FIL,$FLAG2 

RETURN 
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INDICATE  NO  LIBRARY  ADDRESS  YET 

GET  HOME  BLOCK  BIAS 

AND  ADDRESS 

COPY  THE  ADDRESS 

OFFSET  TO  LIBRARY  DESCRIPTORS 

LOOK  FOR  A  MATCH 

IF  CC,  GOT  ONE! 

TWO  DESCRIPTORS  IN  DATA  BLOCK 

;  GET  FIRST  LIBRARY  BLOCK  BIAS 
IF  EQ,  THERE  IS  NONE 
READ  IN  A  32.  WORD  LIBRARY  BLOCK 
COPY  BUFFER  ADDRESS 
SKIP  LINK  WORD  AND  COUNT 
LOOK  FOR  A  MATCH 
WITH  FIVE  DESCRIPTORS  IN  THIS  BLOCK 


GET  NEXT  LIBRARY  BLOCK  BIAS 
IF  NE,  KEEP  LOOKING 

WAS  LIBRARY  FOUND? 

IF  NE,  YES 

REJECT  TPARS  TRANSITION 

MAKE  SURE  IT'S  THE  PRIMARY  TEMPLATE 

MAPPED  TARGET  SYSTEM? 

IF  MI,  NO 

SET  DEFAULT  MAPPING 

AND  DEFAULT  APR  NUMBER 

REQUEST  BINARY  BUFFER  ACCESS 

DITTO 

SAVE  BUFFER  POINTER 

IF  CC,  ACCESS  GRANTED 

ELSE  CLEAR  VALID  FILE  NAME  FLAG 


VAC  6 
I  nrii 
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vv    vv 

AAAAAA 

CCCCCfCC 

77777777 

vv    vv 

AAAAAA 

CCCCCCCC 

77777777 

vv    vv 

AA 

AA 

CC 

77 

vv    vv 

AA 

AA 

CC 

77 

vv    vv 

AA 

AA 

CC 

77 

vv    vv 

AA 

AA 

CC 

77 

vv    vv 

AA 

AA 

CC 

77 

vv    vv 

AA 

AA 

CC 

77 

vv    vv 

AAAAAAAAAA 

CC 

77 

vv    vv 

AAAAAAAAAA 

CC 

77 

vv  vv 

AA 

AA 

CC 

77 

vv  vv 

AA 

AA 

CC 

77 

vv 

AA 

AA 

CCCCCCCC 

77 

vv 

AA 

AA 

CCCCCCCC 

77 

SSSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

ss 

SS 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL   SSSSSSSS         TT 


J  7 

VAC7  -  VNP  TEMPLATE  ACTION  ROUT  MACRO  V05.03b  Saturday  29-Jun-85  02:10  Page  4 


I  8 

VAC7 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE 

$TWARN  =  »♦«*»* 

SVALUE  =  .*«•»* 

.CXLBR  =  .»»««* 

.LIBR  =  **♦♦»♦ 

MGMGE  =  •**•*♦ 


BY 

MACRO  OM 

29 

-JlIN-85 

AI 

02:10 

PAGE  2 

ENCE 

CREF   04.00 

REFERENCES 

GX 
GX 
GX 
GX 
GX 

5-76 

9-212 

11-25A 

6-12A 

5-77 
11-262 
*9-2U 

7-143 

11-263 
11-260 

12-290 
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103 
lO'. 
105 
106 
107 
108 
109 
110 
111 
112 
113 
1H 
115 


SLBXFR  -  TRANSFER  LIBRARY  FILE  INTO  CORE 

INPUTS: 

RO  =  LIBRARY  BIAS 

$BFL8N  =  LOGICAL  BLOCK  NUMBER 

SBFXFR  =  TRANSFER  SIZE  IN  BYTES 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 


000000 
000000 


116  000004 


117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 


000012 
000020 
000026 
000032 
000034 


010067 
016767 
016767 
016767 

103445 


000000' 
OOOOOOG  OOOOOOG 
000002G  000002G 
OOOOOOG  OOOOOOG 


kaXFR: 


MOV 

MOV 

MOV 

MOV 

CALL 

BCS 

CALL 


RO,BFADR 

$SFL8N,$LBN 

$BFL8N+2,$LBN+2 

SBFXFR, $LLEN 

SREADX 

101$ 

SCLDEQ 


.IF  DF  R$$MPL 

Move  $LI8NM,LlBTABt1  ; 

MOVB  ILIBNM.LIBLENtI 

M0V6  $LI8NM+1,LIBTAB+2 

MOVB  $LI8NM+1 ,LIBLEN+2 

MOVB  $LIBNM+2,LI8TAB+3 

MOVB  $LI6NM+2,LIBLEN+3 

MOV  #LI8TAB,R0 

CALL  $CAT5 

MOV  R1,LIBTB5 

CALL  $CAT5 

MOV  R1,LIBTB5*-2 

MOV  #LI8LEN,R0 

CALL  $CAT5 

MOV  R1,LJBLN5 

CALL  $CAT5 

MOV  R1,LIBLN5t2 

CLfi  RO 

HQV  #$LJ8NM,R1 

MOV  #ST8EXT,R2 

CALL  SAZFS 

MOV  #LI6TB,R0 

CALL  SSYMBL 

BCS  101$ 

MOV  LENVAL.SLBVL 

BEQ  5$ 

MOV  TABVAL.SLBVT 

BIC  #160000, SLBVT 

BIS  *140000,$LBVT 

MOV  BFADR,$LBBLK 

CALL  ALVLIB 


SAVE  LIBRARY  ADDRESS 
COPY  LOGICAL  BLOCK  NUMBER 

AND  TRANSFER  SIZE  IN  BYTES 
READ  INTO  EXTENDED  MEMORY 
IF  CS,  READ  FAILURE 
CLOSE  LIBRARY  FILE 


COPY  FIRST  THREE  CHARACTERS  OF  LIBRARY  NAME 


SET  UP  SYMBOL  NAME 

CONVERT  TO  RAD50 

STORE  VALUE 

CONVERT  TO  RAD50 

STORE  RAD50  VALUE  OF  LAST  3  CHARACTERS 

SET  UP  SYMBOL  NAME 

CONVERT  TO  RAD50 

STORE  RAD50  VALUE 

CONVERT  TO  RAD50 

STORE  RAD50  VALUE  OF  LAST  3  CHARACTRES 

GET  DEFAULT  UIC 

GET  LIBRARY  FILENAME 

;  GET  FILE  EXTENSION 

SET  UP  FILE  SPEC 

GET  START  OF  SYMBOL  BLOCKS 
LOOKUP  SYMBOLS 


COPY  $XXXVL  VALUE 

IF  NOT  VECTORED  -  BRANCH 

COPY  SXXXVT  VALUE 

CLEAR  APR  BITS 

MAP  THRU  APR6 

COPY  LIBRARY  BIAS 

SET  UP  LIBRARY  VECTOR  TABLE 
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SALICB  -  ALLOCATE  KB 


237 

238 

239 

240 

241 

242 

243 

244 

245 

24b 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 


.SBTTL  SALICB  -  ALLOCATE  ICB 
SALJCB  -  ALLOCATE  ICB  FOR  Mt 


INPUTS: 

$iCBS2  -  SIZE  OF  ICB 

OUTPUTS: 

RO  -  ADDRESS  OF  KB 


.IF  DF 
SALICB: :SAVRG 
SAVRG 
TST 
BPL 

MOV 
BIT 
BNE 
MOV 


5$: 


10$: 


MOV 
CALL 
BCC 
EMSGSR 

GETRV 

MOV 

MOV 

Move 
Move 

CLR 
PUTRC 

MOV 
MOV 
MOV 
ASfi 
ADD 

GETRV 

MOV 

SUB 

MOV 

INC 

PUTRC 

RESRG 
ADD 
RESRG 
RESRG 

RETURN 


R$$MPL 

<R2> 

<R3> 

.MPRO 

20$ 

*$KAVL,RO 
*DF.DAS,$DFLAG 
5$ 
#$CRAVL,RO 

$KBSZ,R1 

.AL0C1 

10$ 

9D 

R0,$KBS2 

R0,-(SP) 

*$8FR,R0 

$NVECT,(RO)+ 

$K8LN,(R0)  + 

(RO) 


$SLTA,R1 

L.KR8A(R1),R1 

(SP),R2 

R2 

#K.PRM,R1 

R1,#$KRBLN 

#$8FR,R0 

#K.PRM,RO 

R2,K.PRMi.>0) 

K.PRM(RO) 


<R0> 
#2,R0 
<R3> 
<R2> 


;[MP01J 


SAVE  REG 
SAVE  REG 
MULTIPROCESSOR  SYSTEM  ? 
IF  YES  -  BRANCH 

GET  ADDRESS-2 

D-SPACE  SYSTEM  ? 

IF  YES  -  BRANCH 

IF  NOT  -  ALLOCATE  FROM  SCRAVL  LIST  HEAD 

GET  ICB  SIZE 

ALLOCATE  ICB 

IF  SUCCESS  -  BRANCH 

IF  FAILURE  -  PRINT  ERROR 

READ  ICB 

SAVE  ICB  ADDRESS 

STORE  START  OF  BUFFER 

STORE  THE  NUMBER  OF  VECTORS 

STORE  ICB  LENGTH 

CLEAR  LINK  WORD 

WRITE  OUT  ICB  TO  IMAGE 

STORE  SLT  ADDRESS 
GET  KR6  ADDRESS 
COPY  ICB  ADDRESS 
DIVIDE  ADDRESS  BY  2 
INCLUDE  NEGATIVE  OFFSETS 

READ  KRB 

POINT  AT  BUFFER 

STORE  ICB  ADDRESS/2  IN  THE  KRB 
SKIP  ICB  SIZE/COUNT  FIELDS 
WRITE  KRB  TO  IMAGE 

RESTORE  REG  (RETURN  ICB  ADDRESS) 
POINT  AT  ICB  START 
RESTORE  REG 
RESTORE  REG 


;[MP01] 
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«  Ai  r  rD 


I  nr  A  TC  1 TD 


VALT       CREATED  BY 
SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


$ERR56 
$ERR37 
$ERR84 
$ERR86 
$ERR88 
$ERR9C 
$ERR9D 
SFLAGS 

$flag: 

SGETAD 

SICBAD 

SICBLN 

SICBSZ 

KRBLN 

$LDA 

SLINK 

$MUL 

SNALL 

SNLIB 

SNTLHB 

SNTLUB 

SNVECT 

SPDVA 

SPDVNM 

SPDVTA 

SPUTAD 

SPUTRC 

SRADDR 

SREP.P 

SRSIZE 

SSADDR 

SSIZE 

SSLTA 

SSLTMA 

SSLTNM 

STADDR 

STERR 

STMALT 

STMCHK 

STMPBF 

$TWE 

SUBIAS 

$UDA 

SUNBSZ 

$$CSR 

$$PRI 

$$VECT 

.CXUNL 


000152 
000220 
000264 
000330 
000402 
000442 
000502 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****  ** 
****** 
****** 
****** 
****** 
****** 
****** 


R 

R 

R 

R 

R 

R 

R 
GX 
GX 
GX 
GX 
6X 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


-  ****** 
=  ****** 
=  ****** 
=  ****** 

-  ****** 

-  ****** 

-  ****** 

r:  ****** 

000000  RG 
0005U  RG 

=   ****** 

-  ****** 

r  ****** 

r  ****** 

-  ****** 

-  ****** 

-  ****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

#5-103 
#5-104 
#5-105 
#5-106 
#5-107 
#5-108 
#5-109 

6-151 

6-149 

n-550 
•6-172 

6-180 
•6-183 

9-378 
•11-538 
•6-162 

6-182 

11-529 

11-530 

11-540 

11-543 

6-181 

6-156 

12-650 

12-651 

11-623 

9-453 
•9-453 

5-99 

5-109 
•11-542 
•6-216 

6-163 

9-398 

9-410 

9-411 
•6-217 

5-100 
#6-148 
#10-475 

6-218 

5-99 
•11-540 
•11-528 

11-589 

9-395 

9-390 

9-391 

11-540 


JUL-85   AT 

22:06 

PAGE   2 
CREF       04 

11 

00 

10-505 

10-506 

10-507 

11-635 

6-233 

9-460 

6-153 
10-475 
11-598 
•6-209 

6-168 

11-619 
•6-215 

6-17', 

6-229 

10-477 

9-453 
11-571 
•6-219 

•13-684 
•6-220 

13-674 

13-678 

13-680 

11-607 
11-549 
10-482 
6-176 

•11-609 
11-579 

10-479 

11-581 
12-652 

11-597 

11-599 

12-658 

5-100 

5-102 

5-103 

5-104 

5-105 

5-106 

5-107 

5-108 

•6-227 
•6-167 

11-631 
11-632 

•11-634 
13-672 

13-671 

5-102 

5-103 

5-104 

5-105 

5-106 

5-107 

5-108 

5-109 

6-220 

6-228 

11-545 
•15-679 

•11-579 

•11-594 

11-622 

11-607 

•11-609 

VALT 


CREATED  BY  MACRO  ON  8-JUL-85  AT  22:06 
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VAl16  -  VNP  BYTE  ALLOCATION  ROU  MACRO  V05.03b  Saturday  <;/-Jun-85  02:12  Page  8-1 
DEACB  -  DEALLOCATE  FROM  DSR 

;02  ?0$:    PUTAD   «120000,#4 ,R0   ;  WRITE  UPir^TED  BLOCK  DESCRIPTOR       ;[MP01] 

to4  A0$;    ADD     $8fRt2,R0       ;  CALCULAT.  ADDRESS  Of  ALLOCATED  BLOCK   .-fMPOl^ 

405  50$:    RESRG   <R3,R4,R5>     ;  RESTORE  REG'S                    /[MPOIJ 

to7  RETURN                                ;i:mpoi] 

408 

409  .ENDC 

ilO 
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DMEM  -   DEALLOCATE    MEMORY    FROM  VIRTUAL    NTPOOL 


I   15 

02:12 


198 
199 
200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2H 
215 
216 
217 
218 
219 
220 
221 
222 
223 

224  000172 

225  000176 

226  000202 

227  000206 

228  000226 

229  000230 

230  000232 

231  00023A 
232 

233 

23A 

235  000236 

236 

257  000240 

238  000244 

239 

240 

241 

242  000250 

243  000254 

244  000256 

245  000262 

246  000264 

247  000270 

248  000274 
249 

250 
251 

252  000276 

253  000302 

254  000306 


.SBTTL  .DMEM  -  DEALLOCATE  MEMORY  FROM  VIRTUAL  NTPOOL 


.DMEM 


-  SUBROUTINE  TO  FREE  A  CONTIGUOUS  SEGMENT  OF  VIRTUAL 
MEMORY  FROM  A  PARTITION. 


INPUTS: 


R3  -    BASE  ADDRESS  OF  SEGMENT  TO  BE  RETURNED 

R4  -    CURRENT  VALUE  OF  SQBIAS 

R5  -    SIZE  OF  SEGMENT  IN  32  WORD  BLOCKS 


OUTPUTS. 


MEMORY  IS  RETURNED  TO  NTPOOL 
R4  -    NEW  VALUE  OF  SQBIAS 
R0,R1,R2  -DESTROYED 


CAUTION: 


THIS  ROUTINE  CAN  BE  SUPPLIED  WITH  ANY  ARGUMENTS  AND  IT  WILL 
SIMPLY  ADD  WHATEVER  SEGMENT  OF  CORE  THAT  DEFINES  TO  THE  FREE 
SPACE  LIST. 
SQBIAS  MUST  BE  UPDATED  IN  IT'S  GLOBAL  STORAGE  LOCATION. 


010367  OOOOOOG 
010567  000002G 
010467  OOOOOOG 

005704 
001402 
020304 
1C1001 


010304 

010467  OOOOOOG 


016700  OOOOOOG 

001410 

020367  OOOOOOG 

103405 

010067  OOOOOOG 


.DMEM:: 


MOV 

MOV 

MOV 

PUTAD 

TST 

BEQ 

CMP 

BHI 


R3,SRBLCIC 

R5,$BFRt2 

R4,SBFR 

#0,#4 

R4 

20$ 

R3,R4 

30i 


;  NEW  FIRST  HOLE  BEING  CREATED 
20S:    MOV     R3,R4 


50$: 


MOV 
GETAD 


R4,$RBLCK 


;  SCAN  FOR  NEXT  AVAILABLE  SLOT 
40$: 


000765 


016746  OOOOOOG 
066716  000002G 
022605 


MOV 

BEQ 

CMP 

BLO 

MOV 

GETAD 

BR 


$8FR,R0 

50$ 

R3,$BFR 

50i 

RO.SRBLCK 

40$ 


CHECK  BOUNDARY  CONDITIONS 


50$: 


MOV 
ADD 
CMP 


SR6LCK,-(SP) 

SBFRt2,(SPl 

(SP)+,R3 


MAKE  -REE  SPACE  TO  BE  RETURNED 
LIKE  A  LINK  IN  THE  FREE  SPACE 
CHAIN. 

WRITE  GUESS  TO  FILE 

TEST  SQBIAS 

NO  FREE  SPACE,  ADD  THIS  AS  FIRST  HOLE 

SHOULD  THIS  BE  A  NEW  FIRST  HOLE  ? 

NO,  GO  FIND  SLOT 


RETURN  BIAS  AS  NEW  $QBIAS  VALUE 

MAP  TO  FIRST  HOLE  AND 
READ  IN  NEXT  DESCRIPTOR 


STORE  NEXT  HOLE  POINTER  IN  RO 

END  OF  FREE  SPACE  !  I 

ARE  WE  IN  PROPER  SLOT  YET  ? 

YES,  GO  CHECK  BOUNDARY  CONDITIONS 

LINK  UP 

READ  IN  NEXT  DESCRIPTOR 

AND  CONTINUE  SCAN. 


CHECK  LOW 

SIDE  CONTIGUITY. 
CONTIGUOUS  ? 
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VBIO      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:12 
SYMBOL  CROSS  REFERENCE 


I  H 

PAGE  1 

CREF   0^.00 


SYMBOL 

VALUE 

REFERENCES 

F.RSIZ 

- 

****** 

GX 

•8-167 

lO.RLB 

r 

****** 

GX 

5-78 

I$$AS 

- 

****** 

8-154 

LBNOPB 

000012 

R 

#5-77 

9-187 

LtBhRB 

~ 

****** 

GX 

7-130 

R$$EIS 

- 

****** 

8-154 

R$$11D 

- 

****** 

8-154 

STAT 

000000 

R 

#5-72 

6-108 

6-110 

SfSFDB 

- 

****** 

GX 

»8-167 

$BFR 

~ 

****** 

GX 

8-159 

SCLOPE 

000000 

RG 

#6-107 

tCLQST 

- 

****** 

GX 

6-109 

SIOSB 

000042 

RG 

5-81 

#5-92 

9-189 

$LBN 

00003A 

RG 

#5-86 

♦6-111 

♦6-112 

♦7-130 

♦7-131 

♦8-165 

SLEUF 

000026 

RG 

#5-83 

♦9-186 

SLLEN 

000030 

RG 

#5-84 

♦7-127 

8-156 

♦8-157 

♦8-162 

8-167 

SPUTAD 

= 

****** 

GX 

8-167 

SRADDR 

= 

****** 

GX 

»8-167 

$RBLC< 

- 

****** 

GX 

♦8-167 

$READ 

000220 

RG 

7-128 

8-163 

#9-185 

SREADX 

000060 

RG 

#8-147 

SRLBL 

000026 

RG 

#7-126 

SSAVVR 

- 

****** 

GX 

8-K8 

.MGMGE 

= 

******* 

GX 

8-150 

♦8-166 


VBIO 
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I  15 

02:1 


3  Page  5 


5A 

5S 

56 

57 

58 

59 

60 

61 

62  000000 

6B 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

73 

7i 

75 

76 

11 


.S8TTL  MACRO  DEFINITIONS 
LI8RARV  MACRO  CALLS 

.MCALL  SWTCHI,GETRV,ASL$,ASR$,PUTRC,PCBDF$,GETRC,PUTAD,GETAD,SWTCHO 
.MCALL  CEACCS 


PCBDFS 

LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV  $R8LCK,-(SP) 

.ENDM  SAVMAP 

.MACRO  RESMAP 

MOV  (SP)t,$RBLCK 

.ENDM  RESMAP 

.MACRO  MAP  BIAS 

MOV  BIAS,$RBLCK 

.ENDM  MAP 


DEFINF  PCB  OFFSETS 
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vceAL 

Symbol, 

AS.DEL= 
AS.EXT= 
AS.RED= 
AS.WRI: 
A$$CHIi;  = 
A$SCPS= 

A$$PRI=: 
AS^TRp: 

A. IOC 

A.LGTH= 

A.MPCT 

A.PCB 

A.PCBL 

A.PRI 

A.STAT 

A.TC8 

A.TC8L 

C$$C<P= 

C$$ORE= 

Ct$R5H= 

DEAC 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$yNC= 

0$$rNM= 

E$$XPR= 

FE.CEX= 

FI$LVL= 

F.NRBD= 


-  VNP  ALLOCATION/DEALLOCA  MACRO  V05.03b  Saturday  29-Jun-85 
table 


I  16 

02il3 


Page  U-1 


000010 

OOOOOA 

000001 

000002 

000000 

000000 

000000 

000000 

000003 

0000  K 

00001 1 

000012 

000000 

000002 

000010 

OOOOOA 

000006 

000000 

000400 

17756A 

001162R 

17751A 

000000 

000001 

000000 

000000 

000000 

..♦»*.  G.X 

000001 

«*»»♦•  GX 


F.RSIZ= 

F.URBD= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

1$$RDN= 

K$$rNT= 

K$$CSR= 

K$$LDC= 

K$fTPS= 

L-  ,'-P  = 

LOCBFl 

L0CaF2 

LOCBUF 

L$$AS6= 

L$$DRV= 

L$SP11= 

L$$11R= 

M$$CRB= 

M$$CRX= 

|V|$$FCS  = 

M$$MGE= 

M$$NET= 

M$$OVR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 


»»*♦«»  GX 

*♦»*»«  GX 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

00001 2R 

00001 6R 

000006R 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 


N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PS.APR= 

PS.CHK= 

PS.CKP= 

PS.CKR= 

PS.COM= 

PS.DEL=: 

PS.ORV= 

PS.FXD= 

PS.LIO= 

PS.NSF= 

PS.OUT= 

PS.PER= 

PS.PIC= 

PS.SYS= 

P$$P45= 

P$$WRD= 

P.8LKS 

P. BUSY 

P. IOC 

P. INK 

P.riAIN 

P.NAM 

P.  OWN 

P.PRI 


000001 
000001 
000010 
000001 
000001 
000007 
010000 
040000 
020000 
000200 
000010 
000020 
004000 
001000 
000400 
100000 
002000 
000100 
000040 
000000 
000000 
000016 
000024 
000003 
000000 
000012 
000004 
000026 
000002 


P.REL 

P. SIZE 

P.STAT 

P.  SUB 

P.SWSZ 

P.TC8 

P. WAIT 

Q$$0PT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11l*l= 

SYSFDB= 

S$$WRG= 

S$$VSZ= 

T$$KMG= 

T$$MIN= 

V$$CTR= 

XAVL 

X$$DBT= 

Z.AVL  = 

SALLPR 

$ALL15 

$ALL16 

$ALL18 

$ALL22 

$ALN18 

SALPOL 

$BFR  = 


000014 

000016 

000030 

000010 

000022 

000026 

000020 

000010 

000000 

000001 

000000 

000000 

»**»«*  GX 

000000 

007600 

000000 

000000 

001000 

000002R 

000000 

******   GX 

001024RG 

001120RG 

001076R6 

001232RG 

001232RG 

001170RG 

000022RG 

«***««  GX 


ABS.   000052 
001546 
Errors  detected: 


000 
001 

0 


(RW,I,GBL,ABS,OVR) 
(RW,:,LCL, RELCOM) 


$CEACC= 

**«•*«  GX 

$CEAVL= 

•♦♦♦♦»  GX 

$CRAVL= 

******   GX 

$DEA16 

001126RG 

$DEA18 

001306RG 

$DEA22 

001306RG 

SDEPOL 

000274RG 

$EXSIZ= 

**«»♦*  GX 

$FMASK= 

»»*«♦*  GX 

$GETAD= 

•♦**♦*  GX 

$NBIAS= 

*♦«***  GX 

$PDVA  ^ 

».♦***  GX 

$PRAVL= 

*»»«*«  GX 

$PUTAD= 

******   GX 

$QBIAS= 

******   GX 

$QSTRT= 

**«»«.  GX 

$RADDR= 

»***♦«  GX 

$RBLfK= 

******   GX 

$RSIZE= 

***♦•*  GX 

$SAVAL= 

******   GX 

$SAVRG= 

******   GX 

SXAVL  = 

*«*»•«  GX 

SXLINK 

001374RG 

.ALLPR= 

******   GX 

.AL0CB= 

•**♦♦*  GX 

.AL0C1= 

******   GX 

.AMEM  = 

«»♦*»♦  GX 

.DEAC1= 

*♦♦«♦*  GX 

.DMEM  = 

♦•*♦*♦  GX 

»»«  Assembler  statistics 

Work   tile  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  10255  Words  (  41  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

SV^VCEAL!v2!il32]l34JVCEAL/CR/-SP=SY:[l,nRSXMCM.SML/ML,[130,110]NErLI8/ML,[130,10]RSXMCM/PA:1,[132,10]VCEAL 


VCEAL 
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178 

+ 

179 

$1NT 

-  ".INT 

'  ACTION  ROUTINE 

'  30 
181 

INPUT 

S: 

182 

NONE 

183 

184 

OUTPUTS: 

185 

R0,R1, 

R2=DESTR0yED 

186 

SVECTI 

=CURRENT  VALUE  OF  $SIZE 

187 

- 

188 

189  000116 

BINT:: 

190  000116 

CALL 

SVFDDM         ;  MAKE  SURE  IT'S  A  DDM 

191  000122 

012700 

0000006 

MOV 

#F1.INT,R0      ;  BIT  TO  BE  SET 

192  000126 

012701 

OOOOOOC 

MOV 

#F1.IN11F1.IN2IF1.'N3,R1  ;  BITS  UHICH  MUST  NOT  BE  SET 

193  000132 

005002 

CLR 

R2            ;  VECTOR  INDEX 

19A  000134 

CALLfi 

VFVCT          ;  CHECK  VECTOR  AVAILABILITr 

195 

K  1 
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558 

+ 

559 

REP2e 

-  REPLACE  PROCESS  TYPE  AND  VECTOR  VALUE 

560 

561 

INPUTS: 

56? 

R2=VECT0R  VALUE 

563 

R3=F0RMAT  STRING  ADDRESS 

564 

R4=ERR0R  MESSAGE  BUFFER  ADDRESS 

565 

566 

OUTPUTS: 

567 

RO.Rl 

R2=DESTR0YED 

568 

R3,R4- 

^UPDATED 

569 

- 

570 

571 

001A20 

?EP2B:: 

572 

00U20 

CALL 

SREP.C 

REPLACE  PROCESS  NAME 

573 

00U24 

14 

10$: 

M0V8 

CR3)+,(R4) 

LOOK  FOR  SECOND  ASTERIS 

574 

001426 

.V724  000052 

CMP8 

#'*,(R4)t 

575 

001432 

001374 

SNE 

10$ 

576 

001434 

005304 

DEC 

R4 

SKIP  the'asterisk 

577 

001436 

010400 

MOV 

R4,R0 

COPY  BUFFER  ADDRESS 

578 

001440 

010201 

MOV 

R2,Rl 

COPY  VECTOR  VALUE 

579 

001442 

005002 

CLR 

R2 

SUPPp'^ESS  LEADING  ZEROES 

580 

001444 

CALL 

$C80MG 

CONVERT  TO  OCTAL 

581 

001450 

010004 

MOV 

R0,R4 

SET  NEW  BUFFER  ADDRESS 

582 

001452 

RETURN 

583 

58A 

585 

000001 

.END 
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ASVM 

A$$CHK= 

At$CPS= 

A$$PR1= 

A$$TRP= 

C$tCKP= 

C$$ORE= 

Ct$RSH= 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$SYNM= 

E$$XPR= 

FMT2A 

FMT^ 

FM.2A  = 

FM.A   = 

.  ABS. 


OOOOOOR 

000000 

000000 

000000 

000000 

000000 

000400 

177564 

177514 

000000 

000001 

000000 

000000 

000000 

000232R 

000262R 

000000 

000000 


002  F$$LVL= 
F1.STE= 
GBLK 
GETAB 
GSYM 
GVAL 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
002  K$$LDC^ 
002  K$$TPS= 
LD$LP  = 
L$$ASG= 


000001 

****»»  GX 

000006R 

000022R 

000012R 

000016R 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

000000 


L$$DRV= 

L$$P11= 

002  L$$11R= 

002  M$$CRB= 

002  M$$CRX= 

002  M$$FCS= 

M$$MGE= 

M$$NET= 

M$$0VR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

P$$P45= 


000000 
000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000000 


P$$WRD= 

Q$$0PT= 

REP2A 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

STBEXT 

S$$WRG= 

S$$YSZ= 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

$AZFS  = 

$CAT5  = 

$CLEVL= 


000000 

000010 

00021  OR 

000000 

000001 

000000 

000000 

000312R 

000000 

007600 

000000 

000000 

001000 

000000 

*»**«*  GX 

******  GX 

******  GX 


$ELINE= 
$ERR27 
$ERR29 
$ERR30 
$ERR31 
$ERR32 
$FLAG1= 
002  SGLOBL 
$PRV.N= 
$REP.C= 
$REP.P= 
$SYMBL= 
$TERR  = 
$TWARN= 
$VALUE= 
.PSTCN= 
.PSTPT= 


******  GX 
000032R 
000054R 
000114R 
000154R 
000204R 
******  GX 
OOOOOORG 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


002 
002 
002 
002 
002 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


000000 
000270 
DATA  000316 
Errors  detected: 


000 
001 
002 
0 


(RU,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


♦*♦  Assembler  statistics 

Work  file  reads:  0 

Work   f i le  writes  :  0 

Size  of  work  file:  10034  Words   (  40  Paaes) 

Size  of  core  pool:  14440  Words   (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

SY:VAclv2!'!i32?i34]VAC3/CR/-SP  =  SY:[1,1]RSXMCM.SML/ML,C130,110]NETLIB/ML,C130,10JRSXMCM/PA:1,[132,10]VAC3 
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376 
377 
378 
579 
380 
581 
582 
383 
384 
385 
586 
387 
388 
589 
590 
591 
392 
395 
594 
395 
396 
397 
598 


001046 
001052 
001054 
001060 
001062 
001066 
001070 


001072 


116700 
010046 
116700 
062600 
022700 
103401 


OOOOOOG 
OOOOOOG 
000015 


MAXK  -  CHECK  FOR  NO  MORE  THAN  14.  ALLOCATIONS 


INPUTS: 


$NALL=NUMeER  OF  ALLOCATIONS 
$NLIB=NU«8ER  OF  LIBRARIES 


OUTPUTS 


MAX14: 


C-81T= 

SUCCESS/FAILURE 

R0=DESTROyED 

Move 

$NALL 

,R0 

MOV 

R0,-(SP) 

Move 

SNLIB 

,R0 

ADD 

(SP)  + 

,R0 

CMP 

*13., 

W 

BCS 

101$ 

RETURN 

ERROR  CONDITION 
i01$:   EMSGSR  78 


GET  NUMBER  OF  ALLOCATIONS 

SAVE  IT 

GET  NUMBER  OF  LIBRARIES 

ADD  THE  TWO  TOGETHER 

ARE  WE  AT  THE  MAXIMUM  ALREADY? 

IF  CS,  NO  MORE  ALLOWED 


;  ONLV  14.  ALLOCATIONS/LIBRARIES  ALLOWED 
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175 
176 
177 
178 
179 
180 
181 
182 
183 
18A 
185 
186 
187 

188  00020A 

189  000210 

190  00021A 

191  000216 

192  000224 

193  000232 

194  000240 

195  000246 

196  000250 

197  000254 

198  000260 

199  000262 

200  000266 

201  000270 

202  C00272 

203  000276 

204  000302 

205  000304 

206  000320 
207 

208  000324 

209  000330 
210 

211  000332 
212 

213  000346 

214  000352 
215 

216 
217 
218 

219  000354 

220  000362 

221  000370 

222  000376 

223  000404 
224 

225 


012700  000000' 


103457 
016767 
016767 
016067 
032760 
001450 
016001 
026001 
001043 
022701 
103443 
010102 
066002 
022702 
103440 


BN.LBL  -  READ  AND  PROCESS  LABEL  BLOCK 

INPUTS: 

NONE 

OUTPUTS: 

C-SIT=:SUCCESS/fAILURE 
R0,R1,R2=DESTR0YED 
$BFALL=SIZE  OF  ALLOCATION  NEEDED 
$BFLBN=LOGJCAL  BLOCK  NUMBER 
SBFXFR^TRANSFER  SIZE  IN  BYTES 
$BFBAS=BASE  ADDRESS 


BN.LBL 


OOOOOOG  OOOOOOG 
000002G  000002G 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 

001777 


OOOOOOG 
002000 


010167 

005767 
100006 


OOOOOOG 
OOOOOOG 


010267  OOOOOOG 


5$: 
10$: 


MOV 

CALL 

BCS 

MOV 

MOV 

MOV 

BIT 

BEQ 

MOV 

CMP 

BNE 

CMP 

BLO 

MOV 

ADD 

CMP 

BLO 

ASL$ 

MOV 

TST 
BPL 

ASL$ 

MOV 
RETURN 


#DSKaUF,RO 

SRLBL 

101$ 

$L8N,$BFLBN 

$L8N+2,$BFLBN+2 

L$BSA(R0),$BF8AS   ; 

#TS$NHD,L$BFLG(R0) 

111$ 

L$8LDZ(R0),R1 

L$6.  '7(R0),R1 

111$ 

#1777, R1 

121$ 

R1,R2 

L$8EXT(R0),R2 

#2000, R2 

131$ 

6,R1 

Rl,$BFXFR 


GET  DISK  BUFFER  ADDRESS 

READ  LABEL  BLOCK 

IF  CS,  FAILURE 

COPY  LOGICAL  BLOCK  NUMBER 

SAVE  BASE  ADDRESS 

;  DOES  FILE  HAVE  A  HEADER? 
IF  EQ,  YES  -  ERROR 
GET  FILE  SIZE  IN  BLOCKS 
IS  FILE  OVERLAID? 
IK  NE,  YES  -  ERROR 
IS  FILE  SIZE  >  32K-32  WORDS? 
IF  LO,  YES 
COPY  FILE  SIZE 
ADD  EXTENSION  SIZE 
IS  EXTENSION  >  32K  WORDS? 
IF  LO,  YES 

CONVERT  SIZE  FROM  BLOCKS  TO  BYTES 
SET  TRANSFER  SIZE  IN  BYTES 


.M6MGE 
5$ 

6,R2 

R2,$BFALL 


ERROR  CONDITIONS 


116777  OOOOOOG  OOOOOOG  101$: 

111$ 
121$ 
131$ 

000001 


M0V8 

EMSG$R 

EMSG$R 

EMSG$R 

EHSG$R 

.END 


$10S6,S$CLI0S 

72 

73 

74 

75 


;  MEMORY  MANAGEMENT  SYSTEM  ? 
;  NO 

;  CONVERT  EXTENSION  FROM  BLOCKS  TO  BYTES 

;  SAVE  ALLOCATION  SIZE  NEEDED 


COPY  ERROR  CODE 
LABEL  BLOCK  READ  FAILURE 
INVALID  BINARY  IMAGE 
SIZE  EXCEEDS  32K-32  WORDS 
EXTENSION  EXCEEDS  32K  WORDS 
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LOCAL   DATA 


209 
210 
211 
212 
213 
2U 
215 
216 
217 
218 
219 
220 
221 

222  000322 

223  000326 
22A  000330 

225  000332 

226  000336 

227  0003AO 

228  0003A6 

229  000350 

230  000356 

231  000360 

232  000364 

233  000366 

234  000374 

235  000376 

236  00040A 

237  000406 

238  000414 

239  000416 

240  000424 

241  000426 

242  000434 

243  000440 

244  0CO444 

245  000450 

246  000456 

247  000460 

248  000462 


CHECK  -  CHECK   THIS  LIBRARY  DESCRIPTOR   FOR  A  MATCH 

INPUTS: 

R0=LI8RARY  SLOCK  BIAS 
RI^ADDRESS  OF  32.  WORD  BLOCK 
R2=CURRENT  POINTER  INTO  32.  WORD  BLOCK 
$FNR50=RAD50  FILE  (LIBRARY)  NAME  TO  BE  MATCHED 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 

R2  INCREMENTED  BY  12.  (SIZE  OF  LIBRARY  DESCRIPTOR) 


010067  OOOOOOG        CHECK:  MOV  RO.SLBIAS 

005712  TST  (R2) 

001441  BEQ  10$ 

021267  OOOOOOG              CMP  (R2),$FNR50 

001042  BNE  20$ 

026267  000002  000002G        CMP  2(R2) ,$FNR50+2 

001036  BNE  20$ 

026267  000004  000004G        CMP  4(R2) ,$FNR50+4 

001032  BNE  20$ 

005767  OOOOOOG              TST  .MGMGE 

100420  BMI  5$ 

032767  OOOOOOG  OOOOOOG        BIT  #FL.CHA,$FLAGS 

001014  BNE  5$ 

032767  OOOOOOG  OOOOOOG        BIT  #F1 .UMR,$FLAG1 

001404  BEQ  4$ 

026267  OOOOOOG  OOOOOOG        CMP  L8.ADR(R2)  ,$QSTRT 

103413  BLO  20$ 

126227  OOOOOOG  000377  4$:     CMP8  L8.USE(R2) ,*377 

001407  BEQ  20$ 

052767  OOOOOOG  OOOOOOG  5$:     BIS  #F2.L8R,$FLAG2 

010267  OOOOOOG        10$:    MOV  R2,$L8ADR 

160167  OOOOOOG              SUB  R1,$LBADR 

062702  000014         20$:    ADD  #12., R2 

032767  OOOOOOG  OOOOOOG        BIT  #F2.LBR,$FLAG2 

001001  BNE  30$ 

000261  SEC 

30$:    RETURN 


SAVE  BIAS  OF  THIS  BLOCK 

IS  THIS  AN  EMPTY  SLOT? 

IF  EQ,  YES  -  SAVE  ITS  ADDRESS 

COMPARE  THREE  WORDS 


MAPPED  TARGET  SYSTEM? 

IF  MI,  NO 

MUX  CHARACTERISTICS  UPDATE  ONLY  ? 

YES  .. 

IS  UMR  MAPPING  NEEDED  ? 

IF  EQ,  NO 

;  IS  THIS  COPY  IN  MAPPED  SPACE  ? 

IF  LO,  NO  -  CAN'T  USE  THIS  COPY 

IS  USE  COUNT  AT  MAX  VALUE? 

IF  EQ,  YES  -  CAN'T  USE  THIS  ONE 

WE  FOUND  IT  I 

SAVE  OFFSET  INTO  BLOCK  OF  THIS  DESCRIPTOR 

ADVANCE'R2  to  NEXT  DESCRIPTOR  (CLEARS  C-BIT) 
DID  WE  FIND  A  MATCH? 
IF  NE,  YES 
INDICATE  FAILURE 
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2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
Mi 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE   VAC7  -  VNP  TEMPLATE  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  7 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Ptus  V3.0 
DECnet-Micro/RSX  VI. 0 
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160 

5$: 

161 
162 
163  000040 

.ENDC 

016700 

OOOOOOG 

MOV 

$L81AS,R0 

164  000044 

CALL 

SGETLB 

165  000050 

026700 

OOOOOOG 

CMP 

$NTLPT,RO 

166  000054 

001402 

BEQ 

10$ 

167  000056 

005261 

000002 

INC 

2(R1) 

168  000062 

066701 

OOOOOOG 

10$:    ADD 

$LSADR,R1 

169  000066 

016721 

OOOOOOG 

MOV 

$FNR50,(R1)+ 

170  000072 

016721 

000002G 

MOV 

$FNR50+2,(R1)t 

171  000076 

016721 

000004G 

MOV 

$FNR50+4,(R1)+ 

172  000102 

016721 

OOOOOO' 

MOV 

BfADR,(R1)+ 

173  000106 

016721 

OOOOOOG 

MOV 

$BFALL,(R1H 

174  000112 

005021 

CLR 

CR1)  + 

175  000114 

005767 

OOOOOOG 

TST 

.MGMGE 

176  000120 

100410 

BMI 

20$ 

177  000122 

016702 

OOOOOOG 

MOV 

$BF8AS,R2 

178  000126 

006002 

ROR 

R2 

179  000130 

ASfi$ 

4,R2 
R2,-(R1) 

180  000140 

010241 

MOV 

181  000142 

000241 

20$:    CLC 

182  000144 

RETURN 

183 

184 

185 
186 

187  000146 

;  ERROR  CONDITION 

116777 

OOOOOOG  OOOOOOG  101$:   MOVB 

$I0S8,a$CLI0S 

188  000154 

EMSG$ 

Y5 

189  000162 

016700 

OOOOOO' 

MOV 

BFADR,R0 

190  000166 

RETURN 

191 

GET  DESCRIPTOR  BIAS 
READ  LIBRARY  BLOCK 
IS  IT  THE  HOME  BLOCK? 
IF  EQ,  YES 

TALLY  DESCRIPTORS/BLOCK 
OFFSET  TO  DESCRIPTOR 
COPY  RAD50  NAME 


LIBRARY  ADDRESS 

AND  LIBRARY  SIZE 

ZERO  THE  USE  COUNT 

MAPPED  TARGET  SYSTEM? 

IF  MI,  NO 

GET  BASE  ADDRESS 

CONVERT  TO  AN  APR  NUMBER 

STORE  il" 

RETURN  C-BIT  CLEAR 


COPY  I/O  ERROR  CODE 

LIBRARY  FILE  READ  ERROR 

RETURN  WITH  LIBRARY  ADDRESS  IN  RO 

AND  C-8IT  SET 
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tALlCB  -  ALLOCATE  KB 


292 

293 

294 

295 

296 

297 

298 

299 

500 

301 

302 

303 

30A 

305 

306 

307 

308 

509 

310 

311 

312 

313 

3U 

315 

316 

317 

518 

319 

320 

321 

322 

323 

524 

325 

326 

327 

328 

329 

550 

331 

552 

555 

334 

555 

556 

537 

558 

559 

340 

341 

342 

343 

544 

545 

346 

547 

348 


20$: 


50$: 


MOV 
MOV 
ADD 

GETRV 

MOV 

SUB 

MOV 

MOV 

ADD 
ASR 

see 

CLC 
MOV 

SWAB 

ASL 

ASL 

ASL 

ASL 

MOV 

MOV 

SAVRG 

MOV 

ASL 

ASL 

ASL 

ADD 

381? 

ASL 

ADD 

SWTCHI 

GETRV 

SWTCHJ 

MOV 

SWTCHO 

CALL 

BCS 

MOV 

GETAD 

M0V8 

MOVB 

CLR 

PUTAD 

RESRG 
GETRV 


$SLTA,R1 

L.KRBA(R1),R1 

#K.PRM,R1 

R1,#$KRBLN 

#$8FR,R0 

#K.PRM,RO 

K.URM(RO),RQ 

*-1,R3 

#1,R3 

RO 

30$ 

R3,R0 


#$ICAVL,RO 

<R1> 

R3,R1 

R1 

R1 

R1 

R1,R0 

SICBSZ.RI 

R3,R2 

R2 

.K6TAB,R2 

*$CP81A 

R2,#2 


$CP6]A,$RBLCK 

.AL0C2 

101$ 

$CP8IA,$RBLCK 

RO,$ICBSZ 
$NVECT,SBFR 
$ICBLN,$BFRt1 
$8FR+2 


<R1> 
R1,*$<RBLN 


GET  SLT  ADDRESS 
GET  KRB  ADDRESS 
ADJUST  R1  TO  OFFSET  0 

READ  KR8 

SET  UP  BUFFER  ADDRESS 
POINT  TO  OFFSET  0 
GET  UNISUS  RUN  MASK 
INITIALIZE  CPU  NUMBER 


IS  THIS  OUR  CPU  ? 
IF  NO  -  BRANCH 
CLEAR  C-BIT 
COPY  CPU  NUMBER 

POSITION  CPU  NUMBER 


STORE  VALUE 

GET  ICB  AVAILABLE  LIST  FOR  FIRST  PROCESSOR 

SAVE  KRB  ADDRESS 
GET  CPU  NUMBER 
MULTIPLY  BY  8. 

CALCULATE  CORRECT  ICB  LISTHEAD 

GET  ICB  LENGTH 
COPY  CPU  NUMBER 
CONVERT  TO  WORD  OFFSET 
GET  CPU  LOWCR  BIAS 
SET  INPUT  BUFFER 
READ  CPU  BIAS 
RESET  BUFFER 

SET  UP  LOWCR  BIAS 

RESET  BUFFER 

ALLOCATE  ICB 

IF  ALLOCATION  FAILURE  -  BRANCH 

SET  UP  BIAS  OF  LOWCR  PARTITION 

READ  ICB 

SET  UP  VECTOR 

SET  UP  ICB  LENGTH 

CLEAR  LINK  WORD 

WRITE  UPDATED  ICB  TO  IMAGE 

RESTORE  KRB  ADDRESS 
READ  KRB 
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VALT      CREATED  BY  MACRO  ON  8-JUL-85  AT  22:06     PAGE  3 
MACRO  CROSS  REFERENCE  CREF   OA.OO 

MACRO  NAME      REFERENCES 

CALL         *6-159  6-170     6-182     6-192     6-213     6-221     9-379     9-453     11-527    11-550 

11-574  11-592    11-598    11-606    11-619    11-623    11-633 

EMSG$R         #5-57  6-231      6-232     6-233     9-460     10-504     10-505     10-506     10-507     11-635 

GETAD         #5-57  11-550     11-598     11-619 
GETRV         #5-58 

NTLErI        #5-57  5-99      5-100     5-102     5-103     5-104     5-105     5-106     5-107     5-108 

5-109 

PUTAD  #5-57  11-625 

PiiTRr  «S-S7  9-453 

RAND  #9-453  9-453  #11-550  11-550         #11-598  11-598         #11-619  11-619         #11-623  11-623 

RETURN  *6-222  9-456  10-499  11-626  12-662  13-685 

SWTCHI  #5-57  9-45^  11-549  11-590  11-597  11-615  11-625 

SWTCHO  #5-57  9-452  11-591 


>«FILE««ID«*VAL16 


K   11 


i   12 

VAL16  -  VNP  BYTE  ALLOCATION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  02:12 
DEACB  -  DEALLOCATE  FROM  DSR 


Page  9 


A12 

^13 

AH 

415 

416 

417 

418 

419 

420 

421 

422 

425 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 


.If  DF  R$SMPL  ;CMP01] 

.DESPK  -  DEALLOCATE  CORE  BLOCK  IN  SECONDARY  POOL 

THIS  ROUTINE  IS  CALLED  TO  DEALLOCATE  A  SECONDARY  POOL  BLOCK.  THE  BLOCK 
IS  INSERTED  INTO  THE  FREE  BLOCK  CHAIN  BY  CORE  ADDRESS.  IF  AN  ADJACENT 
BLOCK  IS  CURRENTLY  FREE,  THEN  THE  TWO  BLOCKS  ARE  MERGED. 


INPUTS: 


RO  =  BIAS  OF  CORE  BLOCK  TO  BE  DEALLOCATED 
R1  =  SIZE  OF  THE  BLOCK  IN  UNITS  OF  32  WORDS. 


OUTPUTS: 


70$: 


80$: 


THE  CORE  BLOCK  IS  MERGED  INTO  THE  FREE  CORE  CHAIN  BY  ADDRESS 
AND  MERGED  WITH  ANY  BORDERING  BLOCKS  IF  POSSIBLE 


.DESPK::SAVRG 

MOV 

CLR 

CLR 

MOV 

SWTCHI 

SWTCHO 


<R5,R4,R3,R2>   ;  SAV  REG'S 
#<I.LGTHt77>/100,R1  ;  GET  SIZE  TO  DEALLOCATE 


TST 

BEQ 

GETAD 

CMP 

BLO 

BEQ 
MOV 
ADD 
MOV 

MOV 
BR 
ADD 
CMP 

BNE 
MOV 
MOV 
SUB 

GETAD 

MOV 

ADD 

MOV 

PUTAD 


-(SP) 

R2 

$P0LHD,R3 


R3 

95$ 

#140000, *4,R3 

R0,R3 

80i 

150$ 
R3,(5P) 
$BFR*-2,(SP) 
R3,R2 

$BFR,R3 
70$ 
RI.RO 
R0,R3 

90$ 

$8FR,-(SP) 
$8FR+2,-(SP) 
R1,R0 

#140000, #4, RO 
R1,$8FRt2 
(SP)+,SBFR+2 
(SP)+,$BfR 


WORD  FOR  STORING  TOP  OF  PREVIOUS  BLOCK 
INITIAL  PREV.  BLOCK  IN  LIST  IS  LISTHEAD 
GET  ADDRESS  OF  FIRST  FREE  BLOCK 
RESET  INPUT  BUFFER 
RESET  OUTPUT  BUFFER 

CHECK  FOR  END  OF  LIST 

IF  END  -  BRANCH 

MAP  NEXT  FREE  BLOCK 

DOES  BLOCK  GO  BEFORE  CURRENT  BLOCK 

IF  LO  YES 

IF  EQ,  BLOCK  OVERLAP  ERROR 

GET  ADDRESS  OF  CURRENT  BLOCK 

CALCULATE  ITS  TOP  ADDRESS 

STORE  ADDRESS  AS  THE  PREVIOUS  BLOCK 

POINT  TO  NEXT  BLOCK  IN  FREE  LIST 

GET  TOP  ADDRESS  IN  DEALLOCATED  BLOCK 
CAN  IT  BE  COMBINED  WITH  THE  NEXT  BLOCK 

IF  NE  NO 

SAVE  LINK  TO  NEXT  FREE  BLOCK 

SAVE  LENGTH 

FIND  START  OF  BLOCK  BEING  DEALLOCATED 

MAP   IT 

INSERT    TO  LENGTH   OF    THE   BLOCK 
ADD   LENGTH  OF    NEXT   BLOCK 
LINK   TO  NEXT   FREE   BLOCK 
UPDATE    IMAGE 
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VAL22  -  VNP  BLOCK  ALLOCATION  RO  MACRO  V05.03b  Saturday  29-Jun-85  02:12 
.DMEM  -  DEALLOCATE  MEMORY  FROM  VIRTUAL  NTPOOL 


255  000310 

001005 

256  000312 

060567 

000002G 

257  000316 

258  000322 

000415 

259 

260 

261 

262  000324 

010367 

OOOOOOG 

263  000350 

26A  000334 

016767 

OOOOOOG  OOOOOOG 

265  000342 

010067 

OOOOOOG 

266  000346 

010567 

000002G 

267  000352 

268 

269 

270 

271  000356 

016746 

OOOOOOG 

272  000362 

066716 

000002G 

273  000366 

026726 

OOOOOOG 

274  000372 

001023 

275  000374 

016700 

OOOOOOG 

276  000400 

016767 

OOOOOOG  OOOOOOG 

277  000406 

278  000412 

016746 

OOOOOOG 

279  000416 

016746 

000002G 

280  000422 

010067 

OOOOOOG 

281  000426 

282  0UO432 

062667 

000002G 

283  000436 

012667 

OOOOOOG 

284  000442 

285  000446 

286 

287 

000001 

BNE 

ADD 

PUTAD 

BR     70$ 


60$ 
R5,$BFRt2 


Page  7-1 


NO,  CHECK  HIGH  SIDE  BOUNDARY. 
MERGE  HOLES 

REWRITE  BUFFER  DESCRIPTOR 
GO  TEST  FOR  HIGH  ADJANCY 


LOW  SIDE  HOLE  NOT  CONTIGUOUS,  POINT  IT  AT  HOLE  BEING  RETURNED 


60$: 


MOV 

PUTAD 

MOV 

MOV 

MOV 

PUTAD 


R3,$8Ffi 

$6FR,$RBLCK 

RO,$SFR 

R5,$6FRt2 


WRITE  BIAS  OF  HOLE  BEING  RETURNED 

TO  LOW  SIDE  HOLE. 
MAP  TO  CURRENT  HOLE 
LOAD  POINTER  TO  NEXT  HOLE 
SIZE  OF  THIS  HOLE 
AND  REWRITE  BUFFER 


;  CHECK  HIGH  SIDE  BOUNDARY  CONDITION 


70$: 


80$: 


MOV 

ADD 

CMP 

BNE 

MOV 

MOV 

GETAD 

MOV 

MOV 

MOV 

GETAD 

ADD 

MOV 

PUTAD 

RETURN 

.END 


$RBLCK,-(SP) 

$6FR+2,(SP) 

$8FR,(SP)+ 

80$ 

$R8LCK,R0 

$BFR,$RSLCK 

$8FR,-(SP) 

$8FR+2,-(SP) 

RO,$RBLCK 

(SP)+,$BFRt2 
(SP)+,$BFR 


PUT  BIAS  OF  CURRENT  HOLE  ON  STACK 

ADD  CURRENT  SIZE  HOLE  TO  STACK 

AND  CHECK  FOR  CONTIGUITY 

NOT  CONTIGUOUS  ... 

SAVE  CURRENT  BIAS  IN  RO 

MAP  TO  NEXT  HOLE 

READ  IN  NEXT  DESCRIPTOR 

PUSH  NEXT  POINTER  ON  STACK 

PUSH  NEXT  HOLE  SIZE  ON  STACK 

REMAP  TO  LOW  SIDE 

REREAD  LOW  SIDE  DESCRIPTOR 

ADD  IN  SIZE  OF  UPPER  SIDE  HOLE 

,^OINT  AT  NEXT  HOLE 

REWRITE  RECORD 
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VBIO       CREATED  BY 
MACRO  CROSS  REfERENCE 


MACRO  ON  29-JUN-85  AT  02:12 


J  u 

PAGE  ? 

CREF   04.00 


MACRO  NAME 

REFERENCES 

ASRt 

#5-59 

8-1 5A 

CALL 

6-109 

7-128 

D1R$ 

#5-59 

9-187 

GETAD 

#5-59 

GETRV 

#5-59 

PUTAD 

#5-59 

8-167 

PUTRC 

#5-59 

QlOWt 

#5-59 

RAND 

#8-167 

8-167 

RETURN 

6-113 

7-133 

8-163 


-172 


8-167 


9-192 


•  f  n  F««m«»uRuf 
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VCEAL  -  VNP  ALLOCATION/DEALLOCA  MACRO  VOS.O^b  Saturday  29-Jun-85 
LOCAL  DATA 

79 

80 
81 
82 
85 
84 

85  000000 

86  000002 

87  OOOOOA 

QQ 

89  000006 

90  0C0012 

91  000016 


i2]'^ 


3  Page  6 


000005 
000000 


.SBTfL 

LOCAL  DATA 

•  LOCAL 

DATA 

XAVL: 

.WORD 
.BLKW 
.WORD 

5 

1 
0 

LOCBUf: 
LOCSfl: 
L0CBf2: 

.8LKW 
.BLKW 
.BLKW 

2 

ROUNDING  FACTOR 

LISTHEAD 

LENGTH  Of  THIS  "BLOCK 

LOCAL  BUFFER  AREA 
ANOTHER  LOCAL  BUFFER  AREA 
AND  ANOTHER 
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VCEAL 


CREATED  BV     MACRO     ON  29-JUN-85   AT   02:13 


SYMBOL    CROSS   REFERENCE 
SYMBOL      VALUE 

001162   R 


DEAC 

FE.CEX 

F.NRBD 

F.RSIZ 
F.URBD 
LOCBFl 
L0CBF2 

LOCBUF 


Ntt-VCT 
R$$MPL 
SYSFDB 


XAVL 

Z.AVL 

SALLPR 

$ALL15 

$ALL16 

$ALL18 

$ALL22 

$ALN18 

SAL  POL 

$BFR 

SCEACC 

SCEAVL 

SCRAVL 

$DEA16 

$DEA18 

$DEA22 

SDEPOL 

$EXSI7 

SFMASK 

SGEIAD 

SNBIAS 

SPDVA 

SPRAVL 

tPUTAD 

SQBIAS 

SQSTRT 

SRADDR 

SRBLCK 

SRSIZE 

SSAVAL 

SSAVRG 

SXAVL 

$XLIN< 


=  ****** 
=  ****** 


GX 
GX 


******  GX 
**.**»  GX 
000012  R 
000016  R 

000006  R 


****** 
****** 
******   GX 


000002  R 
******  GX 
001024  RG 
001120  RG 
001076  RG 
001252  RG 
001232  RG 
001170  RG 
000022  RG 
******  GX 
******  GX 


=  ****** 


****** 
001126  RG 
001306  RG 
001306  RG 
000274  RG 


:;   ***♦♦* 


-  ****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

GX 


GX 
GX 
GX 
GX 
001374   RG 


****** 
****** 
****** 


REFERENCES 

1l-:55 

10-315 
•7-122 
•  U-A97 
•8-250 
•7-121 
#6-90 
#6-91 

8-2A1 
#6-89 
•7-147 

14-497 

7-133 

10-318 
•7-121 
•8-223 
•14-496 
#6-86 

9-285 
#9-282 

7-130 
#10-314 
#12-407 
#12-406 
#12-392 
#7-113 

7-128 

7-133 

10-319 

11-351 

8-184 
#13-446 
#13-445 
#8-181 

11-354 

10-315 

7-134 

12-400 

9-283 

9-284 

7-139 

12-415 

13-455 
•7-134 
•8-237 

8-192 
•8-252 
•7-124 

n-349 

12-396 

7-118 
#14-492 


#11-362 

11-358 

•7-129 

♦14-507 

•8-257 

•7-128 

8-223 

•8-200 

•8-244 

•7-120 

8-190 

14-499 

7-145 

11-341 

•7-122 

•8-231 

•14-497 

7-115 

•9-292 


10-316    #10-324 


7-129 
7-145 
11-356 

#11-348 


11-358 
7-146 

•12-403 
9-291 
9-292 
7-148 

•12-418 
13-459 

•7-139 

•8-250 
8-211 

•8-189 
13-450 
12-411 

•7-150 


12-393 

•7-152 


•7-151 

8-225 

8-202 

8-249 

7-121 

•8-212 

•14-500 

8-188 

11-353 

•7-128 

•8-236 

•14-506 

7-150 


7-151 
8-188 


12-393 

8-191 

13-457 


8-215 
13-454 

•7-146 
•8-257 
•8-213 

•14-493 
•7-153 


J  16 

PAGE    1 

CREF        04.00 


12-408 
•8-214 


•8-190 

8-205 
•8-253 
7-122 
8-214 
14-502 
8-203 

•7-129 

♦8-249 

•14-507 

7-155 


7-152 
8-203 


12-408 

8-205 

•15-461 


8-232 
♦15-465 

•7-148 

•14-498 

•8-216 


8-198 


15-447 
•8-231 


•8-204 

8-204 
8-255 
7-126 
•8-228 
•14-504 
8-222 

•  7  151 
•8-250 

8-193 


8-259 
8-222 


15-447 
8-224 


8-237 


•8-191 

•14-501 

8-221 


♦8-254 


♦8-236 

•8-223 

8-206 

7-135 
♦8-250 

14-495 

♦7-152 
•8-255 

8-254 


8-260 
14-495 


•8-249 

•8-260 

•8-235 

•7-138 
8-231 

14-502 

•8-190 
•8-257 


♦8-255 

♦14-496 

8-236 

7-140 
8-243 


♦8-204 
♦8-259 


♦8-259 

♦14-506 

8-258 

7-144 
14-496 


♦8-214 
♦8-260 


14-506 
14-502 


14-507 


14-498 


8-250 


♦8-205 

♦14-505 

♦8-229 


14-503 


8-257 


♦8-215 

•14-505 

•8-255 


14-501 

•8-224 
8-242 


14-505 

•8-252 
•8-248 


r: 


rDCATCn     DV         MATDn         RM     ?Q-lilM-RS      AT     OP-I"^ 


pai;f  ? 
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197 

+ 

198 

SINTl  -  ".INT1"  ACTION  ROUTINE 

199 

200 

INPUTS: 

201 

NONE 

?02 

203 

OUTPUTS: 

20A 

RO.RI, 
SVECTl 

R2=DESTR0YED 

205 

=CURRENT  COPY  OF  SSIZE 

206 
207 
208  OOOKO 

- 

EINT1:: 

209  OOOUO 

CALL 

SVFDDM 

MAKE  SURE  IT'S  A  DDM 

210  OOOKA 

012700 

OOOOOOG 

MOV 

#F1.IN1,R0 

BIT  TO  BE  SET 

211  000150 

012701 

OOOOOOG 

MOV 

#F1.INT,R1 

BIT  WHICH  MUST  NOT  BE  SET 

212  00015A 

005002 

CLR 

R2 

VECTOR  INDEX 

213  000155 

CALLR 

VFVCT 

CHECK  VECTOR  AVAILABILITY 

2U 

L     1 
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Symbol  table 


A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

CTLERR 

C$$CKP= 

C$SORE= 

C$$RSH= 

Dt$BUG= 

OS$ISK= 

0$$L11= 

D$tYNC= 

D$$YNM= 

Et$XPR= 

FL.CHA= 

FL.LMC= 

FL.MUX= 

FMT2 

FMT2B 

FMT3 

FM.2  = 

FM.2B  = 

FM.3  = 

F$$LVL= 

F.RSIZ= 

F1.INT= 

F1.IN1= 

F1.IN2= 

F1  .IN3= 

F1.LFI= 

F1.LFL= 

F1.MPL= 

F1.MPT= 

F1.MXT= 


000000 

000000 

000000 

000000 

000770R 

000000 

000^00 

177564 

1775U 

000000 

000001 

000000 

000000 

000000 

»♦*♦*»  Gx 

.*«»**  GX 

******  GX 

0006A6R 

000665R 

000622R 

000000 

000000 

000000 

000001 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


F2.FIL= 
6$$TPP= 
G$$TSS= 
6$$TTK= 
G$$URD= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$nR  = 
MAXK 
002  M$$CRB= 
002  M$$CRX= 
002  M$$FCS= 
M$$MGE= 
H$$NET= 
M$$OVR= 
NSITAB 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
P$$PA5= 


******  GX 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

1775A6 

000000 

000074 

000000 

000000 

000000 

000001 

000000 

000502R 

000124 

000000 

000000 

000000 

000000 

000000 

000004R 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 


P$$WRD= 
Q$$OPT= 
REP28 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SYSFDB= 
S$$WRG= 
S$$YSZ= 
TMPEXT 
T$$KMG= 
T$$MIN= 
VFVCT 
V$$CTR= 
X$$D8T= 
$ALL16= 
SAZFS  = 
$BFR  = 
$CBOMG= 
SCFILE 
$CL10S= 
$CLQUE= 
002  $ELINE= 
SERRKX 
SERRKY 
$ERR17 
$ERR22 
$ERR23 
$ERR24 
$ERR25 
$ERR41 
$ERR42 


000000 

000010 

001420RG 

000000 

000001 

000000 

000000 

******  GX 

000000 

007600 

OOOOOOR 

000000 

000000 

001254RG 

001000 

000000 

*«♦«**  GX 

******  GX 

******  GX 

******  GX 

001050RG 

******  GX 

******  GX 

******  GX 

000474R 

000542R 

000024R 

000360R 

000064R 

000126R 

000156R 

000206P 

000252R 


$ERR43 
$ERR81 
$ERR85 
SEVEN  = 
SFILE 

$f;len= 

SFILEX 
$FLAGS= 
$FLAG1= 
$FLAG2= 
002  $GETRV= 
$1NT 
SINTX 
$INT1 
$INT2 
$INT3 
SLFILE 
SLFLD  = 
SMPLD  = 
SHPTB 
$MXADD= 
$MXLEN= 
SMXPTB 
$MXS]Z= 
002  SMXTAB 
002  $MXVCT= 
002  SNALL  = 
002  SNLIB  = 
002  $NVECT= 
002  $0FF  = 
002  $PRV.N= 
002  $RADDR= 
002  $REP.C= 


00031 5R 
000416R 
000444R 
******  GX 
OOOOOORG 
******  GX 
000050RG 
******  GX 
»»***»  GX 
******  GX 
******  GX 
0001 16RG 
000064RG 
000140RG 
000162RG 
000206RG 
000602R6 
******  GX 
******  GX 
000534RG 
******  GX 
******  GX 
000232RG 
******  GX 
000776RG 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 


002  $RQ1  = 
002  $RQ2  = 
002  $RQ3  = 
$RQ4  = 
SSECSR 
SSIZE  = 
STERR  = 
$TMFIX= 
$VALUE= 
$VECT1= 
$VFDDM= 
$VFDLC= 
SVFMUX 
$VFSPC= 
$$HTP  = 
$$HUX  = 
$$VECT= 
.EOF  = 
.FILt  = 
.INT  = 
.LFILl= 
.HPTAB= 
.MXPTB= 
.MXTAB= 
.NSO  = 
.NS1  = 
.NS2  = 
.NS3  = 
.NS4 
.NS5 
.NS6 
.NS7  : 
.SECSR= 


.  ABS.  000000 
001454 
DATA    000716 
Errors  detected: 


oon 

001 
002 
0 


(RW,1,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RW,n    LCL.REL.CON) 


******  GX 
******  GX 
******  GX 
******  GX 
00n64RG 
******  GX 
******  GX 
******  GX 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 


****** 
****** 
****** 
****** 


001234RG 

GX 

GX 

GX 

GX 

******   GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

=   ******   GX 

=   ******   GX 

:    ,♦*.**   GX 

******   GX 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


***   Assembler   statistics 

Work      file      reads:  0 

Work      file   writes:  0 

Size  of   w:rk    file:  10422  Words      (   41   Pages) 

Size  of   ct re  pool:  i4440  Words      (   55  Pages) 

Operating      system:  RSX-11M/PLUS 

SYfvAC2.V2'!'!i32,i34i\/AC2/CR/-SP  =  SY:[l,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,C130,10]RSXMCM/PA:l,[152,10]VAC2 
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VAC3  CREATED  BY     MACRO     ON  29-JUN-85   AT   02:09 

SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


ASYM 

FMT2A 

FMTA 

FM.2A 

FM.4 

F1.STE 

GBLK 

GETAB 

GSYM 

GVAL 

REP2A 

STBEXT 

SSSBAS 


000000  R 
000232  R 
000262  R 
000000 
000000 


****** 

000006 
000022 
000012 
000016  R 
000210  R 
000312  R 


GX 


SAZFS 

=  ****** 

fix 

SCATS 

~    ****** 

GX 

SCLEVL 

-  ****** 

GX 

SELINE 

-  ****** 

GX 

$ERR27 

000032 

R 

$ERR29 

00005A 

R 

$ERR30 

0001 U 

R 

$ERR31 

000154 

R 

$ERR32 

000204 

R 

SFLAGI 

=  ****** 

(,X 

SGLOBL 

000000 

RG 

SPRV.N 

-  ****** 

GX 

SREP.C 

-  ****** 

GX 

SREP.P 

r  ****** 

GX 

SSYMBL 

=    ****** 

GX 

STERR 

=  ****** 

GX 

STWARN 

r  ****** 

GX 

SVALUE 

-  ****** 

GX 

.PSTCN 

-  ****** 

GX 

.PSTPT 

~     ****** 

GX 

REFERENCES 

#5-73 

5-94 

5-95 
#5-94 
#5-95 

6-129 
#5-78 
#5-86 
#5-79 
#5-80 

5-94 
#5-110 

5-94 

5-98 

6-157 

6-149 

6-169 

5-94 

5-85 

5-86 

5-87 

5-88 

5-89 

6-129 
#6-127 

5-95 

7-187 

5-97 

6-159 

5-95 

5-94 
*6-128 

6-133 

6-131 


6-132 

#5-104 

5-96 

#5-96 
6-171 
6-158 
6-172 

♦6-150 
6-161 

#7-187 
6-156 
5-94 


6-152 

#5-94 
#5-95 
#5-96 
#5-97 
#5-98 
*6-171 

5-96 

5-98 

5-96 

•6-161 


K     3 

PAGE   1 

CREF        04.00 


6-147 
5-97 
#5-97 

•6-153 

5-95 


7-192 
5-98 
#5-98 


5-95 


#5-105 


5-96 


5-96 


5-97 


5-97 


5-98 


5-97 


5-98 
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^00 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 


REP6  -  REPLACE  PROCESS  NAME  AND  THEN  fORM  APR  NUMBER 


INPUTS: 


R3=F0RMAT  STRING  ADDRESS 
R4=ERR0R  MESSAGE  BUFFER  ADDRESS 
$CAPR=APR  NUMBER  IN  BINARY 


001100 

001104  010500 

001106  005720 

001110  122720     000120 

001114  001375 

001116  122720     000122 

001122  C01372 

001124  112710     000060 

001130  156^0     OOOOOOG 

001134 


;  OUTPUTS: 

R0=DESTROYED 

•:. 

R3,R4=UPDATED 

REP6: 

CALL    SREP.C 

MOV     R5,R0 

TST     (R0)+ 

10$: 

CMP8    #'P,(RO)+ 

BNE     10$ 

CMPB    #'R,(RO)+ 

BNE     10$ 

MOVB    #'0,fRO) 

BISB    $CAPR,(RO) 

RETURN 

replace  process  name 
copy  error  message  block  address 
now  points  at  text  string 
look  for  "p" 

folloued"by  "R" 

FORM  APR "number 
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Symbol  table 
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A$$CH<= 

A$$CPS= 

AS$PRI= 

A$$TRP= 

BN.LBL 

BN.OPN 

Ct$CKP= 

C$$ORE= 

C$$RSH= 

DSKBUf 

D$$BUG= 

D$$1SK= 

D$$L11= 

D$$yNC= 

D$$YNM= 

E$$XPR= 

FL.CHA= 

FMT5 

FM.6  = 

F$$LVL= 

F2.FIL= 


000000 

000000 

000000 

000000 

000204R 

0001 30R 

000000 

OOOAOO 

177564 

OOOOOOR 

1775K 

000000 

000001 

000000 

000000 

000000 

**♦♦♦♦  GX 

000332R 

000000 

000001 

«»***«  GX 


G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 

003  K$$TPS= 
LD$LP  = 
L$BEXT= 
L$BFLG= 
L$BLDZ= 
L$BMXZ= 
L$BSA  = 
L$$ASG= 

002  L$$DRV= 
L$$P11= 
L$$11R= 
MAPBYT 


000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

000000 

000000 

000001 

000000 

000354R 


M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL^ 
N$$M0V= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$WRD= 
Q$$OPT= 
R$$DER= 
RSSKII^' 
R$$SND= 
002  R$$11M= 


000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000000 
000000 
000010 
000000 
000001 
000000 
000000 


S$$WRG= 

s$$vsz= 

TS$NHD= 
T$$KMG= 

T$$MIN=: 

V$$CTR= 

X$$DBT= 

$ABFI 

$AZFS  = 

$BFALL= 

$BFBAS= 

$BFLBN= 

$SFPTR= 

$BFXFR= 

SCAPR  = 

$CLDEQ= 

$CL10S= 

$CL0PE= 

$CUR.N= 

$ELINE= 

$ERR69 


000000 

007600 

******  GX 

000000 

000000 

001000 

000000 

OOOOOORG 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
OOOOOOR 


002 


$ERR71 

000040F 

002 

$ERR72 

000070F 

0U2 

$ERR73 

000144F 

UU2 

$ERR74 

000206f 

00^ 

$ERR75 

000260f 

00,:' 

$FILEN= 

****** 

GX 

$FLAGS= 

****** 

GX 

$FLAG2= 

****** 

GX 

$10SB  = 

****** 

GX 

$LBN  = 

****** 

GX 

$PRV.N= 

****** 

(iX 

$REP.C= 

****** 

GX 

$REP.P= 

****** 

GX 

$RLBL  = 

****** 

GX 

$RQ5  = 

****** 

GX 

$RQ7  = 

****** 

GX 

STERR  = 

****** 

GX 

$VALUE= 

****** 

GX 

$VFLV1= 

****** 

GX 

.BASEB= 

****** 

GX 

.MGMGE= 

* ***** 

GX 

.  ABS.  000000 
000412 
DATA  000356 
..BUF  000002 
Errors   detected: 


000 
001 
002 
003 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,I,LCL,REL,CON) 


•*♦  Assembler  statistics 

Work  file  reads:  0 

Work  file  writes:  0 

Size  of  work  file:  10306  Words   (  41  Pages) 

Size  of  core  pool:  14440  Words   (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

Sy:VAC5.V2'!'[132,i34i\/AC5/CR/-SP=SY:[1,l]RSXMCM.SML/ML,C130,110]NETLIB/ML,[130,10]RSXMCM/PA:1,.C132,10]yAC5 
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LOCAL   DATA 
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250 

+ 

251 

SLINKS  -  ".LINKS"  ACTION 

ROUTINE 

252 

253 

INPUTS: 

254 

NONE 

255 

256 

OUTPUTS: 

257 

R2=DESTR0VED 

258 

IlJNKS:: 

259  000464 

260  000464 

CALL 

SVFLLC 

MAKE  SURE  IT'S  AN  LLC 

261  000470 

CALL 

$RQ1 

REQUEST  BINARY  BUFFER 

ACCESS 

262  000474 

103405 

BCS 

10$ 

IF  CS,  NO  ACCESS 

263  000476 

112712 

OOOOOOG              M0V8 

#. LINKS, 

(R2) 

STORE  FUNCTION  CODE 

264  000502 

062767 

000002  0000006        ADD 

#2,$SIZE 

ADJUST  DATA  BASE  SIZE 

265  000510 

0$:    RETURN 
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56 

57 

58 

59 

60 

61 

62 

63 

6^ 

65 

66  000000 

67 

68 

69 

70 

71  000000 

72 

73 

74 

75 

76  000002 

77  000036 

78  000076 

79  000152 

80  000220 

81 

82 

83 

8A 

85 

86  000276 

052 

OAO 

000301 

155 

141 

00030A 

U5 

OAO 

000307 

151 

15A 

000312 

OAO 

055 

000315 

OAO 

000 

87  000317 

052 

040 

000322 

K5 

155 

000325 

15A 

141 

000330 

1A5 

040 

000333 

055 

040 

89 
90 
91  000000 


EMSG$,EM5G$R,NTLER$ 
LC 


LIBRARY  MACROS 
*** 

.MCALL 
.ENABL 

*** 

LOCAL  DATA 
*** 


.PSECT  DA7A,D 

ALLOCATED  LIBRARY  BLOCK  ADDRESS 
LBLK::   .BLKU   1 


ERROR  MESSAGES 


NTLERS 


NTLERS  ,Y2,6,$TWARN,REP6,$ELINE,<not  built  for  APR*.> 

NTLERS  ,Y7,6,$TUARN,$REP.C,$ELlNE,<Base  address  not  zero.> 

NTLERS  ,Y3,6,STERR,SREP.P,SELINE,<Base  address  not  a  multiple  of  4k. > 

NTLERS  ,Y4,2,STERR,SREP.C,SELINE,<Resource  allocation  failure. > 

,Y6,2,$TERR,SREP.C,SELINE,<Maximum  allocations/libraries  is  14. > 


111 
147 
146 
145 
055 

124 
160 
164 
055 
000 


ERROR  MESSAGE  FORMAT  STRINGS 
FMT6:   .ASCIZ  "•  Image  file  - 


FMT2: 


.ASCI2 


.EVEN 
.6L0BL 

.PSECT 


Template 


FMT2,FMT6 
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»«FILE 

•MD« 

•VAC8 

VV 

VV 

AAAAAA 

cccccccc 

888888 

VV 

VV 

AAAAAA 

cccccccc 

888888 

VV 

VV 

AA      AA 

88     §8 

VV 

VV 

AA      AA 

88     88 

VV 

VV 

AA      AA 

88     88 

VV 

VV 

AA      AA 

88     88 

VV 

VV 

AA      AA 

888888 

VV 

VV 

AA      AA 

888888 

VV 

VV 

AAAAAAAAAA 

§§     §§ 

VV 

VV 

AAAAAAAAAA 

88     88 

VV 

VV 

AA      AA 

88     88 

VV 

VV 

AA      AA 

88     88 

VV 

AA      AA 

cccccccc 

888888 

VV 

AA      AA 

cccccccc 

888888 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

TT 

LL 

ss 

TT 

LL 
1  1 

ss 
ss 

TT 

TT 
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^93 
vA 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2K 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 


.SBTTL  ALVLIB  -  ALLOCATE  VECTOR  BLOCK  FOR  LIBRARY 
ALVLIB  -  ALLOCATE  VECTOR  BLOCK 


INPUTS: 

$LBVT 
SLBVL 
BFADR 


ADDRESS  OF  VECTOR  TABLE 
SIZE  OF  VECTOR  TABLE  (WORDS) 
BIAS  OF  LIBRARY 


OUTPUTS: 

VECTOR  BLOCK   ALLOCATED   AND    INITIALIZED 


.IF    DF      R$$MPL 


ALVLIB: 


000001 


SAVRG 

MOV 

CALL 

MOV 

MOV 

MOV 
MOV 
MOV 
MOV 

CEACCS 

PUTAD 

RESRG 

RETURN 

.ENDC 

.END 


<R1>  ; 

#V.LEN,R1 

SALPOL 

$NTLHB+.CXVEC,$BFR+V.LNK 

RCSNTLHB+.CXVEC 

$L8VT,$BFRtV.ADD 
$L8VL,$BFR+V.SIZ 
BFADR, $BFR+V. BIAS 
#VF.LIB,$BFRtV.FLG 

R0,R2 

R2,#V.LEN 

<R1> 


SAVE  PCS  ADDRESS 
GET  SIZE  OF  VECTOR  BLOCK 
ALLOCATE  FROM  BYTE  POOL 
;  GET  ADDRESS  OF  OLD  FIRST  BLOCK 
LINK  IN  NEW  VECTOR  BLOCK 

COPY  TABLE  ADDRESS 

COPY  TABLE  SIZE 

STORE  LIBRARY  BIAS 

SET  LIBRARY  VECTOR  BLOCK  FLAG 

MAP  TO  VECTOR  BLOCK 
UFJATE  IMAGE 
RESTORE  PCB  ADDRESS 
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VALI  -  V 
SAIICB  - 

349 
350 
351 
352 
353 
35A 
355 
356 
357 
358 
359 
360 
361 


NP  LINE  TABLE  ALLOCATIO  MACRO  V05.03b  Monday  08-Jul-85  22:06 
ALLOCATE  KB 
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101$: 


ASR 
ADD 

MOV 
PUTRC 

RESRG 
RESRG 

RETURN 

EMSGSR 

.ENDC 


RO 

CPU.RO 

RO,$BFR 


<R3> 
<R2> 


9D 


DIVIDE  1C8  ADDRESS  Br  2 
FORM  LINK  POINTER 
UPDATE  KRS 
WRITE  UPDATED  KRB  TO  IMAGE 

RESTORE  REG 
RESTORE  REG 


KB  ALLOCATION  FAILURE 
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VV 
VV 
VV 
VV 
VV 
VV 
VV 
VV 
VV 
VV 


VV  VV 
VV  VV 

VV 

VV 


VV 
VV 
VV 
VV 
VV 
VV 
VV 
VV 
VV 
VV 


AAAAAA 
AAAAAA 
AA  AA 
AA  AA 
AA  AA 
AA  AA 
AA  AA 
AA  AA 
AAAAAAAAAA 
AAAAAAAAAA 
AA  AA 
AA  AA 
AA  AA 
AA      AA 


LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLLLLLLLL 

LLLLLLLLLL 


11 
1 


]]]] 


■1 
1 

■1 

•1 

'1 

11 
111111 
111111 


666566 
666666 


66 


66 

66666666 

66666666 


66     66 
666666 
666666 


ssssssss 

TTTT1 

TTTTT 

SSSS5SSS 

TTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

J 

ssssss 

J 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

VAI16  -  Vl^P  BYTE  ALLOCATION  ROU  MACRO  V05.03b  Saturday  29-Jun-85 
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V^L16  -  VNP  BYTE  ALLOCATION  ROU  MACRO 

V05.03b 

Saturday 

29-Jun-85  02:12 

.DEACB  -  DEALLOCATE  FROM  DSR 

A69 

470 

A71 

BR 

100$ 

90$: 

BHI 

150$ 

472 
473 

95$: 

sue 

GETAD 

RI.RO 
#140000, #4, RO 

474 

MOV 

R3,$8FR 

475 

MOV 

R1,$8FR+2 

476 

PUTAD 

477 

478 

100$: 

CMP 

(SP)+,RO 

479 

BNE 

110$ 

480 

MOV 

$BFR,-(SP) 

481 

MOV 

$6FR+2,-(SP) 
#140006, *4,R2 

482 

GETAD 

483 

ADD 

(SP)t,$BFRt2 

484 

MOV 

(SP)+,$BFR 

485 

PUTAD 

486 

BR 

130$ 

487 

488 

110$: 

BHI 

150$ 

489 

TST 

R2 

490 

BNE 

120$ 

491 

GETAD 

#140000, #4, R2 

492 

MOV 

R0,$POLHD 
136$ 

493 

BR 

494 

120$: 

MOV 

RO,$eFR 

495 

PUTAD 

496 

497 

130$: 

SWTCH] 

#SECTMP 

498 

SWTCHO 

#SECTMP 

499 

500 
501 

GETRV 

.SECFR,#2 

ADD 

R1,SECTMP 

502 

PUTRC 

503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 


140$: 
150$: 


000001 


SWTCH] 
SWTCHO 

RESRG 

RETURN 

CRASH 

.ENDC 

.END 


<R2,R3,R4,R5> 
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IF  HI,  DEALLOCATED  BLOCK  OVERLAPS  NEXT 

GET  BASE  ADDRESS  OF  DEALLOCATED  BLOCK 

MAP  BLOCK  BEING  DEALLOCATED 

INSERT  LINK  TO  NEXT  BLOCK  IN  FREE  LIST 

INSERT  LENGTH 

UPDATE  IMAGE 

CAN  BLOCK  BE  MERGED  WITH  PREVIOUS  BLOCK 

IF  NE  NO 

SAVE  LINK  TO  NEXT  FREE  BLOCK 

AND  LENGTH 

MAP  PREVIOUS  BLOCK  IN  FREE  LIST 

ADD  LENGTH  TO  WHAT  IS  ALREADY  THERE 

LINK  TO  NEXT  BLOCK 

UPDATE  IMAGE 


IF  HI,  BLOCK  OVERLAPS  PREVIOUS  BLOCK 

CHECK  FOR  END  OF  LIST 

IF  END  -  BRANCH 

MAP  PREVIOUS  BLOCK 

USE  THE  LIST  HEAD  AS  THE  PREVIOUS  BLOCK 

CONTINUE 

LINK  BLOCK  BEING  DEALLOCATED  INTO  CHAIN 

UPDATE  IMAGE 

SET  BUFFER  ADDRESS 

READ  $SECFR  VALUE 

ADD  AMOUNT  DEALLOCATED  TO  TOTAL  FREE 
UPDATE  $SECFR 
RESET  BUFFER 


RESTORE  REG'S 


BAD  DEALLOCATION 
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A$$CHK=  000000 

F$$LVL=  000001 

L$$ASG= 

000000 

N$$MCP= 

000001 

S$$WRG= 

000000 

A$$rPS=  000000 

F.RSIZ=  ♦**♦*•  GX 

L$$DRV= 

000000 

N$$MLL= 

955291 

S$$YSZ= 

007600 

A$$PRI=  000000 

G$$TPP=  000000 

L$$P11= 

000001 

N$$MOV= 

000010 

T$$KMG= 

000000 

A$$TRP=  000000 

GS$TSS=  000000 

L$$nR= 

000000 

N$$NCT= 

000001 

T$$MIN= 

000000 

C$$C<P=  000000 

G$$TTK=  000000 

M$$CRB= 

000124 

N$$PEM= 

000001 

V$$CTR= 

001000 

Ct$ORE=  OOOAOO 

G$$WRD=  000000 

M$$CRX= 

000000 

P$$P45= 

000000 

X$$DBT=: 

000000 

CS$RSH=  177564 

I$$RAR=  000000 

M$$FCS= 

000000 

P$$WRD= 

000000 

$BFR  = 

******  GX 

D$$fiUG=  177514 

1$$R0N=  000000 

M$$MGE= 

000000 

0$$0PT= 

000010 

$GETAD= 

******  GX 

D$$IS<=  000000 

K$$CNT=  177546 

M$$NET= 

000000 

R$$DER= 

000000 

$PUTAD= 

******  GX 

D$$Ll1=  000001 

K$$CSR=  177546 

M$$0VR= 

000000 

R$$K11= 

000001 

$RADDR= 

******  GX 

D$$yNC=  000000 

K$$LDC=  000000 

N$$ACC= 

000001 

R$$SND= 

000000 

$RBLCK= 

******  GX 

0$$YNM=  000000 

K$$TPS=  000074 

N$$BUF= 

000001 

R$$11M= 

000000 

.AMEM 

OOOOOORG 

E$$XPR=  000000 

LDSLP  =  000000 

N$$LDV= 

000001 

sysFDe= 

•*»*••  GX 

.DMEM 

000172RG 

.  ABS.  000000 

000 

(RW,I,GBL,AB5,0VR) 

000450 

001 

(RW,1,LCL,REL,C0N) 

Errors  detected: 

0 

»*«  Assembler  statistics 

Work   file  reads 

0 

Work  file  writes 

(! 

Size  of  work  f i  le 

958y 

Words  (  38  Pages) 

Size  of  core  pool 

UA40  Words  (  55  Pages) 

Operating  system 

RSX- 

IIM/PIUS 
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♦•F!LE"1D» 

•VBUf 

VV      VV 

BBBBBBBB 

UU 

uu   F 

FFFFFFFFF 

VV      VV 

BBBBBBBB 

uu 

uu   F 

FFFFFFFFf 

VV      VV 

BB      BB 

UU 

uu   F 

VV      VV 

BB      BB 

uu 

uu   F 

VV      VV 

BB      BB 

uu 

uu   F 

VV      VV 
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SALPOL    -   ALLOCATE    FROM  EXTENDED   POOL 


93 

94 

95 

96 

97 

98 

99 
TOO 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 

113  000022 
lU  000022 

115  000024 

116  000030 

117  000032 

118  000034 

119  000040 

120  000042 

121  000046 

122  000054 
123 

124  000062 

125  000070 

126  000072 

127  000076 

128  000100 

129  000106 

130  000114 

131  000120 
132 

133  000122 

134  000132 

135  000142 

136  000146 

137  000150 

138  000152 

139  000156 

140  000166 

141  000172 

142  000174 
143 

144  000176 

145  000202 

146  000212 

147  000222 
T48  000226 
149  000236 


.SBTTL  SALPOL  -  ALLOCATE  FROM  EXTENDED  POOL 

****   -   SALPOL  -  ALLOCATE  SINGLE-WORD  STORAGE  FROM  THE  NETWORK  POOL 

THIS  ROUTINE  IS  CALLED  TO  ALLOCATE  AN  CORE  BUFFER  IN  EXTENDED  POOL. 
THE  ALLOCATION  ALGORITHM  IS  FIRST  FIT  AND  BLOCKS  ARE  ALLOCATED  IN 
MULTIPLES  OF  FOUR  BYTES.  IF  THE  EXTENDED  ALLOCATION  FAILS,  THE 
BLOCK  IS  ALLOCATED  USING  RSX  POOL. 

INPUTS: 

R1  =  LENGTH  OF  ALLOCATION  IN  BYTES 
SXBIAS  =  BIAS  Of  START  OF  EXTENDED  POOL 

OUTPUTS: 

C-81T   =   SUCCESS/FAILURE 

RO   =  UNMAPPED   ADDRESS   OF    ALLOCATION 

Rl    =   LENGTH   OF    ALLOCATION   IN  2VTES 


010346 
012700 
061001 
042001 
016710 
010002 
011067 


012767 
010203 
016702 
001011 


000452 


026701 
105745 
001412 
160167 

066702 
010200 
000424 

0167A6 


012667 
010200 


$ALP0L: 


000000' 

OOOOOOG 
177740 

000004  OOOOOOG  10$: 
177710 


20$: 


177642 

177632 
177616 

177604 

177560 


MOV 

MOV 

ADD 

BIC 

MOV 

MOV 

MOV 

SWTCHJ 

SWTCHO 

MOV 

MOV 

MOV 

BNE 

SWTCHI 

SWTCHO 

CALL 

BR 

CEACC$ 

GETAD 

CMP 

BLO 

BEQ 

SUB 

PUTAD 

ADD 

MOV 

BR 

MOV 

CEACC$ 

GETAD 

MOV 

PUTAD 

MOV 


R3,-(SP) 

#XAVL-2,R0 

(R0),R1 

(R0)+,R1 

$XAVL,(RO) 

R0,R2 

(R0),LOCBUF 

#LOCBUf 

#L0C8UF 

#4,$RSIZE 
R2.R3 
L0C8UF,R2 
20$ 


$ALL15 
40$ 

R2,R0 

RO 

L0C8UF+2,R1 

10$ 

30$ 

R1,L0CPUFt2 

RO 

LOCBUF»-2,R2 

R2,R0 

40§ 

L0C6UF,-(SP) 

R3,R0 

RO 

(SP)t,L0CBUf 

RO 

R2,R0 


SAVE  REGISTER 

POINT  TO  ALLOCATION  MASK  WORD 

ADD  ROUNDING  FACTOR 

CLEAR  EXCESS  AND  POINT  TO  LIST  HEAD 

COPY  CEX  POOL  LISTHEAD 

INITIALIZE  CURRENT  UNMAPPED  POINTER  (R2) 

COPY  CEX  POLL  LISTHEAD  AGAIN 

USE  LOCBUF  FOR  INPUT  BUFFER 

AND  OUTPUT  BUFFER 

SET  UP  FOR  4  BYTE  READS 

MOVE  CURRENT  UNMAPPED  PTR  TO  PREV  UNM  PTR 
GET  UNMAroED  ADDRESS  OF  NEXT  BLOCK  (CURRENT) 
If  NE,  ANOTHER  BLOCK  TO  CHECK 
RESTORE  DEFAULT  INPUT 
AND  OUTPUT  BUFFERS 
ELSE,  TRY  TO  ALLOCATE  FROM  RSX  POOL 
AND  RETURN 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  FOUR  BYTES 

BLOCK  BIG  ENOUGH? 

If  LO  NO 

IF  EQ  BLOCK  IS  EXACT  SIZE 

CALCULATE  SIZE  REMAINING 

WRITE  OUT  BLOCK  WITH  UPDATED  SIZE 

ADD  SIZE  OF  REMAINING  BLOCK  TO  UNM  ADDR 

MOVE  RETRUNED  ADDRESS  TO  RO 

AND  RETURN 

SAVE  NEXT  BLOCK  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

READ  FOUR  BYTE  LISTHEAD 

UNLINK  BLOCK  fROM  LIST 

WRITE  BLOCK  BACK  TO  FILE 

AND  RETURN  UNMAPPED  ADDRESS  TO  USER 


nr  A  r  I  nKi  /r\[:  Ai 


nrA   Maron   wIT^    fl^ti    <;Afiirrt;)v    ?9- 


1-RS 


bl? 
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VffAL  CREATED  BY 

SYMBOL    CROSS   PffERENCE 


MACRO     ON  29-JUN-85   AT   02:13 


K  16 

PAGE   2 

CREF        O-t-OO 


SYMBOL 

VALUE 

REFERENCES 

.ALLPR 

-        t  *  *  *  <l  • 

GX 

9-286 
10-325 

.ALOCB 

=       t ♦* t •» 

GX 

.AL0C1 

-       ***♦•* 

GX 

10-320 

.AMEM 

~       **♦**♦ 

GX 

12-401 

.DEAC1 

~       **•**« 

GX 

11-362 

.DMEM 

=       ***•%* 

GX 

13-458 

12-416 
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216 
217 
218 
219 
220 
221 
222 
223 
22*; 
225 
226 
227 
228 
229 
230 
231 
232 
233 


$INT2  -  ".1NT2"  ACTION  ROUTINE 

INPUTS: 

NONE 

OUTPUTS: 

R0,R1,R2=DESTROyHD 
$VECT2=CURRENT  COPY  OF  $SI7E 


000162 

000162 

000166  012700  OOOOOOG 

000172  012701  OOOOOOG 

000176  012702  000002 

000202 


$INT2: 


CALL 

SVFDDM 

MOV 

#F1.IN2 

RO 

MOV 

*F1.INT 

R1 

MOV 

#2,R2 

CALLR 

VFVCT 

HAKE  SURE  IT'S  A  ODM 

BIT  TO  BE  SET 

BIT  WHICH  MUST  NOT  BE  SET 

VECTOR  INDEX 

CHECK  VECTOR  AVAILABILITY 
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VAC2       CREATED  BY  MACRO  ON  29-JUN-85  AT  02:09 
SYMBOL  CROSS  REFERENCE 


L  2 

PAGE  1 

CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CTLERR 

000770  R 

14-385 

#14-415 

15-448 

FL.CHA 

r 

*♦♦*♦*     GX 

12-300 

18-538 

FL.LMC 

~ 

******     GX 

16-484 

FL.MUX 
FMT2 

" 

******     GX 
0006A6  R 

17-509 
5-94 
#5-113 

5-98 

5-99 

5-101 

5-103 

5-105 

5-106 

5-107 

5-108 

FHT2B 

000665  R 

5-95 

5-96 

#5-115 

FMT3 
fM.2 

^ 

000622  R 
000000 

5-92 
#5-94 

#5-112 
#5-98 

#5-99 

#5-101 

#5-103 

',5-105 

#5-106 

#5-107 

#5-108 

FM.2B 

~ 

000000 

#5-95 

#5-96 

FM.5 

~ 

000000 

#5-92 

F.RSIZ 

~ 

******     GX 

*18-544 

FLINT 

= 

******     GX 

8-191 

9-211 

10-230 

11-249 

F1.IN1 

~ 

******     GX 

8-192 

9-210 

F1.IN2 

r 

******     GX 

8-192 

10-229 

F1.IN3 

= 

******     GX 

8-192 

11-248 

F1.LFI 

- 

******     GX 

14-377 

F1.LFL 

r 

******      GX 

14-380 

F1.MPL 

;:= 

******     GX 

14-370 

F1.MPT 

- 

******     GX 

14-367 

F1.MXT 

- 

******     GX 

12-272 

15-435 

F2.FIL 

r 

******     GX 

6-136 

ISSAS 

- 

****** 

18-542 

MAXK 

000502  R 

12-280 

#13-337 

NSITAB 

OOOOOA  R 

#5-80 

18-545 

REP2B 

001420  RG 

5-95 

5-96 

#19-571 

R$$EIS 

= 

****** 

18-542 

RSillD 

= 

****** 

18-542 

SYSFDB 

- 

******      GX 

*18-544 

S$$BAS 

_ 

****** 

5-92 

5-92 

5-94 

5-94 

5-95 

5-95 

5-96 

5-96 

5-98 

5-98 

5-99 

5-99 

5-101 

5-101 

5-103 

5-103 

5-105 

5-105 

5-106 

5-106 

5-10^ 

5-107 

5-108 

5-108 

TMPEXT 

000000  R 

#5-72 

6-140 

VFVCT 

001254  RG 

8-194 

9-213 

10-232 

11-251 

#18-528 

$ALL16 

- 

******      GX 

12-305 

$A7FS 

- 

.*»***     GX 

6-141 

$BFR 

~ 

******     GX 

18-545 

SCBOMG 

- 

******     GX 

19-580 

SCFILE 

001050  RG 

#15-445 

SCLIOS 

~ 

*♦♦*•*     GX 

6-143 

$'"LQJE 

~ 

******      GX 

6-142 

SELINE 

= 

******      GX 

5-92 

5-106 

5-94 
5-107 

5-95 
5-108 

5-96 

5-98 

5-99 

5-101 

5-103 

5-105 

$ERR<X 

000474   R 

#5-107 

12-321 

tERRKY 

000542  R 

#5-108 

13-348 

$ERR17 

000024  R 

#5-92 

6-154 

$ERR22 

000360  R 

#5-103 

12-320 

14-415 

$ERR2! 

000064  R 

#5-94 

18-553 

tERR2A 

000126  R 

#5-95 

18-554 

$ERR25 

000156  R 

#5-96 

18-555 

tERRi' 

000206   R 

#5-98 

14-413 

SERR'-P 

000252  R 

#5-99 

14-414 

VAC2 
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MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 


CALL 
CALLR 
NTLERS 
RETURN 


6-K9 
6-173 
#5-59 
6-164 


6-152 

5-94 
7-201 


6-157 
5-95 


6-159 
5-96 


L     3 

PAGE   2 

CREf        04.00 

7-187 
5-97 


5-98 
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425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 

445  001136 

446  001136 

447  001142 

448  001146 

449  001150 

450  001164 

451  001170 
452 

453  001172 

454  001176 
455 

456  001200 

457  001204 

458  001210 
459 

460  001214 

461  001216 

462  001220 

463  001224 

464  001230 

465  001232 

466  001234 

467  001236 

468  001242 

469  001250 

470  001254 

471  001256 

472  001262 

473  001266 

474  001272 

475  001274 

476  001302 

477  001306 

478  001310 

479  001312 

480  001314 


ZER18 


ZERO  18-BIT  ALLOCATION 


INPUTS: 


OUTPUT  FROM  $ALL18  OR  ALN18 

OUTPUTS: 

ALLOCATION  IS  ZEROED 


ZER16 


ZERO   16-BIT  ALLOCATION 


INPUTS: 

OUTPUT   FROM  $ALL15   OR   $ALL16 


OUTPUT: 


ALLOCATION   IS   ZEROED 


010067  OOOOOOG 
005067  OOOOOOG 
010146 

010167  OOOOOOG 
012601 


ZER18: 


005767 
002006 

010067 
005067 
010167 

010046 
010146 
012700 
012701 
005020 
005301 
001375 
016701 
012767 
026701 
003402 
010167 

'66701 
001407 
066767 
026701 
003765 
000762 
012601 
012600 


OOOOOOG 


OOOOOOG        ZER16: 

OOOOOOG 

OOOOOOG 


811$: 


OOOOOOG 
000400 


82$: 


OOOOOOG 

001000  OOOOOOG 
OOOOOOG 


OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG 


822$: 
83$: 


84$: 


.ENABL  LS8 


MOV 

CLR 

MOV 

ASL$ 

MOV 

MOV 

Tsr 

BGE 

MOV 
CLR 
MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

DEC 

BNE 

MOV 

MOV 

CMP 

BLE 

MOV 

PUTAD 

SUB 

BEQ 

ADD 

CMP 

BLE 

BR 

MOV 

MOV 


RO,$RBLCK 

$RADDR 

R1,-(SP) 

6,fi1 

R1,$RS1ZE 

(SP)+,R1 

.MGMGE 
811$ 

RO,$RADDR 

$R8LCK 

R1,$RSIZE 

RO,-(SP) 

R1,-(SP) 

#$8FR,R0 

#256., Rl 

(RO)t 

Rl 

82$ 

$RSIZE,R1 

*1000,$RS1ZE 

$RSIZE,R1 

83$ 

R1,$RSIZE 

$RSIZc,R1 

84$ 

$RSIZE,$RADDR 

$RSIZE,R1 

83$ 

822$ 

(SP)+,R1 

(SP)i-,R0 


SAVE  BLOCK  NUMBER  (  BIAS  ) 

NO  VIRTUAL  ADDRESS 

SAVE  Rl 

COMPUTE  NUMBER  OF  BYTES 

COPY  NUMBER  OF  BYTES 

RESTORE  Rl 

MEMORY  MANAGEMENT  SYSTEM  ? 
IF  GE,  YES 

SET  ADDRESS 
AND  BIAS 
AND  SIZE 

SAVE  BLOCK  COUNT 
SAVE  NUMBER  OF  BLOCKS 
PREPARE  TO  ZERO  256.  WORDS 

ZERO  THEM 


SET  SIZE  OF  TRANSFER 

SET  MAXIMUM  TRANSFER  SIZE 

LIMIT  TRANSFERS  TO  512.  BYTES 

SET  LAST  TRANSFER  SIZE 

WRITE  ZEROS 

SUBTRACT  OUT  SIZE  WRITTEN 

ALL  DONE 

SET  NEW  DESTINATION  ADDRESS 

IS  THIS  A  SHORT  BLOCK  ? 

NO 

YES 

RESTORE  REGISTERS 


VA"4 
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VACS 


CREATED  BY     MACRO     ON  29-JUN-85  AT   02:10 


SYMBOL  CROSS  REFERENCE 
SYMBOL   VALUE 


BN.LBL 

BN.OPN 

DSKBUF 

FL.CHA 

FMT6 

FM.6 

F2.FIL 

I$$AS 

LSBEXT 

LSBFLG 

LIBLDZ 

LSBMXZ 

LSBSA 

MAPBYT 

R$$EIS 

R$$11D 

S$$BAS 

TSSNHD 

SABFI 

SAZFS 

SBFALL 

SBFBAS 

SBFLBN 

SBFPTR 

SBFXFR 

SCAPR 

SCLDEQ 

SCLIOS 

SCLOPE 

SCUR.N 

SELINE 

$ERR69 

$ERR71 

$ERR72 

$ERR73 

$ERR74 

$ERR75 

SFILEN 

SFLAGS 

$FLAG2 

SIOSB 

$LBN 

SPRV.N 

SREP.C 

SREP.P 

$RLBL 

$RQ5 

$R07 

ITERR 

SVALUE 

$l/FL'/i 


00020A  R 
000130  R 
000000  R 
»»»«♦*  Gx 
000332  R 
000000 

****** 
****** 
****** 

****** 
****** 
****** 
****** 

00035A  R 

****** 
****** 
****** 


GX 

GX 
GX 
GX 
GX 
GX 


=       ****** 

000000 

-  ****** 
=  ****** 
=  ****** 

-  ****** 
=  ****** 

=:  ****** 

=  ****** 

r  ****** 

-  ****** 
=  ****** 

-  ****** 
=  ****** 

000000 
000040 
000070 
0C0U4 
000206 
000260 

::  ****** 

r  ****** 

=  ****** 

-  *»+**« 

-  ****** 

-  ****** 
3  ****** 

-  ****** 
r  ****** 
r  *♦*♦♦* 
=  ****** 
r  ****** 
r  ****** 


GX 

RG 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

R 

R 

R 

R 

R 

R 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

6-1A0 

6-138 
#5-96 

6-136 

5-71 
#5-71 

6-114 

8-205 

8-202 

8-194 

8-196 

8-197 

8-193 
#5-87 

8-205 

8-205 

5-71 

5-75 

8-194 
#6-113 

7-159 
*6-135 
•8-193 
*8-191 
•6-134 
♦8-206 
♦6-121 

6-142 

7-161 

7-160 

5-73 

5-71 
#5-71 
#5-72 
#5-73 
#5-74 
#5-75 
#5-76 

7-157 

6-136 

6-114 

8-219 

8-191 

5-71 

5-74 

5-72 

8-189 

6-131 

6-128 

5-71 
♦6-120 

6-125 


#8-188 

#7-156 

8-188 

5-72 
#5-72 
6-143 
8-211 


6-121 

8-211 

8-211 

5-71 

5-76 


♦8-213 
♦8-192 


7-171 
8-219 


5-72 

7-170 

7-172 

8-220 

8-221 

8-222 

8-223 


♦6-143 
8-192 
5-75 

5-72 
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5-73 
#5-73 


5-74 
#5-74 


5-75 
#5-75 


5-76 
#5-76 


#5-81 


5-72 
5-76 


5-72 


5-73 


-73 


5-74 


5-74 


5-75 


5-73 


5-74 


5-75 


5-76 


5-76 


5-73 


5-74 


5-75 


5-76 
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LOCAL  DATA 


Page  11 


267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 


SUMRON 
INPUTS 


.UMR  ON"  ACTION  ROUTINE 


000512 

000512  052767  OOOOOOG  OOOOOOG 

000520  005767  OOOOOOG 

000524  100406 

000526  005767  000002G 

000532  001005 

000534 

000542 


FE.EXT  OF  $FMASK  SET  IF  11/70 

NETLDR  DATA  BLOCK+2  CONTAINS  UMR  BLOCK  ADDRESS  (IF  ANY) 

OUTPUTS: 

Fl.UMR  OF  SFLAGI  SET 
ERROR  IF  11/70  +  NO  UMR'S 

iuMRON: 


20$: 


BIS 

#H.UMR, 

$FLA61 

SET  THE  BIT 

TST 

.MGEXT 

11/70  TARGET  SYSTEM 

BMI 

20$ 

IF  MI,  NO 

TST 

$NrLHBt-2 

IS  THERE  A  UMR  BLOCK 

BNE 

20$ 

IF  NE,  YES 

EMSG$ 

IK 

RETURN 

M  6 
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$LIBR  -  ".L18R"  ACTION  ROUTINE 


■55 

9^ 

95 

96 

97 

98 

99 

100 

101 

102 

103 

10A 

105 

106  000000 

107  000000 

032767 

OOOOOOG  OOOOOOG 

108  000006 

001443 

109  000010 

032767 

OOOOOOG  OOOOOOG 

110  000016 

001035 

111  000020 

005067 

000000' 

112  000024 

032767 

OOOOOOG  OOOOOOG 

113  000032 

001017 

11 A  000034 

005767 

OOOOOOG 

115  000040 

001003 

116  000042 

117  000046 

103423 

118  000050 

119  000054 

103420 

120  000056 

005767 

000000' 

121  000062 

001413 

122  000064 

123  000070 

000410 

124  000072 

005767 

OOOOOOG 

125  000076 

100402 

126  000100 

127  000104 

128  000110 

103402 

129  000112 

130  000116 

INPUTS 


F2.FIL  SET  IF  VALID  FILE  NAME  HAS  BEEN  SEEN 
F2.LBR  SET  IF  LIBRARY  WAS  ALREADY  RESIDENT 
$LB1AS=LIBRARY  DESCRIPTOR  BIAS  (MAPPED  ONLY) 
$LBADR=LI8RARY  DESCRIPTOR  ADDRESS  OR  0 
$BFPTR=B]NARY  BUFFER  POINTER 


OUTPUTS: 

NONE 

klSR: 


10$: 


20$: 


25$: 

30$: 
40$: 


BIT 

#F2.FIL,$FLAG2  ; 

BEQ 

40$ 

BIT 

#FL.CHA,$FLAGS  ; 

BNE 

30$ 

CLR 

LBLK 

BIT 

#F2.LBR,$FLAG2  ; 

BNE 

20$ 

TST 

SLBADR 

BNE 

10$ 

CALL 

$AL8          ; 

BCS 

40$           ; 

CALL 

XFER 

BCS 

40$ 

TST 

L8LK 

BEQ 

30$ 

CALL 

LINK 

BR 

30$ 

TST 

.MGMGE 

BMI 

25$ 

CALL 

BASE 

CALL 

MAX14 

BCS 

40$ 

CALL 

USE 

RETURN 

WAS  VALID  FILE  NAME  SEEN? 

IF  EQ,  NO 

MUX  CHARACTERISTICS  UPDATE  ONLY  ? 

YES  .. 

INDICATE  NO  LIBRARY  BLOCK  ALLOCATED 

WAS  LIBRARY  ALREADY  RESIDENT? 

IF  NE,  YES 

IS  DESCRIPTOR  ADDRESS  KNOWN? 

IF  NE,  YES 

ALLOCATE  LIBRARY  BLOCK 

IF  CS,  FAILURE 

TRANSFER  LIBRARY  INTO  CORE 

IF  CS,  FAILURE 

WAS  LIBRARY  BLOCK  ALLOCATED? 

IF  EQ,  NO 

LINK  THIS  BLOCK  TO  THE  OTHERS 

MAPPED  TARGET  SYSTEM? 
IF  MI,  NO 

CHECK  BASE  ADDRESS 
ALLOW  ONLY  14.  ETC. 
IF  CS,  FAILURE 
INCREMENT  USE  COUNT 
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A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

BfADR 

Ct$CKP= 

CS$ORE= 

C$$RSH= 

D$$BUG= 

Dt$lSK= 

D$$L11= 

D$$YNC= 

D$$yNM= 

E$SXPR= 

FMT6  = 

fM.6  = 

F$$LVL= 

G$$TPP= 


000000 

000000 

000000 

000000 

OOOOOOR 

000000 

000400 

177564 

1775U 

000000 

000001 

000000 

000000 

000000 

000000 
000001 
000000 


G$$TSS= 
GS$TTK= 
6$$UR0= 
I$$RAR= 
002  I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
L$$ASG= 
L$$DRV= 
LS$P11= 
LT-$11R= 
Mi$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 


000000 
000000 
000000 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
000000 
000000 
000001 
000000 
000124 
000000 
000000 
000000 


M$$NET= 
M$$OVR= 
N$$ACC= 
N$$8Uf= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$URD= 
Q$$OPT^ 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
S$$WRG= 


000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000000 
000000 
000010 
000000 
000001 
000000 
000000 
000000 


S$$YSZ= 
T$$KMG= 
T$$MIN= 
VF.LIB= 
V$$CTR= 
V.ADD 


BIAS 

FLG 

LEN 

LNK 

PDV 

SIZ 
X$$DBT= 
$BFALL= 
$BF8AS= 
$BFL8N= 
$BFXFR= 


007600 

000000 

000000 

000001 

001000 

000006 

000004 

000002 

000012 

000000 

000004 

000010 

000000 

******  Gx 

******  GX 

******  GX 

******  GX 


$CLDEQ= 

***t*« 

GX 

$CL]OS= 

****** 

GX 

$CUR.N= 

****** 

iiX 

$ELINE= 

****** 

(iX 

$ERRY5 

000002R 

$FNR50= 

****** 

GX 

$GETLB= 

****** 

GX 

SIOSB  = 

****** 

GX 

$LBADR= 

****** 

GX 

$LBIAS= 

****** 

GX 

$LBN  = 

****** 

GX 

SLBXFR 

OOOOOORG 

SLLEN  = 

****** 

GX 

$NTLPT= 

****** 

GX 

$READX= 

****** 

GX 

STERR  = 

****** 

GX 

.MGMGE= 

****** 

GX 

002 


.  ABS.  000012 
000170 
DATA    000042 
Errors  detected: 


000 
001 
002 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,REl,CON) 


.«*  Assembler  statistics 


Work  file  reads: 
Work  f i le  writes : 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 


0 

0 

10750  Words 

14440  Words 

RSX-11H/PLUS 


(  42  Pages) 
(  55  Pages) 


Elapsed  time:  00:00:09.04 
SY:VAC9.V2,C132,134]VAC9/C- 


;P=SY:C1,1]RSXMCM.SML/ML,[130,110]NETLI8/ML,[130,10JRSXMCM/PA:1,[132,10]VAC9 
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SALICB  -  ALLOCATE  IC8 


365 
364 

+ 

***  - 

KRBAL  - 

ALLOCATE  A  KRB 

365 

366 

INPUTS: 

367 

$$PRI  = 

PROCESS  PRIORITY 

368 

$$VECT 

=  THE  VECTOR  ADDRESS 

369 

$$CSR  = 

THE  (,if<  ADDRESS 

370 

SSLTA  = 

SLT  ADDRESS 

371 

372 

OUTPUTS: 

373 

R0-R4  = 

DESTROYED 

374 

375 

- 

376 

377  000322 

CRBAL : 

SAVRG 

<R5> 

SAVE  REG 

378  000324 

012701 

OOOOOOG 

MOV 

#$KReLN,Rl 

GET  LENGTH  OF  KRB 

379  000330 

CALL 

$ALL15 

TRY  TO  ALLOCATE  A  KRB 

380  000334 

381 

382 

383 

384  000336 

103464 

BCS 

101$ 

IF  CS,  ALLOCATION  FAILURE 

SETUP 

TEMPLATE  KRB 

012702 

OOOOOOG 

MOV 

#$eFR,R2 

POINT  AT  BUFFER 

385 
386 

.IF  DF 

R$$MPL 

387 

sue 

#K.PfiM,R2 

POINT  AT  KRB  OFFSET  0               ; 

388 
389 

390  000342 

.ENDC 

116762 

OOOOOOG  000000 

Move 

$$PRI,K.PRI(R2) 

STORE  THE  PRIORITY 

391  000350 

016703 

OOOOOOG 

MOV 

$$VECT,R3 

GET  THE  VECTOR  ADDRESS 

392  000354 

006203 

ASR 

R3 

DIVIDED  BY  4 

393  000356 

006203 

ASR 

R3 

394  000360 

110362 

000001 

MOVB 

R3,K.VCT(R2) 

STORE  THE  VECTOR  ADDRESS/4 

395  000364 

016762 

OOOOOOG  000002 

MOV 

$$CSR,K.CSR(R2) 

STORE  THE  CSR  ADDRESS 

396  000372 

397 

398  000374 

010205 

MOV 

R2,R5 

SAVE  BUFFER  ADDRESS 

016701 

OOOOOOG 

MOV 

$SLTA,R1 

GET  THE  SLT  ADDRESS 

399  000400 

116102 

OOOOOOG 

MOVB 

L.DDM(R1),R2 

GET  THE  DDM  PDV  INDEX 

400  000404 

401 

402 

116103 

OOOOOOG 

MOVB 

L.CTL(R1),R3 

GET  THE  CONTROLLER  NUMBER 

.IF  DF 

R$*MPL 

403 

Move 

R3,K.CDN(R5) 

SET  UP  CONTROLLER  NUMBER            ; 

404 

ASLB 

K.C1N(R5) 

405 

.ENDC 

406 
407 
408 
409 
410  000410 

;  STORE 

THE  <R8 

ADDRESS  IN  EVERY 

SLT  ON  THIS  CONTROLLER 

016701 

OOOOOOG 

MOV 

SSLTMA.Rl 

■  GET  THE  SLT  TABLE  ADDRESS 

411  000414 

016746 

OOOOOOG 

MOV 

$SLTNM,-(SP) 

•  GET  THE  NUMBER  OF  SLT  ENTRIES 

412  000420 

012104 

10$: 

MOV 

(R1)+,R4 

•  GET  THE  NEXT  SLT  ADDRESS 

413  000422 

120264 

OOOOOOG 

CMP8 

R2.L.DDM(R4) 

;  IS  THIS  THE  SAME  DEVICE  ? 

414  000426 

001005 

BNE 

20l 

;  IF  NE,  NO  ..  KEEP  LOOKING 

415  000430 

120364 

OOOOOOG 

CMPB 

R3.L.CTLCR4) 
20i 

;  IS  THIS  THE  SAME  CONTROLLER  ? 

416  000434 

001002 

BNE 

;  IF  NE,  NO  ..  KEEP  LOOKING 

417 

418 

.IF  DF 

R$$MPL 

419 

BIT 

#DF.MXU,$DFLA6 

;  KRB  ADJUSTED  YET  ?                 ', 

CMP01] 


CMPOl] 
CMPOI] 
[MP01] 


CMPOl] 
CMPOl] 
CMPOl] 
CMPOl] 


[MP01] 
CMPOl] 
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Table  of  content? 

5-  55    LOCAL  DATA 

6-  65    .ALLPR  -  ALLOCATE  fROM  PROCESS  SPACE 

6-  66    .ALOCB  -  ALLOCATE  FROM  OSR 

7-  195    .DEAPR  -  DEALLOCATE  FROM  PROCESS 
7-  196    .DEACB  -  DEALLOCATE  FROM  DSR 
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VAL16  -  VNP  B 
Symbol  table 


AB.NPV= 

AB.TYP= 

AF.AST= 

Af .ESQ= 

AF.LCK= 

AF.MDE= 

AF.NOT= 

AF.OOB= 

AF.QUE= 

AF.XCC= 

AK.BUF= 

AK.GBI= 

AK.GGF= 

A<.OCB= 

AS.CAA= 

AS.DEL= 

AS.DI5= 

A5.DLI= 

AS.EXT= 

AS.FPA= 

AS.PFA= 

AS.RCA= 

AS.REA= 

AS.RED= 

AS.RRA= 

AS.WRT= 

A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

A.ACC 

A.ACCE 

A. AST 

A. BYT 

A. CALL 

A.CBL 

A. CONN 

A.DEQU 

A.DIS 

A. DISC 

A.DQSR 

A.FLEN 

A.IBUF 

A.ILEN 

A.IMAP 

A.INPU 

A. IOC 

A.IOS 

A.KSRS 

A.LGTH= 

A.LIN 

A.MAS 

A.MPC^ 

A.NPR 


000001 

000002 

000010 

000020 

OOOOAO 

000200 

000002 

OOOOOA 

000100 

000001 

000200 

000202 

000303 

000201 

000006 

000010 

000002 

000001 

00000^ 

000001 

000004 

000002 

000005 

000001 

000003 

000002 

000000 

000000 

000000 

000000 

oooou 

000000 
000006 
000004 
000024 
000002 
000012 
000002 
000002 
000014 
177776 
000011 

oooou 

000016 
000012 
000006 
000003 
000026 
177774 
000014 
000012 
000004 
000011 
000010 


ABS.   177776 
000434 


000 
001 


A .  N'JM 

A.OUTP 

A.PCB 

A.PCBL 

A.PLEN= 

A.POUE 

A.PRI 

A.PRM 

A.PROC 

A.RECE 

A.REL 

A. RES  = 


SBUF 
SLEN 
SMAP 
STA 
STAT 
...TCB 
A.TCBL 
A.TRAN 
BLSIZ 
CM.CDS= 
CM.CEN= 
CM.ELM= 
CM.EXT= 
CM.IND= 
CM.INE= 
Cf1.LKT= 
CM.MSG= 
CM.RMT 
CP.DS8- 
CP.EXT= 
CP.LGO= 
CP.MSG= 
CP.NIO= 
CP.NUL= 
CP.PRV= 
CP.RST= 
CP.SGL= 
C$$CKP= 
C$$ORE= 
C$$RSH= 
C.PCPL 
C.PDPL 
C . PNAM 
C.PRMT 
C.PSTS 
C.PTCB 
D$$SUG= 
D$$ISK= 
D$$L11= 
D$$YNC= 
D$$yNM= 


000010 

000010 

000012 

000000 

000016 

000004 

000002 

000012 

000020 

000016 

000000 

000032 

000022 

000024 

000020 

000015 

000010 

000004 

000006 

000022 

OOOOOOR 

000004 

000003 

000005 

000006 

000002 

000001 

000007 

000011 

000010 

000010 

000400 

000004 

000002 

000100 

000001 

000020 

000200 

000040 

000000 

000400 

177564 

000011 

000010 

000002 

000012 

000006 

000000 

177514 

000000 

000001 

000000 

000000 


(RW,1,GBL,ABS,0VR) 
fRW,I,LCL,REL,CON) 
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E$$XPR= 

000000 

L$$P11=  000001 

P. IOC 

000003 

F$$LVL= 

000001 

L$$11R=  000000 

P.LNK 

000000 

GS.DEL= 

000001 

|V|$$CRB=  000124 

P. MAIN 

000012 

G$$TPP= 

000000 

M$$CRX=  000000 

P.NAM 

000004 

G$$TSS= 

000000 

M$$FCS=  000000 

P.  OWN 

000026 

G$$TTK= 

000000 

M$$MGE=  000000 

P.PRI 

000002 

G$$WRD= 

000000 

M$$NET=  000000 

P.REL 

000014 

G.CNT 

000004 

M$$OVR=  000000 

P. SIZE 

000016 

G.EFLG 

000006 

N$$ACC=  000001 

P.STAT 

000030 

G.GRP 

000002 

N$$BUF=  000001 

P.  SUB 

000010 

G.LGTH= 

000012 

N$$LDV=  000001 

P.SWS7 

000022 

G.LNK 

000000 

N$$MCP=  000001 

P. TCB 

000026 

G.STAT 

000003 

N$$MLL=  000001 

P. WAIT 

000020 

IP.ABO= 

000040 

N$$M0V=  000010 

Q$$OPT= 

000010 

1P.FA<= 

000020 

N$$NCT=  000001 

R$$DER= 

000000 

IP.PND= 

000100 

N$$PEM=  000001 

R$$K11= 

000001 

IP.UMR= 

000200 

O.AST   000006 

R$$SND= 

000000 

I$$RAR= 

000000 

O.EFN   000010 

R$$11M= 

000000 

I$$RDN= 

000000 

O.ESB   000012 

SECTMP 

000002R 

LAST 

000022 

O.LGTH=  000034 

S$$WRG= 

000000 

.ATTL= 

000044 

O.LNK   000000 

S$$YSZ= 

007600 

I.EFN 

000003 

O.MCRL  000002 

T$$KMG= 

000000 

I.FCN 

000012 

O.PTCB  000004 

T$$MIN= 

000000 

I.IOSB 

000014 

O.STAT  000014 

UA.ACC= 

000001 

I.LGTH= 

000044 

PC.ALF=  000004 

UA.ALL= 

000400 

I.  INK 

000000 

PC.ALM=  001000 

UA.CAL= 

000100 

I.LN2 

000006 

PC.HIH=  000001 

UA.COM= 

000200 

I.PRI 

000002 

PC.L0W=  000002 

UA.ECH= 

000004 

I.PRM 

000024 

PC.NRM=  000400 

UA.PRO= 

000002 

I.  TCB 

000004 

PC.XAF=  000010 

UA.PUT= 

000040 

I.UCB 

000010 

PC.XIT=  000200 

UA.SPE= 

000020 

I.XD8F 

000040 

PF.ALL=  177777 

UA.TRA= 

002000 

I.XD8L 

000044 

PF.INS=  000040 

UA.TRN= 

001000 

I.XIOP 

000002 

PF.L0G=:  000100 

UA.TYP= 

000010 

I.XLEN= 

000046 

PF.REQ=  000200 

V$$CTR= 

001000 

I.XLNK 

OOOOOO 

PS.APR=  000007 

X$$DBT= 

000000 

I.XMOD 

000006 

PS.CHK=  010000 

$BFR  = 

»«*♦♦«  GX 

I.XPBF 

000022 

PS.CKP=  040000 

SBIAS  = 

******   GX 

I.XP8L 

000026 

PS.CKR=  020000 

$CRAVL= 

♦»*»*«  GX 

I.XPBV 

000030 

PS.COM=  000200 

$GETAD= 

******  GX 

I.XRBF 

000012 

PS.DEL=  000010 

$PRAVL= 

******   GX 

l.XRBL 

000016 

PS.DRV=  000020 

$PUTAD= 

******   GX 

I.XTC3 

000004 

PS.FXD=  004000 

$RADDR= 

******  GX 

I.XTMO 

000020 

PS.LIO=  001000 

$RBLCK= 

******   GX 

I.XTTB 

000032 

PS.NSF--:  000400 

$RSIZE= 

******  GX 

I.XTTL 

000036 

PS.0UT=  100000 

.ALLPR 

000004RG 

K$$CNT= 

177546 

PS.PER=  002000 

.ALOCB 

000020RG 

K$$CSR= 

177546 

PS.PIC=  000100 

.AL0C1 

000024RG 

K$$LDC= 

000000 

PS.SYS^  000040 

.AL0C2 

000030RG 

K$$TPS= 

000074 

P$$P45=  000000 

.DEACB 

000226RG 

Lt$LP  = 

000000 

P$$URD=  000000 

.DEACl 

000232RG 

L$$ASG= 

000000 

P.BLKS  000016 

.DEAC2 

000236RG 

L$$DRV= 

000000 

P. BUSY  000024 

.DEAPR 

000212RG 

./WP  RVTF  Al 
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SYMBOL 

VALUE 

REFERENCES 

F.RSIZ 

r     »*  t *** 

GX 

•6-150 

*7-227 

SY5FDB 

=     n****  * 

GX 

♦6-150 

•7-227 

$BFR 

-     •*•»«* 

GX 

6-151 

♦6-157 

6-163 

6-169 

6-173 

♦6-179 

6-185 

•6-187 

•7-225 

•7-226 

7-242 

7-2'^'i 

7-253 

♦7-256 

*7-?S? 

7-264 

•7-265 

•7-266 

7-272 

7-273 

7-276 

7-278 

7-279 

♦7-282 

•7-283 

SGETAD 

r     ****** 

GX 

6-150 

6-172 

7-238 

7-247 

7-277 

7-281 

SPUTAD 

=     ****** 

GX 

6-191 

7-227 

7-257 

7-263 

7-267 

7-284 

SRADDR 

-     ****** 

GX 

•6-150 

•7-227 

tRBLCK 

-     ****** 

GX 

•  6-U7 

6-155 

6-162 

6-168 

♦6-169 

k-\ll 

6-184 

•6-186 

♦7-224 

♦7-237 

•7-2A6 

7-252 

♦7-264 

7-271 

7-27^ 

•7-276 

•7-280 

.AMEM 

000000 

RG 

#6-U7 

.DMEM 

000172 

RG 

#7-22^ 

H  13 

VAl??  CREATED  BY     MACRO     ON  29-JUN-85   AT   02:12  PAGE    2 


VBuf  -  VNP  END  OF  TAS<  BUFFER  I  MACRO  VO5.05b  Saturday  29-Jun-85 


02:1 


3  Page  'i 


9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
10 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 

52 
5? 

54 


.TITLE   V8UF  -  VNP  END  OF  TASK  BUFFER  INITIALIZATION 
.IDENT   /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982.  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  TF.EREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  END-OF-TASK  BUFFER 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00     16-APR-82 

DECNET-UM   V3.1 
DECNET-11M-PLU5   VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/5  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


ITS 


',/RiiF    -    \jKiP    FMtl    OF     lAsK    R.lFFFR 


MACRO  V05.03b  Saturday  29-Jun-85  02:13 


Pane  5 


VCEAL   -  VNP  ALLOCATION/DEALlOCA  macro  V05.03b   Saturday  29-Jun-85  02:15     Page   ?-1 
SAL POL   -   ALLOCATE    FROM  EXTENDED   POOL 


1,  15 

02:13 


150  0002^0 

016767 

177536 

OOOOOOG 

MOV 

XAVL,$XAVL 

ISI  000246 

40$: 

swrcHi 

152  000254 

SUTCHO 

15?  000262 

016767 

1775U 

OOOOOOG  50t: 

MOV 

XAVL.SXAVL 

154  000270 

012603 

MOV 

(5P)*,R3 

155  0002^2 

RETURN 

UPDATE  CEX  COP/  OF  LISTHEAD 
RESTORE  DEFAULT  INPUT 
AND  OUTPUT  BUFFERS 
UPDATE  CEX  COPY  OF  LISTHEAD 
RESTORE  REGISTER 


ufFii  -  uMP  ai  I  nrATinw/nFfti 


H  15 

nrA  MACRO  v05.03b  Saturday  29-Jun-85  02:13 


Page  8 


L  16 

VCE4L  CREATED  BY     MACRO     ON  29-JUN-85   AT   02:13  PAGE   3 

MACRO   CROSS  REFERENCE  CREF       OA.OO 


MACRO  NAME 

REFERENCES 

ASL$ 

#5-59 

ASR$ 
CALL 

#5-59 

7-130 

7-133 

7-134 

7-159 

7-145 

7-146 

7-148 

8-188 

8-191 

8-203 

8-205 

8-215 

8-222 

8-224 

8-232 

8-237 

8-250 

8-257 

9-286 

10-320 

10-325 

11-3A9 

11-362 

12-401 

12-416 

13-450 

13-458 

14-495 

14-498 

14-501 

U-502 

U-503 

14-505 

CALLR 
CEACCt 

8-18'! 
#5-60 

7-133 

7-145 

8-188 

8-203 

g-2?^ 

14-495 

14-502 

GET  AD 

#5-59 

7-134 

7-146 

8-191 

8-205 

8-224 

14-498 

14-503 

GETRC 

#5-59 

GETRV 

#5-59 

MAP 

#5-75 

8-213 

8-229 

8-248 

8-252 

PCBDFS 
PUTAD 

#5-59 
#5-59 

5-62 
7-139 

7-148 

8-215 

8-232 

8-237 

8-250 

8-257 

14-501 

14-505 

PUTRC 
RAND 

#5-59 
#7-134 

7-134 

#7-139 

7-139 

#7-146 

7-146 

#7-148 

7-148 

#8-191 

8-191 

#8-205 

8-205 

#8-215 

8-215 

*?-224 

8-224 

#8-232 

8-232 

#8-237 

8-237 

#8-250 

8-250 

#8-257 

8-257 

#14-498 

14-498 

#14-501 

14-501 

#14-503 

14-503 

#U-505 

14-505 

RESMAP 

#5-71 

8-216 

8-233 

RETURN 

7-155 

8-264 

9-297 

10-326 

11-363 

12-422 

12-427 

13-464 

14-512 

SAVMAP 

#5-67 

8-192 

8-211 

8-221 

8-242 

SWTCHI 

#5-59 

7-121 

7-128 

7-151 

8-190 

8-204 

8-223 

8-260 

14-496 

14-506 

SWTCHO 

#5-59 

U-497 

7-122 
14-507 

7-129 

7-152 

8-214 

8-231 

8-236 

8-249 

8-255 

8-259 

M  16 


«C2  -   vN»   "EMPLANE   ACTION  i^OuT   MACRO  V05.05b   Saturday 


n    1 

•Jun-85  02:09     Page   11 


235 
236 

237 
258 
239 
2'.0 
241 
242 
245 
244 
245 
246 
247 
248 
249 
250 
25^ 
252 


$INr3  -  ".INI?"  ACTION  ROUTINE 

INPUTS: 

NONE 

OUTPUTS: 

R0,R1,R2=DESrR0VED 
$VECT3=CURRENT  COPY  OF  SSIZE 


000206 

000206 

C00212  012700  OOOOOOG 

000216  0127C1  OOOOOOG 

000222  0-'2702  000004 

000226 


$INT3: 


CALL 

SVFDDM 

MOV 

#n.IN3,R0 

MOV 

#F1.INT,R1 

MOV 

*4,R2 

CALLR 

VFVCT 

MAKE  SURE  IT'S  A  DDM 

BIT  TO  BE  SET 

BIT  WHICH  MUST  NOT  BE  SET 

VECTOR  INDEX 

CHECK  VECTOR  AVAILABILITY 


N  1 

VAC2  -  VNP  ^EMPlA'E  ACTION  ROuT  MACRO  V05.03b  Saturday  29-Jun-85  02:09  Page  12 


VAC2  CREATED  BY     MACRO     ON  29-JUN-85   AT  02:09 

SYMBOL   CROSS   PEfERENCE 


SYMBOL  VALUE 


$ERR45 

$ERR81 

$ERR85 

$EVEN 

$FILE 

SFILEN 

SriLEX 

tFLAGS 

$FLAG1 

$FLAG2 

SGETRV 

SINT 

SINTX 

SlNTl 

$INT2 

$INT3 

SLFILE 

SLFLD 

tMPLD 

SMPTB 

$MXADD 

SMXLEN 

tMXPTB 

SMXSIZ 

SMXTAB 

tMXVCT 

SNALL 

SNLIB 

SNVECT 

$OFF 

SPRV.N 

SRADDR 

SREP.C 

$RQ1 

$RQ2 

$RQ3 

$RQ4 

SSECSR 

S5IZE 

STERR 

STMFIX 
$;ALUE 


000316  R 
000416  R 
000444  R 
......  GX 

000000  RG 
......  GX 

000050  RG 

GX 

GX 

GX 

GX 

000116  RG 
000064  RG 
000140  RG 
000162  RG 
000206  R6 
000602  RG 
GX 
GX 

000534  RG 
GX 
GX 

000232  RG 
......   GX 

000776  RG 

......   QX 

••••••  GX 

GX 
GX 
GX 
......   GX 

......  GX 

«..••♦  GX 

.».»..  GX 

......  GX 

•♦•♦*•  GX 

•••♦♦•  GX 

001164  RG 

......  GX 

......  GX 


-  ...... 

=  ...... 


:  *..**. 


»..*.* 


=  ...... 

r  ...... 


GX 

GX 


tVECT'  =  ......   GX 

t\/FDDM  =  ......  GX 

tVFDLC  --  .«...»  GX 

SV'FMUX  C01234  RG 

SV'FSPC  =....»•   GX 


REFERENCES 

#5-101 
#5-105 
#5-106 

12-288 
#6-135 

6-139 
#6-''47 

12-300 

14-370 

6-136 

18-544 
#8-189 
#7-168 
#9-208 
#10-227 
#11-246 
#14-376 

14-383 

14-373 
#14-365 
•12-308 
•12-298 
#12-269 
•12-304 
#15-432 

18-536 
•12-307 

13-340 
•18-547 
•15-437 

5-92 
•18-544 

5-94 

19-572 

12-313 

15-451 

7-169 

12-281 
#16-481 

•  7-17'. 
15-437 
5-92 
5-106 
6-146 
6-145 

•14-374 

•  15-465 
•18-533 

8-190 
14-366 
12-271 
12-273 


14-404 
17-511 
16-495 
14-397 
12-287 


16-484 
14-380 


•15-441 


13-338 


5-98 
14-399 

14-388 

12-286 
15-455 
5-94 
5-107 

•6-148 
14-384 

9-209 

15-434 
14-368 


15-445 
14-396 


17-509 
18-531 


5-99 
15-459 


12-289 
15-462 
5-95 
5-108 

7-172 
14-386 


10-228 

16-483 
14-378 


M     2 

PAGE   2 

CREF       04.00 


15-457 
15-456 


18-538 


5-101 

5-103 

16-486 

•12-290 

♦15-464 

5-96 

12-291 
•16-489 
5-98 

7-173 

14-591 

•12-274 
•14-406 

11-247 

12-270 

#17-508 
15-436 

18-529 

5-105 


•12-312 
18-533 
5-99 


12-276 
•15-438 


15-435 


5-106 


14-595 
5-101 


12-278 
15-447 


16-482 


5-107 


14-402 
5-105 


12-284 
15-449 


5-108 


•14-405 
5-105 


•12-295 
15-454 


VAC2 
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N     2 


M    3 


■«F!LE"ID"VAC4 


VV    vv 

AAAAAA 

rccccccc 

44    44 

vv    vv 

AAAAAA 

cccccccc 

44    44 

vv    vv 

AA 

AA 

44    44 

vv    vv 

AA 

AA 

44    44 

vv    vv 

AA 

AA 

44    44 

vv    vv 

AA 

AA 

44    44 

vv    vv 

AA 

AA 

4444A44444 

vv    vv 

AA 

AA 

44^4444444 

vv    vv 

AAAAAAAAAA 

44 

vv    vv 

AAAAAAAAAA 

^^ 

vv  vv 

AA 

AA 

44 

vv  vv 

AA 

AA 

44 

vv 

AA 

AA 

cccccccc 

44 

vv 

AA 

AA 

cccccccc 

44 

LL 

sssssscs 

TTTTTrrTTT 

LL 

ssssssss 

TITTTT'-TIT 

_L 

S5 

TT 

,L 

ss 

T 

LL 

ss 

V 

_L 

ss 

TT 

LL 

ssssss 

TT 

-L 

S5SSSS 

TT 

LL 

ss 

TT 

LL 

ss 

TT 

LL 

ss 

TT 

LL 

SS 

TT 

LLLLLLLLLL 
LLLLLLLLLL 

ssssssss 
ssssssss 

TT 
TT 
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VA.-^  -  VNP  TEMPLATE  ACTION  ROUT  MACRO  V05.05b  Saturday  29-Jun-85  02:09  Page  13-1 

A81  0013^6  RETURN 

A82 

483  .DSABL  LS8 

48A 

485        000001  .END 


N  4 
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VAC5       CREATED  BV  MACRO  ON  29-JUN-85  AT  02:10     PAGE  I 

SYMBOL  CROSS  REFERENCE  CREF   0'..00 

SYMBOL  VALUE  REFERENCES 

.BASES  =  .♦.*•*  6X     5-87      6-120     „  ^„^ 
.MGMGE  =  "•••♦  GX     6-117     6-125     8-208 


N  5 

VAC5      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:10     PAGE  3 
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VAC6  -  VNP  TEMPLATE  ACTION  ROUT  MACRO  V05.05b  Saturday  29-Jun-85  02:10  Page  12 
LOCAL  DATA 


287 
288 
289 
290 
291 
292 
295 
29A 

296  00054'^  iuMROF:  : 

297  00054A  042767  OOOOOOG  OOOOOOG        BIC     #f 1 .UMR, tFLAGI   ;  CLEAR  THE  BIT 

298  0O05S2  RETURN 


IUMROF  -  ".UMR  OFF"  ACTION  ROUTINE 

INPUTS: 

NONE 

OUTPUTS: 

F1.UMR  IN  SFLAGI  IS  CLEARED 


I  N  6 
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132 

133 

13A 

135 

136 

137 

138 

139 

140 

K1 

H2 

K3  000120 

K4  000124 

145  000126 

146  000134 

147  000136 

148  000144 

149  000146 

150  000154 

151  000156 

152  000162 

153  000164 

154  000172 

155  000176 

156  000200 

157  000204 

158  000212 

159  000214 

160  000220 

161  000222 

162  000226 

163  000230 

164  000234 

165  000236 
166 

167 
168 
169 

170  000240 

171  000244 

172  000252 

173  000256 

174  000264 

175  000270 

176  000274 

177  0003C0 

178  CO0302 


005767 
100414 
032767 
001041 
026767 
001412 

000406 
005767 
001403 


103417 
016701 
032767 
001003 

000402 

103411 

103413 


OOOOOOG 

017777     OOOOOOG 

OOOOOOG  OOOOOOG 


XFER   -   TRANSFER  LIBRARY   FILE    INTO   CORE 

INPUTS: 

$BFALL=ALLOCATION  SIZE  NEEDED 
$BFLBN=LOGICAL  BLOCK  NUMBER 
$BFXFR=TRANSFER  SIZE 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 


XFER: 


OOOOOOG 


5$: 


10$: 


OOOOOOG 
OOOOOOG  OOOOOOG 


15$: 
18$: 


20$: 


TST 

BMI 

BIT 

BNE 

CMP 

BEQ 

EMSG$ 

BR 

TST 

BEQ 

EMSG$ 

CALL 

BCS 

MOV 

BIT 

BNE 

CALL 

BR 

CALL 

BCS 

CALL 

BCS 

RETURN 


.MGMGE 

5$ 

*17777, SBFBAS 

101$ 

$VALUE,$BFBAS 

10$ 

y2 

10$ 

$BF8AS 

10$ 

Y7 

MAX  14 

20$ 

$BFALL,R1 

#F1.UMR,$FLAG1 

15$ 

$ALN18 

18$ 

$ALL18 

111$ 

$LBXFR 

121$ 


ERROR   C0;\IDITI0NS 


016701 
000261 


0000006 


101$ 
111$ 
121$ 


CALL  $L8ERR 

EMSG$R  Y3 

CALL  $L8ERR 

EMSG$R  Y4 


MOV 

CALL 

CALL 

SEC 

RETURN 


$BFALL,R1 

$DEA18 

$LBERR 


MAPPED  TARGET  SYSTEM? 

IF  MI,  NO 

BUILT  TO  SOME  4K  BOUNDARY? 

IF  NE,  NO 

BUILT  FOR  CORRECT  APR? 

IF  EQ,  YES 

PRINT  WARNING  MESSAGE 

BUILT  FOR  BASE  ADDRESS  OF  0? 

IF  EQ,  YES 

PRINT  WARNING  MESSAGE 

ALLOW  ONLY  14.  ALLOCS/LIBRS 

IF  CS,  TOO  MANY  ALREADY 

GET  ALLOCATION  SIZE  NEEDED 

IS  UMR  MAPPING  NEEDED  ? 

IF  NE,  YES 

ALLOCATE  FROM  NON-MAPPED  AREA 

ALLOCATE  FROM  NT  POOL 
IF  CS,  FAILURE 
TRANSFER  LIBRARY  INTO  CORE 
IF  CS,  FAILURE 


CLEANUP  AFTER  AN  ERROR 

LIBRARY  BASE  ADDRESS  NOT  MULTIPLE  OF  4K 

CLEANUP  AFTER  AN  ERROR 

LIBRARY  ALLOCATION  FAILURE 

GET  LIBRARY  SIZE 

DE-ALLOCATE  LIBRARY 

CLEANUP  AFTER  AN  ERROR 

RETURN  C-BIT  SET 
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56 
5,' 
58 
59 
60 
61 

•..! 

6A 

65 

66  000000 

67 

68 

69 

70 

71  000000 

72 

75 

71, 

75   000000 


■  *** 

;  LIBRARr  MACROS 

■  **  * 

.MCALL  EMSG$R,N^LER$ 
.ENA8L  LC 

■  *** 

■  LOCAL  DATA 

;  *** 

.PSECT  DATA.D 

;  ERROR  MESSAGE  (FORMAT  STRING  ADDRESS  DEFINED  GLOBALLY  IN  "TMPAC7") 

NTLERS  ,Yl,2,$TERR,$REP.C,$ELINE,<Library  block  allocation  failure. > 

.EVEN 

.PSECT 
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\/AC9  CREATED  BY     MACRO     ON  29-JUN-85  AT   02:11 

SYMBOL    CROSS   REFERENCE 


6-172 


SYMBOL 

VALUE 

REFERENCES 

BFADR 

000000 

R 

#5-92 

.6-115 

FMT6 

z 

*♦* t ** 

GX 

5-97 

FM.6 

r 

000000 

#5-97 

I$$AS 

- 

****** 

6-179 

R$$EIS 

r 

****** 

6-179 

RtSHPL 

= 

****** 

5-71 

6-123 

R$$11D 

r 

****** 

6-179 

S$$BAS 

= 

****** 

5-97 

5-97 

SBFALL 

r 

****** 

GX 

6-173 

$BFBAS 

= 

****** 

GX 

6-177 

SBFLBN 

r 

****** 

GX 

6-116 

6-117 

SBFXFR 

= 

****** 

GX 

6-118 

SCLDEQ 

- 

****** 

GX 

6-121 

SCLIOS 

- 

****** 

GX 

6-187 

SCUR.N 

= 

****** 

GX 

5-97 

SELINE 

r 

****** 

GX 

5-97 

$ERRY5 

000002 

R 

#5-97 

6-188 

$FNR50 

= 

****** 

GX 

6-169 

6-170 

SGETLB 

■r 

****** 

GX 

6-16A 

$1088 

= 

****** 

GX 

6-187 

SLBADR 

~ 

****** 

GX 

6-168 

SLBIAS 

r 

****** 

GX 

6-163 

$LBN 

- 

-.***** 

GX 

*6-116 

•6-117 

SLBXFR 

000000 

RG 

#6-114 

$LLEN 

= 

****** 

GX 

*6-118 

$NTLPT 

= 

****** 

GX 

6-165 

SREADX 

= 

****** 

GX 

6-119 

STERR 

= 

****** 

GX 

5-97 

.MGHGE 

= 

****** 

GX 

6-175 

M    9 
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CREF        Oii.OO 
6-189 


7-205 


6-171 


vAr9 
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SALICB  -  ALLOCATE  KB 


M  10 

08-Jul-85  22:06  Page  9-1 


420 

A21 

422 

A23 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

4<.9 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 


000436  010064  OOOOOOG 

000442  005316 

000444  003365 

000446  005726 


15$: 
20$: 


000450 
000456 
000464 
000502 

000504 


000506 


BNE  15$ 

SUB  #K.PRM,R0 

BIS  *Df .MXU,$DFLAG 

.ENDC 

MOV  R0,L.KRBA(R4) 

DEC  (SP) 

BGT  10$ 

TST  (SP)+ 

.IF  DF  :^$$MPL 

BIC     [)F.MXU,$DFLAG  ; 

CLRS  K.I0C(R5)       ; 

MOV  *KS.0FL,K.STS(R5) 

CLRB  K.HPU(R5) 

CLR  K.0WN(R5) 

MOV  $URM,K.URH(R5) 

CLR  K.CRQ(R5) 

MOV  RO.RI 

ADD  #K.CRQ,R1 

MOV  R1,K.CRQt2(R5) 

CLR  R1 

M0V8  K.C0N(R5),R1 

ADD  $CT8AD,R1 

MOV  R0,L.KRB(R1) 

SUB  #-<K.PRM>,RO 
.ENDC 

SWTCHI 

SWTCHO 

PUTRC  RO,#$KRBLN 

RESRG  <R5> 


IF  YES  -  BRANCH 

ADJUST  ADDRESS  TO  OFFSET  0 

ONLY  ADJUST  ONCE 


STORE  THE  KR8  ADDRESS  IN  THE  SLT 
LOOP  <SLTNM>  TIMES 


RETURN 
ERROR  cor  ITIONS 
101$:   EMSG$R  9C 


CLEAN  UP  STACK 


RESET  MUX  KRB  ADJUSTMENT  FALG 
INITIALIZE  I/O  COUNT 
;  SET  OFFLINE  STATUS 
CLEAR  HIGHEST  UNIT  NUMBER 
NO  OWNING  CONTROLLER 

STORE  THE  UNIBUS  RUN  MASK 
INITIALIZE  CONTROLLER  REQUEST  QUEUE 


INIT  REG 

GET  CONTROLLER  NUMBER 
CALCULATE  START  OF  CTB 
STORE  KRB  ADDRESS  IN  CTR 
SET  ADDRESS  TO  START  OK  KRB 


WRITE  KRB  TO  IMAGE 
RESTORE  REG 


KRB  ALLOCATION  FAILURE 


;CMP01J 
;[MP01] 
.•CMPOIJ 

;[MP01] 


;[MP01] 
; CMP01 ] 
;[MP01] 
; [MP01 T 
;[MP01] 
;[MP01] 

;[MP01] 
;CMP01] 
;CMP01] 
;[MP01] 
;[MP01] 
;[MP01] 

;[MP01] 
;[MP01] 
.-CMPOn 
.-flPOl] 
;[MP01] 

;[MP01] 
.-CMPOI] 
;CMP01] 
; EMPOI ] 
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1 
2 
3 

5 
6 

7 
8 
9 

10 
11 
12 
15 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE  VAL16  -  VNP  BVTE  ALLOCATION  RO'JTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  Of  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  SINGLEWORD  ADDRESSABLE  ALLOCATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27--FEB-78 

VEr;SION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V5.0 
DECNET-11M-PLUS  VI. 0 

3.1)0  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI .1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Mi'cro/RSX  Vl.O 
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Symbol  table 

Errors  detected;  0 

•  Assernbler  statistics 

Work      fiLe     --eads:  0 

Work      file   writes:  0 

Si?e  of  work    tile;  16C05  Words     (   63  Pages) 

Size  of   core  pool:  1^608  Words      (   67  Pages) 

Ooerating      system:  R5X-11M/PLUS 

SYfvALl'6!v2!n32;°34]VALl6/CR/-SP  =  SY:[1  J]RSXMCM.SML/MLjl30J10]NETLie/ML,['30J0JRSXMCM/PAn  J132J0:VAL 
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VAL22  CNEAIBD  BY     MACRO     ON  29-JUN-85   AT   02:12  PAGE   2 

MACRO   CROSS   RffERENCE  CREF        OA.OO 

MACRO   ^AME  REFERENCES 

CAU  *6-1^0  6-172  6-191  1-271  7-238  1-21,1  1-2'il  l-2bl  l-2bl  1-211 

7-281  7-28^ 

ERBLKt  #6-lA'. 

ERMS&S  #6-lAA 

ERRPTt  #6-HA 

GETAD  «6-UA  6-150  6-172 

PUTAD  #6-UA  6-191  7-227 


RAND 

#7-281      7-281     #7-28A 
RE'URN         6-19^      7-285 


7-238 

7-2A7 

1-211 

7-281 

7-257 

7-263 

l-2bl 

7-284 

6-172 

#6-191 

6-191 

ltl-221 

1-221 

l>l-2li 

7-257 

#7-263 

7-263 

#7-267 

l-2hl 

111-211 

7-28A 

#6-'50     6-150    #6-172     6-172    #6-191     6-191    ltl-221  1-221  #7-238     7-238 

#7-2A7     7-2A7     #7-257     7-257     #7-263     7-263     #7-267     7-267     ltl-211  1-211 
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56 

57 

58 

59 

60 

61 

62 

63 

6i 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78  000000 

79 

80 


83  000000 

84  000002 


THIS  MODULE  CONTAINS  A  BUFFER  POOL  WHICH  IS  LOCATED  IN  THE  PSECT 
"..POOL".  THIS  PSECT  ASSIGNMENT  PLACES  THE  POOL  AT  THE  END  OF  THE 
TASK  IMAGE.  THUS,  ALL  SPACE  BETWEEN  THE  START  OF  THE  PSECT  AND  THE 
END  OF  THE  TASK'S  PARTITION  CAN  BE  ASSIGNED  TO  THE  POOL.  ON  A  MAPPED 
SYSTEM,  THE  POOL  CAN  BE  INCREASED  BY  INSTALLING  THE  TASK  WITH  THE 
"/INC=''  SWITCH.  ANY  ONE-TIME  INITIALIZATION  CODE  CAN  BE  ASSIGNED  TO 
THE  POOL  BY  NAMEING  ITS  PSECT  "..♦*••",  WHERE  "«•••"  MUST  BE  HIGHER  IN 
COLLATING  SEQUENCE  THAN  "POOL".  THE  RSX11M  ALLOCATION  ROUTINES  "SALOCI 
AND  "SDEACI   FROM  THE  MODULE  "CORAL"  MAY  BE  USED  IN  CONJUNCTION  WITH 
THIS  POOL. 

IN  AN  OVERLAID  ENVIRONMENT,  THE  MODULE  VBUF  MUST  APPEAR  IN  THE  ODL 
AS  A  CO-OVERLAY  AND  NOT  AS  AN  ORDINARY  OVERLAY.  E.G.: 

.ROOT   R00T-MOVR1,VBUF) 

.MCALL  GREG$S,GTSK$5 
.PSECT  DATA,D 


000000 
000000 


85 

86 
87 
88 

89  000004  000003 

90  000006  000000 

91  OOCO'O  000000 


POOL  LIMITS 

ixxeUF: :.WORD   0 
$XXLEN::.WORD   0 


"CORAL"  POINTERS 

.WORD   3 
$XXAVL::.WORD   0 
.WORD   0 


STARTING  ADDRESS 
LENGTH  IN  BYTES 


ROUNDING  FACTOR 

POINTER  TO  FIRST  FREE  BLOCK 
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157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181  000274 

182  000274 

052700 

000001 

183  000300 

001002 

184  000302 

185  000306 

010446 

186  000310 

010546 

187  000312 

010005 

188  000314 

189  000324 

012^67 

000004 

190  000332 

191  000340 

192  000350 

193  000354 

012703 

000000' 

194  000360 

061301 

195  000362 

042301 

196  000364 

001002 

197  000366 

000167 

000406 

198  000372 

016713 

OOOOOOG 

199  000376 

005746 

200  000400 

201 

202  000404 

011367 

177412 

016716 

177406 

203  000410 

204  000422 

205  000430 

206  000440 

016703 

177552 

207   000444 

001402 

208  000446 

020503 

209  000450 

103355 

210 

211  000452 

212  000456 

010367 

177324 

i'Z   000462 

.SSriL   IDEPOL  -  DEALLOCATE  NETWORK  POOL 

'••*  -  SDEPOL  -  DEALLOCATE  STORAGE  SACK  TO  THE  NETWORK  POOL 

THIS  ROUTINE  IS  CALLED  TO  DEALLOCATE  A  CORE  BUFFER  IN  EXTENDED  POOL. 
THE  BLOCK  IS  INSERTED  INTO  THE  FREE  BLOCK  CHAIN  Br  CORE  ADDRESS.  IF 
AN  ADJACENT  BLOCK  IS  CURRENTLY  FREE,  THEN  THE  TWO  BLOCKS  ARE  MERGED 
AND  INSERTED  IN  THE  FREE  BLOCK  CHAIN. 


INPUTS: 


RO=UNMAPPED  ADDRESS  OF  THE  CORE  BUFFER  TO  BE  DEALLOCATED. 
R1  =  S.VE  Of  THE  CORE  BUFFER  TO  DEALLOCATE  IN  BYTES. 

OUTPUTS: 

THE  CORE  BLOCK  IS  MERGED  INTO  THE  FREE  CORE  CHAIN  BY  CORE 
ADDRESS  AND  IS  MERGED  IF  NECESSARY  WITH  ADJACENT  BLOCKS. 

REGISTERS: 

R2,  R3  ARE  MODIFIED 


SDEPOL: 


10$: 


OOOOOOG 


15$: 


20$: 


30$: 


40$: 


BIT 
BNE 
CALLR 

m\i 

MOV 

MOV 

CEACC$ 

MOV 

SWTCHl 

GETAD 

SAVMAP 

MOV 

ADD 

BIC 

BNE 

JMP 

MOV 

TST 

MOV 

MOV 

CEACC$ 

SUTCHI 

GETAD 

MOV 

BEQ 

CMP 

BHIS 

SAVMAP 

MO^ 

MAP 


#1,R0 

loi 

$DEA16 

R4,-(SP) 

R5,-(SP) 

R0,R5 

R0,R4 

#4,$RSI7E 

#LOCBUF 

R4 

#XAVL-2,R3 

(R3),R1 

(R3)*,R1 

15$ 

70$ 

$XAVL,(R3) 

-(SP) 

(R3),L0CBF2 

L0C8F2,(SP) 

L0C8F2,R2 

«L0C8F2 

R2 

L0C6F2,R3 

40$ 

R5,R5 

20i 


R5,L0CBUF 
4(SP) 


IS  THE  BLOCK  IN  EXTENDED  POOL  ? 
IF  NE,  YES 

ELSE,  DEALLOCATE  RSX  CORE  BLOCK 
SAVE  SOME  REGISTERS 

COPY  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  FOUR  BYTES 

SET  UP  LOCBUF  AS  INPUT  BUFFER 

READ  CURRENT  BLOCK  (ONLY  4  BYTES) 

SAVE  CURRENT  MAPPING 

POINT  TO  ALLOCATION  MASK  WORD 

ROUND  TO  NEXT  BOUNDARY 

CLEAR  EXCESS 

IF  SOMETHING  TO  RETURN  -  BRANCH 

IF  EQ,  NOTHING  TO  RETURN 

COPY  CEX  ALLOCATION  LISTHEAD 

RESERVE  A  WORD  ON  THE  STACK 

SAVE  FIRST  ENTRY  IN  LISTHEAD 

SAVE  UNMAPPED  ADDRESS  IN  RESERVED  WORD 

CONVERT  TO  MAPPED  ADDRESS 

SET  UP  L0CBF2  AS  INPUT  BUFFER 

READ  LISTHEAD  INTO  L0C8F2 

GET  ADDRESS  Of  NEXT  BLOCK 

IF  EQ  END  OF  CHAIN 

BLOCK  GO  BEFORE  HERE? 

IF  HIS  NO 

SAVE  CURRENT  MAPPING 
ASSUME  BLOCKS  NOT  ADJACENT 
MAP  TO  BLOCK  BEING  DEALLOCATED 


yrcAi     _ 
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••f  !Lt««lD««»/CEX 


VV    vv 

cccccccc 

EEEEEEEEEE 

XX      XX 

vv    vv 

cccccccc 

EEEEEEEEEE 

XX      XX 

VV    vv 

EE 

XX      XX 

vv    vv 

EE 

XX      XX 

vv    vv 

EE 

XX   XX 

vv    vv 

EE 

XX   XX 

vv    vv 

EEEEF-F^ 

XX 

vv    vv 

EEEEbac 

XX 

vv    vv 

EE 

XX   XX 

vv    vv 

EE 

XX   XX 

vv  vv 

EE 

XX      XX 

vv  vv 

EE 

XX      XX 

vv 

cccccccc 

EEEEEEEEEE 

XX      XX 

vv 

cccccccc 

EEEEEEEEEE 

XX      XX 

LLLLLLLLL 
LLiLLLUL 


SS 
55 
55 
55 


SS555SS5 
SSS55S5S 


TTTTT 
TTTTT 


■TTTT 
•TTTT 


SS5S5S 
5SSSS5 


SS5S5SSS 
55S5S55S 


55 
55 
55 
55 
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25'. 
255 
256 
25'' 
258 
259 
260 
26' 
262 
265 
26C 
265 
266 
267 
268 

269  000232 

270  000252 

271  000236 

272  000242 

273  000246 

274  000252 
275 

276  000260 

277  000266 

278  000270 

279  000274 

280  000276 
231  000302 

282  000306 

283  000310 

284  000314 

285  000320 

286  000322 

287  000526 

288  000552 

289  000336 

290  000342 

291  000546 

292  000552 
295  000354 

294  000356 

295  000560 

296  000564 

297  000366 

298  000570 

299  000574 

500  000576 

501  000404 
302  000406 
503  000410 

304  000414 

305  000420 

306  000424 

507  000426 

508  000452 
309  000436 
510  000440 


SMxPie 


'.MXPT8"  ACTION  ROUTINE 


INPUTS: 

$$MUX/$VALUE  =  FILE  REPEAT  COUNT 
$FILEN=SECONDARY  FILE  NAME 

OUTPUTS: 

$MXADD=MUX  TABLE  ADDRESS 
$MXLEN=SIZE  OF  SECONDARV  TEMPLATE  FILE 
$MXSIZ=SIZE  OF  ALL  MUX  TABLES 
RO,R1,R2=DESTROYED 


SMXPTB: 


012700  COOOOOG 

016767  OOOOOOG  OOOOOOG 

022767  000400     OOOOOOG 

105477 

005767  OOOOOOG 

001475 


105466 

112722  OOOOOOG 

116722  OOOOOOG 

010246 

016746  OOOOOOG 


016700  OOOOOOG 

012667  OOOOOOG 

166700  OOOOOOG 

012602 

005001 

060001  10$: 

005367  OOOOOOG 

001574 

005400 

010067  OOOOOOG 

005000 

052767  OOOOOOG  OOOOOOG 

001014 

005201 

042701  000001 

010167  OOOOOOG 

105425 

105267  OOOOOOG 

010067  OOOOOOG 

110022  20$: 

000300 


CALL 

SVFDDM 

CALL 

$VFMUX 

MOV 

«rVMXT,RO 

lALL 

$   ^C 

MOV 

$S  jX,$VALUE 

CMP 

#256.,$VALUE 

BLO 

101$ 

TST 

$VALUE 

BEQ 

30$ 

CALL 

MAX14 

CALL 

$RQ4 

BCS 

30$ 

MOVB 

#.MXPTB,(R2)+   , 

MOVB 

$VALUE,(R2)t 

MOV 

R2,-(SP) 

MOV 

$SIZE,-(5P) 

CALL 

$FILE 

CALL 

$EVEN 

MOV 

$SIZE,RO 

MOV 

(SP)+,$SIZE 

SUB 

$SIZE,RO 

MOV 

(SP)+,R2 

CLR 

R1 

ADD 

R0,R1 

DEC 

SVALUE 

BNE 

10$ 

NEG 

RO 

MOV 

RO,$MXLEN 

CLR 

RO 

BIT 

#FL.CHA,$FLAGS 

BNE 

20$ 

INC 

Rl 

BIC 

1,R1 

MOV 

t;i,$Mxs;z 

CALL 

$ALL16 

BCS 

111$ 

INC8 

$NALL 

MOV 

RO,$MXADD 

MOVB 

R0.(R2)+ 

SWAB 

RO 

MAKE  SURE  IT'S  A  DDH 

AND  A  MUX  LINE 

MAKE  SURE  THIS  IS  THE  ONLY  OCCURANCF 

d6"iT  <UNIT  C0UNT>  TIMES 

IS  COUNT  >  256.  ? 

IF  LO,  YES 

IS  COUNT  0  7 

IF  EQ,  YES 

ALLOW  ONLV  14.  ALLOCATIONS 

REQUEST  BINARY  FILE 

IF  CS,  NO  ACCESS 

STORE  FUNCTION  CODE 

AND  FILE  REPEAT  COUNT 

SAVE  POINT  TO  BINARY  INFO. 

SAVE  CURRENT  LINE  TABLE  SIZE 

PROCESS  SECONDARY  TEMPLATE 

AUTOMATICE  WORD  RE-ALLIGNMENT 

SAVE  CURRENT  POSITION  IN  BINARY  BUFFER 

REST'.RE  SIZE  FROM  START  OF  FILE 

CALCULATE  SIZE  OF  FILE 

RESTORE  POINTER  TO  BINARY  3UFFER 

INITIALIZE  DATA  BASE  SIZE 

CALCULATE  DATA  BASE  SIZE 

BY  <FILE  COUNT>  «   <FILE  SIZE> 

GET  FILE  SIZE  AS  NEGATIVE 

SAVE  MUX  TABLE  LENGTH 

ASSUME  MUX  UPDATE 

MUX  UPDATE  ? 

IF  NE,  YES 

ROUND  UP  TO  MULTIPLE  OF  2 

SAVE  MUX  TABLE  SIZE 
TRY  TO  ALLOCATE  MUX  TABLES 
IF  CS,  ALLOCATION  ERROR 
TALL"  SUCCESSFUL  ALLOCATION 
SAVE  ACDRESS  OF  'TMPvCT' 
STORE  AD.IRESS 
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15-!,38 

U-401  15-461 


SYMBOL 

VALUE 

REFERENCES 

SSMTP 

^ 

****** 

r,x 

U-37A 

SSMUX 

- 

****** 

GX 

12-274 

SSVBCT 

~ 

****** 

GX 

18-535 

.EOF 

- 

****** 

GX 

12-315 

.FILE 

n 

****** 

GX 

15-446 

.INT 

= 

****** 

GX 

^-171 

.LFILE 

r 

****** 

GX 

14-382 

.MPTAB 

- 

GX 

14-372 

.MXPTB 

= 

M-kt   *  *  * 

GX 

12-285 

.MXTAB 

= 

*♦*«** 

GX 

15-439 

.NSO 

- 

****** 

GX 

5-80 

.NSl 

- 

****** 

GX 

5-81 

.NS2 

= 

****** 

GX 

5-82 

.NS3 

3 

****** 

GX 

5-83 

.NS^ 

- 

****** 

GX 

5-84 

.NS5 

~ 

****** 

GX 

5-85 

.NS6 

- 

GX 

5-86 

.NS7 

- 

****** 

GX 

5-87 

.SECSR 

~ 

****** 

GX 

16-488 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE 
.IDENT 


VAC4  -  VNP  TEMPLATE  ACTION  ROUTINES 
/V05.00/ 


COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  TH'S  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  N"iTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQI."  MENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  4 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IPI^NT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00     16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PI  US   VI. 1 

4.00     07-N0V-83 

DECNET-11M  V4.0 
DECNET-'IM-PLUS   V2.0 

5.00     22-JUL-85 

DECnet-llM/S   V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Mi'cro/RSX   Vl.O 
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ALLERR 

At$CHK= 

A$$CPS= 

A$tPRI= 

A$$TRP= 

C$$C<P= 

C$$ORE= 

C$$RSH= 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

FL.CHA= 

FMT2 

FMT6 

FM.2   = 

FM.6  = 

F$$LVL= 

F1.LIMR  = 

F2.F1L= 

G$$TPP= 

G$$TSS= 

G$$TTK= 


00071 2R 

000000 

000000 

000000 

000000 

000000 

000400 

17756A 

177514 

000000 

000001 

000000 

000000 

000000 

»***»»  GX 

000360R 

000377R 

000000 

000000 

000001 

♦*»»»*  GX 

»**»♦«  GX 

000000 

000000 

000000 


G$$WRD= 
I$$RAR= 
I$$RDN= 
K1SAR0= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
MAPBYT 
MAPP 
002  MAXU 
002  M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$HGE= 
M$$NET= 
M$$OVR= 
N$$ACC= 
N$$BUF= 
N$$LDV= 


000000 

000000 

000000 

♦»**«*  GX 

177546 

177546 

000000 

000074 

000000 

000000 

000000 

000001 

000000 

000023R 

000002R 

001046R 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 


N$$MCP= 
Nt$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$WRD= 
Q$$OPT= 
REP6 
R$$OER= 
R$$K11= 
R$$SND= 
R$$11M= 
002  S$$WRG= 
002  S$$YSZ= 
T$$KMG= 
T$$MIN= 
UISARO= 
V$$CTR= 
X$$D8T= 
ZER16 
ZER18 
$ALL16= 
$ALL18= 
$ALN18= 


000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

OOllOOR 

000000 

000001 

000000 

000000 

000000 

007600 

000000 

000000 

******  GX 

001000 

000000 

001200R 

001136R 

******  GX 

******  GX 

******  GX 


.  ABS. 

000000 

000 

(RW,I,GBL 

ABS 

OVR) 

001320 

001 

(RW.I.LCL 

RbL 

cun; 

DATA 

000420 

002 

(RW,C,LCL 

RbL 

tUNJ 

Errors 

detected: 

0 

.**  Assembler  statistics 


Work  file  reads:  0 

Work  file  writes:  0 

Size  of  work  file:  10552  Words  (  42  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 


$BFALL= 

$BFBAS= 

$8FLBN= 

$BFPTR= 

$BFR  = 

$BFXFR= 

SBINF 

SBING 

$CAPR  = 

$CLDEQ= 

$CLI0S= 

SCORE 

SCOREI 

$C0RE2 

SCORK 

$CUR.N= 

SCVAL  = 

$ELINE= 

SERRZA 

$ERR26 

$ERR39 

$ERR76 

$ERR77 

$ERR78 

$FLAGS= 


GX 
GX 
GX 
GX 
GX 
GX 


****** 

****** 

****** 

****** 

****** 

****** 

000004RG 

OOOOOORG 

******  GX 

******  GX 

******  GX 

000510RG 

000312RG 

000400RG 

000504RG 

******  GX 

******  GX 

******  GX 

000144R 

000034R 

000102R 

000200R 

000240R 

000300R 

******  GX 


$FLAG1= 

$FLAG2= 

SIOSB  = 

$LBN  = 

SLLEN  = 

SNALL  = 

SNLIB  = 

$PUTAD= 

$RADDR= 

$RBLCK= 

$READX= 

$REP.C= 

$RQ5  = 

$RQ7  = 

$RSIZE= 

SSCOM 

SSIZE  = 

STERR  = 

002  $TWARN= 

002  $\/ALUE= 

002  $VFLV1= 

002  .BASE8= 

002  .CORE  = 

002  .MGMGE= 

.SCOi"!  = 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
000720RG 

***♦'* 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 

nx 

GX 


ly1yltt.\/2Tn^2^^^^^ 


N  S 

VACS      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:10     PAGE  3 
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MACRO  NAME 

REFERENCES 

ASL$ 

#5-59 

8-205 

8-211 

CALL 

6-123 

6-128 

6-131 

6-138 

6-140 

6-U2 

7-159 

EMSGS 

*5-59 

EMSGtR 

#5-59 

7-170 

7-172 

8-220 

8-221 

8-222 

8-223 

NTLERS 

#5-50 

5-71 

5-72 

5-73 

5-7A 

5-75 

5-76 

RETURN 

6-14i 

7-165 

8-2U 

7-160  7-171  8-189 


N  6 
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300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3U 
315 
316 

317  00055A 

318  000560 

319  000566 

320  000570 

321  000576 

322  000600 

323  000606 
1,21,  000610 
325  0006U 
326 

327  000616 

328  000622 

329  000630 

330  000632 

331  000640 

332  000642 

333  000650 

334  000654 

335  000660 

336  000662 

337  000666 

338  000670 

339  000676 
340 


.SSTTL 
.SBTTL 


$X2CHU  -  .X2CHW  ACTION  ROUTINE 
$X3CHW  -  .X3CHW  ACTION  ROUTINE 


$X2CHW 
$X3CHU 


.X2CHW  ACTION  ROUTINE 
.X3CHU  ACTION  ROUTINE 


INPUTS: 

SVALUE 


VALUE  OF  FIRST  OPERAND  (INDICATES  WHICH  PARAMETER 
FROM  X2P$DF  OR  X3P$DF  TO  USE) 


OUTPUTS: 

Rl  DESTROYED 


012701 
026727 
001410 
026727 
103421 
026727 
101015 

000417 

012701 
026727 
103404 
026727 
101403 


066701 
005301 

110122 
062767 


OOOOOOG 
OOOOOOG  000002 

OOOOOOG  000004 

0000006  000005 


$X2CHU: 


5$: 


OOOOOOG         $X3(.HU: 
OOOOOOG  000001 

OOOOOOG  000002 


OOOOOOG 


10$ 
20$ 
30$ 


000002  OOOOOOG 


.ENABL 
:MOV 
CMP 
BEQ 
CMP 
BLO 
CMP 
BHI 
CALL 
BR 

:MOV 
CMP 
BLO 
CMP 
BLOS 
EMSG$ 
CALL 
ADD 
DEC 
CALL 

Move 

ADD 

RETURN 

.DSABL 


LS8 

#.X2CH1,R1 

$VALUE,#X2BLK 

5$ 

SVALUE, *X2WL0 

10$ 

$VALUE,*X2WHI 

10$ 

SVXLLC 

30$ 

#.X3C01,R1 

SVALUE, #X'iJLO 

10$ 

$VALUE,'.X3WHI 

20$ 

91 

$VFLLC 

$VALUE,R1 

Rl 

$RQ1 

R1,CR2)+ 

#2,$SIZE 

LS8 


GET  FUNCTION  CODE 

LEVEL  2  BLOCK  SIZE? 

YES,  SPECIAL  CASE  (NOT  IN  RANGE) 

IS  VALUE  WITHIN  RANGE? 

BR  IF  NO 

WITHIN  RANGE? 

BR  IF  NO 

MAKE   SURE    IT'S  NOT   AN  LLC 


GET   FUNCTION  CODE 

IS  OPERAND  WITHIN  RANGE? 

BR   IF   NO 

WITHIN  RANGE? 

BR  IF  YES 

INVALID  OPERAND 

MAKE  SURE  IT  IS  AN  LLC 

POINT  TO  CORRECT  FUNCTION  CODE 

OPERAND  STARTS  AT  1 

REQUEST  BINARY  BUFFER 

STORE  FUNCTION  CODE 

ADJUST  DATA  BASE  SIZE 


N  7 
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180 
181 
182 
183 
18A 
185 
186 
187 
188 
189 
190 
191 
192 
193 
19', 
195 
196 
197 
198 
199 
20C 
201 


00030A  116700  OOOOOOG 

000310  116701  OOOOOOG 

C003U  060001 

000316  022701  000015 

000322  103A01 
00032^ 


000326 
000332 


MAXU  -  ALLOW  ONLY  K.  ALLOCATIONS/LIBRARIES 

INPUTS; 

$NALL=.<IUMeER  OF  ALLOCATIONS 
$NLIB=NUMBEfi  OF  LIBRARIES 

OUTPUTS: 

C-eiT=SUCCESS/FAILURE 


MAXH: 


MOVB 

MOVB 

ADD 

CMP 

BCS 

RETURN 


$NALL,RO 

$NLI8,R1 

RO.Rl 

#13.,R1 

101$ 


ERROR  CONDITION 


101$: 


CALL    $L8ERR 
EMSGSR  V6 


GET  NUMBER  OF  ALLOCATIONS 

AND  NUMBER  OF  LIBRARIES 

ADD  THEM  TOGETHER 

ARE  WE  AT  THE  MAXIMUM  ALREADY? 

IF  CS,  YES 


CLEANUP  AFTER  AN  ERROR 
ALREADY  U.  ALL0CS/LI8RS 


VAC 


N  8 
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77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87  000000 

88  000000 

012701 

000001 

89  000004 

005767 

OOOOOOG 

90  000010 

100002 

91  000012 

012701 

000100 

92  000016 

93  000022 

103431 

94  000024 

010067 

OOOOOOG 

95  000030 

010067 

OOOOOOG 

96  000034 

012767 

000004  OOOOOOG 

97  000042 

012701 

OOOOOOG 

98  000046 

005021 

99  000050 

005021 

100  000052 

005061 

000014 

101  000056 

005061 

000030 

102  000062 

005061 

000044 

103  000066 

005061 

000060 

104  000072 

010067 

OOOOOOG 

105  000076 

106  000102 

000241 

107  000104 

108 

109 

110 

111 

112  000106 

113  000112 

114 

115 

000001 

$ALB  -  ALLOCATE  LIBRARY  BLOCK 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 

SLBIAS,  $L8ADR=DFSCRIPT0R  ADDRESS 


IaLB: 


10$: 


101$: 


MOV 

*1,R1 

TST 

.MGMGE 

BPL 

10$ 

MOV 

#100, R1 

CALL 

$ALN18 

BCS 

101$ 

MOV 

RO.LBLK 

MOV 

RO,$LBIAS 

MOV 

#4,$LBAnR 

MOV 

*.L8UFF,R1 

CLR 

(R1)  + 

CLR 

(R1)  + 

CLR 

12. (Rl) 

CLR 

24. (Rl) 

CLR 

36. (Rl) 

CLH 

48. (Rl) 

MOV 

R0,.L8IAS 

CALL 

$PUTLB 

CLC 

RETURN 

CONDITION 

CALL 

$LBERR 

EMSG$R 

VI 

ASSUME  MAPPED  TARGET 
MAPPED  TARGET  SYSTEM? 
IF  PL,  YES 
UNMAPPED  ALLOCATION  SIZE 

IF  CS, 'failure 

SAVE  LIBRARY  BLOCK  ADDRESS 

SET  DESCRIPTOR  BIAS 

AND  OFFSET  TO  FIRST  DESCRIPTOR 

ADDRESS  $GETLB  BUFFER  AREA 

NO  NEXT  BLOCK  IN  LIST 

NO  DESCRIPTORS  IN  BLOCK  YET 

INDICATE  NO  OTHER  LIBRARIES 


SET  BIAS  FOR  $GETLB 

WRITE  JUST-INITIALIZED  BLOCK 

RETURN  WITH  C-8IT  CLEAR 


CLEANUP  AFTER  AN  ERROR 

LIBRARY  BLOCK  ALLOCATION  FAILURE 


.PND 


VAC9      CREATED  Bv 
MACRO  CROSS  RETERENCE 


MACRO  ON  P9-JUN-85  AT  02:11 


N  9 

PAGE  ? 

CREF   04.00 


MACRO  NAME 

REFERENCES 

ASR$ 

#5-58 

6-179 

CALL 

6-119 

6-121 

CEACCS 

#5-58 

EMSG$ 

#5-58 

6-188 

HITLERS 

#5-58 

5-97 

PUTAD 

#5-58 

RESRG 

#5-58 

RETURN 

6-182 

6-190 

SAVRG 

#5-58 

VECDFS 

#5-58 

5-61 

6-164 


6-lf 


N  10 
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A64 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 

475  000514 

476  000520 

477  000522 

478  fi0C530 

479  000532 

480  000536 

481  000544 

482  000546 

483  000552 

484  000554 

485  000560 

486  000562 

487  000564 

488  000566 

489  000572 

490  00057'- 

491  00060U 

492  000604 

493  000606 

494  000612 

495  000614 

496  000620 

497  000622 

498  000626 

499  000630 
500 

501 
502 
503 

504  000632 

505  000640 

506  000646 

507  000654 
508 


016700 
100443 
032767 
001423 
016701 
032761 
001015 
016701 
001427 
0327u0 
001007 
006301 
010046 
042716 
r'?''26 
020 
ui2700 
001403 
032700 
001415 
032700 
001403 
032700 
001412 


STMCHK  -  CHECK  FOR  CORRECT  DDM  INTERRUPT  LINKAGE 

INPUTS: 

$NVECT=NUMBER  OF  ".INT  OPERATORS  PROCESSED 

OUTPUTS: 

R0,R1=DESTRO¥EO 

F1.ERR  SET  IF  INTERRUPT  LINKAGE  IS  INCORRECT 


OOOOOOG        STMCHK: 

COOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC 
000000' 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


10$: 


20$: 


30$: 


101$ 
111$ 
121$ 
131$ 


MOV 

$FLAG1,R0 

GET  TEMPLATE  FILE  FLAGS 

BMI 

30$ 

IF  MI,  ERRORS  -  DON'T  CHECK 

BIT 

#FL.DDM,$FLAGS 

ARE  UE  LOADING  A  DDM? 

BEQ 

10$ 

IF  EQ,  M  -   DON'T  CHECK 

MOV 

$PDVA,R1 

GET  PDV  ADDRESS 

BIT 

#ZF.PSE,Z.FLG(R1 

;  IS  IT  A  PSEUDO-DEVICE? 

BNE 

10$ 

BR  IF  YES 

MOV 

$NVECT,R1 

GET  NUMBER  OF  ".INT"  OPERATORS 

BEQ 

101$ 

IF  EQ,  NONE  SPECIFIED 

BIT 

*F1.INT,R0 

WAS  THE  ".INT"  OPERATOR  SEEN? 

BNE 

10$ 

IF  NE,  YES  -  KNOWN  TO  BE  CORRECT 

ASL 

R1 

MAKE  A  WORD  INDEX 

MOV 

R0,-(SP) 

EXTRACT  ".INT"  BITS  FROM  $FLAG1 

BIC 

#*C<F1.IN1 

F1.IN^IF1.1N3>,(SP)   ; 

CMP 

ITA8-2(R1) 

(SP)  + 

;  RIGHT  COMBINATION  OF  BITS  SET? 

BNE 

111$ 

IF  NE,  NO 

BIT 

#F1.MPL,R0 

".MPLHD"  OPERATOR  SEEN? 

BEQ 

20$ 

IF  EQ,  NO 

BIT 

#F1.MPT,R0 

".MPTAB"  OPERATOR  SEEN? 

BEQ 

121$ 

IF  EQ,  NO 

BIT 

#F1.LFL,R0 

".LFLHD"  OPERATOR  SEEN? 

BEQ 

30$ 

IF  EQ,  NO 

BIT 

#F1.LFI,R0 

".LFILE"  OPERATOR  SEEN? 

BEQ 

131$ 

IF  EQ,  NO 

RETURN 

CONDITIONS 

EMSG$R 

35 

NO  INTERRUPT  LINKAGE 

EMSG$R 

36 

•  INCOMPLETE  INTERRUPT  LINKAGE 

EMSG$R 

37 

•  ".MPTAB"  OPERATOR  MISSING 

EMSG$R 

84 

•  ".LFILE"  OPERATOR  MISSING 

N  n 
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55  .S8TTL  LOCAL  DATA 

56 

5?  •  **** 

58  ;  LOCAL  DATA 

59  ;  *  *  *  * 

6?  000000  BLS12:   .BLKW   1                    ;  BLOCK  SIZE  OF  PREVIOUS  BLOCK 

62  000002  SECTMP:  IblKW   1                    ;  I/O  BUFFER  FOR  FREE  SECONDARV  POOL 

65 


\/Al16 

CREATED  BY 

MACRO  ON  29-JUN-85  AT  02: i: 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

BLSIZ 

000000 

R 

#5-61 

•6-150 

6-56 

R$$MPL 

=   ****** 

6-134 

6-158 

6-173 

7-557 

8-545 

9-413 

SECTMP 

000002 

R 

#5-62 

tBFR 

-   ****** 

GX 

•6-127 
•7-521 

6-150 

6-151 

$8  IAS 

r  ****** 

GX 

6-109 

7-220 

SCRAVL 

=  ****** 

GX 

6-112 

7-229 

SGETAD 

-  ****** 

GX 

6-135 

7-245 

7-259 

SPRAVL 

r  ****** 

GX 

6-108 

7-219 

SPUTAD 

-  ****** 

GX 

6-159 

6-175 

7-290 

SRADDR 

~  ****** 

GX 

•6-135 

•6-159 

•6-175 

$RBLC< 

=  ****** 

GX 

•6-109 

•6-114 

6-116 

SRSIZE 

-  ****** 

GX 

•6-117 

•7-235 

.ALLPR 

000004 

RG 

#6-108 

.ALOCB 

000020 

RG 

#6-112 

.ALOCl 

000024 

RG 

#6-114 

.AL0C2 

000030 

RG 

6-110 

#6-115 

.DEACB 

0002''6 

RG 

#7-229 

.DEAC1 

000232 

RG 

#7-251 

.DEAC2 

000256 

RG 

7-227 

#7-232 

.DEAPR 

000212 

RG 

#7-219 

N  12 
PAGE  1 

CREF   04.00 

7-222     7-241 

7-258 

7-289 

7-508 

7-525 

6-145     •6-147 

6-151 

♦6-156 

6-186 

7-252 

7-309 

7-324 
•7-243 
•7-220 


•7-259 
•7-231 


•7-290 


•7-309     ^7-324 


N  13 


.,F!LE'MD««VBI0 


VV    vv 

BBBBBBBB 

III 

II 

000000 

vv    vv 

BBBBBBBB 

111 

U 

000000 

vv     vv 

BB      BB 

I 

00     00 

vv    vv 

BB      BB 

I 

00     00 

vv     vv 

BB      BB 

I 

00      00 

vv    vv 

BB      BB 

I 

00      00 

vv    vv 

BBBBBBBB 

I 

00     00 

vv    vv 

BBBBBBBB 

I 

00      00 

vv    vv 

BB      BB 

1 

00     00 

vv    vv 

BB      BB 

00     00 

vv  vv 

BB      BB 

00      00 

vv  vv 

BB      BB 

I 

00      00 

vv 

BBBBBBBB 

III 

II 

000000 

vv 

BBBBBBBB 

111 

11 

000000 

ssssssss 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLL 

LLL 

ssssssss 

LLLLLLlLLL 

ssssssss 

N  U 
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95 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 

109  000000 
110 

111  000000 

112  000000 

113  000004 

114  000006 

115  000012 
116 

117  000000 
118 

119  000000 

120  000004 

121  000010 

122  000014 

123  000016 

124  000020 

125  000022 

126  000026 

127  000030 

128  000032 

129  000034 

130  000036 

131  000040 

132  000042 

133  000044 
134 

135 
136 

137  000046 

138  000056 

139  000060 

140  000064 

141  000070 

142  000072 

143  000076 

144  000100 

145  000104 
146 


SXXINI 


INITIALIZE  TASK  POOL 


THIS  ROUTINE  IS  CALLED  TO  DETERMINE  THE  STARTING  ADDRESS  AND  LENGTH 
OF  THE  TASK  POOL  AND  TO  FORMAT  THE  POOL  SO  THAT  IT  MAV  BE  USED  WITH 
THE  "CORAL"  ROUTINES. 

INPUTS: 

NONE 

OUTPUTS: 

$XX8Uf=STAfiTING  ADDRESS 
$XXLEN=LENGTH 
$XXAVL="CORAL"  POINTER 


005767 
001002 


012700 
012701 
064100 
042100 
010011 
010067 
000240 
000240 
000240 
000240 
000240 
000240 
000240 
000240 


103453 
016001 
020127 
001412 
020127 
001407 
020127 
001404 


000000' 


000000' 
000006' 


000000' 


SXXINI: 


10$: 


.PSECT 


TST 
BNE 
CALL 
RETURN 


$XK9UF 

10$ 

XXSTR 


HAS  BUFFER  ALREADY  BEEN  SETUP? 
IF  NON-iERO,  YES 
GO  DO  THE  WORK 


.PSECT   ..POOL.OVR 


$SAVAL 

#XXSTR,RO 

#$XXAVL,R1 

-(R1),R0 

(RD  +  .RO 

R0,(R1) 

RO.SXXBUF 


SAVE  ALL  REGISTERS 

POOL  START  ADDRESS 

PLACE  TO  DEPOSIT  IT 

ROUND  UP  POOL  START  ADDRESS 

SET  POOL  START  ADDRESS 

TWICE 

LEAVE  ROOM  FOR  GTSKSS  BUFFER 


XXSTR:  CALL 
MOV 
MOV 
ADD 
BIC 
MOV 
MOV 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 

;  DETERMINE  SYSTE'^  TYPE   (  RSXl  11".  KsXl  1M/RSX1 1  S/IAS  ) 


000034 
000006 

000001 

0PO002 


gtsk:$s 

BCS 
MOV 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 


RO 

100$ 

G.TSSY(RO) 

R1,*6 

5$ 

R1,#1 

5$ 

Rl  #2 

5$ 


Rl 


USE  GTSK$ 

DIRECTIVE  NOT  SUPPORTED 

GET  SYSTEM  ID  WORD 


IS 

THIS   RSX-llMt 

IF 

EQ,    YES 

IS 

THIS   RSXllM   ? 

IF 

EQ,    YES 

S 

THIS   RSX11S    ? 

IF 

EQ,    YES 

147 
148 
149  000106  016002  000032 


THEN  THIS  MUST  BE  RSXllD/IAS 
MOV     G.TSTS(R0),R2 


GET  TASK  SIZE  (IN  WORDS) 


N  IS 

VCEAl    -   ;NP  ALLOCATION/DEALLOCA  MACRO  V05.03b   Saturday  29-Jun-85  02:13 
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2U  0OOA7O 

215  000^^76 

216  000506 

217  000512 

010546 

218  0005K 

060116 

219  000516 

020326 

220  000520 

001041 

221  000522 

222  000526 

2^1   000536 

224  00054A 

225  000554 

012^00 

000012' 

226  000560 

012046 

227  000562 

061001 

228  000564 

012667 

177216 

229  000570 

230  000576 

010167 

177206 

231  000602 

232  000610 

233  00062: 

234  000624 

235  000624 

010567 

177166 

236  000630 

237  000636 

238  000646 

066716 

177146 

239  000652 

020526 

240  000654 

001026 

241  00065;. 

066701 

177136 

242  000662 

2".  3  000666 

016746 

177114 

244  000672 

012667 

177120 

245  000676 

012616 

246  000700 

010204 

247 

248  000702 

249  000706 

250  000714 

251 

252  000732 

253  000736 

010167 

177056 

254  000742 

016767 

177034  OOOOOOG 

255  000750 

256  000756 

C52704 

000002 

257  000762 

258 

259  001000 

260  001 0C6 

261  001014 

005726 

262  001016 

012605 

263  001020 

012604 

264  001022 

50$: 


60$: 


70$: 


SWTCHO 

#LOCejf 

PUTAD 

R4 

RE  SNAP 

MOV 

R5,-(SP) 

ADD 

R1,(SP) 

CMP 

R3,iSP)t 

BNE 

50i 

SAVMAP 

CEACC$ 

R3,R0 

swtch; 

#L0C8F1 

GETAD 

RO 

MOV 

#L0C8f1,R0 

MOV 

(R0)t,-(SP) 

ADD 

(R0),R1         : 

MOV 

(SP)t,L0CBUF 

MAP 

4(SP) 

MOV 

R1,LDCBUf+2 

SUTCHO 

#L0CBUf        ; 

PUTAD 

R4 

RESMAP 

MOV 

F,5,LOCBF2      ; 

SUTCHO 

#L0CBF2 

PUTAD 

R2            ; 

ADD 

L0C8f2+2,(SP) 

CMP 

R5.(SP)+ 

BNE 

60  i 

ADD 

L0C8F2t2,R1 

SAVMAP 

MOV 

L0C8UF,-(SP) 

MOV 

(SP)+,L0CBF2 

MOV 

(SP)+,(SP) 

MOV 

R2,R4 

MAP 

(SP) 

SUTCHO 

#L0CBF2 

PUTAD 

R4,#2         ; 

MAP 

(SP) 

MOV 

Rl,LOCBF2t2     ; 

MOV 

XAVl.,$XAVL 

SUTCHO 

#L0C8F2+2 

ADD 

#2,R4 

PUTAD 

R4,#2 

SUTCHO 

#$8FR 

SUTCHi 

*$eFR 

TST 

(SP)t 

MOV 

(SP)+,R5 

MOV 

(SP)+,R4 

RETURN 
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SUITCH  OUTPUT  BUFFER 

URITE  LISTHEAD  OF  BLOCK  BEING  DEALLOCATED 

RESTORE  PREVIOUS  MAPPING 

CALCULATE  ADDRESS  OF  NEU  BLOCK 

EQUAL  TO  NEXT  IN  CHAIN? 

IF  NE  NO 

SAVE  CURRENT  MAPPING 

CONVERT  TO  MAPPED  ADDRESS 

SET  UP  LOCBFl  AS  INPUT  BUFFER 

READ  IN  LISTHEAD 

POINT  TO  LISTHEAD 

SAVE  LINK  UORD 

MERGE  TUO  BLOCKS 

MOVE  LINK  UORD  JO   BLOCK  RELEASED 

GET  MAPPING  BIAS  OF  BLOCK  BEING  DEALLOCATED 

STORE  SIZE 

SUITCH  OUTPUT  BUFFER 

URITE  LISTHEAD  OF  BLOCK  BEING  DEALLOCATED 

RESTORE  PREVIOUS  MAPPING 

ADDRESS  OF  PREVIOUS  BLOCK  IS  ON  TOP  OF  STACK 

ASSUME  NO  AGLOMERATION 

SWITCH  OUTPUT  BUFFER 

URITE  UPDATED  LISTHEAD 

CALCULATE  ADDRESS  OF  NEXT  BLOCK 

EQUAL  TO  BLOCK  BEING  RELEASED? 

IF  NE  NO 

MERGE  TUO  BLOCKS 

SAVE  CURRENT  MAPPING 

SAVE  LINK  UORD 

MOVE  LINK  UORD  TO  PREVIOUS  BLOCK 

REPLACE  BLOCK  MAPPING 

SET  NEU  ADDRESS  OF  BLOCK 

MAP  TO  CURRENTLY  MERGED  BLOCK 

SUITCH  OUTPUT  BUFFER 

UPDATE  NEXT  AVAILABLE  BLOCK  POINTER 

MAP  TO  BLOCK  RELEASED 
SET  SIZE  OF  BLOCK  RELEASED 
UPDATE  CEX  COPY  OF  LISTHEAD 
SUITCH  OUTPUT  BUFFER 
POINT  TO  LENGTH  OF  BLOCK 
WRITE  UPDATED  LENGTH 

SET  UP  $BFR  AS  DEFAULT  INPUT 

AND  OUTPUT  BUFFER 
CLEAN  UP  STACK 
RESTORE  REGISTERS 

AND  RETURN 
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D  10 


L  U 


VBUF 


VCEX   -   VNP  LOAD   CEX   ROUTINES 
Table  of  contents 
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s- 

S4 

MACRf 

(.- 

74 

LOCAL 

/- 

273 

$SCEX 

9- 

396 

CEXYM 

10- 

510 

NLBLK 

11- 

55^, 

CEPTR 

■^FINITIONS 
,TA 

TRANSFER  COMM  EXEC 
LOOK  FOR  CEX  SYMBOLS 
SETUP  NTL  HOME  BLOCK 
INIT  CETAB  POINTERS 
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5< 
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VCEX   - 
rppTo 


VCEX  -  VNP  LOAD  CEX  ROUTINES 
CEPTR  -  INIT  CETAB  POINTERS 


55A 
555 
556 
557 
558 
559 
560 
561 
562 
563 
56A  000746 

565  000746     016767 

566  00O75A     016767 

567  000762     016767 

568  000770     016767 

569  0007/6     016767 

570  001004     016767 
571 

572 
573 
57A   001012     060167 

575  001016  060167 

576  001022  060167 
577 

578 
579 

580  001026 

581  001034 

582  001054  016746 

583  001060  062716 

584  001064 

585  001072 
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.SBTTL  CEPTR  -  INIT  CETAB  POINTERS 

CEPTR  -  INITIALIZE  CETAB  TABLE  POINTERS 

INPUTS: 

R1=CETAB  ALLOCATION  ADDRESS 

OUTPUTS: 

RO,R1,R2=CESTROYFD 


CEPTR: 

000644'  OOOOOOG  KOV 

000656'  OOOOOOG  MOV 

000670'  OOOOOOG  MOV 

000702'  OOOOOOG  MOV 

000714'  OOOOOOG  MOV 

000620'  OOOOOOG  MOV 


.PDVTB+10,$PDVTA 
.SLTMB+10,$SLTMA 
.LLCTBt10,$LLCTA 
SLTTOT+10,$SLTNM 
PDVTOTt10,$PDVNM 
I3LK! f10,$CX0PT 


OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOC 


RELOCATE  ADDRESSES 


ADD 
ADD 

ADD 


R1,$PDVTA 
R1,$SLTMA 
R1,$LLCTA 


INITIALIZE  THE  TABLE  POINTERS 

INITIALIZE  THE  NUMBER  OF  TABLE  ENTRIES 
SET  UP'COMM  EXEC  OPTIONS 

RELOCATABLE  ADDR'"SSES 


586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 


WRITE  OUT  THE  INITIALIZED  VALUES 

SWTCHO  #$PDVTA        ;  POINT  AT  OUTPUT  BUFFER 

PUTRC  .PDVTA,#<$CCBNM-$PDVTA>  ;  WRITE  OUT  THE  BUFFER 

MOV  .PDVTA,-(SP)    ;  GET  ADDRESS  OF  BEGINNING  OF  CETAB 

ADD  #<$CXOPT-$PDVTA>,(SP)  ;  POINT  TO  CEXCM  OPTIONS  WORD 

SWTCHO  *$CXOPT         ;  POIN''  AT  OPTIONS  WORD 

PUTRC  (SP)+,*2        ;  WRITE  OUT  OPTIONS  WORD 

SET  UP  MULTI-PROCESSOR  CLOCK  QUEUE  ENTRIES 


10$: 


.IF 
MOV 
MOV 

MOV 

BLE 

SWTCHO 

MOV 

DEC 

ASL 

ADD 

SWTCHI 

GETRV 

CLR 

MOV 

BIS 

PUTAD 

MOV 

MOV 

ADD 

BIS 

PUTAD 

DEC 


DF,R$$MPL 

RO,-(SP) 

R1,-(SP) 

.MPRO.RO 

30$ 

*TMPSTR 

rtO.Rl 

R1 

Rl 

.K6TAB,R1 

*$RBLCK 

R1,#2 

TMPSTR 

.MIOOO.RI 

#120006, Rl 

R1,#2 

.M100Q,R1 

Rl, TMPSTR 

*2,R1 

*120000,R1 

Rl 

RO 


GET  NUMBER  OF  PROCESSORS 

BR  IF  SINGLE  PROC  SYSTEM 

RESET  THE  OUTPUT  BUFFER 

COPv  PROCESSOR  NUMBER 

OFFSET  BY   ZERO 

hAKE  into  a  word  TABLE  INDEX 

GE.  ADDRESS  IN  CPU  AREA  TABLE 

HEAD  INTO  THE  APR5  BIAS  WORD 

GE^  THE  CPU  AREA  BIAS 

MAKE  A  NULL 

GET  THE  CLOCK  QUEUE  ADDRESS 

USE  APR5 

INITIALIZE  THE  100  MSEC  TIMER  QUEUE 

SET  SECOND  WORD  OF  LIST  HEAD 


NEXT  PROCESSOR 


v'fEx  -  VNP  lOAD  CEX  ROUTINES 
CFPTR  -  INIT  rFTAR  POINTFRS 
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VCEX       CRFATED  BY  MACRO  ON  29-JUM-85  AT  02:U 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


LR.EFN 

OOOOOA 

.R.LIN 

000002 

lR.PRM 

000030 

.R.PRO 

000002 

.R.STS 

000000 

.R.TCB 

000002 

.R.UNT 

000005 

.S.AST 

=  100000 

.S.CEX 

=  000001 

lS.CIR 

=  000010 

.S.CXO 

=  OICOOO 

LS.CX5 

=  G00400 

LS.DLM 

=  OOAOOO 

.S.ECH 

=  001000 

_S.FDX 

=  OO'.OOO 

LS.HDX 

=  010000 

^S.LIN 

=  CJ0003 

LS.LMC 

=  000007 

LS.NTI 

=  OOAOOO 

_S.ON 

=  000011 

LS.OPT 

=  000^00 

LS.PRO 

=  000002 

LS.PWF 

=  040000 

LS.TOP 

=  002000 

LS.UNF 

=  020000 

LS.X25 

=  000012 

LS.11D 

=  004000 

LX.CEX 

=  000004 

LX.LIN 

=  000006 

LX.PRO 

=  000005 

MSGB 

00025A 

MSGOUT 

002070 

M$$MGE 

=  000000 

NLBLK 

000556 

NTINAM 

000430 

PDVTOT 

000704 

P.BLKS 

000016 

P.REL 

000014 

RJN 

001206 

RUNNTI 

001504 

R$$EIS 

r  ****** 

R$$MPL 

r  ****** 

R$$11D 
SLFTOT 
STBERR 
STBEXT 
SYSFDB 


000672  R 
000660  R 
000402  R 


GX 


TICKS   =  0C0001 
TSKERR    000452  R 


REFERENCES 

#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-55 
#5-65 
#5-65 
#5-65 
#5-65 
#5-55 
#5-65 
#5-65 
#5-65 
#5-65 
#5-55 
#5-55 
#5-65 
#5-65 
#5-65 
#5-65 
#5-63 
#5-65 
#5-65 
#5-65 
#6-104 

13-721 

5-248 

8-357 
#6-154 

6-225 

7-320 

7-321 
#13-669 

7-297 

7-322 

6-120 

10-525 

7-322 

6-222 

9-431 
#6-133 
•7-318 
•11-618 
•14-848 
#6-86 

7-299 


14-792 


14-792 


14-814 


15-865 
V.-741 
5-260 

#10-52? 
14-737 

#6-228 


14-841 
#14-736 

5-140 
■■0-537 

#6-225 
9-449 
9-420 

•7-325 

♦12-636 

14-840 
7-315 
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CREf       04.00 


♦14-799         «14-813 


14-799 


14-753 


11-569 


5-160 
11-589 

11-558 

9-455 

9-445 

♦8-350 

•13-685 


8-356 


♦14-814 


14-813 


14-781 


14-843         #15-854 


"-302 
14-7i,7 


#9-507 

9-452 

•8-363 

•13-692 


8-367 


7-311 
14-765 


•8-379 

•13-711 


8-575 


8-361 

14-771 


♦11-580 
•13-713 


#8-392 


9-413 
14-791 


•11-581 
•14-786 


9-437 
14-809 


♦11-584 
♦14-789 


9-458 
14-828 


•11-5S5 
•14-857 


VCEX 
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VCfG  -  VNP  SCAN  CONFIGURATION 
SNLCFG  -  CONf'.G  flLE  SCAN 


2A7 

248 

2A9 

250 

251 

252 

253 

25A 

255 

256 

257 

253  000000 

259 

260  000000 

261  000000 

262  OOOOOA  112767 

263  000012  010667 
26A  000016  005067 

265  000022  005067 

266  000026  012700 

267  000032  016701 

268  000036 

269  O000A2  016700 

270  0OOG'-,6  116067 

271  00005A     116067 
?72  000062 

273 

27A  000066  032767 

275  00007A  001AA7 

276 

277 

278 

279 

280 

281 

282 

283  000076 

28A  000102  103002 

285  00010A  000167 

286  000110 

287  OOOllA     103770 

288  0001 '6 

289  O00122     103002 

290  0001 2A     000167 

291  00C130 

292  0001 3A  103370 

293  C00156 

29A  0001A2  103002 

295  0001AA  OOC'67 

296  000150 

297  00015A     103015 

298  0C0156 

299  00C162     103365 

300  00016A 

301  000170  103362 

302  000172  032767 

303  000200  001356 
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.SBTTL  $NLCFG  -  CONFIG  FILE  SCAN 

'SNLCFG  -  PROCESS  CONFIG  FILE  FOR  MISSING  PARAMETERS 

INPUTS: 

$H1SS=MISSING  PARAMETERS  MASK 
$SLTA=SLT  ADDRESS 


OOOOOOG  OOOOOOG 

002702' 

000150' 

000152' 

000012' 

OOOOOOG 

OOOOOOG 

OOOOOOG  000015' 
OOOOOOG  000016' 


OOOOOOG  OOOOOOG 


OUTPUTS: 

C-BIT=S 

UCCESS/FAlLuRE 

LCFG:: 

.MCALL 

VNPBPT 

VNP8PT 

<VCFG> 

CALL 

SCLSAV 

MOVB 

*CL.OPN,$CLFLG 

MOV 

SP.SPSAV 

CLR 

SCNT 

CLR 

UCNT 

MOV 

#NAME,RO 

MOV 

$NAME,R1 

CALL 

$C5TA 

MOV 

SSLTA.RO 

MOVB 

L.CTLCROl.CTL 

MOVB 

L.UNT(RO),UNT 

CALL 

OPEN 

BIT 

*MS.CIR,$MISS 

BEQ 

80$ 

SAVE  GCL  CONTEXT 
SET  UP  NECESSARy  CONTEXT 
SAVE  SP  FOR  ERROR  EXIT 
CLEAR  LOCAL  COUNTERS 

CONVERT'dDM  name  to  ASCII 
AND  STORE  IN  "NAME" 

GET  SIT'aDDRESS 
COPY  CONTROLLER  NUMBER 
AND  UNIT  NUMBER 
OPEN  THE  CONFIG  FILE 

ARE  CIRCUIT  PARAMETERS  MISSING? 
BR  IF  NO 


PVCIDF  will  be  ignored  for  gatewaj^  systems,  since  the  X25  circuit 
block  must  be  aUocatea  from  a  private  PSI  pool  which  is  not 
available  until  runtime. 


;CTD001] 
;[TD001] 
;[TDOOI] 
;CTD001] 
;[TD001] 


0005A0 


000542 


000552 


OOOOOOG  OOOOOOG 


10$: 

CALL 

READ 

READ  NEXT  RECORD 

BCC 

20$ 

BR  IF  OK 

JMP 

111$ 

IF  CS,  EOF 

20$: 

CALL 

QSLT 

IS  IT  SLT$DF? 

BCS 

10$ 

BR  IF  NO  -  KEEP  LOOKING 

30$: 

CALL 

READ 

GET  NEXT  RECORD 

BCC 

40$ 

BR  IF  OK 

JMP 

141$ 

IF  CS,  EOF 

40$: 

CALL 

QSTA 

IS  IT  STAJDF? 

BCC 

30$ 

IF  CC,  YES  -  LOOK  FOR  MORE  OF 

50$: 

CALL 

READ 

READ  NEXT  RECORD 

BCC 

60$ 

BR  IF  OK 

JMP 

181$ 

BR  IF  EOF 

60$: 

CALL 

$QS/C 

IS  IT  SVC$DF? 

BCC 

70$ 

BR  IF  VES 

CALL 

$QX3P 

IS  IT  X3P$DF? 

BCC 

50$ 

BR  IF  YES 

CALL 

$ODTE 

IS  IT  DTE$DF? 

BCC 

50$ 

BR  IF  YES 

BIT 

#PF.PSV,$PFLAG 

Ignore  PVC$DF  for  gateway  sys 

BNE 

50$ 

THEM 


;CTD001] 
;[TD001] 
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SmOF    STATE    TABLES 

713 
7U 
715 
716 
717  001512 

718 
7^o 

7^1 
722 

723  0C1512 

724  001512 

725  001512 

726  001512 

727  001512 

728  001512 

729  001512 

730  001512 

731  001512 

732  001512 

733  0015:2 

734  001512 

735  001512 

736  001512 

737  001512 

738  001512 

739  001512 

740  001512 

741  001512 
7'.2  001512 

743  001512 

744  001512 

745  001512 

746  001512 

747  001512 

748  001512 

749  001512 

750  001512 

751  001512 

752  001512 

753  001512 

754  001512 

755  001512 
^56  001512 

757  001512 

758  001512 

759  001512 

760  001512 

761  001512 

762  001512 
76?  001512 

764  001512 

765  001512 

766  001512 

767  001512 

768  001512 

769  001512 


.S8TTL 

SLTSDF  STATE  TABLES 

;  TPARS  STATE  TABLES 

ISTATS 

CF6ST,CFG<W 

;  SLT  DEFINITION  MACRO  (SIT$[)F) 

STATES 

SLTDF 

TRANS 

xsltsdfx, ,,1,SYNERR 

STATES 

;  DDM  NAME 

TRANS 

SRAD50,,S.NAME 

STATES 

TRANS 

<'  ,> 

STATES 

;  DLC  NAME 

TRANS 

SRAD50 

STATES 

TRANS 

<'  ,> 

STATES 

;  LLC  NAME 

TRANS 

SRAD50 

STATES 

TRANS 

<'  ,> 

STATES 

;  FLAGS 

TRANS 

leiTs 

STATES 

;  CONTROLLER  NUMBER 

TRA^S 

SNUMBR,,S.CTL 

STATES 

TRANS 

<'  ,> 

STATES 

;  UNIT  NUMBER 

TRANS 

SNUMBR,,S.UNT 

STATES 

TRANS 

!£ND,SEXIT 

TRANS 

<'  ,> 

STATES 

TRANS 

<',>,SCTIM 

TRANS 

SSTRNG 

;  LINE  TYPE 

STATES 

TRANS 

1END,SEXIT 

TRANS 

-, '  ,> 

STATES 

SCTJM 

TRANS 

SNUf1BR,SCHEL0/ 

.CTIM  ;  ;OUNTER  TIMER 

TRANS 

<',>,SCHEL 

STATES 

SCHELO 

TRANS 

lEND.SEXIT 

TRANS 

<'  ,> 

STATES 

SCHEL 

TRANS 

IEND,SEXIT 

TRANS 

SNUMBR,BRADJ,5 

HTIM 

TRANS 

<'  ,> 

STATES 

BRADJ 

TRANS 

lEND.SEXIT 

TRANS 

<'  ,> 

STATES 

TRANS 

SfJUM8R,,S.BRA 

STATES 

VCFG   - 
TPARS    I 

126( 
126- 
126, 
12t: 
126' 
126' 
1261 
126' 
1261 
126' 
1271 
127' 
127, 
127: 
127' 
127' 
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T«r,r       tTftTC      TADIC' 


VCFG  - 

TDADC 


VCFG  -   VNP   SCAN   CONF IGURATIOM 
1PARS   ACTION  ROUTIMES 
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1260 
1261 
1262 
12t3 
126A  00256', 

;  HELLO/LISTEM 

005767 

OOOOOOG 

ST. HTM: 

TST 

1265  002570 

001015 

BNE 

1266  002372 

016700 

000150' 

MOV 

1267  002376 

005500 

DEC 

1268  OO2A00 

006500 

ASL 

1269  002A02 

016760 

OOOOOOG 

OOOOOOG 

MOV 

1270  002A10 

006367 

OCGOOOG 

ASL 

1271  002A1A 

016760 

OOOOOOG 

OOOOOOG 

MOV 

1272  002A^2 

1273 

127A  00:'A24 

RETURN! 

101$: 

EMSGSR 

1275 

TIMER 

.PMUMH 

101$ 

SCNJT,RO 

RO 

RO  , 

.P^JUM8,$SHTIM(R0) 

.PMUMB 

.PNUMB,$$LTIM(RO) 


Ya 


DOUBLE    WORD   VALUE' 

BR    IF    YES  -  ERRLR 

GET  CURRENT  'STATION  COUNT 

REALLY  LAST  ONE 

MAKE  IT  A  WORD  OFFSET 

;  SAVE  HELLO  TIMER 

MULTIPLY  BY   2 

;    SA\IE   LISTEN   TIMER 


ILLEGAL  HELLO  TIMER 
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VCFP 
MAC  PI 


PSRTIM 

PSSTAl 

P$STA2 

P$TIM 

PSTSCT 

PSTSIZ 

PSTYP 

P$$P45= 

P$$WRD= 

P. EXT 

P. INC 

QADD 

aCNT 

QDDM 

GFEA 

QLLC 

QPLT 

QSLT 

QSTA 

QUNT 

QS$OPT= 

READ 

RF.CTL= 

RF.LD1= 

RF.LD2= 

RF.TIM= 

RF.TMO= 

RF.WFC= 

RF.WTD= 

RF.WTM= 

RF.UTS= 

RTSPC 

R$$DER= 

R$$<11= 

Rt$SND= 

R$$nM= 

SCHEL 

SCHELO 

scn: 

SCTIM 
SETTMO 
SLTDr 
SPACE  ^ 

.  ABS. 

DATA 
SSTATE 
$KTAB 
i<STR 


0000C3 

000022 

000025 

000010 

000026 

00002A 

000001 

000000 

000000 

001652R 

001576R 

001124R 

001  UOR 

001132R 

r01154R 

00n62R 

C01064R 

001072R 

001116R 

001U6R 

000010 

000772R 

000003 

OOOOAO 

000100 

177400 

000400 

000200 

000020 

000030 

000010 

001330RG 

000000 

000001 

000000 

000000 

0001 12R 

000102R 

0001 50R 

000070R 

OC3322R 

OOOOOOR 

00C040 

000124 
004262 
002706 
001056 
000036 
000142 


SPEEDT 
SPFILL 
SPSAV 
STADF 
STADF1 
STADF 2 
STCRID 
ST. APR 
ST.CST 
ST. HTM 
ST.NUM 
SYNERR 
SYSFDB= 
S$$WRG= 
S$$YSZ= 
S.BRA 
S.COST= 
S.CTIM 
S.CTL 
S.HTIM 
S.NAME 
S.PRI 
S.UNT 
T$$KMG= 
T$$MIN= 
UCNT 
UMRFL 
UNT 
UNTDF 
U.CHAO 
U.CHA1 
U.CST 
U.DPR 
U.HTIM 
U.LTIM 
U.PECH 
003  U.SCSR 
003  U.UNT 

002  U.XCSR 

003  VF$RCV= 
VF$Xr'1T  = 

003  VSFLG 
V$LEN 


000-56R 

001452RG 

002702R 

000244R 

000272R 

00030AR 

001332RG 

002332R 

002252R 

002364R 

00216iR 

002704RG 

*♦**♦*  GX 

000000 

007600 

001752R 

******  GX 

002014R 

001706R 

002040R 

001512R 

001762R 

001730R 

000000 

000000 

000152R 

000154R 

000016R 

000514R 

002762R 

003066R 

003602H 

003634R 

003644R 

003670R 

003140R 

0032C4R 

002716R 

003536R 

100000 

040000 

000000 

000022 


Errors  detecteo: 


000  (rw,i,gbl,a8s,0vr) 

001  (rw, i, lcl, relcom) 

002  (rw,d,lcl,rel,con) 

003  (rw,d,lcl,re1 ,c0n) 

004  {rw,d,lcl,rel,con; 

005  fRW,D,LCL,REL,COM) 


»»•  AbSerr.b'er  statistics 


Work   file  '■eaas:    24 
Work   f • (e  wr 1 tes :  32 


002 

VSRCV 

000002 

SERRIK 

000600R 

002 

$0X2P  = 

****** 

GX 

vsxriT 

000012 

$ERR1L 

000640R 

002 

$QX3P  = 

GX 

002 

V$$CTR= 

001000 

SERRIM 

000700R 

002 

$RADDR= 

****** 

GX 

003 

WNDSMX= 

000177 

SERRIN 

000744R 

02? 

$RAD50= 

000016 

003 

X$$DBT= 

000000 

SERRiP 

001004R 

002 

$RDBSZ= 

****** 

GX 

003 

Z.NAM  = 

*«*»*»  GX 

SERKIQ 

001042R 

002 

$REP.N= 

******* 

GX 

$ALPHA= 

000022 

SERRIR 

001100R 

002 

SSLTA  = 

****** 

GX 

SANY  = 

000020 

SERRIS 

001130R 

002 

$STRNG= 

000004 

SAZFS  = 

******  GX 

SERRIT 

001160RG 

002 

$SUBXP= 

000010 

$BFR  = 

******  GX 

SERRIU 

001206R 

002 

$TIOUT= 

****** 

GX 

$BLANK= 

000006 

SERRIV 

001246R 

002 

$XLINK= 

^  ***** 

GX 

002 

$ceacc= 

******  GX 

SERRIW 

001306R 

002 

$$APR  = 

****** 

GX 

$CLBUF= 

******  GX 

SERRIX 

001346R 

002 

$$CSR  = 

****** 

GX 

$CLDEQ= 

******  GX 

SERRIY 

001406R 

002 

$$DCHA= 

****** 

GX 

$CLfLG= 

***»«*  GX 

SERRIZ 

001456R 

002 

$$DEV  = 

****** 

GX 

$CLI0S= 

******  GX 

$ERR2A 

001516R 

002 

$$DPK  = 

t*  ♦*** 

GX 

$CLQUE= 

******  GX 

$ERR2B 

001566R 

002 

$$EXT  = 

****** 

GX 

$clsav= 

******  GX 

$ERR2C 

002312RG 

002 

$$HTIM= 

****** 

GX 

$CLSBK= 

******  (:  / 

$ERR2F 

002346RG 

002 

$$INC  = 

****** 

GX 

$CLSIZ= 

******  GV 

$ERR2I 

002402RG 

002 

$$LSAD= 

****** 

GX 

SCTIM  = 

******  GX 

$ERR3A 

002152R 

002 

$$LT1M= 

****** 

GX 

$C5TA  = 

******  GX 

$ERR3B 

002210R 

002 

$$MTP  = 

****** 

GX 

JDFUIC= 

******  GX 

$ERR3C 

002246R 

002 

$$MUX  = 

****** 

GX 

SDIGIT^r 

000024 

SEXIT  = 

000000 

$$NBRA= 

****** 

GX 

$DIV  = 

******  GX 

SFAIL  = 

M7777 

$$PCHA= 

****** 

GX 

002 

$DNUMB= 

000014 

$FEATR= 

******  GX 

$$PRI  = 

****** 

GX 

002 

$EOS  = 

000012 

$fLAGS= 

»♦»***  GX 

$$RPRI= 

****** 

GX 

002 

SERRYA 

001702R 

002 

$GCLEP= 

******  GX 

$$SCSR= 

****** 

GX 

003 

SERRYB 

001734R 

002 

$GETAD= 

******  GX 

$SSPJUM= 

****** 

GX 

SERRYP 

001770R 

002 

$GETRV= 

******  GX 

$$VEn^ 

****** 

GX 

SERRYG 

002012R 

002 

$LAMDA= 

000000 

$$$FlG= 

Mllll 

SERRYR 

002052R 

002 

$MISS 

******  GX 

$$$KEY= 

C00016 

SERRYS 

002106R 

002 

$MXVCT= 

******  GX 

$$$STA= 

000000 

SERRZQ 

001630R 

002 

SNAME  = 

******  GX 

$$STMP= 

0001 37R 

SERRIA 

000216R 

002 

SNLCFG 

OOOOOORG 

.MGMGE= 

****** 

GX 

SERRIB 

000246R 

002 

$NUMBR= 

C0OOO2 

.PCHAR= 

****** 

GX 

SERRIC 

000306R 

002 

$PDVNM= 

******  GX 

.PNUMB= 

****** 

GX 

SERRID 

000340R 

00^ 

$POVTA= 

******  GX 

.PNUMH= 

****** 

GX 

SERRIE 

000376R 

002 

$PFLAG= 

******  GX 

.PSTCN= 

****** 

GX 

SERRIf 

000424R 

002 

SODTE  = 

»*♦««*  5X 

.PSTPT= 

****** 

GX 

$ERR1G 

000460R 

002 

SQPVC  = 

******  GX 

.TPARS= 

****** 

GX 

SERPIH 

000506R 

002 

S'^SVC  = 

******  GX 

..SCSR= 

****** 

GX 

SERRU 

000544R 

002 

005 
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MACRO  DEFINITIONS 


59 

60 

61 

62 

63 

6A 

65 

66 

67  000000 

68 

69 

70 

71 

72 

73 

75 
76 
77 
78 


.SBTTL  MACRO  DEFINITIONS 
*** 

LIBRARY  MACROS 
*** 

.MCALL  ASL$,EMSG$R, I  STATS, NTLERS, STATES, TRANS 

.MCALL  SAVRG,RESRG,SlTDF$,CEACC$,GETAD,GETRV 

.MCALL  VNPD8G 


SLTDFS 

•  *** 

;  LOCAL  MACROS 

•  *** 


REJECT  TPA^S  TRANSITION 


DEFINE  SLT  OFFSETS  AND  SYMBOLS 


;CTD001] 


.MACRO 
ADD 

CLR 
.ENDM 


REJS 
*2,(SP) 
SVNERR 
REJS 


RETURN  UJ  CALLER+2 
'NDICATE  NO  SYNTAX  ERROR 
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COMMON  ACTION  ROUTINES  -  LINE-ID 


518 

.SBTTL 

COMMON  ACTION  ROUTINES  - 

519 

520 
521 
522 
523 

524  000652 

.ENABL 

Lse 

;  DEVICE  NAME 

022767 

000003  OOOOOOG 

6EVNAM::CMP 

*3,.PSTCN 

525  000660 

103425 

BLO 

101$ 

526  000662 

016700 

OOOOOOG 

MOV 

.PSTPT,RO 

527  000666 

CALL 

$CAT5 

523  000672 

010167 

000346' 

MOV 

Rl.LINNAM              ; 

529  000676 

530 

531 

RETURN 

•  DEVICE  CONTROLLER  NUMBER 

532 

533  000700 

005767 

OOOOOOG 

DEVCTL::TST 

. PNUMH 

534  000704 

001013 

BNE 

101$ 

535  000706 

016767 

OOOOOOG  000350' 

MOV 

.PNUMB.LINCTL          ; 

536  000714 

RETURN 

537 

538 
539 

540  000716 

;  DEVICE  UNIT  NUMBER 

00'"767 

OOOOOOG 

DEi/UNT:  :TST 

. PNUMH 

541  000722 

001004 

BNE 

101$ 

542  000724 

116767 

OOOOOOG  000351' 

Move 

.PNUMB.LINUNT 

543  00073? 

RETURN 

544 

545 
546 

547  000734 

;  ERRORS 

101$:   EMSGSR 

06 

548 
549 
550 
551 
552  000742 

.DSA8L 

LS8 

;  CHECK  FOR  LEC 

AL  BLOCK  SIZE  VALUE 

005767 

OOOOOOG 

CHK8LK::TST 

.PNUMH 

553  000746 

001012 

BNE 

^0$ 

554  000750 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

555  000754 

022700 

000040 

CMP 

#8LKSMN,R0 

■"56  000760 

101005 

BHI 

10$ 

;57  000762 

022700 

002000 

CMP 

#B1KSMX,R0 

558  000766 

103402 

BLO 

10$                 ; 

559  000770 

000241 

CLC 

560  000772 

000401 

BR 

20$ 

561  000774 

000261 

10$:    SEC 

562  000776 

565 

564 

565 

566  001000 

20$:    RETURN 

;  CHECK  FOR  LEGAL  WINDOW  SIZE  VALUE 

005767 

OOOOOOG 

b.-Mi):  :TST 

.PNUMH 

567  J01004 

001010 

BNE 

10$                ; 

568  001006 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

569  001012 

003405 

BLE 

10$ 

570  001014 

022700 

000177 

CMP 

#WNDSMX,RO 

571  001020 

103402 

BLO 

10$ 

572  001022 

000241 

CLC 

573  001024 

000401 

BR 

20$ 

574  001026 

U00261 

10$:    SEC 

LINE-ID 


VALID  devk;  name? 

BR  IF  NO 

GET  ADDRESS  OF  FIRST  CHARACTER 

CONVERT  TO  RAD50 

SAVE  DEVICENAME 


LEGAL  CONTROLLER  NUMBER  VALUE? 

BR  IF  NO 

SAVE  CONTROLLER  NUMBER 


LEGAL  UNIT  NUMBER  VALUE? 

BR  IF  NO 

SAVE  UNIT  NUMBER 


ILLEGAL  LINE-ID 


DOUBLE  WORD  VALUE? 

BR  IF  YES  -  ERROR 

GET  BLOCK  SIZE  VALUE 

IS  BLOCK  SIZE  VALUE  WITHIN  RANGE? 

BR  IF  NO  -  ERROR 

BR'iF  NO  -  ERROR 

INDICATE  LEGAL  BLOCK  SIZE  VALUE 

INDICATE  ILLEGAL  VALUE 


DOUBLE  WORD  VALUE? 

BR  IF  YES  -  ERROR 

GET  BLOCK  SIZE  VALUE 

BR  IF  ILLEGAL  VALUE 

IS  VALUE  IN  RANGE? 

BR  IF  NO  -  ERROR 

INDICATE  LEGAL  WINDOW  SIZE  VALUE 

INDICATE  ILLEGAl  VALUE 
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PAGE  2 

CREF   OA.OO 


SYMBOL   VALUE 


DS.X29 

DTEDES 

DTEi^lG 

ERh-UF 

ERRMSG 

FMT10 

FMT8 

FM.10 
FM.8 

FNDPOV 

FNLIN 

F.RSIZ 

HSHADD 

HSHSZ 

IE. EOF 

lE.RBG 

I$$AS 

LBRA 

LF.ACT 

LF.8R0 

LF.BWT 

LF.ENA 

LF.IPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNl 

LF.X2P 

LINCTL 

LINNAM 

LINUNT 

LNKEND 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.:)0P 

LN.OPE 

L^'.REF 

LN.5ER 

LN.STA 

LN.SJB 


000002 
000370  RG 
000372  RG 
000022 
000012 
001772 


R 
R 
RG 


001752  RG 

=  000000 
=  000000 

001202  RG 

000632  RG 

=  .*,,,.  GX 

000376  RG 

000374  RG 

=  .»♦*«♦  Gx 

=  »*»»«»  Gx 

r  ****** 

=  00007A 
=  100000 
=  000400 

-  000007 
=  00200C 
=  001000 
"  000100 
=  004000 
=  001020 
=  000200 
=  040000 
=  010000 
=  000040 
=  000010 
=  020000 
=  000000 

000350  RG 
000346  RG 
00C351  RG 
001112  RG 

=  000000 

=  000005 

=  000004 

=  000003 

=  000003 

=  000001 

=  000000 

=  0000C4 

=  000001 

=  000002 

-  000002 

-  000017 
=  000360 


REFERENCES 

#7-182 
#7-163 
#7-164 
#7-124 
#7-122 

8-259 

8-263 

8-275 
#8-259 
#8-263 
#8-275 
#17-654 

8-275 
♦16-628 
#7-169 
#7-168 

9-393 

11-459 

15-604 
#6-S6 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#7-146 
#7-145 
#7-147 
#16-628 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 


12-480 

12-492 

8-260 

8-264 

8-276 

#8-260 

#8-264 

#8-276 

#13-513 
»16-633 


11-456 


8-261 

8-268 

#8-282 

#8-261 

#8-268 


8-262 
8-269 

#8-262 
#8-26'5 


8-265 
8-270 

#8-265 
#8-270 


8-266 
8-271 

#8-266 
#8-271 


8-267 
8-272 

#8-267 
#8-272 


#8-283 
8-273     8-274 

#8-273     #8-274 


-14-535 
»14-528 
♦14-542 
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Symbol 

table 

A$tCHK= 

ooooor 

ERR20 

000024 

F3.TCM= 

002000 

LSBROB 

000364 

Rt$SND= 

000000 

Al$CPS= 

000000 

ERR22 

000026 

F3.U[)S= 

000020 

LSBROL 

000366 

R$$11M= 

000000 

A$$PR1= 

000000 

ERR24 

000030 

F3.WAT= 

010000 

L$BSA 

000C10 

SISDRO= 

172200 

«$TRP  = 

000000 

ERR26 

000032 

F3.XHR= 

000100 

LSBSEG 

000026 

SRO   = 

177572 

CMODE  = 

uoooo 

ERR28 

000034 

F3.11S= 

000400 

LSBSGL 

000554 

SR3   = 

172516 

Ct$C<P= 

000000 

ERR30 

000036 

G$$TPP= 

000000 

LSBSYS 

000025 

SWR 

177570 

C$tORE= 

OOOAOO 

ERR32 

000040 

G$$TSS= 

000000 

lSBTSK 

000000 

SYSFDB= 

******  GX 

C$SRSH= 

17756A 

ERR34 

000042 

G$$TTK= 

000000 

LSBWND 

000024 

S$$WRG= 

000000 

DSKBUF 

OOOOOOR 

&03  ERR36 

000044 

G$$URD= 

000000 

LSBXFR 

000350 

s$$ysz= 

007600 

DSAMXC 

000072 

ERR4 

000004 

HF.CIS= 

000200 

L$$ASG= 

000000 

TPS 

177564 

DSAMXH 

O0C07A 

ERR6 

000006 

HF.EIS= 

000002 

L$$DRV= 

000000 

TS$ACP= 

020000 

DSANN 

000000 

ERRS 

000010 

HF.FPP= 

100000 

L$$pn  = 

000001 

TS$CHK= 

000100 

DSBRPR 

000102 

E$$XPR= 

000000 

HF.QB  = 

000004 

L$$11R= 

000000 

TS$CMP= 

000200 

D^BRTM 

000100 

FE.CAL= 

000040 

HF.UBM= 

000001 

MPAR  = 

172100 

TS$IOP= 

000020 

DSDELF 

0O00A5 

FE.CEX= 

020000 

I$$RAR= 

000000 

MPCSR  = 

177746 

TS*NEU= 

000001 

DtDELW 

0000A6 

FE.DRV= 

000010 

I$$RDN= 

000000 

M$$CRB= 

000124 

1SS..JHD= 

040000 

DtENO  = 

0001  DA 

FE.DVM= 

010000 

KDSARO= 

172360 

M$$CRX= 

000000 

TS$MSO= 

002000 

D$FNB 

00003A 

FE.EXP= 

000200 

KDSDRO= 

172320 

M$$FCS= 

000000 

TS$NXH= 

000002 

DSHIOR 

00002A 

FE.EXT= 

000001 

ICIN«RO= 

172340 

M$$MGE= 

000000 

TS$PIC= 

100000 

OSHOST 

000022 

FE.EX\/= 

000004 

KINAR5= 

172352 

M$$NET= 

000000 

TS$PMD= 

010000 

DSINAC 

000044 

FE.FDT= 

002000 

KINAR6= 

172354 

M$$0VR= 

000000 

TS$PRV= 

000400 

DSINCT 

000042 

FE.LS1= 

000400 

KJNAR7= 

172356 

N$$ACC= 

000001 

rs$RES= 

000040 

OSIPL 

000C51 

FE.MUP= 

000002 

KISARO= 

172340 

N$$BUF= 

000001 

TS$SLV= 

004000 

DSLID 

000020 

FE.MXT= 

040000 

KISAR5= 

172352 

N$$LDV= 

000001 

TS$SUP= 

000010 

DSLNAM 

000006 

FE.NLG= 

100000 

KISAR6= 

172354 

N$$MCP= 

000001 

TS$XHR= 

000004 

DSLNUM 

000014 

FE.OFF= 

001000 

K1SAR7= 

1^2356 

N$$MLL= 

000001 

T$$KMG= 

000000 

D$LST 

000047 

FE.PKT= 

000100 

K1SDR0= 

172300 

N$$MOV= 

000010 

T$$MIN= 

000000 

DSMAXC 

000064 

FE.PLA= 

000020 

KISDR6= 

172314 

N$$NCT: 

000001 

T2$CL1= 

000001 

DSMAXH 

000066 

FE.X25= 

004000 

KISDR7= 

172316 

N$$PEM= 

000001 

T2$FMP= 

000002 

DSMAXV 

000070 

F$$LVL= 

000001 

K$$CNT= 

177546 

PIRQ   = 

Mini 

UBMPR  = 

170200 

D$ML  L 

000040 

F.RSI2= 

♦•»»*•  GX 

K$$CSR= 

177546 

PMODE  = 

030000 

UDSARO= 

177660 

D$MNOD 

000041 

F2.ACN= 

000020 

K$$LDC= 

000000 

PR.L8L 

000076R 

UDSDRO= 

177620 

D$NA 

000062 

F2.AHR= 

010000 

k;$$tps= 

000074 

PR.XFR 

000272R 

U1SAR0= 

177640 

D$\3EA 

000056 

F2.DAS= 

000001 

Le$REV= 

000400 

PRO 

000000 

UISAR4= 

177650 

OSNBRA 

000054 

F2.DPR= 

000400 

LD$ACC= 

100000 

PR1 

000040 

UISAR5= 

177652 

D$NEND= 

000054 

F2.EVT= 

000010 

LD$CLS= 

020000 

PR4 

000200 

UISAR6= 

177654 

OSNLN 

000030 

F2.GGF= 

002000 

LD$LP  =^ 

000000 

PR5 

000240 

UISAR7= 

17^656 

D$NN 

000060 

F2.IRR= 

001000 

LD$REl= 

000004 

PR6 

000300 

U1SDR0= 

177600 

DSOUTT 

000043 

F2.Lie= 

000002 

LD$RSV= 

040000 

PR7 

000340 

U1SDR4= 

177610 

DSRETF 

000050 

F2.MP  = 

000004 

LD$SUP= 

000010 

PS 

177776 

UISDR5= 

177612 

0$RNN 

000002 

F2.P0L= 

000100 

LSBASG 

001000 

P$$P45= 

000000 

U1SDR6= 

177614 

DSRTMR 

000076 

F2.RAS= 

004000 

LSeSLK 

000360 

P$$WRD= 

000000 

UISDR7= 

177616 

D$SEG 

000036 

F2.RBN= 

020000 

L$8DAT 

000C32 

Q$$OPT= 

000010 

V$$CTR= 

001000 

D$SER 

000032 

F2.SDW= 

000040 

LSBEXT 

000352 

RSLDAT 

000026 

X$$DBT= 

000000 

OSSQRL 

000052 

F2.STP= 

100000 

LSSFLG 

000030 

RSLFLG 

000024 

$ALL15= 

******  GX 

()$$BUG= 

1775-4 

F2.SWP= 

040000 

L$BFL2 

000774 

RSLHGV 

000006 

$ALL16= 

******  GX 

D$tISK= 

000000 

F2.WND= 

000200 

LSBHGV 

000012 

RSLLDZ 

000012 

SBFR  = 

*»»♦*»  GX 

D$$L11= 

000001 

F5.AST= 

000200 

LSBHRB 

000356 

RSLMXV 

000010 

$CLDEO= 

******  GX 

D$$VNr= 

000000 

F3.Cll  = 

001000 

LSBLDZ 

000016 

RILMXZ 

000014 

$CLIOS= 

>*».**  GX 

D$$VNM= 

000000 

F3.CRA- 

000001 

LSBLIB 

000040 

RILNAM 

000000 

$CLOPE= 

♦•«***  GX 

ERROR 

OOOOOOR 

002  F3.£JS= 

000004 

LSBLRL 

000776 

RSLOFF 

000016 

SCTBIO 

OOUOOORG 

ERR10 

000012 

F3.NWK= 

000002 

LSBLUN 

000362 

RSLSA 

000004 

SDECHM 

000416RG 

ERR12 

000014 

F3.PMN= 

004000 

LSBMXV 

000014 

RSLSEG 

000022 

$DECPT= 

».**.*  GX 

ERRU 

000016 

F3.PR0= 

000040 

LSBMXZ 

000020 

RSLSIZ 

000054 

SIOSB  = 

***♦*.  GX 

ERR16 

000020 

F3.RLK= 

020000 

L$BOFF 

000022 

R$LUND 

000020 

$LBN  = 

******  GX 

ERR18 

000022 

F3.SHF= 

040000 

LSBPAR 

000004 

R$$DER= 

900000 

SLBXL  : 

000540 

ERR? 

000002 

F3.STM= 

000010 

L$6PRI 

000346 

R$$Kn  = 

000001 

SLLEN  -- 

»**.**  GX 
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VDEV 
REP^ 


189 
190 

SNLDEV  -  SET^ 

J  RSXIIM  DEVICE  DATA  STRUCTURES 

191 
192 

THIS 

ROUTINE 

IS  CALLED  WHEN  DOING  A  "SET  PROCESS"  OF  AN  LLC  IF 

THE  LLC$DF 

193 

MACRO  IN  CETAB  INCLUDED  A  DEVICE  NAME  (SIXTH  MACRO  ARGUMENT). 

F  THE  DEVICE 

19A 

DATA 

STPU'TURES  already  EXIST, 

THE  PCB  ADDRESS  IS  COPIED  FROM 

THE  PDV  INTO 

195 

THE  DCS.  IF  THE  DATA  STRUCTURES 

DO  NOT  EXIST,  THE  FILE  [131 ,54]XXXTAB. TSK 

196 
197 

IS  ASSUMED  TO 

BE  AN  IMAGE  COpV 

OF  THE  DEVICE  MBLES. 

198 
199 

INPUTS: 

SSDEV=2 

CHARACTER  DEVICE 

NAME  (ASCII) 

200 

$PDVA=PDV  ADDRESS 

201 

$NAME=PROCESS  NAME  (RAD50) 

202 
203 

OUTPUTS: 

204 

C-eiT=SUCCESS/FAILURE 

205 

206  000000 

;nldev 

207 

'.MCALL 

VNPBPT 

208  000000 

VNPBPT 

VDEV 

209  000000 

SWTCHO 

#DEV8UF 

DEFAULT  TO  DEVBUF 

210  000006 

SWTCHI 

#DEVBUF 

DEFAULT  TO  DEVBUF 

211  OOOOU 

CALL 

FIND 

SEE  IF  DATA  STRUCTURES  ALREADY 

^EXIST 

212  000020 

10347A 

BCS 

20$ 

IF  CS,  DRIVER  ALREADY  RESIDENT 

213  000022 

CALL 

Dvsm 

LOOK  FOR  SPECIAL  SYMBOLS 

21A  000026 

103471 

BCS 

20$ 

IF  CS,  STB  FILE  ERROR 

215  000030 

005767 

000166' 

TST 

FOUND 

DO  STRUCTURES  ALREADY  EXIST? 

216  000034 

001013 

BNE 

10$ 

IF  NE,  YES 

17  000036 

CALL 

DVL8L 

OPEN  IMAGE  FILE,  READ  LABEL  BLOCK 

.18  000042 

103463 

BCS 

20$ 

IF  CS,  FAILURE 

219  000044 

CALL 

DVALL 

ALLOCATE  SPACE  FROM  THE  POOL 

220  900050 

103460 

BCS 

20$ 

IF  CS,  FAILURE 

221  000052 

CALL 

DVXFR 

TRANSFER  STRUCTURES  INTO  CORE 

222  000056 

103455 

BCS 

20$ 

IF  CS,  FAILURE 

223  000060 

CALL 

$CLDEQ 

CLOSE  IMAGE  FILE 

224  000064 

016700 

OOOOOOG 

10$: 

MOV 

$PDVA,R0 
DCC,R3 

GET  PDV  ADDRESS 

225  000070 

016703 

000150' 

MOV 

AND  DCS  ADDRESS 

226  000074 

GETRV 

R3,#D.PCB+2 

READ  IN  DCB 

227  000112 

016767 

OOOOOOG  OOOOOOC 

MOV 

$$T8L,D.DSP+DEVBUF  ;  COPY  DISPATCH  TABLE  ADDRESS 

228  000120 

001443 

BEQ 

101$ 

IF  EQ,  ERROR 

229  000122 

016067 

OOOOOOG  OOOOOOC 

MOV 

Z.PCB(RO),D.PCBt 

)EVBUF  ;  COPY  PCB  ADDRESS 

230  000130 

016700 

OOOOOOC 

MOV 

D.UCB+DEVBUF.RO 

SAVE  UCB  ADDRESS 

231  000134 

016701 

OOOOOOC 

MOV 

D.UCBL+DEVBUF.RI 

;  AND  UCB  LENGTH 

232  000140 

PUTRC 

REWRITE  DCB 

233  000144 

15$: 

GETRV 

R0,R1 

READ  IN  NEXT  UCB 

234  000160 

016767 

0000006  000220' 

MOV 

$FEATR,U.CU3  +  DEVBUF  ;  STORE  THE  FEALiRES  WORD 

235 
236 

.If  DF 

R$$MPL 

CMP01] 

237 

SUTCHO 

#$8IAS 

SET  UP  OUTPUT  B-  rFER  ADDRESS 

[MP01] 

238 

MOV 

U.SC8+DEVBUF,-(SP)  ;  CO^Y  SCB  ADDRESS 

[MP01] 

239 

ADD 

.SKS5,(SP) 

POINT  TO  S.SK5  OFFSET 

[MP01] 

240 

PUTRC 

(SP),#2 

•  UPDATE  S.KS5 

[MP01] 

241 

TST 

(SP)  + 

CLEANUP  STACK 

[MP01] 

242 

SUTCHO 

#DtVBUF 

■  RESET  OUTPUT  BUFFER 

CMP01] 

243 

244 

CMP 

#'>RDLX,$NAME 

•  DLX  ? 

[MP01] 
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VD1< 
LOC/ 


696 

.SBTTL 

REP4A  -  REPLACE  > 

XX TAB  NAME 

697 
698 
699 

.SBTTL 

REP4A1  -  REPLACE 

XXX  NAME 

REP4A 

-  REPLA 

':E  XXXTAB  NAME  ANC 

SYMBOL  NAME 

700 

701 
702 

REP4A1  -  REPLACE  XXX  NAME  AND  SVM80L  NAME 

INPUTS: 

703 
70A 
705 

R1=SrM80L  LOOKUP  CONTROL 

BLOCK  ADDRESS 

OUTPUTS: 

706 
707 
708  0022H 

R1=DESIR0YED 

010146 

?EP4A: 

MOV 

Rl,-(SP) 

SAVE  R1 

709  002216 

CALL 

$REP.P 

REPLACE  XXXTAB  NAME 

710  002222 

000420 

BR 

REP4A2 

711  00222'i 

010146 

?EP4A1 : 

MOV 

RU-(SP> 
(R^)n(R4) 

SAVE  R1 

712  002226 

112314 

0$: 

MOVB 

copy  FORMAT  STRING 

715  002230 

122724 

000052 

CMPB 

#'*,(R4)t 

LOOKING  FOR  FIRST  ASTERISK 

7U  002234 

001374 

BNE 

10$ 

715  0C2236 

005304 

DEC 

R4 

SKIP  the'asterisk 

716  002240 

010400 

MOV 

R4,R0 

COPY  BUT 'ER  ADDRESS 

717  0022A2 

016701 

OOOOOOG 

MOV 

$NAME,R1 

GET  LLC  nlAME 

718  002246 

CALL 

$C5TA 

CONVERT  TO  ASCII 

719  002252 

122740 

000040 

20$: 

CMPB 

#'  ,-(R0) 

DISCARD  TRAILING  SPACES 

720  002256 

001775 

BEQ 

20$ 

721  002260 

0052C0 

INC 

RO 

722  002262 

010004 

MOV 

R0,R4 

SET  NEi'l'sUFFER  ADDRESS 

723  002264 

012601 

REP4A2: 

MOV 

(SP)t,R1 

RESTORE  R1 

724  002266 

112314 

10$: 

Move 

(R3H,(R4) 

COPY  FORMAT  STRING 

725  002270 

122724 

000052 

CMPB 

#'»,(R4)+ 

LOOKING  FOR  THE  SECOND  ASTERISK 

726  002274 

001374 

3nE 

10$ 

•  •  • 

727  002276 

010400 

MOV 

R4,R0 
*''',-(R4) 

COPY  BUFFER  POINTER 

728  002300 

112744 

0U0042 

MOVB 

DEPOSIT  A  DOUBLE  QUOTE 

729  002304 

016146 

000006 

MOV 

6(fi1),-(SP) 

SAVE  SECOND  HALF  OF  NAME 

730  002310 

016101 

000004 

MOV 

4(R1),R1 

GET  FIRST  HALF  OF  NAME 

731  002314 

CALL 

$C5TA 

CONVERT  TO  ASCII 

732  002320 

012601 

MOV 

(S?)+,R1 

RESTORE  SECOND  HALF  OF  NAME 

733  002322 

CAi  L 

$C5TA 

CONVERT  TO  ASCII 

734  002326 

122740 

000040 

20$: 

CMPB 

#'  ,-CRO) 

DISCARD  TRAILING  BLANKS 

735  002332 

001775 

BEQ 

20$ 

736  002334 

005200 

INC 

RO 

737  002336 

112720 

000042 

MOVB 

*"',(RO)t 

DEPOSlfANOTHER  DOUBLE  QUOTE 

738  002342 

010004 

MOV 

RO.R'. 

SET  NEW  BUFFER  POINTER 

739  002344 

RETURN 
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VDIS  -  VNP  SHOW  COMMANDS 
LOCAL  DATA 


105 
106 
107 
108 
109 
110 
111 
112 
113 
1U 
115 

116  000000 

117  000007 

118  000017 
119 

120 

121 

122 

123  000037 

12A  000055 

125 

126 

127 

128 

129  00006i 

130  000067 

131  000077 
152  000103 
133 

134 
135 
136 

137  000110 

138  000120 
139 

uo 

141 

1A2 

143  000126 

144 

145 

146 

147 

148  000135 

149  000151 

150  000167 
151 


152 
153 

154 

155  000175 

156  000216 

157  000236 
158 

159 
160 
16' 


145 
163 
143 


113 
117 


117 
111 
117 
123 


104 
114 


123 


101 
113 
101 


101 
113 
120 


166 
165 
150 


156 
142 


156 
156 
146 
150 


145 
157 


151 


154 
156 
154 


145 
156 
162 
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.SBTTL  LOCAL  DATA 
^ 
LOCAL  DATA 

.ENA8L   LC 

ASCIZ  STRINGS  FOR  COMMAND  TYPES 

145  EVENT:   .ASCIZ  /events/ 

155  SUMARV:  .ASCIZ  /summary/ 

141   CHARAC:  .ASCIZ  /characteristics/ 

ASCIZ  STRINGS  FOR  OBJECT  HEADER  MESSAGE 


VD 
SDI 


57  OKNOWN: 
152  OSPEC: 


.ASCIZ  /Known  objects/ 
.ASCIZ  /Object/ 


ASCIZ  STRINGS  FOR  OBJECT  ACCESS  LEVELS,  PROCESS,  NODE  AND  LINE  STATES 


000  ON: 

165  INSPCT: 

146  OFF: 

165  SHUT: 


.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 


/On/ 

/Inspect/ 
/Off/ 
/Shut/ 


ASCIZ  STRINGS  FOR  USER  INFORMATION 


146  DEFAUL: 

147  LOGIN: 


.ASCIZ  /Default/ 
.ASCIZ  /Login/ 


ASCIZ  STRING  FOR  COPIES  INFORMATION 
156  SINGLE-  .ASCIZ  /Single/ 

ASCIZ  STRING  FOR  ALIAS  HEADER  MESSAGE 


154  AALL: 
157  AKNOWN: 
151   ASPEC: 


.ASCIZ  /All  aliases/ 
.ASCIZ  /Known  aliases/ 
.ASCIZ  /Alias/ 


ASCIZ  STRING  FOR  PROCESS  HEADER  MESSAGE 


164  PACTIV:  .ASCIZ  /Active  processes/ 
157  PKNOhJN:  .ASCIZ  /Known  processes/ 
157  PSPEC:   .ASCIZ  /Process/ 


ASCIZ  STRING  fqR  PROCESS  AND  LINE  STATES 


VNP  <;Hnw  COMMANDS 


C  15 

MACRO  V05.03b  Monday  15-Jul-85  12:14  Page  6-1 


C 


012/00  021274 
10300A 


VDIS  -  VNP  SHOW  COMMANDS 
tDLOG  -  SHOW  LOGGING 


6A5 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 

663  003446 

664  003452 

665  003456 

666  003460 

667  003470 

668  003476 

669  003500 

670  003506 

671  003510 

672  003516 

673  003520 

674  003526 

675  003530 

676  003534 

677  003536 

678  003540 

679  003544 

680  003546 

681  003556 

682  003564 

683  003570 
68-^  003572 

685  003602 

686  003606 

687  003612 

688  003614 

689  003620 

690  003622 

691  003626 

692  003634 

693  003636 

694  003642 

695  003644 

696  005o50 

697  003652 

698  003654 
6^9 

^00 
701 
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.SBTTL   $DLOG  -  SHOW  LOGGING 

tDLOG  -  SHOW  ACTIVE  LOGGING 
SHOW  KNOWN  LOGGING 
SHOW  LOGGING  MONITOR 
SHOW  LOGGING  CONSOLE 
SHOW  LOGGING  FILE 

INPUTS:  NONE 

OUTPUTS:    LOGGING    INFORMAHON    IS    DISPLAYED    ON   USER'S    TERMINAL 

ALL   REGISTERS   ARE   DESTROYED 


$DLOG: 


032767 
001004 
052767 
000426 
032767 
001022 
032767 
001016 
012701 
005711 
001407 

103004 

016767 

103004 

012703 
005767 
001003 
012702 
000413 
012705 
022767 
001003 
012702 
000402 
012702 
112223 
001376 


000010  OOOOOOG  10$: 
002000  OOOOOOG 
002000  OOOOOOG  20$: 
OOOOOOG  OOOOOOG 
000014G 


000010G  000014G  30$: 
40$: 


001062' 
OOOOOOG 

000313' 

n01676' 


50$: 


000001  OOOOOOG 

000256' 

000275' 


60$: 


70$: 
80$: 


MOV 

CALL 

BCC 

ERRPT$ 

BIT 

BNE 

BIS 

BR 

BIT 

BNE 

BIT 

BNE 

MOV 

TST 

BEQ 

CALL 

BCC 

ERRPT$ 

MOV 

CALL 

BCC 

ERRPT$ 

MOV 

TST 

BNE 

MCV 

BR 

MOV 

CMP 

BNE 

MOV 

BR 

MOV 

M0V8 

BNE 

ERRPT$ 


#*REVL,RO 

FNDPDV 

10$ 

L0ERR1,$ER0UT 

*OP$SIN,$OPTON 

20$ 

#0P$KS<,$0PT0N 

40$ 

#0P$KSK,$OPT0N 

40$ 

#VF.SKA,$VFLAG 

40$ 

#RQB+L0.SKN,R1 

(R1) 

30$ 

$FNNAri 

30$ 

L0ERR2,$ER0UT 

$8FR+R.ADD,L0.SKA+RQB 

CKTYPl 

50$ 

SYNERR,$ER0UT 

#TFMP2,R3 

$QUAL 

60$ 

*L0SPEC,R2 

80$ 

*L0GTYP,R5 

#QF$ACT,$QUAL 

70$ 

*L0ACIV,R2 

80$ 

#L0KNWN,R2 

(R2)t,(R3)+ 

80$ 

L0MSG1 ,MSGOUT 


DISPLAY  LOGGING  SINK  1YPE 


GET  EVL  PROCESS  NAME 

IS  PROCESS  IN  SYSTEM? 

BR  IF  YES 

ELSE  EVFNT  LOGGING  NOT  SUPPORTED 

SINK  NODE  SPECIFIED? 

R R  IF  V E S 

ELSE  DEFAULT  IS  KNOWN  SINKS 

CONTINUE 

KNOWN  SINKS  SPECIFIED? 

BR  IF  YES 

NODE  ADDRESS  SPECIFIED? 

BR  IF  YES 

POINT  TO  NODE  NAME  STRING 

EXECUTOR  NODE  SPECIFIED  AS  SINK  NODE? 

BR  IF  YES 

FIND  REMOTE  NODE  NAME  BLOCK 

BR  IF  FOUND  IT 

ELSE  DISPLAY  ERROR  MESSAGE 

STORE  SINK  NODE  ADDRESS 

GET  COMMAND  TYPE  STRING 

BR  IF  SUCCESS 

ELSE  SYNTAX  ERROR 

GET  STORAGE  FOR  HEADER 

SHOW  SPECIFIC  LOGGING  TYPE? 

BR  IF  NO 

GET  HEADER 

POINT  TO  LOGGING  SINK  TYPE  TABLE 
SHOW  ACTIVE  LOGGING? 
BR  IF  NO 
GET  HEADER 

MUST  BE  SHOW  KNOWN  LOGGING 
STORE  THE  HEADER 

DISPLAY  THE  HEADER 


/rM  ^  -  \yMD  cuni.i  rnMMANinc: 
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10 
11 
•2 
15 

15 
16 
17 
18 
19 
20 
21 
22 
2^ 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
58 
59 
40 
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DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
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MODULE  DESCRIPTION: 

VNP  -  "SET  CEX"  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-UCC-79 

DECNET-11M/S  V5.0 
DECNET-11M-PLUS  Vl.O 

5.00  16-APR-82 

DECNET-llM  V5.1 
DECNET-11M-PLUS  VI .1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-llM/S   V4.2 
DECnet-11M-Plu5   V3.0 
DECnet-Mkro/RSX    Vl.O 


ITS 
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VCEX  - 
fFPTR 


v'CEX   -   VNP   LOAD    CEX   ROUTINES 
CEP'R   -    INIT   CETAB   POINTERS 

611 
612 
61  i 
6U 
615 
616 
617 

618  oomo 

6^9  0C1116 
620 
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BGT 


10$ 


30$: 


MOV     (SP)+,R1 
MOV     (SP)+,RO 
SWTCHl 
.ENDC 

SWTCHC 
RETURN 


;  RESET  INPUT  BUTFER 
;  RESET  OUTPUT  BUFFER 


VCEX  -  VNP  LOAD  CEX  ROUTINES 
rPPTR  -  IN'T  CFTAB  POINTERS 
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VCEX  Ct'cATED   BV     MACRO     ON  2^-JUN-85   AT   02:U 

SYMBOL    CROSS  REFERENCE 


SYMBOL      VALUE 


REFERENCES 


TS<5Ch 

T.NAM 

T.RCVL 

T.ST2 

T.TCBL 

T2.FXD 

VF.5S 

VXBLKl 

VXBLK2 

VXBL<3 

XBLKl 

XBLK2 

XBLK3 

$ALL15 

$AZFS 

$BFR 


SCCBNM 

SCEAVL 

$CET 

SCLFIG 

SClSAV 

SCTBIO 

SCXOPT 

$DEA16 

SDECHM 

SDECP; 

SDFUK 

SERMSG 

lERR/'A 

$ERRA5 

$ERRA6 

$ERRA7 

$ERR48 

$ERR51 

$ERR53 

$EPR5A 

$ERR55 

$ERR56 

$ERR57 

$ERR58 

$ERR59 

$ERR60 

$ERR61 

$ERR62 

$ERR63 

$ERR64 

$ESR65 

$ERR66 

$FRR67 

$ERR6<3 


001120  R 

000006 

000012 

00003'. 

000030 

002000 

****** 

000552  R 
000564  R 
000576  R 
000514  R 
000526  R 
000540  R 


****** 


~      ****** 


****** 
****** 


*■♦♦♦** 
****** 


=  ****** 

-  ****** 
=  *****  * 
=  *  ***** 
--  ****** 

-  ****** 

-  ****  ** 
r:  ****** 

-  *****  * 
~  ****** 
r  ****** 

-  ****** 
=  *♦**♦*- 

-  ****** 

-  ****** 
r  ****** 


#12-635 

12-644 

14-787 

14-751 

*12-638 

14-751 

r,x 

14-749 

#6-193 

6-193 

6-196 

6-171 

6-180 

6-183 

r,x 

13-670 

GX 

7-309 

GX 

7-319 

13-677 

♦14-807 

GX 

11-581 

GX 

»7-338 

GX 

8-352 

GX 

•9-409 

GX 

9-408 

GX 

8-355 

GX 

•11-570 

GX 

13-720 

GX 

8-374 

GX 

8-379 

GX 

7-300 

GX 

15-866 

GX 

6-235 

GX 

6-236 

GX 

6-237 

GX 

6-238 

GX 

9-506 

GX 

6-243 

GX 

6-245 

GX 

6-246 

GX 

6-247 

GX 

6-249 

GX 

6-250 

GX 

6-251 

GX 

6-255 

GX 

6-256 

GX 

6-257 

GX 

6-258 

GX 

6-259 

GX 

6-261 

GX 

6-262 

GX 

6-263 

GX 

6-267 

GX 

6-26f' 

14-738 
12-646 
14-789 

12-640 


#6-196 

#6-199 

#6-180 

#6-183 

#6-186 

14-779 

8-354 

7-326 

13-713 

•14-811 

•7-339 
9-451 


,1-583 
14-801 


8-351 


»14-803 


9-495 
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CREF        04.00 


•  U-804 


10-531 


9-421 

9-446 

9-453 

7-338 

7-339 

•8-349 

•8-362 

8-381 

11-618 

12-637 

14-751 

14-787 

14-789 

14-'92 

•14-799 

♦14-803 

•14-804 

♦14-812 

•14-813 

♦14-814 

•lA-815 

•14-816 

14-848 

♦7-340 


11-584 


9-412 


8-362 


9-435 


9-450 


VCtX 
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SNLCFG  -    CONFIG   FILE    SCAN 


30A  000202 

305  00C206 

306  000210 
307 

308  0002U 

309  000222 
310 

311 

312 

313  C0022'. 

3U  OCC232 

315 

316 

317 

318  000234 

319  000240 

320  0002A2 

321  000246 

322  000250 

323  000254 
324 

325 

326 

327 

328  000256 

319  000262 

330  000264 

331  000270 

332  000272 

333  000276 

334  000300 

335  000304 

336  000306 

337  000312 

338  000314 

339  000322 

340  000324 


341 
342 


00033^ 
0OC334 

343  000340 

344  000342 
'45  000346 
346 

347 
3'3 
349 

350  00C350 

351  000354 
552  000356 

353  000362 

354  000354 

355  00C370 

356  000372 

357  000376 
:58  000404 

359  000406 

360  000412 


103753 
000167 

032767 
001124 


032767 
001  I  ;  1 


103437 
103040 
103767 


103575 

103772 
005767 
001454 

103567 

103553 
026767 
001366 
042767 
001436 

103543 

103772 


103546 

103372 

103C02 

042767 
001411 

103521 


000416         70$: 
OOOOOOG  OOOOOOG  80$: 


CALL 

BCS 

JMP 

BIT 
BNE 


scipvc 

50$ 
190$ 

#MS.LlC,$MISS 
170$ 


IS  IT  PVC$DF7 

BR  IF  NO 

ELSE  FINISH  UP 

ARE  LLC  PARAMETERS  MISSING? 
IF  NE,  YES 


OOOOOOC  OOOOOOG 


ARE  THE  DDM/DLC  PROCESS  EXTENDS  MISSING  ? 


90$: 


BIT 
BNE 


CALL 

BCS 

CALL 

BCC 

CALL 

BCS 


DDM$DF  SEEN 


OOOOOOG 


100$: 


110$: 


OOOOOOG  000152' 
OOOOOOG  OOOOOOG 


120$: 
123$: 


CALL 

BCS 

CALL 

BCS 

TST 

BEQ 

CALL 

BCS 

CALL 

BCS 

CMP 

BNE 

BIC 

BEQ 

CALL 

BCS 

CALL 

BCS 


SLTSDF  SEEN 


130$: 


OOOOOOG  OOOOOOG  135$: 
140$: 


C«LL 

BCS 

CALL 

BCC 

CALL 

BCl 

CALL 

BIC 

BEQ 

CALL 

BCC 


*<MS.INCIMS.EXT>,$MISS 
160$ 


READ 
123$ 
QSLT 
130$ 
QDDM 
90$ 


READ 

121$ 

QCNT 

100$ 

$MISS 

155$ 

READ 

131$ 

QUNT 

101$ 

$$MUX,UC.NT 

110$ 

*MS.MUy,$MISS 

^55$ 

READ 

111$ 

QSIT 

120$ 


READ 
141$ 
OSTA 
130$ 
QPLT 
135$ 
QADD 

/'MS.mtp,$m;?s 

155$ 

QDDM 

100$ 


ARE  THE  PROCESS  EXTENDS  MISSING  ? 
IF  NE,  YES 

NOTE  -  THE  PROCESS  EXTENDS  ARE  SET  FOR  PROCESS 
ONLY.  LLC'S  ARE  HANDLED  SEPARATELY 


READ  NEXT  RECORD 
IF  CS,  EOF 
IS  IT  SLT$DF? 
IF  CC,  YES 
IS  IT  DDM$DF? 
IF  CS,  NO 


READ  NEXT  RECORD 

IF  CS,  EOF 

IS  IT  CNT$DF? 

IF  CS,  NO  -  KEEP  LOOKING 

ANY  PARAMETERS  STILL  MISSING? 

IF  EO,  NO 

READ  NEXT  RECORD 

IF  CS,  EOF 

IS  IT  UNT$DF? 

IF  CS,  NO  -  ERROR 

HAVE  ALL  UNT$DF'S  SEEN  SEEN? 

IF  NE,  NO 

INDICATE  ALL  MUX  PARAMETERS  SEEN 

IF  EQ,  ALL  DONE 

READ  NEXT  RECORD 

IF  CS,  EOF 

IS  IT  SLI$DF? 

IF  CS,  NO 


GET  NEXT  RECORD 

IF  CS,  EOF 

IS  IT  STA$DF? 

IF  CC,  YES  -  LOOK  FjR  MORE  OF  THEM 

IS  IT  PLT$DF  ? 

IF  YES  -  BRANCH 

IS  i:    ADD$DF 

INDICATE  ALL  MTP  PARAME"E2S  SEEN 

If  EO,  ALL  DONE 

IS  IT  DDM$DF? 

IF  CC,  YES 


VfFG  -  VNP  SCAN  CONF IGURA ■ ION  F  MACRO  V05.03b  Monday 
KM.  cfr,  -  rnMfrr,  fiip  ^raw 
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VCFG  -   VNP   SCAN   CO^JF  IGURATION   f    MACRO  V05. 

SLTSDF    STATE    TABLE: 

770 

001512 

7^1 

001512 

772 

001512 

773 

77A 

775 

7/b 

777 

778 

001'^ 

779 

001^ 

780 

001 5 1 J 

781 

001512 

782 

001512 

783 

001512 

78A 

001512 

785 

001'.  1 2 

786 

00'512 

787 

001512 

788 

001512 

789 

001512 

790 

001512 
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TRANS  <',> 
STATES 
^RANS  SNUMeR,SEXIT,S 


PRl 


FLAG  BIT  DEFINJTJONS  PLUS  TRAILING  COMMA 

STATES  BITS 

TRANS  Xlf  .   .2Py.,BITS1,,FG.X2P,CFGFLG 

TRANS  •/!ZF.X3PX,BITS1,,FG.X3P,CFGFLG 

TRANS  SRAD50,BITS1 

TRANS  <',>,tEXIT 

STATES  BITS1 

TRANS  <'I>,BITS2 

TRANS  '+,8ITS2 

TRANS  <',>,SEXIT 

STATES  BITS2 

TRANS  XLf  .X2P/'.,BITS1  ,,fG.X2P,CFGFLG 

TRANS  ZZF.X3P%,BITS1,,FG.X3P,CFGFlG 

TRANS  SRAP50,BITS1 


VCFG  -  VNP  SCAN  CONFIGURATION  F  MACRO  V05.03b  Monda, 
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TPARS   ACTION  ROtjTINtS 


1277 
1278 
1279 
1280  002A32 

;  INTERRUPT  VECTOR  (CNTSDF) 

052767 

OCJOOOG  OOOOOOG 

C.VECT 

BIT 

#MS.VCT,$MISS   , 

is  vector  missing? 

1281  0024AO 

001421 

BEQ 

10$ 

if  eq,  no 

1282  002A'.2 

005767 

OOOOOOG 

TST 

.PNUMH 

MAKE  SURE  IT'S  A  VALID  VECTOR 

1283  002Ai.6 

001017 

BNE 

101$ 

.  .  . 

128A  002A50 

032767 

000003  OOOOOOG 

BIT 

*3,.PNUMB 

1285  002456 

001013 

BNE 

101$ 

1286  002460 

026767 

OOOOOOG  OOOOOOG 

CMP 

.PNUMB,IMXVCT 

AND  THAI  IT'S  IN  OUR  SYSTEM 

1287  002A66 

103012 

BHIS 

111$ 

1288  002A70 

016767 

OOOOOOG  OOOOOOG 

MOV 

.PNUMB,$$VECT 

STORE  VECTOR  VALUE 

1289  002476 

0'^2767 

OOOOOOG  OOOOOOG 

BiC 

*MS.VCT,$MISS 

IT'S  NO  LONGER  MISSING 

1290  002504 

10$: 

RETURN 

1291  0C2506 

101$: 

EMSG$R 

1C 

ILLEGAL  VECTOR  VALUE 

1292  002514 

111$: 

EMSG$R 

ID 

VECTOR  NOT  IN  SYSTEM 

1293 

1294 

• 

1295 
1296 
1297  002522 

;  CSR 

(CNT$DF) 

032767 

OOOOOOG  OOOOOOG 

C.CSR: 

BIT 

#MS.CSR,1.M!SS 

IS  CSR  MISSING? 

1298  002530 

001410 

BEQ 

10$ 

IF  EQ,  NO 

1299  002532 

CALL 

GETCSR 

GET  THE  CSR  ADDRESS 

1300  002536 

103406 

BCS 

101$ 

1301  002540 

010067 

OOOOOOG 

MOV 

R0,$$CSR 

STORE  CSR  VALUE 

1302  0C254A 

042767 

0000006  OOOOOOG 

BIC 

*MS.CSR,$MISS 

IT'S  NO  LONGER  MISSING 

1303  002552 

10$: 

RETURN 

1304  002554 

101$: 

EMSG$R 

IE 

ILLEGAL  CSR  VALUE 

1305 
1306 
1307 
1308 
1309  002562 

;  RETURN  NUMER] 

C  CSR  VALUE  IN  RO 

005767 

OOOOOOG 

GETC5R 

:  rST 

.PNUMH 

MAKE  SURE  IT'S  A  VALID  CSR 

1310  002566 

001404 

BEQ 

10$ 

1311  002570 

026727 

OOOOOOG  000003 

CMP 

.  PNUMH, *3 

DOES  THE'exCESS  =  600000  ? 

1312  002576 

001011 

BNE 

20$ 

IF  NE,  NO 

1313  002600 

016700 

OOOOOOG 

10$: 

MOV 

.PNUMB,RO 

GET  THE  LOW  ORDER  NUMBER 

1314  002604 

032700 

OOOOO? 

BIT 

#3,fiO 

IS  IT  AN  EVEN  MULTIPLE  OF  4  ? 

1315  002610 

001004 

BNE 

20$ 

IF  'JE,  NO 

1316  002612 

026727 

OOOOOOG  160000 

CMP 

.PNU;iB,*160C00 

IS  IT  IN  TF:E  I/O  PAGE  ? 

1317  002620 

101001 

BHI 

30$ 

IF  HIS,  YES 

1318  0C2622 

000261 

20$: 

SEC 

ILLEGAL  VALUE 

1319  002624 

30$: 

RETURN 

1320 

1321 

• 

1322 
1323 
1324  002626 

;  INTERRUPT  PRIORITy  (CNTSDF) 

032^67 

OOOOOOG  OOOOOOG 

C.PRI: 

BJT 

*ms.pri,$m;3S 

•  IS  PRIORITY  MISSING? 

1325  002634 

001424 

BEQ 

10$ 

•  IF  EQ,  NO 

1326  002636 

005767 

OOOOOOG 

TST 

.PNUMH 

■  MAkE  SURE  IT'S  A  VALID  PRIoh^TY 

132^  002642 

001022 

BNE 

101$ 

.  .  • 

1323  002644 

026727 

OOOOOOG  000007 

CMP 

.PNUM6.*7 

»              •  •  • 

1329  0026::2 

101016 

B.HI 

101$ 

1330  002654 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

;  GET  PRlORITv  VALUE 

1^31  OO'ooO 

0C1413 

BEQ 

101$ 

;  IF  ZERO,   LLEGAL 

1332  C02662 

ASL$ 

5,R0 

r6,$$hri 

;  CONVERT  TC  PSW  PRIORITY  VALUE 

1333  002674 

010C67 

OOOOOOG 

MOV 

;  STORE  IT 

VCFG  - 
Symbo'. 

Size  of 

ize  of 

Ocerati 

E  Lapsec 
3B2:VCF 
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Symbo'.  table 

Size  of  work  fUe:  18U9  Jords  (  71  Pages) 
Si'ze  of  c^re  pool:  17603  Words  (  67  Pages) 
Ooe^a'i'ng  system:  RSX-I  IM/PLUS 

0B2:vaG!T5!;[?3^??'i]VCFG/CR/-SP=nB2:[l  J]RSXMCn.SML/ML,C130J10]NETrlB/ML  J130J0]RSXMCM/PA:l,[132,10]VfFG 


vrFP 
CbNSl 


VCFG 
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VCFP 
COMMO 


80 

81 

82 

83 

84 

85 

86 

000074 

87 

000076 

88 

000040 

89 

000040 

90 

002COO 

91 

007777 

92 

000006 

93 

000000 

94 

023417 

95 

000177 

96 

000020 

97 

0000U6 

98 

000020 

99 

000010 

00 

000020 

.SBTTL   CONSTANT  DEFINITIONS 


LOCAL  SYMBOL  DEFINITIONS 

L8RA  =  '< 
RB'^-A  =  ■> 
SPACE  =  40 
BLKSMN  =  32. 
8LKSMX  =  1024. 
CHNLMX  ==  4095. 
CUNMMX  ==  6 
SUBAMN  ==0 
SU8AMX  ==  9999. 
WNDSMX  =  127. 
MAXID  =  16. 
MXNOID  =  6 
MXACUS  =  16. 
MXACPA  =  8. 
MXACAC  =  16. 


LEFT  ANGLE  BRACKET 

RIGHT  ANGLE  BRACKET 

ASCII  SPACE 

MINIMUM  VALUE  FOR  BLOCK  SIZE 

MAXIMUM  VALUE  FOR  BLOCK  SIZE 

MAXIMUM  VALUE  FOR  CHANNEL  NUMBER 

MAX  CUG  NAME  [before  gateway] 

MINIMUM  VALUE  FOR  SUBADDRESS  RANGE 

MAXIMUM  VALUE  FOR  SUBADDRESS  RANGE 

MAXIMUM  VALUE  FOR  WINDOW  SIZE 

Max  length  of  net.  mgmt.  'Td-strTnij' 

Maximum  length  of  node  naiie 

Maximum  length  of  access  control  user  name 

Maximum  length  of  access  control  password 

Maximum  length  of  access  control  account 


.-LTDOOi: 
;**-1 


[TDOOn 
[TD001] 
CTDOOI] 
[TD001] 
lTDOOI] 


VCFP 
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COMMON  ACTION  ROUTINES  -  LINE-ID 
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575  001030 


20$: 


RETURN 
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SYTOOL  CROSS  REFERENCE 
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PAGE  3 

CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

LN.-^l 

=   000106 

#5-67 

L.COST 

000015 

#5-67 

L.CTL 

000012 

#5-67 

L.CVA 

177776 

#5-67 

L.DDM 

000002 

#5-67 

L.DDS 

OOOOOA 

#5-67 

L.DLC 

000003 

#5-67 

L.DLM 

000006 

#5-67 

L.DL5 

000010 

#5-67 

L.FLG 

000000 

#5-67 

L.FRBA 

000016 

#5-67 

L.LEN 

=  000022 

#5-67 

L.MPF 

000022 

#5-67 

L.NM?T 

000020 

#5-67 

L.NSTA 

OOOOU 

#5-67 

L.OWNR 

000021 

#5-67 

L.UNT 

OOC  >  ■  3 

#5-67 

MAX  ID 

=  000020 

#6-96 

7-184 

7-186 

7-226 

7-243 

19-733 

19-745 

MOVE 

00U3O 

RG 

19-753 

#20-775 

MR<FL 

0Ou3';4 

RG 

#7-143 

MXACAC 

=  000020 

#6-100 

7-251 

MXACPA 

=  000010 

#6-99 

7-249 

HXACUS 

=  000020 

#6-98 

7-247 

MXNOID 

=  000006 

#6-97 

7-245 

NEXT 

000352 

RG 

#7-148 

18-693 

♦18-694 

N$$VCT 

~      ****** 

16-632 

OPEN 

OOOAOO 

R 

9-307 

#10-419 

PCKBCD 

001032 

RG 

#15-593 

PF.P5V 

x:     ****** 

GX 

9-363 

9-381 

PF.XDF 

=      ****** 

GX 

19-737 

PF.XGA 

-    ****** 

GX 

9-312 

9-326 

9-344 

PORTNO 

00035A 

RG 

#7-149 

PV5TA 

000A02 

RG 

#7-174 

PV.OFF 

=  000001 

G 

#7-175 

PV.ON 

=  000002 

G 

#7-176 

RBRA 

=  000076 

#6-87 

READ 

000U2 

R 

9-308 

9-314 

9-321 

9-348 

9-359 

9-373 

9-377 

9-383 

RNACCT 

00074  5 

RG 

#7-251 

RNAL 

000744 

RG 

7-207 

#7-250 

RNETWK 

000663 

RG 

#7-243 

RNNL 

000703 

RG 

#7-244 

RNNODE 

000704 

RG 

#7-245 

RNPASS 

000734 

RG 

#7-249 

PNPL 

000733 

RG 

7-206 

#7-248 

kNTL 

000662 

RG 

#7-242 

RNUL 

000712 

RG 

7-205 

#7-246 

RNdSER 

000713 

RG 

#7-247 

RNUENC 

-      ****** 

GX 

9-352 

^TSPC 

000630 

RG 

8-259 

8-260 

8-261 

8-262 

8-263 

8-264 

8-265 

8-266 

8-268 

8-269 

8-270 

8-271 

8-272 

8-275 

8-276 

#12-501 

R$$E  I S 

r     n  ***** 

15-604 

R$$nD 

=     .***»* 

15-604 

VCIO  - 
Symbol 

SPUTRC 


ABS. 

DATA 

..BUF 

Errors 

».«  As 


Work 
Work 
Size  0 
Size  0 
Ope '•at 

ELaps" 
SY:VCI 


#11-444 


e-267 


aP 
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VCIO  -  LOAD  CETAB  IMAGE  MACRO  V05.05b  Saturday  29- 
Symbot  table 
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$PuTRr= 


GX 


SRADDR= 


>*«»  G/ 


$READ 


GX 


$RL8L  =  ******   GX 


$SAVVR= 


•  *♦  GX 


.  ABS. 

001000 

000 

fRW.l.GBL 

ABS 

OVR) 

0005A2 

001 

(RW,I,LCL 

RH 

I.  UN; 

DATA 

000002 

002 

(RW.D.LCL 

RH 

(UN) 

..BUF 

000002 

003 

(RW,D,LCL 

RtL 

CUN) 

Errors 

detected; 

0 

***   Assembler  statistics 


Work   file  reads:  0 

Work   ti'e  writes:  0 

Size  of  work  file:  11950  Words   (  47  Pages) 

Size  of  core  pool:  14440  Words   (  55  Pages) 

Ope-ating  system:  RSX-llM/PLUS 


SY?VCIO.V2'!'[i32,i34ivcio/CR/-SP  =  SV;[1,l]RSXMCM.SML/ML,[130,110]fJEILIB/ML,[130,10]RSXMCM/PA:1,C152,10]VCIO 


VCIO 
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VCLQRM 

TREATED  BY 

MACRO  ON  2"; 

-JUN-85  AT  02:18 

PAGE  1 

S'fMBOL 

:R0SS  REFERENCE 

CREF   OA 

00 

SYMBOL 

VALUE 

REFERENCES 

AuxrDv 

000000  R 

#6-67 

.7-87 

»7-91 

7-118 

CLQREM 

000002  RG 

#7-86 

C.AR5 

00001 A 

7--;  20 

C.LGTH 

=  000020 

7-VA 

7-101 

7-133 

C.RQT 

000002 

7-108 

C.SYST 

-  000006 

7-108 

C.TCB 

OOOOOA 

7-10A 

7-125 

FNDPDV 

0002A2  R 

7-89 

#8-159 

F.RSIZ 

=  ,».,..  GX 

»7-9A 

*7-101 

LD.ALI 

=  000050 

#5-59 

LD.CEX 

=  00002A 

#5-''9 

LD.CIR 

=  000035 

#5-^9 

LD.LIN 

=  000025 

#5-59 

LD.LOG 

=  000031 

#5-59 

LD.MOD 

=  000037 

#5-59 

LD.NOD 

=  000027 

#5-59 

LD.OBJ 

=  000032 

#5-59 

LD.PRO 

=  000026 

#5-59 

LO.ADD 

000022 

#5-59 

LO.ADR 

000052 

#5-59 

LO.CLS 

000002 

#5-59 

LO.CON 

000006 

#5-59 

LO.COP 

000010 

#5-59 

LO.COS 

000020 

#5-59 

LO.CSR 

000010 

#5-59 

5-59 

LO.CTL 

000032 

#5-59 

LO.DES 

000002 

#5-59 

5-59 

LO.DTE 

0OOOA7 

#5-59 

LO.EVT 

OOOOOA 

#5-59 

LO.GRO 

00002A 

#5-59 

LO.HOS 

OOOOAO 

#5-59 

LO.HTM 

000032 

#5-59 

LO.INA 

000062 

#5-59 

LO.INC 

000060 

#5-59 

LO.LDT 

0000A6 

#5-59 

LO.LID 

000030 

#5-59 

LO.LIN 

OOOOOA 

#5-59 

LO.LTM 

00003A 

#5-59 

LO.RAC 

000022 

#5-59 

LO.MDE 

00002A 

#5-59 

LO.I^AM 

00004A 

#5-59 

LO.NET 

=  000002 

#5-59 

LO.NMM 

000022 

#5-59 

LO.OFL 

000012 

#5-59 

LO-OW"^ 

OOOOOA 

#5-59 

LO.OUT 

000056 

#5-59 

LO.OWN 

000026 

#5-59 

LO.PAR 

000010 

#5-59 

'O.PRI 

000012 

#5-59 

LO.RET 

00006A 

#5-59 

LO.RPA 

000030 

#5-59 

LO.SCR 

000016 

#5-59 

VDEV  • 
SNLDE' 

2' 

2' 
2' 
2' 
2' 
2' 
? 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


VCl  QRM 
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VDEV  -  VNP  LOAD  DEVICE  STRUCTUR  MACRO  V05.05b  Tuesday  03-Sep-85  10:28 
SNLDEV  -  SETUP  DATA  STRUCTURES 


Page  8-1 


VDE' 
REP" 


2A5 
2A6 
2^7 
2A8 
2A9 
250 
251 
25: 
25i 
25A 
255 
256 
257 
258 
259 
260 
261 
262 


000166 

000202  060100 

000204  005567  000172' 

000210  003355 

000212 

000220 

000226 


000230  012701  0001A6' 
000234 


U$: 


20$: 


BNE 
BICB 

.ENDC 

PUTRC 

ADD 

DEC 

BGT 

SWTCHO 

SWTCHl 

RETURN 


K$  ;  If  NOT  -  BRANCH 

#US.0FL,U.ST2+DEVBUF  ;  SET  DEVICE  ONLINE 


CMPOI] 
[MP01] 
[MP01] 
CMPOID 


R0,R1 
RI.RO 
UNITS 
15$ 


ERROR  CONDITION 
01$ 


MOV     *DUMMY-A,R1 
EMSG$R  2V 


REWRITE  UCB 
POINT  AT  NEXT  UCB 
ONE  LESS  UCB 
IF  GT,  MORE  UCB'S 
DEFAULT  TO  $6FR 
DEFAULT  TO  $BFR 


POINT  AT  DUMMY  SYMBOL 

DCS  DISPATCH  TABLE  AODRESS  UNDEFINED 


D  13 

WMP  I  p^D  DFvlCF  STRUCTUR  MACRO  v05.03b  Tuesday  03-SeD-85  10:28 
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VDEV 
REPq 


741 
7A2 
7A3 
7A4 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 


C  U 

VNP  LOAD  DEVICE  STRUCTUR  MACRO  V05.03b  Tuesday  03-SCD-85  10:28  Page  17 
REPLACE  DEVICE  NAME 

.SBTTL  REP9  -  REPLACE  DEVICE  NAME 

REP9  -  REPLACE  DEVICE  NAME 

INPUTS: 

NONE 


VDI 
LOC- 


002346 
002350 
002354 
002356 
002364 
002370 


112314 
122724 
001374 
116764 
116724 


000001 


000052 

ooooooG  \mn 

000001G 


OUTPUTS: 

NONE 

P9:   Move 

(R3)+,(RA) 

CHPB 

#'*,(R4)t 

BNE 

REP9 

Move 

$$DEV,-1(R4) 

M0V8 

$$DEV+1,(R4)t 

RETURN 

COPY  THE  FORMAT  STRING 
LOOKING  FOR  THE  FIRST  ASTERISK 

STORE  DEVICE  NAME 


.END 


D  K 

uriFv  -  «fjp  I  nALi  RFwirF   '^TRnrTiiR  MACRO  v05.03b  Tuesday  03-SeD-85  10:28     Page  17-1 


■;D15   -   VNP   SHOW 

COMMANDS 

LOCAL    DATA 

162  0002^ft 

105 

165 

164 

165 

166 

167  000256 

101 

168  000275 

115 

169  000515 

114 

170 

171 

172 

175 

174  000525 

115 

175  000555 

106 

176  00054  0 

105 

177 

178  000550 

116 

179 

180 

181 

182  000562 

115 

185  000576 

114 

184  000411 

116 

185 

186 

187 

188 

189  000416 

122 

190  000426 

116 

191 

192 

195 

194 

195  000441 

101 

196  000456 

115 

19^  000472 

114 

198 

199 

200 

201 

202  000477 

105 

205  000507 

104 

205 
206 

207 

208  U00520 

209  000540 

210  000557 
211 

212 
215 

214  000567 

215  000605 
2':t   000621 

217  000641 

218  000645 


101 
115 
105 


104 
104 
104 
150 
114 


154 


145 
156 
157 


157 
151 
157 

157 


156 
157 
157 


157 
157 


145 
156 
151 


156 
151 


145 
156 
151 


104 
104 
104 
062 
101 


C  15 
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145  PCLEAR:  .ASCIZ  /Cleared/ 


ASCIZ  STRINGS  FOR  LOGGING  HEADER 


'vD 


164  LOACTV 
157  LOKNWN 
147  LOSPEC 


156 
154 
156 

040 


157 
157 
144 


.ASCIZ  /Actiue  logging/ 
.ASCI2  /Known  logging/ 
. ASCIZ  /Logging/ 


ASCIZ  STRINGS  FOR  LOGGING  SINK  TYPE 

LOMON:  .ASCIZ  /Monitor/ 

LOFIL:  .ASCIZ  /File/ 

LOCON:  .ASCIZ  /Console/ 

LONOEV:  .ASCIZ  /No  events/ 

ASCIZ  STRINGS  FOR  NODE  HEADER 

NKNOWN:  .ASCIZ  /Known  nodes/ 

NLOOP:  .ASCIZ  /Loop  nodes/ 

NSPEC:  .ASCIZ  /Node/ 

ASCIZ  STRINGS  FOR  ROUTING  TYPE  FOR  EXECUTOR  NODE 


165  ROUTNG: 
156  NROUT: 


.ASCIZ  /Routing/ 
.ASCIZ  /Nonrouting/ 


ASCIZ  STRINGS  FOR  LINE  HEADER 


164  LACTIV:  .ASCIZ 
157  LKNOWN:  .ASCIZ 
156  LSPEC:   .ASCIZ 


/Active  lines/ 
/Known  lines/ 
/Line/ 


ASCIZ  STRING  FOR  CIRCUIT  SERVICE  DISPLAY 


141   ENABLE: 
165  DISABL: 


.ASCIZ 
.ASCIZ 


/Enabled/ 
/Disabled/ 


ASCIZ  STRINGS  FOR  CIRCUIT  HEADER 


164  CACriV:  .ASCIZ 
157  CKNOWN:  .ASCIZ 
162  CSPEC:   .ASCIZ 


/Active  circuits/ 
/Known  circuits/ 
/Circuit/ 


ASCIZ  STRINGS  FOR  LINE  TYPE 


105  LCNTRL;  .ASCIZ  /DDCMP  Control/ 

105  LPOINT:  .AS(IZ  /DDCMP  Point/ 

105  LTRI8:  .ASCIZ  /DDCMP  Tributdr>/ 

065  LX25:  .ASCIZ  /X25/ 

120  LLAB:  .ASCIZ  /LAPS/ 


\/hi^  -  uwp  <;Hnij  mMMawns 
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'7D1S   -   VNP   SHOW   COMMANDS 
"    "3   -   SHOW  LOGGING 


C  16 
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n2  00366A 

.3  003670 

70^  003672 

705  003700 

706  003702 

707  00370^ 

708  003710 

709  003716 

710  003722 
711 

712 

71. 

71A  003724 

715 

716 

717 

718  003730 

719 

720 

721 

722  003734 

723  003736 

724  003742 

725  003746 

726  003752 
in   003754 

728  003762 

729  003770 

730  003776 

731  004000 

732  004004 

733  004010 
734 

735 
736 

737  004012 

738  004016 
739 

740 
741 

742  004020 

743  004024 
744 

745 
746 

747  004026 

748  004030 

749  004034 

750  004036 
751 

752  004046 

753  004054 
754 

755 
756 
757 
758 


005767 
001407 
042767 
012501 
001455 
050167 
012767 

103:42 


OOOOOOG 

000700  OOOOOOG 


OOOOOOG 
177776  175264 


90$: 


100$: 


010546 
012705 
012703 

103425 
016767 
042767 
022767 
001402 

030463 
001756 


103753 


000750 


012605 
005767 
001316 


TST 

BEQ 

SIC 

MOV 

BEQ 

SIS 

MOV 

CALL 

BCS 


$QUAL 

100$ 

#<0P$C0N10P$FIL 

(R5)t,R1 

150$ 

R1,$0PT0N 

*-2,TEMP5 

DLOTVP 

140$ 


DISPLAY  LOGGING  STATE 
CALL    DLOSTA 

DISPLAY  LOGGING  SINK  NAME 
CALL    DLONAM 

GET  NEXT  EVENT  TO  PROCESS 


000016 
OOOOOOG 


000002G  OOOOOOG 
177700  OOOOOOG 
000016  OOOOOOG 


000014 


OOOOOOG 


MOV 

R5,-'SP) 

MOV 

#F.LEN,R5 

MOV 

*$FILHD,R3 

110$: 

CALL 

NXTBLK 

BCS 

130$ 

MOV 

F.CLS+$BFR,$RSI7E 

BIC 

#'C<FF.MSK>,$RSI7E 

CMP 

*F.LEN,$RSIZE 

BEQ 

120$ 

GETAD 

120$: 

BIT 

R4,F.FLG(R3) 

SEQ 

11 6$ 

■  CHECK 

FOR  MATCH  ON  SINK  NODE  AND 

■ 

CALL 

CHKSNK 

BCS 

110$ 

;  DISPLAY  EVENTS 

' 

CALL 

DLOEVT 

BR 

110$ 

;  CHECK 

FOR  END 

130$: 

MOV 

(SP)+,R5 

140$: 

TST 

$QUAL 

BNE 

90$ 

150$: 

ERRPT$ 

L0MSG5,MSG0UT 

DiR$ 

#T1DET 

RETURN 

.ENA8L 

LC 

;  SHOW  SPECIFIC  LOGGING? 

;  BR  IF  YES 
:OP$MON>,$OPTON  ;  CLEAR  SINK  TYPE  BITS 
GET  BIT  TO  SET 
BR  IF  END  OF  TABLE 
SET  BIT  FOR  NEXT  SINK  TYPE 
INDICATE  NO  SINK  NODE  DISPLAYED 
DISPLAY  LOGGING  SINK  TYPE 
BR  IF  FINISHED 


;  DISPLAY  LOGGING  STATE 


;  DISPLAY  LOGGING  SINK  NAME 


SAVE  R5 

GET  LENGTH  OF  FILTER  CONTROL  BLOCK 

POINT  TO  FILTER  SLOCK  LISTHEAD 

GET  NEXT  FILTER  BLOCK  IN  LIST 

BR  IF  FINISHED 

GET  LENGTH  OF  BLOCK 

IS'thIS  the  CORRECT  SIZE? 
BR  IF  YES 

READ  IN  ENTIRE  FILTER  BLOCK 
IS  THIS  THE  CORRECT  SINK  TYPE? 
BR  IF  NO 


AND  DISPLAY  IT  IF  NECESSARY 


CHECK  FOR  MATCH  ON  SINK  TYPE 
BR  IF  NO  MATCH 


DISPLAY  EVENT  MESSAGE 
GET  i^ExT  FILTER  BLOCK 


SHOW  ACTIVE  OR  KNOWN  LOGGING? 

BR  IF  VES 

DISPLAY  BLANK  LINE 

DETACH  TERMINAL 


;  DISPLAY  MESSAGES 


mMMAMhC 
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VCEX  -  VNB  LOAD  CEX  ROUTINES 
MACRO  DEFINITIONS 

54 
55 
56 
57 
58 
59 
60 
6T 
62 
63 
6'.  COOOOO 

65  000000 

66  000000 

67  000000 

68  000000 

69  000000 

70  000000 
71 
72 


D  1 

MACRO  V05.03b  Saturday  29-jLin-85  02:13  Page  5 


.S8TTL  MACRO  DEFINITIONS 
LIBRARY  MACROS 


.MCALL  ASL$,EMSG$R,GETRV,PUTRC,GETAD,PUTAD,PCB0f$,SWTCHO,NTLOFJ 

.MCALL  OPTDf$,DHBDF$,ERMSG$,ERBLK$,ERRPT$,CALLR,CLKDF$,TCBDF$ 

.MCALL  SAVfiG,RESRG,SWTCHI,PKTDF$ 

.ENA8L  LC 


PC8DF$ 
NTLDFS 
OPTDFS 
DHBDFJ 
CLKDFS 
TCBDFI 
PKTDFS 


.HOME 


DEFINE  PCB  OFFSETS 

DEFINE  NTL  OFFSETS 
COHM/EXEC  OPTIONS 

DECNET  HOME  BLOCK  OFFSETS 

DEFINE  CLOCK  QUEUE  OFFSETS 

DEFINE  TCB  OFFSETS 

DEFINE  PACKET  OFFSETS 


VCEX 

I  nrw 


-   VNP  LOAD    CEX   KuUIINES 
DATA 


E  1 

MAlRO  V05.03b  Saturday  29-Jun-85  02:13  Page  6 


VCEX   -  yHP  LOAD   CEX  ROUTINES 
CEPTR   -    1N!T   CETAB  POINTERS 


D  2 

MACRO  V05.03b  Saturday  29-Jun-85  02:13  Page  12 


622 

+ 

623 

•♦-TSKSCH-SEARCH  TCB'S  FOR  SPECIFIED  TASK 

62A 

625 

INPUTS: 

626 

RO 

-  POINTER  TO  RAD50  TASK  NAME 

627 

628 

OUTPUTS: 

629 

SRADDR 

-  ADDRESS  OF  TC8 

650 

$BFR 

-  IMAGE  OF  TCB 

631 

C-BIT 

SUCCESS/FAILURE 

632 

R3,R4, 

R5  DESTROYED 

633 

- 

63^ 

635 

001120 

rSKSCH: 

636 

001120 

GETRV 

.TSKHD,.TLGTH 

READ  IN  LISTHEAD 

637 

001140 

012705 

0000006 

MOV 

*$8FR,R5 

POINT  AT  BUFFER  BASE 

638 
639 
640 

001144 

011565 

000030 

MOV 

(R5),T.TCBL(R5) 

INITIALIZE  FOR  LOOP 

001150 

016567 

000030 

OOOOOOG 

'0$- 

MOV 

T.TCBL(R5), SRADDR  ;  SET  TCB  ADDRESS 

6A1 

001156 

000261 

SEC 

ASSUME  ERROR 

642 

001160 

001411 

BEQ 

30$ 

NULL  TASK  (  END  OF  LIST  ) 

643 

001162 

GETRV 

READ  IN  TCB 

64A 

001166 

021065 

000006 

CMP 

(R0),T.NAM(R5) 

MUST  MATCH  BOTH 

645 

001172 

001366 

BNE 

10$ 

646 

001174 

026065 

000002 

000010 

CMP 

2(R0),T.NAM+2(R5 

;  HALVES  OF  NAME 

647 

001202 

001362 

BNE 

10$ 

C-BIT  IS  CLEAR 

648 

001204 

30$: 

RETURN 

VCEX    - 
rFPTB 


VNP  LOAD   CEX   ROUTINES 
-    IWIT    rFTAR    PniNTFR<; 


macr: 


E  2 
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VCEX       CREATED  BY  MACRO  ON  29-JUN-85  AT  02:14 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 

$ERR9E  =  *»*♦♦*  GX 

SFMASK  =  »»«.♦*  GX 

SGETRV  =  *♦•*♦*  GX 


SLLCTA 

INTLHB 

SNTLPT 

SPDVNM 

SPDVTA 

SPRCLN 

SPREXT 

SPRINC 

SPRIO 

SPRLEN 

SPRLLN 

SPUTRC 


***«»♦  GX 
4****»  GX 
*♦*«»«  GX 
»»*«**  GX 
*»*»♦«  GX 
000374  RG 
000374  RG 
000374  RG 
»*♦***  GX 
000374  RG 
000374  RG 
GX 


=  ****** 


SRADDR  =  *»»***  GX 


SSAVAl 

SSCEX 

SSLTMA 

SSLTNM 

SSYMBL 

STIOUT 

SVFLAG 

$VIMI 

$$ 


$$MUX 
$$$ 

$$$$ 

.ASTIM 

.CEAVL 

.CEPWR 

.CLINS 

.CLKHD 

.CXALL 

.CXCSR 

.CXLBR 

.CXLB1 

.CXLB2 

.CXLEN 

.CXPCB 

.CXSYM 

.CXUNL 

.CXVEC 

.FRICJD 


t*«***  GX 
000000  RG 


****** 
****** 
****** 
****** 
****** 
****** 
177777 


GX 
GX 
GX 
GX 
GX 
GX 


=  000226  R 
=  000252  R 

-   ****** 


GX 


-  ****** 

-  ****** 

r  ****** 

000062 
000004 
000060 
000030 
000044 
000064 
000006 
000010 
000024 
000026 
000016 

:::  ****** 


GX 
GX 
GX 
GX 
GX 


GX 


REFERENCES 

6-269 
*8-348 

7-318 

14-786 
•11-567 
*10-523 
*8-368 
•11-569 
•11-565 
#6-109 
#6-110 
#6-111 

7-313 
#6-112 
#6-113 

7-337 

14-805 
♦7-318 
•12-640 
•14-837 

15-864 
#7-289 
•11-566 
•11-568 

9-430 

15-867 

14-749 

8-366 

6-93 

6-97 
#6-101 

8-368 
#6-93 

6-102 
#6-94 

13-685 

7-317 

8-349 

6-164 

13-691 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-6"^ 
#5-65 
#5-65 

6-167 


•8-392 

7-325 

r-789 

•11-576 

•10-528 


•11-574 


8-350 
14-837 
•7-325 
•13-685 


•11-575 
9-448 

6-93 
»6-97 
#6-102 

6-94 

#6-96 

8-363 


•  10-55-^ 
•10-523 


•10-551 

•10-528 

10-532 


8-379 

10-532 

11-580 

8-363 

7-333 
•13-692 

9-455 


#6-93 
#6-98 


#6-95 
#6-98 


0     3 
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CREF       04.00 


12-636  12-643 

10-547 

11-581  11-583 


13-685 


13-692 


13-697 


13-708 


8-385 


11-581 


11-585 


•8-350  ^8-363  ^8-379 

•13-697         ^13-708         *13-712 


13-710 

•11-581 
14-763 


13-712 

•11-585 
•14-786 


14-800 

*i:-6'6 
•14-789 


#6-94 
6-99 


6-.  6 
#6-100 


6-95 
6-99 


#6-97 
#6-102 


6-95 
#6-99 


6-98 


#6-95 
#6-100 


#6-99 


#6-96 
6-101 


6-100 


6-97 
6-101 


#6-101 


VCEX 
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SNlCFG  -   CONFIG  FILE    SCAN 


361  000414 

CALL 

READ 

READ  NEXT  RECORD 

362  000420 

103372 

BCC 

140$ 

IF  CC,  NOT  EOF 

363  000422 

364 

565  000430 

150$: 

EMSG$R 

ir 

DDM$DF  MISSING  (EOF) 

032767  000001  000136' 

155$: 

BIT 

#FG.X2P,CFGFLG  , 

DO  UE  NEED  X2P$DF? 

366  000436 

001475 

BEQ 

190$ 

BR  IF  NO 

367  000440 

157$: 

CALL 

READ 

READ  NEXT  RECORJ 

368  000444 

103523 

BCS 

171$ 

BR  IF  EOF 

369  000441' 

CALL 

$QX2P 

LOOK  FOR  X2P$DF 

370  000452 

103772 

BCS 

157$ 

BR  IF  NOT  FOUND 

371  000454 

372 

373 

000466 

BR 

190$ 

CONTINUE 

;■  LOOK 

FOR  DDM/DLC  PROCESS  EXTENDS 

374 

375  000456 

160$: 

CALL 

READ 

READ  NEXT  RECORD 

376  000462 

103757 

BCS 

150$ 

IF  CS,  DDM/DLC  MISSING 

377  000464 

CALL 

QDDM 

S  IT  A  DOM  OR  DLC  ? 

378  000470 

103772 

BCS 

160$ 

F  CS,  NO  ..  KEEP  LOOKI 

379  000472 

380 

381 

382 

383  000474 

000457 

BR 

190$ 

ELSE,  LEAVE 

■  LOOK 

FOR  ILC$DF 

170$: 

CALL 

READ 

READ  NEXT  RECORD 

334  000500 

103477 

BCS 

151$ 

IF  CS,  EOF 

385  000502 

CALL 

OLLC 

IS  IT  LLC$DF? 

386  000506 

103772 

BCS 

170$ 

IF  CS,  NO 

387 
388 
389 
390  000510 

;  LOOK 

FOR  F^M 

DF 

005067  OOOOOOG 

CLR 

$FEATR 

ASSUME  NO  FEATURES  WORD 

391  000514 

180$: 

CALL 

READ 

READ  NEXT  RECORD 

392  000520 

103434 

BCS 

188$ 

IF  CS,  EOF 

393  000522 

CALL 

QFEA 

IS  IT  FEA$DF  ? 

394  000526 

103016 

BCC 

185$ 

BR  IF  YES 

395  000530 

032767  000002  000136' 

BIT 

#FG.X3P,CFGFLG 

IS  X3P$DF  NEEDED? 

396  0C0536 

001766 

BEQ 

180$ 

BR  IF  NO 

397  000540 

CALL 

$QX3P 

IS  IT  X3P$DF? 

398  000544 

399 

400 

401 

402  000546 

103763 

BCS 

180$ 

BR  IF  NO 

;  X3P$DF  FOUND 

182$: 

CALL 

READ 

READ  NEXT  RECORD 

403  000552 

103427 

BCS 

190$ 

BR  IF  END  OF  FILE 

404  000554 

CALL 

QFEA 

IS  IF  FEA$DF? 

405  000560 

103772 

BCS 

182$ 

BR  IF  NO 

406  000562 

000423 

BR 

190$ 

•  ELSE  EXIT 

407 

408 
409 
410  000564 

;•  F[A$DF  FOUND 

032767  000002  000156' 

185$: 

BIT 

#FG.X3P,CFGFLG 

■  IS  X3P$DF  NEEDED? 

411  000572 

001417 

BEC 

190$ 

•  BR  IF  NO 

41?  000574 

187$: 

CALL 

READ 

;  READ  NEXI  RECORD 

413  000600 

103442 

BCS 

161$ 

;  BR  F  EOF 

414  000602 

CALL 

$QX3P 

;  IS  T  X3P$DF? 

415  000606 

103772 

BCS 

187$ 

;  BR  IF  NO 

410  000610 

000410 

BR 

190$ 

;  EXIT 

417 
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VCFG  -  VNP   SCAN   CONFIGURATION   F    MACRO  V05.03 

STASDF  :;tate  table 

79? 

?93 

79A 

;    ST 

795 

796  001512 

797  001512 

798 

799  001512 

800  001512 

801 

802  001512 

803  001512 

C.OA 

805  001512 

806  001512 

807 

808  001512 

809  001512 

810  001512 

811 

812  001512 

815  001512 

8U  C01512 

815 

816  001512 

817  001512 

318 

819  001512 

820  001512 

821   001512 

822 

823  001512 

824  001512 

825 

826  001512 

327  001512 

828  001512 

829 

850  001512 

831   001512 

832 

833 

0  5 

nda/  15-Jul-85  19:04  Page  IP 

.SBTTL  STASDF  STAIE  TABLE 

STATION  TABLE  DEFINITION  (STASDF) 

STATES  STADF 
TRANS   5;STASDFX,,,1,SYNERR 


STATES 

TRANS  SNUMBR,,ST.NUM 

STATES 

TRANS  <',> 

STATES 

TRANS  SRAD50 

STATES 

TRANS  <',>,STADF1 

TRANS  SLAMDA,SEXIT 

STATES  STADF 1 

TRANS  IBJTS,STADF2 

TRANS  SLAMDA.SEXIT 

STATES  STADF2 

TRANS  $NUMBR,,ST.CST 

STATES 

TRANS  IEND,SEXIT 

TRANS  <',> 

STATES 

TRANS  $NUMBR,,S T.APR  ;  ACTIVE  POLLING  RATIO 

STATES 

TRANS  1END,SEXIT 

TRANS  <■,> 

STATES 

TRANS  SNUMBR.END.ST.HTM 


STATION  NUMBER 

PROCESS  NAME 

THE  REST  IS  OPTIONAL 
FLAG  BITS 
STATION  COST 


HELLO  TIMER,  LISTEN  TIMER/2 


VCFG 
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TPARS  ACTION  ROUTINES 


Bic    *ms.pri,$m;ss 

RETURN 
EMSG$R  IF 


IT'S  NO  LONGER  MISSING 

ILLEGAL  INTERRUPT  PRIORITY  VALUE 


1334  002700  042767  OOOOOOG  OOOOOOG 
1355  002706  10$: 

1336  002^10  101$ 

1337 

1339  .IF  DF  R$$MPL 

13A0  C.URM:  MOV     .PNUMB,$URM 
1341  RETURN 

1342 

1343  C.RCD1:  MOVE    .Pi;HAR,$RCDEV 

1344  RETURN 

13^16  C.RCD2:  MOVB    .PC'HAR,$RCDEVt1  ;  STORE  SECOND  CHAR  OF  RECON.  DEVICE 

1347  RETURN 

1348 

1349  .ENDC 

1350 


STORE  UNIBUS  RUN  MASK 

STORE  FIRST  CHAR  OF  RECONFIG.  DEVICE 


;CMP01] 
;CMP01] 
;CMP01] 

.•[M.^OI] 
;[Mpai] 

;[MP01J 
;CMP01] 

;[MP0i: 
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VCFG      CREATED  BY  MACRO  ON  15-JUL-85  AT  19:06 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


ADDDF 

AD.NUM 

BLKSMN 

BLKSMX 

CERR 


CFERR 

CFGBF 

CFGEXT 

CFGFLG 

CFGKW 

Cf^GNAM 

CFGST 

CFGSZ 

CFLIN 


CHERR 

CH<BLK 

CHKWND 

CHNLMX 

CH.SYN 

CL.OPN 

CNTOF 

CTL 

C.CSR 

C.CTL 

C.PR] 

C.VECT 

C1.BSY 

C1.DCP 

CI. SDL 

C1.X25 

DDMDF 

DE.OFF 

DE.ON 

DTEDES 

DTEFLG 

D.EXT 

D.NAME 

ERRBUF 

ERRMSG 

FEAD"' 

FG.X2P 

fG.X3P 

FL.FDX 

FL.HDX 

FL.KMX 


000342 
002076 
000040 
002000 
001 23A 


RG 


001244  RG 

002472  RG 
000006  R 
000136  RG 
000000  RG 
000000  R 
000000  RG 
002700  RG 
001476  RG 


003060  R 
004172  RG 
004230  RG 
007777  G 
000004 


000456 
000015 
002522  R 


GX 
R 
R 


001706 
002626  R 
002432  R 
000002 
000001 
000003 
000004 
000372  R 
000002  G 
000001  G 
000140  RG 
000142  RG 
001624  R 
001512  R 
000027  R 
000017  R 
000662  R 

000001  G 

000002  G 


refe":nces 

11-523 
#:5-1186 
#6-90 
#6-91 

7-180 

7-189 

7-207 
#12-566 

7-193 

7-213 
#7-232 
#7-119 
#7-137 

11-535 
#7-118 
#17-717 
#7-233 

7-180 

7-189 

7-206 

7-218 

28-1370 
#35-1659 
#35-1673 
#6-93 

29-1473 

8-262 

11-527 
#7-125 
#27-1297 
#25-1128 
#27-1324 
#27-1280 
#6-101 
#6-100 
#6-102 
#6-103 

11-525 
#7-146 
#7-145 
#7-143 
#7-144 
#25-1104 
#25-10d 
#7-133 
#7-131 

11-531 
#7-138 
#7-139 

28-1376 

28-1379 

28-1425 


35-1662 

35-1664 

7-181 

7-190 

7-208 

7-194 
7-214 
10-480 
9-4  57 
8-365 
#17-717 
9-4^6 

•10-484 

7-181 

7-190 

7-207 

#16-709 

#28-1387 


*8-270 


29-1454 


12-570 
12-582 

8-365 
8-395 


30-1508 
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VCFP 
LOCAl 


7-182 
7-191 
7-209 

7-183 
7-192 
7-210 

7-184 
7-196 

7-211 

7-185 
7-197 
7-212 

7-186 
7-204 
7-216 

7-187 
7-205 
7-217 

7-188 
7-206 
7-218 

7-195 
7-215 
11-537 

7-193 

#12-569 

16-709 

7-199 

7-200 

7-201 

7-202 

7-203 

8-395 


8-410 


8-420 


•11-519 


11-536 

16-710 

7-182 

7-183 

7-184 

7-185 

7-186 

7-187 

7-188 

7-191 

7-192 

7-195 

7-196 

7-197 

7-204 

7-205 

7-208 

7-209 

7-210 

7-211 

7-212 

7-216 

7-217 

28-1393         28-1409 


25-1129 


11-519 
3-410 


8-420 


VCFG 
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VCFP  -  VNP  PS!  CONf IGURATION  H  MACRO  V05.03b  Saturday  29-Jun-85  02:17 
LOCAL  DATA 


Page  7 


102 
103 
104 

10-: 

106 

107  000000 

108 

109 

"10 

111 

112 

113 

IK 

115  000000 

116  000006 
117 

118 
119 
120 
121 

122  000012 

123  000013 
12m  000022 
125 

126 
127 
128 
129 
130 

131  000130 

132  000336 
133 

13A 

135 

136 

137  0003A0 

138 

139 

KO 

Kl 

K2  000342 

H3  0003A4 

K4 

145  000346 

146  000350 

147  000^51 

148  000352 

149  000354 

150  000356 

151  000357 
152 

153 
154 
155 

156  000760 

157  000362 

158  000364 


103 
115 


015 
126 


105 
101 


116 


124 
103 


120 


.S8TTL  LOCAl  data 


LOCAL  DATA 
*** 

.PSECT  DATA.D 

.NLIST  BEX 

CONFIG  FILE  NAME  AND  EXTENSION 


CFGNAM:  .ASCIZ 
CPGEXT:  .ASCIZ 


"CETAB" 
'MAC" 


ERROR  MESSAGE  BUFFER 

ERRMSG:  .BYTE   15 

.ASCII  "VNP  —  " 
ERRBUF:  .BLKB   70. 

.EVEN 
RECORD  BUFFER  AND  BUFFER  LENGTH 


CFGBF:: 
CFGSZ:: 


.BLKB   134. 
.BLKW   1 


SAVED  STACK  POINTER  FOR  ERROR  EXIT 
SPSAV:   .BLKU   1 


SYNTAX  ERROR  FLAG 

SYNERR: :.BLKW   1 
MRKFL::  .BLKW   1 


LJNNAM 
LINCTL 
LINUNT 
NEXT:: 
PORTNO 
COUNT: 
CVT8UF 


:.BLKW 
:.BLKB 
:.BLKB 

.BLKW 
:.8LKW 

.BLKB 
:.BLKB 

.EVEN 


DATA  FOR  X3P$DF  MACRO 


BL'  SZD 
BLKSZM 
WNDSZD 


.BLKW  1 
.BLKW  1 
.8LKW   1 


MARKED-FOR-LOAD  FLAG 

DEVICE  NAME  FROM  LINE-ID  (RAD50) 

CONTROLLER  !;UMBEH 

UNIT  NUMBER 

ADDRESS  OF  NEXT  AVAILABLE  BYTE 

PORT  NUMBER  FROM  PSNSDF  MACRO 

COUNT  OF  NUMBER  OF  DIGITS  IN  DTE  ADDRESS 

CONVERSION  BUFFER  FOR  ASCII  TO  DECIMAL  DIGIT 


DEFAULT  BLOCK  SIZE 
MAXIMUM  BLOCK  SIZE 
DEFAULT  WINDOW  SIZE 
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VCFP  -  VNP  PSI 

CONFIGURATION  FI  MACR 

PCKBCD  - 

PACK  STRING  OF  DIGITS  IN  BC 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

oor53 

010501 

594 

001'  54 

116702  000356' 

595 

001040 

001423 

596 

001042 

lOsc:-; 

597 

00104, 

005300 

598 

001046 

003375 

399 

001050 

005001 

600 

001052 

005305 

601 

001054 

112400 

602 

0J1056 

005701 

603 

001060 

001007 

604 

001062 

605 

001072 

C05201 

6Ci 

001074 

005205 

607 

001076 

000401 

608 

001100 

005301 

609 

001102 

150015 

610 

001104 

005302 

611 

001106 

003362 

612 

001110 

D  9 


.S8TTL  PCKBCD  -  PACK  STRING  Of  DIGITS  IN  BCD  FORMAT 

h 

PCKBCD  -  PACK  A  STRING  OF  DIGITS  IN  BCD  FORMAT 

INPUTS: 

RO  -  NUMBER  OF  BYTES  IN  PACKED  ADDRESS 

R4  -  ADDRESS  OF  BUFFER  CONTAINING  ASCI  DIGITS  TO  PACK  (0=END  OF  BUFFER) 

R5  -  ADDRESS  OF  BUFFER  TO  STORE  PACKED  DATA 

COUNT  -  NUMBER  OF  DIGITS  SPECIFIED 

OUTPUTS; 

BUFFER  SPECIFIED  IN  R5  CONTAINS  DATA  IN  BCD  FORMAT 


GET  ADDRESS  OF  PACKED  DATA 

GET  NUMBER  OF  DIGITS  IN  STRING 

BR  IF  NOTHING  TO  DO 

INITIALIZE  PACKED  ADDRESS 

MORE  TO  INITIALIZE? 

BR  IF  YES 

POSITION  INIDCATOH  (0=HIGH  FOUR  BITS) 

UPDATE  ADDRESS  FOR  FIRST  TIME 

GET  DIGIT  TO  PACK 

STORE  IN  HIGH  FOUR  BITS? 

BR  IF  NO 

MOVE  TO  HIGH  FOUR  BITS 

INDICATE  STORE  IN  LOW  FOUR  BITS  NEXT 

POINT  TO  NEXT  BYTE 

BR  TO  STORE  DECIMAL 

INDICATE  STORE  IN  HIGH  FOUR  BITS  NEXT 

PACK  THE  NUMBER  INTO  THE  BUFFER 

MORE  TO  CONVERT? 

BR  IF  YES 


PCKBCD: 

:MOV 

R5,R1 

M0V8 

COUNT, R2 

BEQ 

40$ 

5$: 

CLRB 

(R1)  + 

DEC 

RO 

BGT 

5$ 

CLR 

R1 

DEC 

R5 

10$: 

MOVE 

(R4)+,R0 

TST 

R1 

BNE 

20$ 

ASL$ 

4,R0 

INC 

R1 

INC 

R5 

BR 

30$ 

20$: 

DEC 

R1 

30$: 

BIS8 

R0,(R5) 

DEC 

R2 

BGT 

10$ 

40$: 

RETURN 

VCFP 
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SYMBOL  CROSS  REFERENCE 


D  10 

PAGE   4 

CREF       04.00 


SYMBOL   VALUE 


SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SPACE 

SPFILL 

SPSAV 

S^ORID 

STRNXT 

SUBAMN 

SUBAMX 

SYNERR 

SYSFDB 

S$$BAS 


S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 


000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

000040 

001444  RG 

000340  R 

001324  RG 

001254   RG 

000000 

023417 


000342  RG 
»»»*♦♦  GX 
t ***** 


00000 1 
000000 
000004 
000002 
000003 


REFERENCES 

#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#6-88 

19-734 
#7-137 
#19-729 
#18-687 
#6-93 
#6-94 
#7-142 
♦16-628 

8-259 

8-263 

8-268 

8-272 
#5-6/ 
#5-67 
#5-67 
#5-67 
#5-67 


21-798 
#21-794 
*9-306 


*16-633 
8-259 
8-264 
8-268 
8-273 


12-500 


8-260 
8-264 
8-269 
8-273 


8-260 
8-265 
3-269 
8-274 


8-261 
8-265 
8-270 
8-274 


8-261 
8-266 
8-270 
8-275 


8-262 
8-266 
8-271 
8-275 


8-262 
8-267 
8-271 
8-276 


8-263 
8-267 
8-272 
8-276 


UNDSMX 

=  000177 

#6-95 

14-570 

WNDSZD 

000364 

RG 

#7-158 

WNDS2M 

000366 

RG 

#7-159 

Z.NAM 

=   ****** 

GX 

17-661 

SAZFS 

-   ****** 

GX 

10-422 

$BFR 

=   ****** 

GX 

16-630 

$CAT5 

-   ****** 

GX 

14-527 

$CD1B 

=   **♦*♦*■ 

GX 

18-692 

SCEACC 

=r     ***■■.** 

GX 

16-632 

SCLBUF 

=     ****** 

GX 

♦11-444 

SCLDEQ 

-     ****** 

GX 

9-396 

12-477 

SCLFLG 

r     ****** 

GX 

♦9  -305 

SCLIOS 

-     ****** 

GX 

10-424 

11-447 

SCLQUE 

:;     ****** 

GX 

10-423 

SCLSAV 

-     ****** 

GX 

9-304 

SCLSBK 

-     ****** 

GX 

9-393 

SCLSIZ 

—     ****** 

GX 

♦n-445 

$D8G$ 

r     ****** 

9-303 

$DFU!C 

r     ****** 

GX 

10-419 

SERRMA 

00152 

RG 

#8-271 

9-406 

SERRMB 

001 5L 

RG 

#8-272 

9-407 

SERRM'^ 

001 4- 

RG 

#8-268 

9-403 

$ERRM5 

0014' 

RG 

#8-269 

9-404 

$ERRM6 

0014; 

RG 

#8-270 

9-405 

SERROO 

0011 

RG 

#8-262 

rRFATPP  RY   MACRO   ON  29-JUN-85  AT  02:18 
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VCIO 

CREATED 

BV 

MACRO     ON  29 

-JU^N-85   AT 

02:18 

SYMEOL 

CROSS   REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

DSKBUF 

000000  R 

#6-125 

8-189 

D$END 

=  000104 

10-279 

10-302 

DSHIOR 

000024 

•10-297 

•10-298 

•10-299 

DIPNN 

000002 

10-294 

•10-295 

EftPOR 

000000  R 

#6-118 

•7-147 

7-157 

*8-222 

•8-224 

•9-261 

ERR10 

000012 

#5-93 

8-218 

ERR12 

OOOOU 

#5-94 

ERRU 

000016 

#5-95 

8-??? 

ERR16 

000020 

#5-96 

8-224 

ERR18 

000022 

#5-97 

ERR2 

000002 

#5-89 

7-166 

ERR20 

000024 

#5-98 

ERR22 

000026 

#5-99 

tRR24 

ERR2'> 

ER'^28 

ERR30 

ERR32 

ERR34 

ERR36 

FRR4 

ERR6 

ERRS 

F.RSIZ 

LSBEXT 

LSBFLG 

LSBLDZ 

LSBMXZ 

PR. LSI 

PR.XFR 

R$$E15 

SYSFDB 

TSSNHD 

$ALL15 

$ALL16 


000030 
000032 
000034 
000036 
000040 
000042 
000044 
000004 
000006 
000010 
****** 

000352 
OOOCiO 
000016 
000020 
000076  R 
000272  R 
****** 
****** 

040000 

****** 
****** 


GX 


GX 


#5-100 

#5-101 

#5-102 

#5-103 

#5-104 

#5-105 

#5-106 

#5-90 

#5-91 

#5-92 

♦9-251 

8-199 

8-192 

8-194 

8-195 

7-153 

7-15i 

8-203 

•9-251 

8-192 

10-280 

8-207 


9-261 
8-220 

7-168 

8-216 

•10-302 


#8-189 
#9-239 

•10-302 
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•10-300 
7-160 


•7-166 


•7-168 


•8-216 


•8-218 


•8-220 


10-283 


$BFR 

=      ****** 

GX 

9-243 

10-287 

10-291 

SCLDEQ 

:.     ****** 

GX 

7-156 

SCIIOS 

=     ****** 

GX 

7-149 

8-215 

9-260 

SCLOPE 

=     ****♦*■ 

GX 

7-148 

SCTBIO 

OOOOJO 

RG 

#7-146 

SCECHM 

000416 

RG 

#10-279 

SDECPT 

r      ****** 

GX 

•10-286 

10-292 

10-302 

$IOSB 

r     V  *  *  *  +  * 

GX 

8-215 

9-260 

SlBN 

-     ****** 

GX 

•9-249 

•9-250 

$LLEN 

r     ****** 

GX 

•8-204 

9-241 

•9-242 

SPUTR' 

-     **,<  *** 

GX 

9-251 

10-302 

SRAPDR 

r     ****** 

GX 

•9-251 

•10-302 

SREAD 

-     ****** 

GX 

9-247 

SRLBL 

-     ****** 

GX 

8-190 

SSAWR 

=     ****** 

GX 

9-240 

•9-246 


9-251 


9-252 


rDCATCh     DV        MAfDn        HM     ?Q-  11  IM-RS     AT     07- 
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SYMBOL    CROSS   REFERENCE 


D  12 

PAGE   2 

CREF        04.00 


SYMBOL 

VALUE 

REFERENCES 

LO.SEG 

00005A 

#5-59 

LO.SKA 

OOOOU 

#5-59 

LO.SKN 

00001A 

#5-59 

.O.SNM 

00003"; 

#5-59 

.O.TPA 

000020 

#5-59 

_O.TRB 

000034 

#5-59 

LO.TRI 

000030 

#5-59 

.O.UNT 

000033 

#5-59 

.O.VCT 

0000 1A 

#5-59 

LO.VER 

000042 

#5-59 

-R.ACC 

000020 

#5-59 

-R.ACO 

000052 

#5-59 

LR.ADD 

000012 

#5-59 

LR.ALI 

000002 

#5-59 

LR.BLK 

000010 

#5-59 

LR.CTL 

000004 

#5-59 

LR.DES 

000010 

#5-59 

LR.HLP 

000002 

#5-59 

lR.LIN 

000002 

#5-59 

LR.NAM 

000012 

#5-59 

LR.PAS 

000041 

#5-59 

LR.PRO 

000002 

#5-59 

LR.STS 

000000 

#5-59 

LR.TRI 

000006 

#5-59 

LR.TYP 

000002 

#5-59 

LR.UCB 

000016 

#5-59 

LR.UIC 

000020 

#5-59 

LR.UNT 

000005 

#5-59 

LS.ALI 

=  000016 

-^5-59 

LS.CEX 

=  000001 

#5-59 

LS.CIR 

=  000033 

#5-59 

LS.CXO 

=  010000 

#5-59 

LS.CX5 

=  000400 

#5-59 

LS.ECH 

=  001000 

#5-59 

LS.FDX 

=  004000 

#5-59 

LS.HDX 

=  010000 

#5-59 

LS.HLP 

=  000012 

#5-59 

LS.LIN 

=  000003 

#5-59 

LS.LMC 

=  000007 

#5-59 

LS.LOf 

=  000020 

#5-59 

LS.MOD 

=  000036 

#5-59 

LS.NOD 

=  000014 

#5-59 

LS.NTI 

=  000013 

#5-59 

LS.OBJ 

=  000022 

#5-59 

LS.OPT 

--  000400 

#5-59 

LS.PRO 

=  000002 

#5-59 

LS.TCP 

=  002000 

#5-59 

LS.TS,' 

=  000010 

#5-59 

LS.UNF 

=  020000 

#5-59 

LS.XIT 

=  000011 

#5-59 

LX.ALl 

=  000017 

#5-59 

LX.CEX 

=  000004 

#5-59 

5-59 


5-59 


5-59 


5-59 


5-59 


5-59 


7-106 


rRFiTFh  Hv     M4rRn     nw  ?9-iiin-SS  at  0?:18 


PAGE    3 


E  12 


0  13 

VDEV  -  VNP  LCAD  DEVICE  STRUCTUR  MACRO  VO5.03b  Tuesday  03-Sep-85  10:28 
FIND  -  FIND  DATA  STRUCTURES 
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26'. 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27A 
275 
276 

277  000242 

278  0002AA 

279  000252 

280  000260 

281  000262 

282  000274 

283  000302 
28A  000304 

285  000310 

286  000312 

287  000316 

288  000320 

289  000524 

290  000326 

291  000330 

292  000334 

293  000336 

294  000342 

295  000344 

296  000346 

297  000350 

298  000354 
299 

300 
301 
302 

303  000356 

304  000364 


005000 
016767 
016767 
001413 

026767 
001363 
016700 
000241 
010067 
001416 
005767 
001014 
005001 
156701 
005002 
156702 
160102 
005202 
003406 
010267 


FIND 


.SBTTL  FIND  -  FIND  DATA  STRUCTURES 
-  DETERMINE  IF  DATA  STRUCTURES  ALREADV  EXIST 


THIS  ROUTINE  IS  CALLED  TO  LOOK  FOR  AN  EXISTING  DEVICE  WHOSE  NAME  MATCHES 
$$DEV.  IF  SUCH  A  DEVICE  IS  LOCATED,  ITS  DCB  ADDRESS  IS  STORED  IN  FOUND. 

INPUTS: 

$$DEV=2  CHARACTER  DEVICE  NAME 


OUTPUTS: 

F0UND=DC8  ADDRESS  (IF  SUCCESSFUL) 


OOOOOOG 
000204' 


FIND: 
000204' 
OOOOOOG  10$: 


OOOOOOG  OOOOOOC 
OOOOOOG 
000166' 
OOOOOOC 

OOOOOOC 
OOOOOOl 


30$: 


000172' 


40$: 


CLR 

MOV 

MOV 

BEQ 

GETRV 

CMP 

BNE 

MOV 

CLC 

MOV 

BEQ 

TST 

BNE 

CLR 

BIS8 

CLR 

31  SB 

SUB 

INC 

BLE 

MOV 

RETURN 


RO 

$DEVHD,DEVBUF 

DEVBUF,$RADDR 

30$ 

,#D.PCB+2 


INDICATE  NO  DCB  (YET) 

GET  DEVICE  POINTE."! 

GET  NEXT  DEVICE  IN  LIST 

IF  EO,  END  OF  LIST 

READ  IN  DEVICE  CONTROL  BLOCK 


i$DEV,D.NAM+DEVBUF  ;  DOES  DEVICE  NAME  HATCH? 

10$  ^  "        " 

$RADDR,RO 

RO, FOUND 

40i 

D.DSP+DEV8UF 

101$ 

Rl 

D.UNITt-DEVBUF.RI 

R2 

O.UNITtDEVBUF,R2 

R1,R2 

R2 

111$ 

R2, UNITS 


IF  NE,  NO 

LOAD  DEVICE  POINTER  INTO  RO 

NO  ERRORS  YET 

IS  THERE  ALREADY  SUCH  A  DEVICE? 

IF  EQ,  NO 

IS  THE  DRIVER  RESIDENT? 

IF  NE,  YES  -  VERY  BAD 

GET  FIRST  UNIT  # 

AND  LASt'uNIT  # 

calculate'ucb  count 

If'le,  o.unit  is  screwed 
save  unit  count 


ERROR   CONDITION 

101$:        EMSG$R     2X 
111$:        EMSG$R     20 


DEVICE   uRIVER   ALREADY   RESIDENT! 
ILLEGAL   UNIT    (   UCB    )    COUNT 


\/MD   I  nm   np\/irF    <;TBiirTiiR  MAfRn   uns_n3h   Tupqrlsv   n3-Sen-8j    1 
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Symbol  tabie 


A$$CHK= 

A$SCPS= 

At$PRl= 

A$$TRP= 

BASF 

Ct$CKP= 

C$$ORE^ 

C$$RSH= 

DBLKI 

DBLIC2 

DCB 

DE\/BUF 

DNAME 

DSKBUF 

DUMMY 

DVALL 

nVDEA 

DVERR 

DVLBL 

DVSYM 

DVXFR 

DV.CCL= 

DV.COM= 

DV.D1R= 

DV.EXT= 

DV.F11= 

DV.ISP= 

OV.MBC= 

DV.MNT= 

DV.MSD= 

DV.OSP= 

DV.PSE= 

DV.REC= 

DV.SD1= 

DV.SQD= 

DV.SWL= 

DV.TTy= 

DV.UMD= 

D$$BUG= 

D$$ISK= 

D$$L11= 

0$$YNC= 

D$$yNM= 

D.DSP  = 

D.NAM  = 

D.PCB  = 

O.UCB  = 

D.UCBL^ 

D.UNIT= 

ERRBUF 

ERRMSG 

ETAB 

E$$XPR= 

FIND 

FMTA 

FMT'iA 

FMT6 


000000 

000000 

000000 

000000 

0001 70R 

000000 

000400 

17756A 

0001 26R 

OOOUOR 

0001 50R 

00020'.R 

000004R 

OOOOOOR 

0001 52R 

000772R 

002K2R 

002054R 

000632R 

000372R 

00ni6R 

or:;io2 

020o.,'0 

000010 

OOOAOO 

040000 

002000 

000400 

100000 

000100 

004000 

010000 

000001 

000020 

000040 

001000 

000004 

000200 

177514 

000000 

000001 

000000 

000000 

•♦♦♦*»  GX 

**•♦*♦  GX 

*♦»*♦♦  GX 

*♦♦*»*  GX 

»♦•♦*'  GX 

•♦*♦*»  GX 

00001 7R 

C00007R 

0001561 

000000 

000242R 

003461R 

003420R 

003511R 


002 
002 


FMT9 
FM.4  = 
FM.4A  = 
FM.6  = 
002  FM.9  = 
FOUND 
FI$LVL= 
F.NRBD= 
F.RSIZ= 
F.URBD= 
n02  G$$TPP= 
002  G$$TSS= 

002  G$$TTK= 

003  G$$WRD= 
002  I$$RAR= 

1$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
LENGTH 
L$BFLG= 
L$BLDZ= 
L$BMXZ= 
L$8SA  = 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
M$$CRB= 
M$$CRX= 
M$$FCS= 
Mt$MGE= 
M$$NET= 
M$$OVR= 
N$$ACC= 
N$$BUP= 
N$$LDV= 
N$$MCP= 
N$$MLl= 
N$$M0\/= 
N$$NCT= 
N$$PEM= 
PBUF 
PLEN 
P$$P45= 
P$$WRD= 
0$$0PT= 
002  REP4A 
002  REP4A1 
002  REP4A2 
REP9 
RVAD 
002  R$$DER= 
002  R$$K11= 
002  R$$SND= 


003532R 

000000 

000000 

000000 

000000 

000166R 

000001 


****** 
000000 
000000 
000000 
000000 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
0001 36R 


GX 
GX 
GX 


****** 


000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000174R 

0001 76R 

oosooo 

000000 

000010 

002214R 

002224R 

002264R 

002346R 

002004R 

000000 

000001 

000000 


GX 
GX 
GX 
GX 


002  R$$11M= 
STBEXT 
SYSFD8= 
S$$URG= 
S$$YSZ= 
S.LHD  = 


002 


SI. 
SI. 
SI. 


S1.DEC= 
S1.DPR= 
S1.DSI= 
'  ESC  = 
I8F  = 
IBY= 
S1.0BY= 
S1.PTH= 
S1.RES= 
S1.RNE= 
S1.RNF= 
S1.RSP= 
S1.RST= 
S1.TNE= 
Sl.TSy= 
002  S1.USJ= 
S2.BEL= 
S2.BR0= 
S2.CR  = 
S2.CT0= 
S2.CTS= 
S2.ELF= 
S2.fLF= 
S2.]RQ= 
S2.0BF= 
S2.0RQ= 
S2.PCU= 
S2.RCU= 
S2.SRCI- 
S2.WAL= 
S2.WRA= 
S2.WRB= 
S3.ACR= 
S3.CTC= 
S3.FDX= 
S3.ICE= 
S3.MHE= 
S3.NEC= 
002  S3.PPT= 
002  S3.PTH= 
S3.RAL= 
S3. RES: 
S3.RUB= 
S3.TA8= 
S3.TME= 
S3.TSY= 
S3.8BC= 
S4.ABD= 
S4.ANI= 
S4.AVD= 
S4.BLK= 


GX 


000000 

OOOOOOR 

******  GX 

000000 

007600 

***** « 

001000 

000400 

004000 

000002 

002000 

000200 

000100 

000010 

010000 

000020 

020000 

000004 

000001 

040000 

000040 

100000 

020000 

000020 

002000 

040000 

100000 

001000 

000400 

000200 

004000 

000100 

010000 

000001 

000040 

000010 

000006 

000002 

000001 

000004 

000200 

001000 

000400 

000020 

020000 

004000 

000010 

010000 

040000 

000002 

002000 

000040 

000100 

100000 

000400 

001000 

002000 


S4.DEC= 
002  S4.DL0= 
S4.EDT= 
S4.HFF= 
S4.HFL= 
S4.HHT= 
S4.HSV= 
S4.RGS= 
S4.SFC= 
S4.VFL= 
S5.ABP= 
S5.8CC= 
S5.DA0= 
S5.HPC= 
S5.HP0= 
S5.ITI= 
S5.0XF= 
S5.RP0= 
S5.SW1= 
S5.TMM= 
S5.VER= 
S5.X0F= 
S5.X0N= 
S6.EI0= 
S6.RDI= 
S6.RLU= 
TA8END 
TS$NHD= 
T$$KMG= 
T$$MIN= 
UC.ALG= 
UC.ATT= 
UC.KIL= 
UC.LGH= 
UC.NPR= 
UC.PWF= 
UC.QUE= 
UD.UNS= 
UD.160= 
UD.200= 
UD.556= 
UD.625= 
UD.8K  = 
UD.800= 
UM.CLJ= 
UM.DSB= 
UM.NBR= 
UM.OVR= 
UNITS 
US.ABO= 
US.8SP= 
US.BSY= 
US.FOR= 
US.FRK= 
US.KPF= 
US.LAB= 
US.HDE= 


004000 

000100 

010000 

000020 

000007 

000040 

000200 

020000 

040000 

000010 

100000 

020000 

040000 

000014 

000020 

000100 

000040 

002000 

000001 

000002 

010000 

000004 

000010 

000400 

100000 

001000 

000202R 

******  GX 

000000 

000000 

000200 

000010 

000004 

000003 

000100 

000020 

000040 

000000 

000004 

000001 

000002 

000005 

000006 

000003 

000036   ^ 

000200 

000400 

000001 

000172R 

000001 

000002 

000200 

000040 

000002 

000001 

000004 

000002 


US.MDM= 

US.MNT= 

US.OFL= 

US.PUB= 

US.PWF= 

US.RED= 

US.SHR= 

US.SPU= 

US.UMD= 

US.VV  = 

US.UCK= 

UU.ABO^ 

UU.ATN= 

UU.AVN= 

UU.GUS= 

UU.IOS= 

UU.ONL= 

UU.RCT= 

UU.RDY= 

UU.SER= 

UU.SIO= 

UU.SPC= 

U.ACB 

U.ACP  = 

U.ADMA 

U.AFLG 

002  U.ATT 
U.BPKT= 
U.BUF 
U.CBF  = 
U.CLI 
U.CNT 
U.COTQ 
U.CTCB 
U.CTL 
U.CTYP 
U.CWI 
U.CU2 
U.CU3 
U.CW4 
U.CYL  = 
U.DCB 
U.FCDE= 
U.FNUM= 
U.GRP  = 
U.KCSR= 
U.KCS6= 
U.LUIC 

002  U.HEDI= 
U.MLUN= 
U.MUP 
U.OUN 
U.RBNS= 
U.RCTC= 
U.RCTS= 
U.RED 
U.RED2 


000020 
000 '00 
000001 
000004 
000010 
000002 
OnOOOl 
000002 
000010 
000001 
000010 
000400 
000100 
000004 
000010 
002000 
000020 
000002 
000200 
000001 
001000 
000040 
000062 
000032 
000066 
000064 
000022 
000044 
000024 
000032 
177772 
000030 
000030 
000026 
000004 
000052 
000010 
000012 
000014 
000016 
000104 
000000 
000042 
000040 
000102 
000032 
000034 
177774 
000040 
000050 
177772 
177776 
000112 
000113 
000110 
000002 
000034 
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VDIS  -  VNP  SHOW  COMMANDS 
LOCAL  DATA 
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219  000652 

220 

221 

222 

223  000663 

22A 

225 

226 

227  000672 

228  000707 

229  000722 

230  000735 
231 

232 

233  000750 

23^ 

235 

236  000774 

237  001020 
238 

239 

240 

241    001024 

242 

243  001030 

244  001032 
245 

246 
247 
248 

249  001034 

250  001062 

251  001202 

252  001224 

253  001244 

254  001554 

255  001556 

256  001560 
257 

258  001574 

259  001575 
260 

261 
262 
263 
264 
265 
266 

267  001616 

268  C01646 
269 

270 
271 
272 
271   001676 

274  001700 

275  001702 


105 


115 


130 
130 
130 
130 


054 


060 
000020 


124 


157 


062 
062 
062 
062 


040 


055251   054374 


061 


000400 
000200 
000100 


VD 
tD 


110 


144 


065 
065 
065 
071 


062 


BROAD:  .ASCIZ  /ETHERNET/ 

■  ASCIZ  STRING  FOR  MODULE  HEADER 

MSPEC:  .ASCIZ  /Module/ 

ASCIZ  STRINGS  FOR  MODULE  ID 


MX25PR 
MX25AC 
MX25SV 
MX29SV 


.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 


/X25-PROTOCOL/ 
/X25-ACCESS/ 
/X25-SERVER/ 
/X29-SERVER/ 


124  GRPBIL:  .ASCIZ  /,  Type  =  BILATERAL/ 
.EVEN 

ERMSGS  <    No  informal ionXN> 
ERBL<$  NOINFO 

NTINIT  TASK  NAME  IN  RAD50 

NTINAM:  .RAD50  /NTINIT/ 


PLIPDV:  .8L<U 
NODSAV:  .8LKW 


NO  INFORMATION  ERROR  MESSAGE 


ADDRESS  OF  PLI'S  PDV  INDEX 
REMOTE  NODE  UNMAPPED  ADDRESS 


Temporary  storage  -  each  field  MUST  begin  on  a  word  boundary 

TEMPI:   .BLKB  22.  ;  TEMPORARY  STORAGE  FOR  OUTPUT  STRINGS 

TEMP2:   .BLK8  80.  ....  ..... 

TEMP3:   .BLK8  18.  ;  [  room  for  net.  mgmt.  'id-string'  J 

TEMP4:   .8LKB  16. 

TEMP5:   .8LKB  200. 

TEMP6:   .8LKW  1. 

TEMP7:   .8LKW  1. 

TEMPS:   .BLKB  12. 

FLAGS:   .BLK8  1 

CVTHEX:  .ASCII  /0123456789ABCDEF/ 

MXHEX  =  .-CVTHEX 

.EVEN 

.DSABL  LC 


.-CTDOOI] 
;  **-1 


.■[TD001] 


ATTACH  AND  DETACH  TERMINAL  DPB'S 


TIATT: 
TIDE!: 


QIOU$   10. ATT, 2, 2 
QI0U$   IO.DET,2,2 


LAGS  BYTE 

ABLE  FOR  HEX  CONVERSIONS 


ATTACH  TERMINAL 
DETACH  TERMINAL 


LOGGING  SINK  TYPE  TABLE 

LOGTYP:  .WORD  OPSCON 
.WORD  OPSFIL 
.WORD   OPSMON 


LOGGING  MONITOR 
LOGGING  FILE 
LOGGING  CONSOLE 


i/AC  r\Tu     M« 
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VDIS  -  VNP  SHOW  COMMANDS 
SDLOG  -  SHOW  LOGGING 

759 

760  00A056 

761  0W100 
762 

763  004110 

764  00A1P5 
765 

766  004132 

767  004172 
768 

769  004202 

770  004254 
771 

772  004266 

773  00433' 
774 
775 

776  004342 

777  004410 
778 

779  004420 

780  004430 
781 

782  004456 

783  004437 
784 

78j  004442 

786  004462 
787 

788  004470 

789  004511 
790 

791  004516 

792  004551 
793 

794  004554 

795  004575 
796 
^97 


D  16 

MACRO  V05.03b  Monday  15-Jul-85  12:14  Page  12-2 


ERMSGS  <);n«A  XA  as  of  XnN> 

ER8LKI  L0MSGl,<TEMP2,rEMPl> 

ERMSGS  <   State  =  !!A> 

ER8LK$  L0MSG2,<TEHP1> 

ERMSGS  <       Sink  node  =  XO   (XA),  events  => 

ERBLKS  L0MSG3,<TEMP1,TEMP2> 

ERMSGi  <   Sink  node  =  host,  5!D.3!D  (XA),  events  => 

ERBLKS  L0>1S3X,<TEMP7,  TEMPI,  rEMP2> 

ERMSGS  <   Sink  node  =  XD.XD   (XA) ,   event?  => 

ERBLKS  L0MS3y, <TEMP7, TEMPI ,TEMP2> 


ERMSGS  <   Sink  node  =  host,  XO   (XA),  euents=> 

ERBLKS  L0MS3A,<TEMP1,TEMP2> 

ERMSGS  <     XA> 

ERBLKS  L0MSG4,<TEMP2> 

ERMSGS  <  > 

ERBLKS  LOMSGS 

ERMSGS  <XNLogging  =  XAXN^ 

ERBLKS  L0MSG6,<TEMP1> 

ERMSGS  <   Sink  name  =  XA> 

ERBLKS  L0MSG7,<TEMr2> 

ERMSGS  <Euent  logging  not  suDported> 

LRBLKS  LOERRl 

ERMSGS  <Inualid  sink  node> 

ERBLKS  L0ERR2 

.DSABL  LC 


MAT  nn 


iirit:     A7k     Mrt 
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VCEX  -  VNP  LOAD  CEX  KuJIINES 
LOCAL  DATA 

7C. 

75 

76 

77 

78 

79  000000 

80 

81 

82 

83 

8A 

85 

86 

87 


89 
90 
91 
92 

93  000000 

94  000032 

95  000036 

96  000064 

97  000070 

98  000150 

99  000154 

100  000222 

101  000226 

102  000251 
103 

104  000254 

105 

106 

107 

108 

109  000374 

110  000374 

111  000374 

112  000374 

113  000374 

114  000574 
115 

116 

117 

118  000376 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

150 


103 


lOi) 
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•  *** 
;•  LOCAL 

.SBTTL  LOCAL  DATA 
DATA 

.PSECT  DATA.D 
.NLIST  BEX 

■  LOCAL 

EQUIVS 

TICKS 

=  1 

;■  ERROR 

MESSAGES 

ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 

<VNP  -  NTINIT  not  i'nstaLIed> 

ERR1 

<VNP  -  NTINIT  not  fixed> 

ERR2 

<VNP  -  NTINIT  send  data  packet  allocation 

ERR3 

<VNP  -  NTINIT  clock  queue  entry  failure> 

ERR4 

<VNP  -  NTINIT  acti\/e> 

ERR5 

fai lure> 

MSGB: 

.BLKB   80.            ;  MESSAGE  BUFFER 

;  COMPATIBLE  SYMBOLS 

iPRCLN: 
SPREXT: 
SPRINT: 
$PRLE,4: 
SPRLLN: 

'.BLKW   1                   ;  PROCESS 

INCREMENT 

;  COMM 

EXEC  FILE  NAME 

150  CEXNAM: 

.ASCIZ  "CEX" 
.IF  DF   RSSMPL 

RSXNAM: 

.ASCIZ  "RSXIIM" 
.EVEN 

VEXNAM: 

* 

.ASCIZ  "RSXVEC" 
.EVEN 

.ENDC 

F  1 
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VCEX  -  VNP  LOAD  CEX  ROUTINES 
CEPTR  -  IMT  CETAB  POINTERS 

650 
651 
652 
653 
65; 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 

669  001206 

670  001212 

671  001216 
672 

673  001220 

674  001222 

675  001224 
676 

677  001226 

678  001232 
679 

680  001236 

681  001242 

682  001250 

683  C01254 

684  001260 

685  001264 

686  001304 

687  001310 
688 
689 
690 

691  001314 

692  001320 
693 

694  001336 

695  001340 

696  001342 

697  1 01 344 

698  .Ci354 

699  001362 

700  001364 

701  001372 

702  001374 

703  001376 

704  001404 
705 
706  001406 


E  2 
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♦*-RUN-RUN  TASK 


INPUTS: 
R4 
R5 


-  NUMBER  OF  TICKS  TO  DELAY  FROM  SYSTEM  BOOT 

-  TC8  ADDRESS  (  IN  SYSTEM  IMAGE  ) 


OUTPUTS: 

C-BIT  SET  IS  NO  NODE  AVAILABLE 
CLOCK  QUEUE  ENTRY  GENERATED 


NOTE: 


THIS  ALGORITHM  WILL  RUN  THE  TASK  BEFORE  ANY  OTHER  TASK 
SCHEDULED  TO  RUN  WITH  THE  SAME  DELAY  FACTOR, 
(  UNLIKE  VMR  RUN  COMMAND  ). 


01270'  000020 

103516 

010046 
010546 
010446 

012704  OOOOOOG 

012705  000410' 

012665  000006 

012765  000004  000002 

005065  000012 

005065  000014 

012665  000004 

061465  000006 

005565  000010 


016702  OOOOOOG 


010203 
011402 
001421 

026564  000004  000004 

001435 

026564  000010  OOOOIO 

101361 

103404 

026564  000006  000006 

101354 

010215 


RUN: 


MOV  #C.LGTH,R1 

CALL  $ALL15 

BCS  40$ 

MOV  RO,-(SP)       ; 

MOV  R5,-{SP) 

MOV  R4,-(SP) 

MOV  #$eFR,R4 

MOV  *CLKQB,R5      ; 

MOV  (SP)+,C.TIM(R5)  : 

MOV  *C.SSHT,C.RQT(R5) 

CLR  C.RSI(R5) 

CLR  C.RSI+2(R5) 

MOV  (SP)+,C.TCB(R5) 

6ETRV  .A8TIM,#2 

ADD  (R4),C.TIM(R5) 

ADC  C.TIM+2(R5) 


SIZE  OF  CLOCK  QUEUE  ENTRY 
ALLOCATE  SPACE  FROM  RSX11M  POOL 
NO  SPACE  AVAILABLE 

SAVE  NODE  ADDRESS 
AND  res  ADDRESS 
AND  #  OF  TICKS 

R4  POINTS  AT  VIRTUAL  I/O  BUFFER 
R5  AT  CLOCK  QUEUE  ENTRY 

SET  NUMBER  OF  TICKS 

;  SINGLE  SHOT 

NC  RESCHEDULE  INT.  COUNT 

NO  RSI  UNITS 

SET  TCB  ADDRESS 

GET  ABSOLUTE  TIME  COUNTER 

FORM  ABSOLUTE  TIME  OF  REQUEST 


INSERT  NEWLY  FORMED  ENTRY  INTO  CLOCK  QUEUE  IN  TEMPORAL  SEQUENCE 


10$: 


30$: 


MOV 
GETRV 

MOV 

MOV 

BEQ 

GETRV 

CMP 

BEQ 

CMP 

BHl 

BLO 

CMP 

bh: 

MOV 


.CIKHD,R2 
R2,#C.LGTH 


;  PREVIOUS  ENTRY 
;  READ  IN  LISTHEAD 


R2,R3         ;  SAVE  PREVIOUS  ENTRY  ADDRESS 

(R4),R2        ;  GET  ADDRESS  OF  NEXT  ENTRY 

30$  ;  END  OF  LIST 

R2  ;  READ  IN  NEXT  CLOCK  QUEUE  ENTRY 

C.TC8(R5),C.TCB(R4)  ;  TASK  ALREADY  ACTIVE  ? 

101$  ;  YES 

C.TIM<-2(R5),C.TIM+2(R4)  ;  NEW  ENTRY  AT  LATER  TIME 

10$  ;  NO 

30$  ;  YES 

C.TIM(R5>,C.TIM(R4)  ;  MAYBE 

10$  ;  PREMPT  IF  TIME  IS  SAME 


R2,{R5) 


POINT  OUR  NEW  ENTRY  AT  NEXT 


VCEX  -  VNP  LOAD  CEX  ROUTINES    MACRO  V05.03b  Saturday  29-Jun-85 
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VCEX  CREATED  BY 

SYMBOL    CROSS  REFERENCE 
SYMBOL      VAlUE 

GX 


MACRO  ON  29-JUN-85  AT  02:14 


.HEADR 
.LLCTB 
.NETPF 
.NTGCD 
.NTPCB 
.NTUMR 
.PDVTA 
.PDVTB 
.PLGTH 
.SBPCB 
.SLTMB 
.STKDP 
.TLGTH 
.TSKHD 
..COO 


000660  R 
=  »•»«»*  GX 
000000 

oooooc 

000002 
=  «*«*«*  GX 

00063A  R 
=  ♦»**»♦  GX 

000066 

0006A6  R 
-  .*»»♦*  GX 
=  ***»»»  GX 
=  **.**♦  GX 
=  «»*»♦«  GX 


E  3 

PAGE  5 

CREF   OA.OO 


REFERENCES 

6-170 

6-219 

8-350 
#5-65 
#5-65 
#5-65 

11-581 
#6-216 

7-318 
#5-65 

6-216 

6-173 

12-636 

12-636 

14-815 


#6-222 


11-582 
9-454 


#6-219 
14-786 


11-567 

11-565 
11-566 


VCFG  - 
SNLCFG 

41f 
41^ 
42C 
421 
42; 
42! 
42' 
42? 
42« 
42^ 
42i 
42< 
43( 
431 
43; 
43: 
43^ 
43: 
43( 
43^ 
43f 
43' 
44( 
44- 
44; 
44: 


VCEX 


CREATED  BY  MACRO  ON  29-JUN-85  AT  02:14 
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VCFG 


E     t, 
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SNLCFG  -   CONFIG   FILE    SCAN 


A18 
419 

420  000612 

421  000620 
422 

423 
424 

425  000622 

426  000630 
427 

428  000632 

429  000636 

430  000640 
431 

432 
433 
434 

435  000642 

436  000650 

437  000656 

438  000664 

439  000672 

440  000700 

441  000706 

442  000714 

443  000722 


END  OF  FILE  FOUND  (NO  X3P$DF  OR  FEASDF) 


032767 
001032 


126727 
001402 


0002'.1 


000002  000136'  188$: 


BIT 
BNE 


#FG.X3P,CFGFLG 
161$ 


ALL  NEEDED  PARAMETERS  SEEN 


OOOOOOG  rOOOOOG 


190$: 
200$: 


CMP8 
BEQ 

CALL 

CLC 

RETURN 


$CLS8K,*IE.E0F 
200$ 

$CLDEQ 


ERROR  CONDITIONS 


101$ 
111$ 
121$ 
131$ 
141$ 
151$ 
161$ 
171$ 
181$ 


EMSG$R  IS 

EMSG$R  lU 

EMSG$R  IV 

EMSG$R  IW 

EMSG$R  IX 

EMSG$R  12 

EMSG$R  3A 

EMSG$R  38 

EMSG$R  3C 


IS  X3P$DF  NEEDED? 
BR  IF  YES  -  ERROR 


EOF  ? 

IF  YES  -  BRANCH 

CLOSE  CONFIG  FILE 
INDICATE  SUCCESS 


UNT$DF 
SLT$DF 
CNT$DF 
UNT$DF 
STA$DF 
LLC$DF 
X3P$DF 
X2P$DF 
SVC$DF 


MISSING 

MISSING  (EOF) 

MISSING  (EOF) 

MISSING  (EOF) 

MISSING  (EOF) 

MISSING  (EOF) 

MISSING  (EOF) 

MISSING  (EOF) 

MISSING  (EOF) 


VCFG  -  '.' 
ADDSDF  S 

835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
8^3 
849 
850 
851 


VCFG  -  VNP  SCAN  CONFIGURATION  F  MACRO  V05.03b  Monda; 


F  4 

15-Jul-85  19:04  Page  9 


VCFG  -  V 
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ADDSDF    SIA^E    TABLE 


835 
836 
837 
838 

839  001512 

840  001512 

841  001512 

842  001512 
843 

844 

845 

846 

847  001512 

8^3  001512 

849  001512 

850  001512 
851 


.SBTTL     ADDSDF    STATE    TABLE 
LOCAL   PHYSICAL    STATION  ADDRESS    (ADDSDF) 


STATES 
TRAf^S 

STATES 
TRANS 


ADDDF 
ZADDSDFX,,,1,SYNERR 

SNUMBR,SEXri.'D.NUM 


NUMBER  OF  PORTS  TO  ALLOCATE  FOR  AN  NI  INTERFACE 


STATES 
TRANS 

STATES 
TRANS 


PLTDF 
ZPLTSDF*/(,,,1,SYNERR 

SNUM8R,$EXIT,PL.CHN 
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TPARS    ^r■'ION  ROUTINES 
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1552 

1354 
1355 

1356  002716 

1357  002722 

1358  00272A 

1359  002732 
^360  002734 

1361  002742 

1362  002744 

1363  002746 

1364  002754 
1365 

1366 
1367 
1368 

1369  002762 

1370  002766 

1371  002770 

1372  002774 

1373  003000 

1374  003004 

1375  003010 

1376  003012 

1377  003020 

1378  003022 

1379  003026 

1380  003034 

1381  003036 

1382  003042 

1383  003046 

1384  U03050 

1385  003052 

1386  003056 

1387  003060 
1388 

1389 
1390 
1391 
1592  003066 

1393  003072 

1394  003074 

1395  003100 

1396  003104 

1397  003110 

1398  003114 

1399  003116 

1400  003124 

1401  003126 

1402  003130 

1403  003136 
1404 

1405 
1406 
1407 
140S  C03140 


005767 
001011 
026727 
103005 
026767 
001004 


005767 
001034 
016700 
016701 
016702 
126100 
001016 
032767 
001402 
042702 
032767 
001402 
052702 
010267 
006300 
006300 
010260 


005767 
001372 
016700 

016701 
126100 
001003 
016767 
006300 
006300 
016760 


OOOOOOG 
OOOOOOG  000060 
OOOOOOG  000152' 


UNIT  NUMBER  (UNTSDF) 


U.UNT: 


101$: 
111$: 


TST 

BNE 

CMP 

BHIS 

CMP 

BNE 

RETURN 

EMSG$R 

EMSG$R 


.PNUMH 

101$ 

.PNUMB,#48. 

101$ 

.PNUMB.UfNT 

111$ 

1G 
IH 


MAKE  SURE  IT'S  A  VALID  UNIT  NUMBER 

MAX  OF "48.  ALLOWED 

IS  THIS'tHE  next  ASCENDING  UNIT  NUMBER? 
IF  NE,  NO 

ILLEGAL   IT  NUMBER 
UNT$DF  OUi  OF  ORDER 


CHARACTERISTICS  WORD  0  (UNT$DF) 


OOOOOOG        U.CHAO: 

000152' 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 

000001 

OOOOOOG  OOOOOOG  2$: 


OOOOOi 
OOOOOOG 


000004G 


5$: 
10$: 


CHERR: 


TST 

BNE 

MOV 

MOV 

MOV 

CMPB 

BNE 

BIT 

BEO 

BIC 

BIT 

BEQ 

BIS 

MOV 

ASL 

ASL 

MOV 

RETURN 

EM3G$R 


.PNUMH 

CHERR 

UCNT.RO 

$SLTA,R1 

.PNUMB,R2 

L.UNT(R1),R0 

10$ 

#FL.FDX,$FLAGS 

2$ 

#1,R2 

#FL.HDX,$FLAGS 

5$ 

#1,R2 

R2,$$DCHA 

RO 

RO 

R2,$$DCHA+4(R0) 

IK 


MUST  BE  SINGLE  PRECISION 

GET  UNit' COUNT 

SLT  ADDRESS 

AND  CHARACTERISTICS  VALUE 

IS  THIS  THE  KEY  UNIT? 

IF  NE,  NO 

FULL-DUPLEX  SPECIFIED  ? 

NO  .. 

YES  ..  CLEAR  BIT  0 

HALF-DUPLEX  SPECIFIED  ? 

NO  .. 

YES  ..  SET  BIT  0 

SAVE  DLC  CHARACTERISTICS 

CONVERT  TO  A  DOUBLEWORD  INDEX 

STORE  PARAMETER  VALUE 

ILLEGAL  PARAMETER  VALUE 


OOOOOOG 

000152' 

OOOOOOG 
OOOOOOG 

OOOOOOG  000002G 


OOOOOOG  000006G 


CHARACTERISTICS  WORD  1  (UNTSDF) 


U.CHAI:  TST  .PNUMH 

BNE  CHERR 

MOv  UCNT,RO 

CALL  SETTMO 

MOV  $SLTA,R1 

CMPB  L.UNTCR1),R0 

BNE  10$ 

MOV  .PNUMB,$$DCHA+2 

10$:    ASL  RO 

ASL  RO 

MOV  .PNUMB,$$0CHAt6(R0) 

RETURN 


MUST  BE  SINGLE  PRECISION 


GET  UNIT  COUNT 

SET  UP  TIMEOUT  VALUE 

AND  SLT  ADDRESS 

IS  THIS  THE  KEY  UNIT? 

IF  NE,  NO 

SAVE   DLC    CHARACTERISTICS 

CONVERT   TO  A  DOUBLEWORD    INDEX 

STORE   PARAMETER  VALUE 


005767     OOOOOOG 


PROTOCOL   EMULATOR   CHARACTERISTICS  WORD    (UNTSDF) 
U.PECH:    TST  .PNUMH  ;    MUST   BE    SINGLE   PRECISION 
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VCFG 

CREATED  BY 

MACRO  ON  15-JUL-85  AT 

19:06 

PAGE  2 

7 

SYMBOL 

:R0SS  REFERENCE 

CREF   04. 

00 

SYMBOL 

VALUE 

REFERENCES 

FL.LMC 

=  ***«*.  GX 

28-1422 

30-1506 

FMT8 

002422  RG 

7-181 

7-187 

7-191 

7-192 

7-193 

7-194 

7-195 

7-196 

7-197 

7-198 

7-199 

7-200 

7-201 

7-202 

7-203 

7-205 

7-206 

7-213 

7-214 

7-215 

#7-224 

FMT8B 

0024A2  RG 

7-180 

7-182 

7-183 

7-184 

7-185 

7-186 

7-188 

7-189 

7-190 

7-204 

7-207 

7-208 

7-209 

7-210 

7-211 

7-212 

7-216 

7-217 

7-218 

#7-225 

FN. 8 

=  000000 

#7-181 

#7-187 

#7-191 

#7-192 

#7-193 

#7-194 

#7-195 

#7-196 

#7-197 

#7-198 

#7-199 

#7-200 

#7-201 

#7-202 

#7-205 

#7-205 

#7-206 

#7-213 

#7-214 

#7-215 

FM.8B 

=  000000 

#7-180 

#7-182 

#7-183 

#7-184 

#7-185 

#7-186 

#7-188 

#7-189 

#7-190 

#7-204 

#7-207 

#7-208 

#7-209 

#7-210 

#7-211 

#7-212 

#7-216 

#7-217 

#7-218 

FNDPDV 

004120  RG 

#34-1638 

F.CHI 

003734  R 

#32-1571 

F.CH2 

003756  R 

#32-1578 

F.FEA 

004000  R 

#32-1585 

F.MOD 

004010  R 

#52-1590 

F.RSIZ 

=  »*»*«♦  GX 

•33-1612 

♦33-1617 

F.SET 

004020  R 

#32-1595 

GETCSR 

002562  R 

27-1299 

#27-1309 

28-1437 

HSHADD 

000146  RG 

#7-148 

hSHSZ 

000144  RG 

#7-147 

IE. EOF 

=  »♦*♦*♦  GX 

8-425 

10-492 

lE.RBG 

=  «*««*«  GX 

10-495 

IS$AS 

-  ****** 

27-1332 

LLCDF 

000724  R 

11-533 

LNKEND 

004030  RG 

#33-1612 

L.CHI 

003714  R 

#31-1558 

L.CH2 

003724  R 

#31-1564 

L.COST 

=  ******  GX 

♦30-1522 

L.CTL 

=  «**»♦*  GX 

8-270 

L.DDM 

=  *♦»*♦«  GX 

29-1470 

L.DLC 

=  *»♦**♦  GX 

29-1470 

L.MPF 

=  ******  GX 

25-1242 

L.NAME 

001512  R 

#25-1071 

L.NSFA 

=  ******  GX 

25-1235 

L.UNT 

-   »*»»**  GX 

8-271 

28-1374 

28-1397 

28-1412 

29-1456 

MAXCST 

=  000031 

#6-87 

25-1232 

30-1519 

MAX  ID 

=  000020 

#6-94 

13-628 

13-640 

MAXNDC 

=  000200 

#6-88 

HAXWND 

=  000007 

#6-89 

MOVE 

001436  RG 

13-648 

#14-669 

MS.CIR 

=  ******  GX 

8-274 

MS.CSR 

=  ******  GX 

27-1297 

27-1302 

MS. EXT 

-   ,♦**.*  GX 

8-313 

25-1107 

MS. IMC 

=  ******  GX 

8-313 

25-1096 

MS. LLC 

r  ******   GX 

8-308 

MS.MTP 

-   ******  GX 

8-357 

MS. MUX 

=  *♦»»*♦  GX 

8-340 

MS.PRI 

'    ,»**,*  GX 

27-1324 

27-1354 

MS. SEC 

-    ******  GX 

28-1435 

VCFP 
LOCAl 


VCFG 
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VCFP 


VCFP  -  VNP  PSI  rONFIGURATION  FI  MACRO  VOS.Oib  Saturday  29-Jun-85 
LOCAL  DATA 


02:17 


15=)  000366 

160 

161 

162 

M^   000370 

16A  000372 

165 

166 

167 

168  00037A 

169  000376 

170  000400 
171 

172 

173 

17A  000402 

175 

176 

177 

176 

179 

180  000404 

181 

182 

183  000406 

184  000407 

185  000427 

186  000430 

187  000450 

188  000451 
189 

190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 

201  000452 

202  0004:2 

203  000454 

204  000456 

205  000460 

206  000462 

207  000464 

208  000466 

209  000470 

210  000470 

211  000472 

212  000474 

213  000476 
214 

215 


000001 
000002 


000001 
000002 


000001 
000002 


000427" 
000533' 
000406' 
000712' 
000733' 
000744' 
000000 

000560' 
000621' 
000522' 
000000 


WNDSZM::.BLI<',W   1 

DATA  FOR  DTESDF  MACRO 


6TEDES: 
DTEFLG: 


.BLKU 

.8LKW 

DE.ON 

DE.OFF 

.EVEN 

HSHS2::  .BLKW 

HSHADD::.BLKU 

CTIM::   .3LK'« 


1 

1 

==  1 


DATA  FOR  PVCSDF  MACRO 


PVSTA: 


.BLKU   1 
PV.OFF  ==  1 
PV.CN  ==  2 


DATA  FOR  DSTSDF  MACRO 


DSFlG: 


DSTTKL 
DSTTSK 
DSTNML 
DSTNAM 
DSTPRl 
DSTOBJ 


.BLKU   1 

DS.X25  ==  1 

DS.X29  ==  2 
i.'iLKB   1 


.BLK8 
:.BLKB 
.-.BLKB 
:.8LK8 
;.6LKB 

.EVEN 


MAXJD 
1 

MAX  ID 
1 
1 
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HAXIMUM  WINDOW  SIZE 


DTE  ADDRESS 

FLAGS  WORD 

SEl  DTE  STATE  TO  "ON" 

SET  DTE  STATE  TO  "OFF' 

HASH  TABLE  SIZE 
ADDRESS  OF  HASH  TABLE 
COUNTER  TIMER  VALUE 


PVC  STATE 

STATE  =  OFF 
STATE  =  ON 


LOCAL  FLAG  WORD 

X25  DESTINATION  TYPE 

X29  DESTINATION  TYPE 

Length  of  object  task  name 

Object  task  name  (must  follow  DSTTSL) 

Length  of  destination  name 

Destination  name  (must  follow  DSTNML) 

PRIORITY 

OBJECT  NUMBER 


These  tables  are  used  to  fill  in  the  variable-length  fields 
the  destination  block.  Each  entry  is  the  address  of  a 
buffer  containing  a  count  (one  byte)  followed  by  the  data 
to  be  stored.  The  order  of  the  table  is  the  order  in  which 
fields  appear  in  the  destination  block.  The  first  table 
(DSTVRO)  is  used  for  the  new  (gateway)  fields;  the  remainder 
describe  the  old  (common)  fielas. 


of 


*♦*  ORDER  IS  IMPORTANT  (SEE  DSTDFS  MACRO)  *»» 


DSTVRO: 


DSTVRI: 


.WORD 

DSTNML 

destination  name 

.WORD 

DSACGL 

CUG  name 

.WORD 

DSTTKL 

object  task  name 

.WORD 

RNUL 

user  name 

.WORD 

RNPL 

password 

.WORD 

RNAL 

account 

.WORD 

0 

end  of  table 

.WORD 

DSCMCT 

call  mask 

.WORD 

DSCVCT 

call  value 

.WORD 

DSARCT 

DTE  address 

.WORD 

0 

end  of  table 

DATA  FOR  DSA$DF 


;CTD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
:**-9 


;[T0001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[:TD00n 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;»*-4 
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VCFP  -  VNP  PSl  CONFIGURATION  FI  MACRO  V05.03b  Saturday  29-Jun-85 
LNKEND  -  LINK  '■-LOCK  AT  END  OF  LIST 


D2;17 


Page  16 


6H 
615 
616 
617 
618 
619 
620 
621 
622 
623 
62^ 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 


001112 
001130 
001132 
001136 
001  UO 
001150 
001166 
001170 
001172 
001174 
001200 


.SBTTL  LNKEND  -  LINK  BLOCK  AT  END  OF  LIST 

LNKEND  -  LINK  BLOCK  AT  END  OF  LIST 

INPUTS: 

RC  -  ADDRESS  OF  LISTHEAD 

R5  -  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 

OUTPUTS: 

BLOCK  IS  LINKED  AT  END  OF  LIST 


010001 
016700 
00141A 


000760 
010546 
010146 


OOOOOOG 


LNKEND; 
10$: 


20$: 


:GETRV 
MOV 
MOV 
BEQ 

CEACC$ 
GETAD 
BR 
MOV 
MOV 
CALL 
RETURN 


R0,#2 

RO.RI 

$BFR,RO 

20$ 

R0,R2 

R2,*2 

loi 

R5,-(SP) 
R1,-(SP) 
SXLINK 


READ  IN  LISTHEAD 

SAVE  ADDRESS  OF  PREVIOUS  BLOCK 

GET  ADDRESS  OF  NEXT  BLOCK  IN  LIST 

BR  IF  END  OF  LIST  -  LINK  IT  HERE 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  LISTHEAD 

GET  NEXT  BLOCK  IN  LIST 

GET  UNMAPPED  ADDR  OF  CURRENT  BLOCK 

GET  ADDRESS  OF  PREVIOUS  SLOCK 

LINK  BLOCK  INTO  LIST 


f     9 
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VCFP      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:18 
SYMBOL  CROSS  REFERENCE 


E  10 

PAGE  5 

CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

SERROI 

001K6 

RG 

#8-265 

$ERR02 

001222 

RG 

#8-264 

$ERR05 

001276 

RG 

#8-265 

$ERR06 

001332 

RG 

#8-266 

14-547 

$ERR09 

001352 

RG 

#8-267 

$ERRP7 

000766 

RG 

#8-259 

$ERRP8 

001022 

RG 

#8-260 

SERRP9 

001056 

RG 

#8-261 

$ERR1P 

001602 

RG 

#8-273 

10-451 

SERRIQ 

001640 

RG 

#8-274 

•  1-461 

SERRIR 

0016^6 

RG 

#8-275 

11-462 

$ERR1T 

001 724 

RG 

#8-276 

SFNOUT 

=      ****** 

GX 

8-273 

8-274 

15-515 

$GCLEP 

=      *♦■**** 

GX 

11-446 

SGETAD 

-      ****** 

GX 

16-633 

SGETRV 

-      ****** 

GX 

16-628 

SNTCFP 

000000 

RG 

#9-303 

SPDVNM 

=    ****** 

GX 

17-657 

SPDVTA 

=    ****** 

GX 

17-656 

17-668 

SPFLAG 

-   ****** 

GX 

9-512 

9-326 

9-544 

9-365 

SQCHN 

=    ****** 

GX 

9-361 

$QCUG 

-    ****** 

GX 

9-367 

SQDSA 

-    ****** 

GX 

9-375 

IQDSC 

-    ****** 

GX 

9-379 

SQDSM 

=    ****** 

GX 

9-385 

$QDS" 

-    ****** 

GX 

9-335 

SQDTE 

=   ****** 

GX 

9-333 

SQPSN 

r     ****** 

GX 

9-310 

SQPVC 

-    ****** 

GX 

9-565 

SQRDT 

=    ****** 

GX 

9-337 

SQRNA 

=    ****** 

GX 

9-350 

$QRNW 

-    ****** 

GX 

9-346 

SQY29 

-    ****** 

GX 

9-339 

$QX3P 

r:     ****** 

GX 

9-316 

9-328 

SRADDR 

3     ****** 

GX 

M6-628 

•16-633 

SREP.N 

-     ****** 

GX 

8-273 

8-274 

STIQUT 

-     ****** 

GX 

12-495 

15-516 

SXLINK 

r:     ****** 

GX 

16-637 

.PCHAR 

=     **  +  *•■♦ 

GX 

18-687 

18-689 

. PNUMB 

-     *****+ 

GX 

14-535 

14-542 

14-554 

14-568 

.PNUMH 

=     ****** 

GX 

14-533 

14-540 

14-552 

14-566 

.PSTC^J 

-     ****** 

GX 

14-524 

19-740 

19-745 

19-747 

.PSTPT 

-     ****** 

GX 

14-526 

19-752 

VCIO 

MACRO 

MACRO 

ASL$ 

CALL 

DHBDF1 

HWDDF5 

LBLDF5 

PUTRC 

RAND 

RETUR^ 


9-581 


19-757 


19-751 


roFATFn  Hv  Mifpn  nw  ?9-.lllN-8S  AT  n?:18 
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VCIO  CREATED  BY     MACRO     ON  29-JUN-85  AT   02 : ' 8 

MACRO   CROSS  REFERENCE 


MACRO  NAME 

REFERENCES 

ASL$ 

#5-70 

8-203 

CALL 

7-K8 

7-153 

7-155 

7-156 

DHBDFS 

#5-55 

5-62 

HWDDFS 

#5-55 

5-60 

LBLDFS 

#5-55 

5-61 

^UTRC 

#5-55 

9-251 

10-302 

RAND 

#9-251 

9-251 

#10-302 

10-302 

RETURN 

7-161 

8-211 

8-226 

9-256 

E  11 

PAGE  2 

CREF        OA.OO 


8-190 


9-262 


8-207 


10-284 


9-247 


10-304 


9-:'^^ 


10-280 


10-302 


f   11 


*p  II  P  **  in* 


VCLQR'^ 


CREATED  BY  MACRO  ON  29-JUN-85  AT  02:18 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


E  12 
PAGE  3 

CREF   0^.00 


LX.CIR 

LX.LIN 

LX.LOG 

LX.NOO 

LX.OBJ 

LX.PRO 

OPSINS 

OFSLOG 

OfSOFF 

OF  SON 

OFSSMC 

OPSADD 

OPSALL 

OPSCCS 

OPSCIE 

OPSCON 

OPSCOP 

OPSCOS 

OPSDST 

OPSDTE 

OPSOUP 

OPSEST 

OPSEVE 

OPSFIL 

OPSGRP 

OPSHOS 

OPSHTM 

OPSINA 

OPSINC 

OPSKDS 

OPSKDT 

OPSKCV 

OPSKGR 

OPSKNT 

OPSKSK 

OPSLCT 

OPSLNE 

OPSLOC 

OPSLST 

OPSLTM 

OPSLVL 

OPSMAC 

OPSMCO 

OPSMDE 

OPSMLI 

OPSMON 

OPSMST 

OPSNAM 

OPSNET 

OPSNI  I 

OPSNOO 

OPSOUT 


=  000034 
=  000006 
=  000021 
=  000015 
=  000023 
=  000005 
=  000001 
=  000100 
=  000002 
=  000000 
=  000200 
=  000200 
=  000200 
=  000004 
=  004000 
=  000400 
=  000001 
=  000100 
=  000200 
=  000040 
=  000002 
=  000100 
=  010000 
=  000200 
=  000100 
=  000001 
=  000002 
=  004000 
=  001000 
=  002000 
=  000400 
=  001000 
=  001000 
=  010000 
=  002000 
=  000200 
=  000040 
=  000001 
=  000002 
=  000001 
=  000010 
=  000010 
=  000002 
=  000400 
=  000004 
=  000100 
=  000020 
=  000004 
=  004000 
=  000002 
=  000020 
=  002000 


REFERENCES 

#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#:-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-5° 
#5-5v 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 


#5-59 


#5-59 


#5-59 


rDC  ATCh  DV 


MAron   nn  :)Q- iliM-R';  6T  n?'1R 
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VOEV  -  VNP  LOAD  DEVICE  STRUCTUR  MACRO  V05.03b  Tuesday  03-Sep-8S  10:28  Page  10 
DVSVM  -  DEFINE  SPECIAl  SYMBOLS 


6  13 

10:28 


306 
307 
308 
309 
310 
311 
312 
313 
3U 
315 
316 
317 
318 
319 
320 
321 
322 
323 
32A   000372 

325  000576 

326  000A02 

327  000406 

328  0004H 

329  000422 

330  000426 

331  000430 

332  000434 

333  000440 

334  000444 

335  000446 

336  000450 

337  000454 

338  000462 

339  000464 

340  000466 

341  000470 

342  000472 

343  000476 

344  000502 

345  000506 

346  000512 

347  000514 

348  000520 

349  000522 

350  000526 

351  000530 

352  000536 

353  000544 

354  000546 

355  000550 

356  000552 

357  000556 

358  000560 

359  000566 

360  000570 

361  C00576 

362  000600 


016700 
012701 

116767 
116767 
012700 
010701 

012702 
010162 
011202 
001374 
010167 
016767 
000241 
001056 
005000 
005001 
012702 

012700 

103444 
012701 
005002 
005761 
001007 
012767 

005202 
0111C: 
001423 
005761 
001767 
032761 
001404 

000762 
026167 


OOOOOOG 
076452 

OOOOOOG  000005' 
000001 G  000006' 
000004' 


.S8TTL  DVSYM  -  DEFINE  SPECIAL  SyMBOLS 

DVSYM  -  DEFINE  SPECIAL  lATA  STRUCTURE  SYMBOLS 

THIS  ROUTINE  IS  CALLED  TO  SCAN  THE  [131 ,54]XXXTAB.STB  FILE  FOR  THE  FOLLOWING 
SPECIAL  SYMBOLS: 

SXXDCB         DCB  ADDRESS 

SXXEND         END  OF  DEVICE  TABLES 

INPUTS: 

$$DEV=2  CHARACTER  DEVICE  NAME 
$NAME=PROCESS  NAME 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 

DCB=VALUE  OF  SXXDCB  FROM  STB  FILE 

LENGTH=DITTO  SXXEND 


DVSYM: 


000126' 
000004 


10S: 


000152' 
000166'  000150' 


000000' 
000126' 

000126" 

000002 

Mim     000136' 

000002 

000001  000010 


20S 
25S 
30$ 


000010  000136'  40$: 


MOV 

MOV 

CALL 

MOVB 

M0V8 

MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

BNE 

MOV 

MOV 

CLC 

BNE 

CLR 

CLR 

MOV 

CALL 

MOV 

CALL 

BCS 

MOV 

CLR 

TST 

BNE 

MOV 

EMSGS 

INC 

MOV 

BEQ 

TST 

BEQ 

BIT 

BEQ 

EMSG$ 

BR 

CMP 


SNAME,RO 

#»RTA8,R1 

SDFN2 

SSDEV.DNAME+I 

S$DEVt1,DNAMEt2 

#DNAME,RO 

PC.RI 

$CAT5 

*D8LK1,R2 

R1,4(rJ) 

(R2),R2 

10$ 

R1, DUMMY 

FOUND, DCB 

60$ 

RO 

R1 

*ST8EXT,R2 

$AZFS 

#D8LK1,R0 

$SyMBL 

101$ 

tfDBLKI.RI 

R2 

2(R1) 

30$ 

#-1, LENGTH 

2A 

R2 

(R1),R1 

50$ 

2(R1) 

20$ 

#1,iO(R1) 

40§ 

2N 

25$ 

10(R1), LENGTH 


SETUP  DEFAULT  FILE  NAME 
OF  XXXTAB 

PREFACE'dEVICE  NAME  WITH 

convert" It  to  radso 


"$" 


POINT  AT  FIRST  CONTROL  BLOCK 

SETUP  SPECIAL  NAME 

GET  NEXT  CONTROL  BLOCK  ADDRESS 

IF  NE,  NOT  AT  END 

SETUP  DISPATCH  TABLE  NAME 

DO  STRUCTURES  ALREADY  EXIST? 

ASSUME  SUCCESS 

IF  NE,  YES 

SETUP  ASCIZ  FILE  SPEC 

FOR  [131,54]XXXTAB.STB 


POINT  AT  FIRST  SYMBOL  CONTROl  BLOCK 

SCAN  THE  STB  FILE 

IF  CS,  FILE  ERROR 

POINT  AT  FIRST  CONTROL  BLOCK 

TALLY  NUMBER  OF  ERRORS  IN  R2 

IS  THE  $XXEND  SYMBOL  DEFINED? 

IF  NE,  YES 

FAKE  OUT  LENGTH  CHECK  LATER 

PRINT  ERROR  MESSAGE 

TALLY  THE  ERROR 

GET  NEXT  CONTROL  BLOCK  ADDRESS 

IF  EQ,  END  OF  LIST 

IS  SYMBOL  DEFINED? 

IF  EQ,  NO 

IS  SYMBOL  VALUE  ODD? 

IF  EQ,  NO 

PRINT  ERROR  MESSAGE 

IS  SYMBOL  WITHIN  TABLE  LIMITS? 


,/AC   (TJt,   T..^r.^ 
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VDEV  -  VNP  LOAD  DEVICE 
Symbol  table 


U.SCB 

U.SHST= 

U.SMJN= 

U.SPC  = 

U.STS 

U.5T2 

U.SUB  = 

U.ICHP 

U.TCVP 

U.TFLK 

U.TfRQ 

u.nxL 

U.TLPP 

U.TMTI 

U.TRCK= 

U.TSTA 

U.TST5 

U.TST6 

U.TTAB 

U.TTYP 

U.TUX 

U.UHVR= 

;j.uic 

U.UNFL  = 

.  ABS. 

DATA 
..BUF 
Error  s 


oono20 

000076 
000u74 
000036 
000005 
000007 
000036 
0000A2 
0000^3 
OOOOAO 
000036 
000060 
000053 
000047 
000100 
000026 
00005A 
000056 
000050 
000046 
000024 
000107 
OOOOAA 
000052 

177776 
002372 
003560 
000002 
detected: 
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U.UNII 

U.UNSZ= 

U.UNTI= 

U.USVR= 

U.UTIL= 

U.VC8  = 

U.VSER= 

U.2MED= 

U2.AT.= 

U2.CRT: 

U2.DH1= 
U2.DJ1= 
U2.DZ1= 
U2.ESC= 
U2.HFF= 
U2.HLD= 
U2.L0G= 
U2.LWC= 
U2.L3S= 
U2.L8S= 
U2.NEC= 
U2.PRV= 
U2.RMT= 


5:28 
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vol 

LOC 


000006 

U2.R04= 

100000 

$DEA16= 

0001U 

U2.3CS= 

000004 

$DEVHD= 

000060 

U2.SLV= 

000200 

$DFN2  = 

000106 

U2.VT5= 

000002 

$ERR2A 

000036 

U2.7CH= 

01000C 

$ERR2B 

000034 

U3.0PA= 

100000 

$ERR2C 

000120 

U3.PAR= 

040000 

$ERR2D 

000070 

U3.UPC= 

020000 

$ERR2E 

000020 

U4.CR  = 

000100 

$ERR2F 

002000 

VAD 

002014R 

$ERR2H 

100000 

VREL 

000200P 

002  $ERR2J 

040000 

V$$CTR= 

001000 

$ERR2K 

000100 

X$$DBT= 

000000 

$ERR2L 

001000 

Z.PCB  = 

#*  V*** 

(iX 

$ERR2M 

010000 

$ALL15= 

****** 

GX 

$ERR2N 

000040 

SAZFS  = 

****** 

fix 

$ERR2P 

000400 

$BFR  = 

****** 

GX 

$ERR2Q 

000001 

SCATS  = 

****** 

GX 

$ERR2R 

000004 

$CLDEQ= 

****** 

GX 

$ERR2S 

010000 

$CLJ0S= 

***   * 

fix 

$ERR2T 

004000 

$CL0PE= 

****** 

fix 

SERR2U 

000010 

$CUR.N= 

****** 

GX 

$ERR2V 

020000 

$C5TA  = 

******* 

GX 

SERR2W 

******  QX 

******  GX 

******  GX 

002204R 

002226R 

002264R 

002322R 

002350R 

002376R 

002434R 

002464R 

002536R 

002600R 

002634R 

002672R 

002706R 

002744R 

003000R 

003052R 

003104R 

0031 56R 

003230R 

003262R 


$£RR2X 
$ERR2Y 
$FEATR= 
002  $GETRV= 
002  SIOSB  = 
002  SLBUF  = 
002  SLLEN  = 
002  SNAME  = 
002  SNLDEV 
""  SPDVA  = 
$PRV.N= 
$PUTRC= 
$RADDR= 
SREAD  = 
$REP.C= 
$REP.P= 
002  SRLBL  = 
002  $R5IZE= 
002  $SAVAL= 
002  $SYMBL= 
002  $TI0UT= 
002  SSDEV  = 
002  $$TBL  ^ 


002 
002 
002 
002 
002 
002 
002 


003334R 
003376R 

****** 
****** 
****** 
****** 
****** 
****** 

OOOOOORG 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


002 
002 


000 
001 
002 
003 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 
(RW,D,lCL,REL,CON) 
(RW,D,LCL,REL,C0N) 


!•*  Assembler  statistics 


0 

0 

12744  Words 

14440  Words 

RSX-11M/PIUS 


Work  file  reads: 
Work  tile  writes: 
Size  ot  work  file: 
Size  0'  core  oool ; 
Operating  system; 

DB2:5DEv!f5o!ci32?n4:i/DEV/CR/-SP=DB2:[l,nRSXI«ICM.SML/ML,[130,1iO]NETLI8/ML,[130,10]RSXMCM/PA:1,[132,103VDEV 


(  50  Pages) 
(  55  Pages) 


^-ccD-a^  AT  ino« 
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VDIS  -  VNP  SHOW  COMMANDS 
LOCAL  DATA 

276  C0170A  000000 


E  15 
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.WORD   0  ;  END  Of  TABLE 


VC 
DL 


MATDn      V/rm      A^K      Mr. 
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VDIS  -  VNP  SHOW  COMMANDS 
DLOTrP  -  SHOW  LOGGING  SINK  TYPE 


E  16 

MACRO  V05.03b  Monday  1!)-Jul-85  12:K  Page  15 


799 

.S8T1L 

DLOTYP  -  SHOW  LOGGING  SIN 

K  TYPE 

800 

801 
802 
803 
804 

+ 

DLOTYP  -  DISPLAY  LOGGING  SINK  TYPE 

805 
806 

INPUTS: 

R5  -  POINTER  TO  SINK  TYPE  TABLE  IF  KNOWN  OR  ACTIVE  LOGGING 

807 

$QUAL 

-  COMMAND  OUALIflERS 

808 

$0PT0N 

-  COMMAND  OPTIONS 

809 
810 

OUTPUTS; 

811 

CARRY 

CLEAR: 

812 

R4 

-  LOGGING  STATE  BIT 

813 
8K 

LOGGING  SINK  TYPE  DISPLAYED  ON  USER'S  TERMINAL 

815 
816 

. 

CARRY  SET: 

LOGGING  SINK  TYPE  NOT  DISPLAYED  (LOGGING  NOT  ACTIVE) 

817 

Rl, 

R2  DESTROYED 

818 

819 

820  00A600 

012701 

000323' 

)LOTYP: 

MOV 

#L0M0N,R1 

ASSUME  LOGGING  MONITOR 

821  00460A 

012704 

000004 

MOV 

#FF.M0N,R4 

■  >  • 

822  004610 

032767 

000100 

OOOOOOG 

BIT 

#OP$MON,$OPT0N 

OPERATE  ON  LOGGING  MONITOR? 

823  004616 

OOIOH 

BNE 

10$ 

BR  IF  YES 

824  004620 

012701 

000340' 

MOV 

#L0CON,R1 

ASSUME  LOGGING  CONSOLE 

825  004624 

012704 

000001 

MOV 

#FF.C0N,R4 

826  004630 

032767 

000400 

OOOOOOG 

BIT 

#0P$C0N,$0PT0N 

OPERATE  ON  LOGGING  CONSOLE? 

827  004636 

001004 

BNE 

10$ 

BR  IF  YES 

828  004640 

012701 

000333' 

MOV 

*L0F1L,R1 

ELSE  MUST  BE  LOGGING  FILE 

829  004644 

012704 

000002 

MOV 

#FF.F1L,R4 

■  •  > 

830  004650 

022767 

000001 

OOOOOOG 

10$: 

CMP 

#QF$ACT,$QUAL 

SHOW  ACTIVE  LOGGING? 

831  004656 

001005 

BNE 

20$ 

BR  IF  NO 

832  004660 

030467 

OOOOOOG 

BIT 

R4.$LGSTT 
20i 

IS  THIS  SINK  TYPE  ACTIVE? 

833  004664 

001002 

BNE 

BR  IF  YES 

834  004666 

000261 

SEC 

ELSE  TYPE  MESSAGE  NOT  DISPLAYED 

835  004670 

000411 

BR 

40$ 

836  004672 

012702 

001034' 

20$: 

MOV 

#TEMP1,R2 

POINT  TO  TEMPORARY  STORAGE  AREA 

837  004676 

112122 

30$: 

MOVB 

(R1)+,(R2)t 

STORE  SINK  TYPE 

838  004700 

001376 

BNE 

30$ 

LOOP  TILL  DONE 

839  004702 

ERRPTS 

L0MSG6,MSG0UT 

DISPLAY  LOGGING  SINK  TYPE 

840  004712 

000241 

CLC 

8A1  004714 

40$: 

RETURN 

ri7L.     M  — _-j  -  , 
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VCEX   -  VNP  LOAD 

CEX   ROUTINES 

LOCAL   DATA 

131 

132 

133  000A02 

123 

124 

134 

135 

136 

137 

138 

139 

UO 

U1    000406 

K2 

H3 

144 

145 

146 

147 

148 

149  000410 

150 

151 

152 

153 

154  000430 

055251 

054374 

155 

156 

157 

158 

159 

160 

161 

162  000434 

000450' 

000000 

163  000440 

124504 

035203 

164   000444 

000000 

OOOOOOG 

165  000450 

000464' 

000000 

166  000454 

124702 

043004 

167  000460 

000000 

OOOOOOG 

168  000464 

000500' 

000000 

169  000470 

125005 

003362 

170  000474 

000000 

0000006 

171   000500 

000514' 

000000 

172  000504 

125714 

042560 

173  000510 

000000 

OOOOOOG 

174 

175 

176 

177 

178 

179 

180  000514 

000526' 

000000 

181   000520 

124473 

007544 

182  000524 

000000 

183  000526 

000540' 

000000 

184  000532 

124473 

006654 

185  000536 

000000 

186  000540 

000000 

000000 

187  000544 

126344 

035115 
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;  SYMBOL  TABLE  EXTENSION 
102  STBEXT;  .ASCIZ  "STB" 
.EVEN 


COMM  EXEC  PCS  ADDRESS  FOR  11M/S,  OR  TEMPORARY  STORAGE  FOR  M-PLUS 
NDF,R$$HPL 


CEXPCB: 


.IF 
.BLKW 
.IFF 
TMPSTR:  .BLKU 
.ENDC 


LOCAL  CLOCK  QUEUE  BLOCK 
CLKQB:   .BLK6   C.LGTH 

NTINIT  RAD50  NAME 
NTINAM:  .RAD50  /NTINIT/ 

RSXlIM  SYMBOLS  USED  FOR  CEX  VALIDATION 


CBLK1: 


VCEX  - 
CEPTR 

'0 
70 
70 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
72 
72 
72 
72 


CBLK3: 


CBLK4: 


CBLIC5: 


.IF   NDF 

R$$MPL 

.WORD 

CBLK3,0 

.RAD50 

"SCLINS" 

.WORD 

C.CLINS 

.WORD 

C6LK4,0 

.RAD50 

"SFRKHD" 

.WORD 

0,.FRKHD 

.WORD 

C8LK5,0 

.RAD50 

"SHEADR" 

.WORD 

0,.HEADR 

.WORD 

XBlKI.O 

.RAD50 

"SSTKDP" 

.WORD 

C.STKDP 

.ENDC 


COMM  EXEC  SYMBOLS  USED  FOR  NON  VECTORED  PROCESS  VALIDATION 


X8LK1: 
XBLK2: 
XBLK3: 


.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.fiAD50 


X8LK2,0 

"SCCBRT" 

0 

XBLK3,0 

"SCCBGT" 

0 

0.0 

"IZTIME" 


VCEX  -  VNP  LOAD  CEX  ROUTINES 


I  nri)    niT4 
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VCEX  - 

rcDTD 


VCEX   -  VNP   LOAD   CEX   ROUTINES 
CEPTR   -    IMT    CETAB  POINTERS 
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:?3 


^07 
708 
709 
710 
711 
712 
713 
7H 
715 
716 
717 
718 
719 
720 
721 
722 
723 


0OU10     012600 

0OU12 

OOU22     0100U 

00U2^ 

00U30 

001A36 

001',46 

00U5A 


001A56     012600 

00U60     012701     000020 

00U6A 

00U70 

001500     000261 

001502 


AOS: 


ERRORS 


101S 


MOV 

(SP)+,RO       ; 

GETRV 

R3 

MOV 

RO,(RA) 

PUTRC 

SUTCHO 

#CLKQB 

PUTRC 

RO 

SWTCHO 

RETURN 

MOV 

(SP)+,RO 

MOV 

#C.LGTH,R1 

CALL 

$DEA16 

ERRPTS 

ERR5,MSG0UT 

SEC 

RETURN 


GET  OUR  ENTRV'S  ADDRESS 

READ  IN  PREVIOUS  ENTRY 

POINT  PREVIOUS  ENTRY  AT  NEW  ONE 

REWRITE  PREVIOUS  ENTRY 

POINT  AT  BUFFERED  NEW  ENTRY 

WRITE  IT  TO  APPROPRIATE  ADDRESS 

SET  BUFFER  TO  DEFAULT 


GET  NODE'S  ADDRESS 
AND  LENGTH 
AND  DEALLOCATE  NODE. 
TASK  ACTIVE 
INDICATE  ERROR 
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VCEX      CREATED  BY  MACRO  ON  29-JIJN-85  AT  02:U 
MACRO  CROSS  REFERENCE 


F  3 

PAGE  6 

CREF   0^.00 


MACRO  NAME 

ASL$ 
CALL 


CALLR 

CLKDFS 

DHBDF$ 

EMSGSR 

ERSLKS 

ERMSGS 

ERRPTS 

GETAD 

GFTR^/ 

NTLDFS 

OPTDfS 

PCBDFS 

PKTOFS 

PUTAD 

PUTRC 

RAND 


RESRG 

RETURN 

SAVRG 

SOB 

SWTCHI 

SWTCHO 

TCBDFS 

VNPBPT 


REFERENCES 

#5-58 

7-292 

8-357 

9-4A6 

13-692 

U-779 

15-864 
#5-59 
#5-59 
#5-59 
#5-58 
#5-59 
#5-59 
#5-59 
#5-58 
#5-58 

U-786 
#5-58 
#5-59 
#5-58 
#5-60 
#5-58 
#5-58 

U-805 
#7-318 
#8-379 
#12-6A3 
#13-710 
#U-805 
#5-60 

7-294 

U-784 
#5-60 

8-383 
#5-60 
#5-58 
#5-59 
#7-290 


7-322 
7-297 
8-358 
9-448 
13-697 
14-781 
15-866 
7-299 
5-68 
5-67 
9-506 
6-94 
6-93 
#7-291 

7-318 

14-789 

5-65 

5-66 

5-64 

5-70 

7-337 

14-837 

7-318 

8-379 

12-643 

13-710 

14-805 

14-742 

8-387 

14-846 

14-736 


11-580 

5-69 

7-291 


7-309 

8-363 

9-453 

13-708 

14-786 

15-867 

7-315 


6-96 
6-95 
13-721 

7-325 


8-350 

#7-325 

#8-385 

#13-685 

#13-712 

#14-837 

14-754 

9-500 

14-851 


11-584 


7-313 

8-366 

9-455 

13-710 

14-789 

8-394 


6-98 
6-97 
14-741 

8-3?'9 


8-363 

7-325 

8-385 

13-685 

13-712 

14-837 

14-782 

10-552 

15-868 


11-61? 


7-318 

8-374 

11-581 

13-712 

14-800 

9-508 


6-100 

6-99 

K-753 

12-636 


8-385 

#7-337 
#11-581 
#13-692 
#14-786 

14-844 
11-619 


13-711 


7-325 

8-379 

11-585 

13-720 

14-801 


6-102 
6-101 
14-781 

12-643 


11-581 

7-337 
11-581 
13-692 
14-786 

14-850 
12-648 


13-713 


7-337 

8-385 

12-636 

13-721 

14-805 


#7-291 
#7-291 
14-843 

13-685 


11-585 

#8-350 
#11-585 
#13-697 
#14-789 


13-714 


14-848 


8-350 

9-408 

12-643 

14-738 

14-837 


8-354 

9-421 

13-670 

14-741 

14-841 


8-355 

9-430 

13-685 

14-753 

14-843 


13-692 


13-710 

8-350 
11-585 
13-697 
14-789 


13-723 


13-697 


13-712 

#8-363 
#12-636 
#13-708 
#14-800 


14-744 


13-708 


14-800 

8-363 
12-636 
13-708 
14-800 


14-756 


»»F1LE"1D««VCFG 
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OPEN  CONFIG  FILE 

446 
447 
448 
449 
450 
451 
452 
453 
454 

455  000730 

456  000734 

457  000740 

458  000744 

459  000750 

460  000754 

461  000760 

462  000762 
463 
464 
465 
466 
467  000764 


012700 
012701 
012702 


105777 
100401 


OOOOOOG 
000000" 
000006' 


OOOOOOG 


.SBTTL 

OPEN  CONFIG  FILE 

OPEN 

-  OPEN 

THE  CONFIC 

FILE 

INPUTS: 

NONE 

OUTPJTS: 

C-BIT= 

SUCCESS/FAILURE 

EN: 

MOV 

MOV 

MOV 

CALL 

CALL 

TSTB 

BMJ 

RETURN 

#$DFUIC, 

#CFGNAM 

#CFGEXT 

$AZFS 

SCLQUE 

aSCLIOS 

101$ 

RO 
R1 
R2 

SETUP  ASCI2  FILE  SPEC 
FOR  CETA3.MAC 


OPEN  THE  CONFIG  FILE 
SUCCESS?  (CLEARS  C-BIT) 
IF  MI,  NO 


ERROR  CONDITION 
101$:   EMSG$R  IP 


OPEN  FAILURE 
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nc  r  nnr\ 


VCFG  -  VNP  SCAN  CONi  iGURAT iON  F 
DDMSDF  STATE  TABLE 

853 
85A 
855 
856 

857  001512 

858  001512 

859  001512 
860 

861  001512 

862  001512 
863 

86A  001512 

865  001512 
866 

867  001512 

868  001512 
869 

870  001512 

871  001512 
872 

873  001512 

874  001512 

875  001512 
876 

877  001512 

878  001512 
879 

880  001512 

881  001512 

882  001512 
883 

884  001512 

885  001512 
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.SBTTL  DDMSDF  STATE  TABLE 
DDM  DEFINITION  (DDMSDF) 
STATES  DDMDF 

TRANS  5;ddmsdfx,ddmi,,i,svnerr 

TRANS   !£DLC$DF5!,,,1,SYNERR 


STATES 
TRANS 

DDM1 
SRAD50,,0. 

NAME 

■  DDM  NAME 

STATES 
TRANS 

<',> 

STATES 
TRANS 

I8ITS 

;  FLAG  BITS 

STATES 
TRANS 

SNUMBR 

;  PRIORITY 

STATES 
TRANS 
TRANS 

lEND.SEXIT 
"  .> 

STATES 
TRANS 

SNUMBR,,P. 

INC 

;  LINE  TABL 

STATES 
TRANS 
TRANS 

:end,sexit 

<'  ,> 

STATES 


TRANS   SNUMBR.SEXIT.D.EXT 


CONTROLLER  TABLE  COUNT 
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VCFG  -  VNP  SCAN  CONFIGURATION  F   MACRO  V05.03b  Monday 
TPARS  ACTION  ROUTINES 


F  6 

15-JUI-85  19:04  Psge  28-1 


1409 

003144 

001345 

BNE 

CHERR 

1410 

003146 

016700 

000152' 

MOV 

UCNT,RO 

1411 

003152 

016701 

OOOOOOG 

MOV 

$SLTA,R1 

1412 

003156 

126100 

noOOOOG 

CMP8 

L.UNT(R1),R0 

1413 

003162 

001003 

BNE 

10$ 

1414 

003164 

016767 

OOOOOOG 

OOOOOOG 

MOV 

.PNUME,$$PCHA 

1415 

003172 

006300 

10$: 

ASL 

RO 

1416 

003174 

016760 

OOOOOOG 

000002G 

MOV 

.PNUMB,$$PCHA+ 

1417 

003202 

RETURN 

1418 

1419 

1420 
1421 
1422 

•  SECONDARY  CSR 

(UNT$DF) 

003204 

032767 

OOOOOOG 

OOOOOOG 

U.SCSR 

BIT 

#FL.LMC,$FLAGS 

1423 

003212 

001440 

BEQ 

111$ 

1424 

003214 

016701 

000152' 

MOV 

UCNT,R1 

1425 

003220 

032767 

OOOOOOG 

OOOOOOG 

BIT 

*fl.k;mx,$flags 

1426 

003226 

001406 

BEQ 

10$ 

1427 

003230 

032701 

000007 

BIT 

??<Si 

1428 

003234 

001027 

BNE 

111$ 

1429 

003236 

006201 

ASR 

R1 

1430 

003240 

006201 

ASR 

R1 

1431 

003242 

000401 

BR 

20$ 

1432 

003244 

006301 

10$: 

ASL 

R1 

1433 

003246 

016700 

OOOOOOG 

20$: 

MOV 

..SCSR.RO 

1434 

003252 

016702 

OOOOOOG 

MOV 

$SLTA,R2 

1435 

003256 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#MS.SEC,$M1SS 

1436 

003264 

001403 

BEQ 

25$ 

1437 

003266 

23$: 

CALL 

GETCSR 

1438 

003272 

103405 

BCS 

101$ 

1439 

003274 

010061 

OOOOOOG 

25$: 

MOV 

R0,$$SCSR(R1) 

1440 

003300 

005267 

000152' 

INC 

UCNT 

1441 

003304 

RETURN 

1442 

003306 

101$: 

EMSG$R 

1L 

1443 

003314 

111$: 

EMSG$R 

1M 

GET  UNIT  COUNT 
AND  SLT  ADDRESS 
IS  THIS  THE  KEY  UNIT? 
IF  NE,  NO 

SAVE  DLC  CHARACTERISTICS 

CONVERT  TO  A  WORD  INDEX 

5)  ;  STORE  PARAMETER  VALUE 


COMIOP  DEVICE? 

IF  EQ,  NO 

Gtl  UNIT  COUNT 

COMIOP  MUX  DEVICE? 

IF  EQ,  NO 

IS  THIS  THE  FIRST,  NINTH,  ETC.? 

IF  NE,  NO 

CONVERT  TO  A  WORD  INDEX 


CONVERT  TO  A  WORD  INDEX 

ASSUME  SECONDARY  CSR  ALREADY  PRESENT 

GET  THE  SLT  ADDRESS 

IS  THE  SECONDARY  CSR  MISSING  ? 

IF  EQ,  NO 

GET  THE  CSR  VALUE 

IF  CS,  ILLEGAL  CSR  VALUE 
STORE  SECONDARY  CSR  VALUE 
;  INCREMENT  UNIT  COUNT 

;  ILLEGAL  SECONDARY  CSR  VALUE 
;  SECONDARY  CSR  NOT  ALLOWED 
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VCFG 


CREATED  BY     MACRO     ON  15-JUL-85  AT    19:06 


SYMBOL    CROSS  REFERENCE 


SYMBOL      VALUE 


MS.VCT 

NAME 

N$$VCT 

OPEN 

PF.PSV 

PF.XDF 

PLTDF 

PL.CHN 

P. EXT 

P. INC 

QADD 

QCNT 

QDDM 

QFEA 

QLLC 

QPLT 

OSLT 

QSTA 

QUNT 

READ 

RTSPC 


R$$EIS 

R$$MPL 

R$$11D 

SCNT 

SETTMO 

SLTDF 

SPACE 

SPEEOT 

SPFILL 

SPSAV 

STADF 

STORID 

ST. APR 

ST.CST 

ST. HTM 

ST.NUM 

SVNERR 

SYSFDB 

S$$BAS 


r       ****** 

000012  R 

-      ****** 

000730  R 


GX 


000356  R 
002130  R 
001652  R 
001576  R 
001124  R 
001140  R 
001132  R 
001154 
001162 
001064 
001072 
001116 
001146 
000772 


GX 
GX 


001330  RG 


~  ****** 
=  ****** 
=  ****** 


000150  R 
003322  R 
000000  R 
000040 
000156  R 
001452  RG 
002702  R 
000244   R 
001332  RG 
002332  R 
002252  R 
002364   R 
002164   R 
002704   RG 
»*».»*     GX 
****** 
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CREF        04.00 


VCFP 
LOCAI 


REFERENCES 


27-128C 

27-1289 

#7-124 

8-266 

25-1073 

33-1616 

8-272 

#9-455 

8-302 

13-632 

11-514 

#25-1199 

#25-1115 

#25-1093 

8-356 

#11-523 

8-330 

#11-527 

8-322 

8-359 

8-377 

#11-525 

8-393 

8-404 

#11-531 

8-385 

#11-533 

8-354 

#11-514 

8-286 

8-320 

8-344 

#11-516 

8-291 

8-352 

#11-521 

8-336 

#11-529 

8-283 

8-288 

8-293 

8-318 

8-328 

8-334 

8-342 

8-350 

8-361 

8-367 

8-375 

8-383 

8-391 

8-402 

8-412 

#10-480 

7-180 

7-181 

7-182 

7-183 

7-184 

7-185 

7-186 

7-187 

7-188 

7-189 

7-190 

7-191 

7-192 

7-195 

7-196 

7-197 

7-198 

7-199 

7-200 

7-201 

7-202 

7-203 

7-204 

7-205 

7-206 

7-207 

7-208 

7-209 

7-210 

7-211 

7-212 

7-213 

7-214 

7-215 

7-216 

7-217 

7-218 

#12-591 

27-1332 

21-906 

27-1339 

27-1332 

#7-152 

*8-264 

25-1217 

*25-1224 

25-1237 

25-1253 

26-1266 

28-1395 

#29-1451 

11-516 

#6-95 

15-692 

#7-161 

29-1467 

13-629 

#15-688 

#7-238 

♦8-263 

12-590 

11-521 

#13-624 

#25-1251 

#25-1232 

#26-1264 

#25-1213 

#7-243 

*11-538 

*11-542 

*25-1087 

•25-1131 

*25-1139 

•25-1158 

•32-1573 

•32-15 

*33-1612 

*33-1617 

7-180 

7-180 

7-181 

7-181 

7-182 

7-182 

7-183 

7-183 

7-184 

7-184 

7-185 

7-185 

7-186 

7-186 

7-187 

7-187 

7-188 

7-188 

7-189 

7-189 

7-190 

7-190 

7-191 

7-191 

7-192 

7-192 

7-193 

7-193 

7-194 

7-194 

7-195 

7-195 

7-196 

7-196 

7-197 

7-197 

7-198 

7-198 

7-199 

7-199 

7-200 

7-200 

7-201 

7-201 

7-202 

7-202 

7-203 

7-203 

7-204 

7-204 

7-205 

7-205 

7-206 

7-206 

7-207 

7-207 

7-208 

7-208 

7-209 

7-209 

7-210 

7-210 

7-211 

7-211 

7-212 

7-212 

7-213 

7-213 

7-214 

7-214 

7-215 

7-215 

VCFG 
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VCFP  -  VNP  PSl  CONFIGURATION  FI  MACRO  V05.0?b  Saturday  29-Jun-85  02:17 
LOCAL  DATA 


?lfi 

?^f 

000017 

;^iH 

000500 

P19 

000517    000 

??v, 

000516' 

?,>^ 

000520 

??? 

000521 

7?'^ 

000522 

??4 

000523 

■??s 

000533 

??(^ 

000534 

r?i 

r?'^ 

000554 

??9 

000556 

?w 

2^1 

2V 

2^1 

000560 

2W 

000561 

P'iS 

000621 

2^^ 

000622 

2^ 

2';K 

2';9 

240 

2A1 

2A2 

000662 

24  < 

000663 

24A 

000703 

24  S 

000704 

24f. 

000^  ^ 

24/ 

000 

2AH 

0007jj 

249 

000734 

2S() 

0CO744 

2S1 

000745 

252 

* 

DARMLN 

-:^  15. 

DSARDT: 

:.BLKB 

DARMLN 

.BYTE 

0 

DARDEN 

DSALCT: 

:.BLKB 

1 

DSAHCT: 

:.BLKB 

1 

DSARCT: 

:.BLKB 

1 

DSARDP: 

:.BLK8 

<DARMLN/2>+1 

DSACGl: 

;.BLKB 

1 

DSACUG: 

:.BLKB 
.EVEN 

MAX  ID 

DSASLO: 

:.8LKW 

1 

DSASHI: 

:.8LKU 

1 

■  DATA 

FOR  D3C$DF  MACRO 

DSCHCT: 

:.BLK8 

1 

OSCMSK: 

:.8LKB 

32. 

DSCVCT: 

:.8LKB 

1 

DSCVAL: 

:.6LKB 

32. 
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MAX  NUMBER  OF  DIGITS  IN  REMOTE  DTE  ADDRESS 

TEMP  STORAGE  FOR  UNPACKED  REMOTE  DTE  ADDRESS 

END  OF  STRING  INDICATOR  FOR  REMOTE  DTE  ADDR 

END  OF  REMOTE  DTE  ADDRESS 

COUNT  OF  DIGITS  IN  LOW  SUBADDRESS 

COUNT  OF  DIGITS  IN  HIGH  SUBADDRESS 

COUNT  OF  DIGITS  IN  REMOTE  DTE  ADDRESS 

PACKED  DTE  ADDRESS  (must  foUow  DSARCT) 

Length  of  CUG  name 

Closed  user  group  name 

LOW  END  OF  SUBADDRESS  RANGE 
HIGH  END  OF  SUBADDRESS  RANGE 


NUMBER  OF  HEX  DIGITS  IN  CALL  DATA  MASK 
CALL  DATA  MASK  (must  follow  DSCMCT) 
NUMBER  OF  HEX  DIGITS  IN  CALL  DATA  VALUE 
CALL  DAIA  VALUE  (must  follow  DSCVCT) 


Data  for  RNW$DF,  RNASDF  and  DSNSDF  macros 

***  Data  fields  must  immediately  follow  length  fields. 


RNTL:: 
RNETWK 
RNNL : : 
RNNODE 
RNUL:: 
RNUSER 
RNPL: : 
RNPASS 
RNAL: : 
RNACCT 


.BLK8 
r.BLKB 

.BLKB 
r.BLKB 

.BLKB 
:.BLK8 

.BLKB 
:.BLKB 

.BLKB 
:.BLKB 

.EVEN 


MAX  ID 

MXNOID 

MXACUS 

MXACPA 

MXACAC 


Network  name  length 
Network  name 
Remote  node  length 
Remote  node  name 
User  name  length 
User  name 
Password  length 
Password 
Account  length 
Account 


:**-2 


.•CTD001] 
;CTD001] 
;[TD001] 


;CTD001] 
;[TD001] 
;[TD001] 
;CTD001] 
.•CTDOOl] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD00n 
;[TD001] 
;[TD001] 
;CTD001] 
.-CTDOOl] 
;[TD001] 
; CTDOOl] 
.-CTDOOl] 
; CTDOOl] 
;**-3 
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FNOPDV  -  FIND  PDV 


640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 

654  001202 

655  001202 

656  00^204 

657  001210 

658  001214 

659  001216 

660  001220 

661  001222 

662  001226 

663  001230 

664  001234 

665  001236 

666  001240 

667  001242 

668  001244 

669  001250 

670  001252 


.SBTTL  FNDPDV  -  FIND  PDV 


FNDPDV  -  TRY  TO  FIND  PDV 

INPUTS: 

R0=RAD50  PDV  NAME 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
RG=PDV  ADDRESS 
R1=PDV  INDEX 
R2=DESTR0YED 


010046 

016701  OOOOOOG 

016702  OOOOOOG 
001407 

012100 

001403 

026016  OOOOOOG 

001403 

000261 

005226 

006016 

005741 

166701   OOOOOOG 

006316 


FNDPDV: 


10$: 


20$ 
30$ 
40$ 


MOV 
MOV 
MOV 
BEQ 
MOV 
BEQ 
CMP 
BEQ 
SOB 
SEC 
INC 
ROR 
TST 
SUB 
ASL 
RETURN 


RO,-(SP) 

$PDVTA,R1 

$PDVNM,R2 

30$ 

(fil)+,RO 

20$ 

Z.NAM(RO), 

40$ 

R2,10$ 

(SP)  + 

(SP) 

-(R1) 

$PDVTA,R1 

(SP) 


(SP) 


save  name  to  be  matched 
get  pdv  table  address 
and  number  of  pdv's 
if  zero,  no  pdvsi 
get  pdv  address 
if  zero,  skip  this  one 
does  the  name  match? 
if  eq,  ves  (c-bit  clear) 
loop  $pdvnm  times 
indicate  failure 
purge  stack 
save  c-bit 
calculate  pdv  index 

restore'c-bit 


VCFP 

MACR( 

MACR( 

ASL$ 
CALL 


CALLI 
CEACi 
EMSG' 
GETAI 
GETR' 
ISTA 
NTlEI 

RAND 
REJ$ 
RESR' 
RETUi 

SAVR 

SLTD 

SOB 

STAT 

TRAN 

VNPD 
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MACRO   CROSS   REFERENCE 
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PAGE   6 

CREf       OA.OO 


MACRO  NAME 

ASL$ 
CALL 


CALLR 

CEACCS 

EMSGSR 

GETAD 

GETRV 

ISTATS 

NTlERS 

RAND 
REJ$ 
RESRG 
RETURN 

SAVRG 

SLTDFS 

SOB 

STATES 

TRANS 

VNPDBG 


REFERENCES 

#5-63 

9-304 

9-337 

9-373 

11-4A6 

16-537 

13-516 
*5-64 
#5-63 
#5-64 
#5-64 
#5-63 
#5-63 

8-268 
#'6-628 
#5-75 
#5-64 

9-398 

16-638 
#5-64 
#5-64 

17-663 
#5-63 
#5-63 
#5-65 


15-604 

9-307 

9-339 

9-375 

12-477 

18-692 

16-632 
9-403 
16-633 
16-628 

8-259 
8-269 
16-628 


10-426 
17-670 


9-308 

9-346 

9-377 

12-482 

19-734 


9-404 


8-260 

8-270 

#16-635 


11-451 
18-696 


9-310 

9-348 

9-379 

12-495 

19-753 


9-405 


8-261 
8-271 
16-633 


12-501 
19-755 


9-314 
9-350 
9-383 
12-498 


9-406 


8-262 
-8-272 


14-529 
19-758 


9-316 
9-352 
9-385 
13-513 


9-407 


8-263 
8-273 


14-536 
20-781 


9-321 
9-359 
9-387 
14-527 


10-431 


8-264 
8-274 


14-543 
21-803 


9-328 
9-361 
9-396 
16-628 


11-461 


8-265 
8-275 


14-562 


9-333 
9-365 
10-422 
16-632 


11-462 


8-266 
8-276 


14-575 


9-335 
9-367 
10-423 
16-633 


14-547 


8-267 


15-612 


5-67 


9-303 


»F  u  p»«in»«unn 
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"FILE 

••ID' 

•VCLORM 

vv 

VV 

CCCCCCCC 

QQQQOQ 

vv 

VV 

CCCCCCCC 

QQQQQQ 

vv 

VV 

cc 

QQ      QQ 

vv 

vv 

cc 

QQ      QQ 

vv 

vv 

cc 

QQ      QO 

vv 

vv 

cc 

QQ      00 

vv 

vv 

cc 

00      00 

vv 

vv 

cc 

00      QQ 

vv 

vv 

cc 

00  OQ   QQ 

vv 

vv 

cc 

QQ  OQ   00 

vv 

vv 

cc 

QQ    00 

vv 

vv 

cc 

00    OQ 

vv 

CCCCCCCC 

LLLLLLLLLL 

QOOQ   QQ 

vv 

CCCCCCCC 

LLLLLLLLLL 

QQQQ   00 

ssssssss 

TTTTTTTTTT 

ssssssss 

TTT 

TTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLL 

LLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

f  11 


RRRRRfiRR 
RRRRRRRR 
RR      RR 
RR      RR 
RR      RR 
RR      RR 
RRRRRRRR 
RRRRRRRR 
RR  RR 
RR  RR 
RR    RR 
RR    RR 
RR      RR 
RR      RR 


MM  MM 

MM  MM 
MMMM  MMMM 
MMMM  MMMM 

MM  MM  MM 

MM  MM  MM 

MM  MM 

MM  MM 

MM  MM 

MM  MM 

MM  MM 

MM  MM 

MM  MM 

MM  MM 


VCLQR 
SYMBO 
SYMBO 

OPtog 

OPSPA 

OP$PR 

OP$RE 

OP$RP 

OPSSC 

OP$SE 

OPSSE 

0P$5I 

OPSST 

OP$TP 

OPSTR 

OPtUC 

OPSUS 

OPSVE 

OP$VE 

OPSX/i 

OPSXF 

0P$X5 

OP$X? 

QF$AC 

QFSAL 

QFSKN 

OF$LC 

ROB 

SYSFC 

TYSCF 

TY$E\ 

TYSSl 

TYSSl 

wc.cr 

WC.E\ 
WC.Tf 
iJC.U' 
Z.DSF 
Z.NAf 
$BFR 
$CEX( 
$DEA- 
$GET( 
$PDVI 
$PDV 
SPUTI 
$RADI 
.CLKI 
.MGM( 
.PDV 
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-iriwnwr     CMTniirc     roriM     r\      MATDn     \ir\'^     i^7.h     <::at-r.rHav     ?0-^In-R'^     HP-lfi 


VCLQRNI  CREATED  BY     MACRO     ON  29-JUN-85   AT   02:18 

SYMBOL    CROSS   REFERENCE 


f  12 

PAGE   4 

CREF        OA.OO 


SYMBOL 

VALUE 

REFERENCES 

OPtOWN 

=  000020 

#5-59 

OPtPAR 

=  000010 

#5-59 

OPSPRI 

=  000010 

#5-59 

OP$RET 

=  010000 

#5-59 

OP$RPA 

^  000010 

#5-59 

OPSSCO 

=  000001 

#5-59 

OPSSEG 

=  000400 

#5-59 

OPSSER 

=  000400 

#5-59 

OPSSIN 

=  000010 

#5-59 

OPSSTA 

=  000004 

#5-59 

OPSTPA 

=  000020 

#5-59 

OP$TR! 

=  000040 

#5-59 

OPSUCS 

=  000020 

#5-59 

OPSUSE 

=  000002 

#5-59 

OP$VEC 

=  000040 

#5-59 

OPSVER 

=  000040 

#5-59 

OPSXAC 

=  000001 

#5-59 

OP$XPR 

=  000002 

#5-59 

0P$y5S 

=  000004 

#5-59 

0P$X9S 

=  000010 

#5-59 

QFSACT 

=  000001 

#5-59 

QFSALL 

=  000002 

#5-59 

QFSKNO 

=  000004 

#5-59 

QFSLOO 

=  000010 

#5-59 

RQB 

=   *****«: 

GX 

7-106 

SYSFDB 

-   ****** 

GX 

•  7-94 

♦7-101 

TYSCHA 

=  000^00 

#5-59 

TY$EVE 

=  001000 

#5-59 

TYSSTA 

=   002000 

#5-59 

TYSSUM 

-  000000 

#5-59 

WC.CNT 

=  000^00 

#5-59 

WC.EVE 

=  OOAOOO 

#5-59 

WC.TRl 

-   002000 

#5-59 

WC.UNT 

=   001000 

#5-59 

Z.DSP 

=   ****** 

GX 

7-120 

Z.NAM 

~    ****** 

GX 

8-165 

$BFR 

=  ****** 

GX 

7-92 

SCEXNU 

-  ****** 

GX 

7-113 

$DEA16 

r  ****** 

GX 

7-134 

SGETRV 

r  ****** 

GX 

7-94 

7-101 

SPDVNM 

r  ****** 

GX 

8-161 

SPDVTA 

-■  **♦*  +  ♦ 

GX 

7-113 

8-160 

SPUTRC 

-  ****** 

GX 

7-129 

tRADDR 

-  ****** 

GX 

*7-94 

*7-101 

.CLKHD 

-  ****** 

GX 

7-93 

.MGMGE 

~  ****** 

GX 

7-116 

.PDVTA 

-     ****** 

GX 

7-110 

VDEV 
DVSYM 

3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


7-127 


«7-127 


V/n    ADM 


rDCATtin   Qv      Marcjn     nM   ■?Q-iiiW-S'i    AT    OP-IS 
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VDEV  -   VNP  LOAD  DEVICE    STRUCTUR  MACRO   V05.03b   Tuesday  03-Sep-85   10:28 
DVSYM  -   DEFINE    SPECIAL    SYMBOLS 


363  000606 
36A  000610 

365  000616 

366  000620 

367  000622 
368 

369 
370 
371 

372  00062A 

373  000630 


103757 

000752 
005A02 


016000  00015V 


50$: 
60$: 

BLO     30$ 
EMSG$   2P 
BR     25$ 
NEG     R2 
RETURN 

■  ERROR 

CONDITIONS 

l01$: 

MOV     ETAB-2(R0),R0 
CALLR   a(R0)t 

Page  10-1 


IF  LO,  YES 

PRINT  ERROR  MESSAGE 

SET  C-8IT  IF  ANY  ERRORS  OCCURRED 


GET  ERROR  MESSAGE  BLOCK  ADDRESS 
PRINT  ERROR  MESSAGE 


I  nAPi    ncwTrc     CTDiirTiiD    MAfon    ^iClK    O^h    TiidcHa\ 
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VDEV 


CREATED  B*  MACRO  ON  3-SEP-85  AT  10:28 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


BASE 

DBLKI 

DBLK2 

DCB 

DEVBUF 


DNAME 

DSKBUF 

DUMMY 

DVALL 

DVDEA 

DVERR 


DVLBL 

DVSYM 

OVXFR 

D.DSP 

D.NAM 

D.PCB 

D.UCB 

D.UCBL 

D.UNIT 

ERRBUF 

ERRMSG 

ETAB 

FIND 

FMT4 

FMT4A 

FMT6 

FMT9 

FM.4 

FM.'.A 

FM.6 

FM.9 

FOUND 

F.NRBD 

F.RSIZ 

F.URBD 

LENGTH 

LSBFLG 

LSBLDZ 

LSBMXZ 

LSBSA 

PBUF 

PLEN 
REP'iA 

rep';ai 

REP'iA? 


000170  R 
000126  R 
OOOUO  R 
000150  R 
00020A  R 


000004  R 
000000  R 
000152  R 
000772  R 
002K2  R 
002054  R 


000632 
000372 
001116 

-  * •*♦ t* 
=  ****** 

r  ****** 
=  ****** 
=  ****** 


000017 
000007 
000156 
000242 
003461 
003420 
003511  R 
003532  R 


R 

R 

R 
GX 
GX 
GX 
GX 
GX 
GX 


000000 
000000 
000000 
000000 
000166  R 
******  GX 
♦«♦•»*  GX 
******  GX 
000136  R 
...*«.  GX 
».***»  GX 
..**.*  GX 
*»»**.  GX 
000174  R 

000176  R 

002214  R 

002224  R 

002264  R 


REFERENCES 

#6-123 
#6-95 

6-95 
#6-100 
#6-142 

9-279 

13-581 
#6-81 
#7-184 
#6-105 

8-219 

7-158 

7-148 

7-157 

7-166 

8-217 

8-213 

8-221 
♦8-227 

9-282 

8-226 

8-230 

8-231 

9-291 
#6-88 
#6-86 
#6-110 

8-211 

7-149 

7-148 

7-153 

7-157 
#7-176 
#7-149 
#7-148 
#.-153 
#7-157 
#6-118 
♦8-209 
♦8-226 
♦8-210 
#6-97 

11-402 

11-404 

11-404 

11-406 
#6-133 

13-600 
#6-134 

7-148 

7-169 

16-710 


♦11-406 
10-332 
#6-98 
8-225 
8-209 
9-282 
♦13-583 
♦10-327 
11-399 
8-261 
#12-437 
7-161 
7-149 
7-158 
7-167 
#11-390 
#10-324 
#13-488 
9-288 
♦13-500 
♦8-229 
13-512 
13-557 
9-293 
14-652 
14-664 
10-372 
#9-277 
7-150 
7-159 
7-154 
7-161 

#7-150 
#7-159 
#7-154 
#7-161 
8-215 
♦8-254 
♦8-233 
♦C-255 
♦10-351 


♦12-447 
13-631 

♦12-448 
7-159 

#16-711 

#16-723 


11-407 
10-344 
12-453 

♦10-337 
8-210 
9-288 
13-585 

♦10-328 

♦10-336 

7-162 
7-150 
7-159 
7-168 


13-495 

13-489 
7-160 


F   K 
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VDl 
LOC 


12-452 
10-347 

13-498 
♦8-227 

9-291 
♦13-597 

10-329 


7-163 
7-151 
7-160 
7-169 


13-625 


♦8-229 

9-293 

♦13-601 


7-164 

7-152 

7-161 

#14-650 


13-563 

13-562 
#16-708 


13-569 
13-565 


8-230 
12-445 

15-691 


7-165 
7-153 
7-162 


9-281 

13-580 

♦13-522 

13-502 

13-504 

7-151 

7-152 

#7-174 

7-160 

7-169 

#7-173 

7-155 

7-156 

7-158 

#7-175 

7-162 

7-163 

7-164 

7-165 

#7-151 

#7-152 

#7-60 

#7-169 

#7-55 

#7-156 

#7-158 

#7-162 

#7-163 

#7-164 

#7-165 

♦9-286 

10-337 

♦12-441 

♦12-445 

♦13-575 

♦  13-57 

•8-250 

♦9-281 

♦12-442 

♦12-446 

♦15-688 

♦  15-69 

10-362 

♦11-407 

12-438 

♦13-573 
13-566 


8-231 

12-446 

15-692 


7-166 
7-154 
7-163 


♦8-234 
13-490 


7-167 
7-155 
7-164 


♦9-278 
13-564 


#15-685 
7-156 
7-165 


7-166 


#7-166 
♦15-689 


♦13-578 
13-570 


7-167 


#7-167 
♦15-692 


13-593 

♦13-572 


7-168 


#7-168 


13-597 
♦13-579 


rDCATCrv     DV 
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VDIS  -  VNP  SHOW  COMMANDS 
LOCAL  SYMBOLS 


278 

?79 

280 

281 

282 

285 

28^ 

28S 

286 

287 

288 

289 

000C42 

290 

291 

292 

293 

294 

000036 

295 

296 

297 

298 

299 

000040 

300 

000054 

301 

000055 

302 

000056 

303 

000057 

304 

30S 

000100 

306 

000010 

307 

000044 

308 

000040 

309 

000050 

310 

000020 

311 

312 

313 

3U 

001034- 

315 

001044' 

316 

001046' 

317 

001204' 

318 

001205' 

319 

320 

321 

322 

323 

000001 

324 

000002 

325 

000004 
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.SBTTL  LOCAL  SYMBOLS 

;  + 

•  LOCAL  SYMBOLS 

•  LEMGTH  OF  UC8 

U.LEN  =  34. 

LENGTH  OF  DCB 

D.LEN  =  30. 

ASCII  CHARACTERS 

SPACE  =  40 
COMMA  =  54 
DASH  =  55 
PERIOD  =  56 
SLASH  =  57 

MSKLEN  =  64. 
MXDTEA  =  8. 
RCVLNG  =  36. 
MXCALL  =  32. 
MXACCT  =  40. 
MAXID  =  16. 

OFFSETS  INTO  TEMPORARY  STORAGE  AREA 

EVTMSK  =  TEMPI 
GCLASS  =  EVTMSKtIO 
GEVMSK  =  GCLASS+2 
BITNUM  =  TEMP3t2 
PREVNT  =  BITNUM+1 

;  FLAGS  BIT  DEFINITION 

F.STRT  =  1 
F.PREV  =  2 
F.FND  =  4 


VC 
DL 


LENGTH  OF  UCB 


LENGTH  OF  DCB 


ASCII  SPACE 

ASCII  COMMA 

ASCII  DASH 

ASCII  PERIOD 

ASCII  SLASH 


NUMBER  OF  BITS  IN  EVENT  MASKS 
MAXIMUM  NUMBER  OF  BYTES  IN  DTE  ADDR 
LENGTH  OF  PACKET  TO  QUE  TO  NTINIT 
MAX  BYTES  IN  DESTN.  CALL  MASK/DATA 
MAX  BYTES  IN  USER+PASSWORD+ACCOUNT 
MAX  LENGTH  OF  NET.  MGMT.  'ID-STRING' 


EVENT  MASKS 

GLOBAL  EVENT  CLASS 

GLOBAL  EVENT  MASKS  FOR  GLOBAL  CLASS 

EVENT  MASK  BIT  NUMBER  BEING  PROCESSED 

LAST  EVENT  NUMBER  DISPLAYED 


FORMATTING  HAS  STARTED 
PREVIOUS  BIT  IN  MASK  WAS  SET 
COMPONENT  HAS  BEEN  FOUND 


CTDOOI] 
CTD001] 
CTDOOI] 


MATDn    \ir\t:    n7K    m^ 


6  15 

-fi";  15-1Z. 


c 


VDIS  -  V 
DLOSTA  - 

8^5 

845 
8^.6 
8A7 
8A8 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 


NP  SHOW  COMMANDS 
DISPLAY  LOGGING  STATE 


F  16 

MACRO  V05.03b  Monday  15-Jul-85  12:14  Page  14 

.SBTTL  DLOSTA  -  DISPLAY  LOGGING  STATE 


DLOSTA  -  DISPLAY  LOGGING  STATE 

INPUTS: 

R4  -  LOGGING  STATE  BIT 

OUTPUTS: 

LOGGING  STATE  MESSAGE  DISPLAYED  ON  USER'S  TERMINAL 


R2,fi3  DESTROYED 


004716 
004722 
004726 
004752 
004734 
004740 
0047^.2 
004744 
004754 


012703 
012702 
030467 
001002 
012702 
112225 
001576 


001034' 
000064' 
OOOOOOG 

000077- 


DLOSTA: 


10$: 


MOV 
MOV 
BIT 
BNE 
MOV 

Move 

BNE 

ERRPTS 

RETURN 


#TEMP1,R3 

#0N,fi2 

R4,$LGSTT 

loi 

#0FF,R2 
(R2)+,(R3)+ 
10$ 
L0MSG2,MSG0UT 


GET  STORAGE  FOR  STATE 

ASSUME  STATE  IS  ON 

IS  LOGGING  ON? 

BR  IF  YES 

ELSE    STATE    IS  OFF 

STORE    STATE 

DisPLAY  STATE  MESSAGE 


i/AC   A"Zk 


G  16 

-fi";  10.1/. 


VCEX  -  VNP  LOAD 

CEX  ROUTINES 

LOCAL  DATA 

188  000550 

000000 

189 

190 

191 

19? 

195  000552 

000564' 

OOOOOO 

194  000556 

124473 

007544 

195  000562 

OOOOOO 

196  000564 

000576- 

OOOOOO 

197  000570 

124473 

006654 

198  000574 

OOOOOO 

199  000576 

OOOOOO 

OOOOOO 

200  000602 

126344 

035115 

201  000606 

OOOOOO 

202 

203 

204 

205 

206  100610 

000622' 

OOOOOO 

207  000614 

124520 

023547 

208  000620 

OOC'^OO 

209  000622 

OOl JOO 

OOOOOO 

210  000626 

125721 

074375 

211  000632 

OOOOOO 

212 

213 

214 

215 

216  000634 

000646' 

OOOOOO 

217  000640 

125504 

106242 

218  000644 

OOOOOO 

219  000646 

000660' 

OOOOOO 

220  000652 

125704 

077412 

221  000656 

OOOOOO 

222  000660 

000672' 

OOOOOO 

223  000664 

125254 

012742 

224  000670 

OOOOOO 

225  000672 

000704' 

OOOOOO 

226  000676 

074264 

077554 

227  000702 

OOOOOO 

228  000704 

OOOOOO 

OOOOOO 

229  000710 

062266 

077554 

230  000714 

OOOOOO 

231 

232 

233 

234 

235  000716 

OOOOOOG 

236  000720 

OOOOOOG 

237  000722 

OOOOOOG 

238  000724 

OOOOOOG 

239 

240 

241 

242 

243  000726 

OOOOOOG 

244  000730 

000101 
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.WORD   0 


COMH  EXEC  SYMBOLS  USED  FOR  VECTORED  PROCESS  VALIDATION 

VX8LK1:  .UORD  VX8LK2,0 

.RAD50  "SCCBRT" 

.WORD  0 

VXBLK2:  .WORD  VXBLK3,0 

.RAD50  "SCCBGT" 

.WORD  0 

VXBLK3:  .WORD  0,0 

.RAD50  "SZTIME" 

.WORD  0 


COMM  EXEC  SYMBOLS  USED  TO  INITIALIZE  VARIABLES 

IBlKI:   .word  I8LK2,0 

.RAD50  "SCXFLG" 

.WORD  0 

IBLK2:   .WORD  0,0 

.RAD50  "iSYSNM" 

.WORD  0 

E  THE  COMM  EXEC 


';  CETAB 

SYMBOLS 

TO  INITI/ 

'.PDVTB: 

.WORD 

. SLTMB, 0 

.RAD50 

"SPDVTB" 

.WORD 

0 

.SLTMB: 

.WORD 

. LLCTB, 0 

.RAD50 

"SSLTMB" 

.WORD 

0 

.LLCTB: 

.WORD 

SLTTOT, 0 

.RAD50 

"SLLCTB" 

.WORD 

0 

SLTTOT: 

.WORD 

PDVTOT, 0 

.RAD50 

"SLTTOT" 

.WORD 

0 

PDVTOT: 

.WORD 

0,0 

.fiAD50 

"PDVTOT" 

.WORD 

0 

■  SYMBOL 

TABLE 

ERRORS 

ETABl: 

.WORD 

$ERR44 

.WORD 

$ERR45 

.WORD 

$ERR46 

.WORD 

$ERR47 

;  PROCESS  I/O  ERRORS 

ETAB2: 

.WORD 

$ERR51 

.WORD 

101 

OPEN  FAILURE 
READ  FAILURE 
READ  OVERFLOW 
BAD  STB  FORMAT 


OPEN  FAILURE 

GET  ATTRIBUTES  FAILED 
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VCEX  - 
CEPTR 


VNP  LOAD  CEX  ROUTIMES 
-  INIT  CEIAB  POINTERS 


725 
726 
727 
728 
729 
730 
731 
732 
733 
"3i. 
735 

736  001504 

737  001506 

738  001512 

739  001516 
7';0 

7A1   001520 

7U2  001530 

7i,l  001532 

744  001534 

745 

746  001536 

747 

748 

749  001536 

750  001544 

751  001546 

752  001554 

753  001556 

754  001566 

755  001570 

756  001572 
757 

758 

75° 

760 

761 

762 

763  001574 

764 

765 

766  001600 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778  001604 

779  001604 

780  001610 

781  001612 
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RUNNTl    -   QUEUE    SET   CEX    FUNCTION   TO  NTINIT 

INPUTS   - 

NONE 

OUTPUTS   - 

SEND   DATA  PACKET   QUEUED    TO  NTINIT 


012700     000430' 
103007 

000261 


032767     OOOOOOG 

001413 

032767  002000 

001007 


RUNNTl 


SAVRG  <R0> 

MOV  #NTINAM,R0 

CALL  TSK5CH 

BCC  10$ 


ERRPTS 
RESRG 
SEC 
RETURN 


ERRl.HSGOUT 
<R0> 


SAVE  ERROR  CODE 
GET  NTINIT  RAD50  ADDRESS 
GET  TC8  ADDRESS 
BR  IF  FOUND  IT 

ELSE  TASK  NOT  INSTALLED 
RESTORE  REG 
INDICATE  ERROR 


10$: 


.IF  NDF  R$$MPL 


;CMP013 


OOOOOOG 
000034G 


#VF.SS,$VFLAG   ;  S-SYSTEM  ? 
20$  ;  NO 

#T2.FXD,T.ST2+$BFR;  IS  TASK  FIXED 


000261 


016705  OOOOOOG 
012701  000044 


BIT 

BED 

BIT 

BNE 

ERRPT$ 

RESRG 

SEC 

RETURN 


.ENDC  ;  NDF  R$$MPL 


20$ 

ERR2,MSG0UT 

<fiO> 


QUEUE    SEND   D, 
3$:  MOV 


iTA   TO  NTINIT 
$RADDR,R5 


BR  IF  YES 
ELSE  ERROR 
RESTORE  REG 
INDICATE  ERROR 


TCB  ADDRESS 


.IF  NDF  R|$MPL 

MOV 

.IFF 


103007 


30$: 
40$: 


MOV 
.ENDC 

.IF  DF 

BIT 

BEQ 

CALL 

BCC 

BR 

.ENDC 

CALL 

BCC 

ERRPT$ 


#36., R1 
*<13.+8.+37.>, 


Rl 


R$$MPL 

#DF.POL,$DFLAG 

30$ 

.ALSPK 

50$ 

40$ 


$ALL15 

50$ 

ERR3,MSG0UT 


SIZE  OF  SEND  DATA  I/O  PACKET 
;  ALLOCATE  VARIABLE  SIZE  PACKET 

SECONDARY  POOL  SUPPORTED 

ALLOCATE  DATA  PACKET  FROM  SEC.  POOL 
IF  SUCCESS  -  BRANCH 
IF  FAILURE  -  BRANCH 


GET  1/0  PACKET 

BR  IF  SUCCESS 

ELSE  NODE  POOL  EMPTY 


.-EMPOl] 


;[MP01] 

;[MP01] 

; CMPOl ] 

;CHP01] 
; CMPOl ] 
; [MP01 ] 
; CMPOl] 
; CMPOl] 
; CMPOl] 
.-CMPOl] 


VCEX  -  VNP  LOAD  CEX  ROUTINES 
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»*FILE"1D"VCFG 


VCFG 
READ 


vv 

vv 

CCCCCCCC   F 

FFFFFFFFF 

GGGGGGGG 

vv 

vv 

CCCCCCCC   F 

FFFFFFFFF 

GGGGGGGG 

vv 

vv 

CC          F 

GG 

vv 

vv 

CC          F 

GG 

vv 

vv 

CC          F 

GG 

vv 

vv 

CC          F 

GG 

vv 

vv 

CC          F 

FFFFFFF 

GG 

\/v 

vv 

CC           F 

FFFFFFF 

GG 

vv 

vv 

CC           F 

G(i 

GGGGGG 

vv 

vv 

CC           F 

GG 

GGGGGG 

vv 

vv 

CC          F 

GG 

GG 

vv 

vv 

CC           F 

GG 

GG 

vv 

CCCCCCCC    F 

GGGGGG 

vv 

CCCCCCCC    F 

GGGGGG 

LL 

5SSSSSSS 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

.L 

ss 

-L 

ss 

LL 

ss 

S 

ss 

-L 

ssssss 

LL 

ssssss 

.L 

ss 

LL 

ss 

LL 

ss 

-L 

ss 

.LLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

A69 
470 
A71 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
48! 
484 
485 
486 
487 
488 
48S 
49C 
491 
49<: 
49! 
49^ 
491 
49( 
49; 
49! 
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VCFG  - 


G  4 

VCFG  -  VNP  SCAN  CONFIGURATION  F  MACRO  V05.03b  Monday  15-Jul-8;  19:04  Page  10 
READ  -  READ  NEXT  RECORD 


469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 

480  000772 

481  001000 

482  001006 

483  001012 

484  001016 

485  001024 

486  001026 

487  001030 
488 

489 
490 
491 

492  001032 

493  001036 

494  001040 

495  001042 

496  001046 

497  001050 

498  001056 


012767 
012767 

016700 
016067 
105710 
100401 


122710 
000261 
001773 
122710 
001403 


.SBTTL  READ  -  READ  NEXT  RECORD 
READ  -  READ  NEXT  RECORD  FROM  CONFIG  FILE 


002472'  OOOOOOG  READ 
000204  OOOOOOG 


OOOOOOG 
000002 


002700' 


10$: 


INPUTS: 

NONE 

OUTPUTS: 

C-BJT 

^SUCCESS/FAILURE 

CFGSZ 

=RECORD   LENGTH 

AD :        MOV 

#CFGBF 

,$CLBUF 

MOV 

#132., 

tCLSIZ 

CALL 

SGCLEP 

MOV 

SCLIOS 

,R0 

MOV 

2(fi0), 

:fgsz 

TST6 

(RO) 

BMI 

101$ 

RETURN 


OOOOOOG 
OOOOOOG 


ERROR  CONDITIONS 


101$: 


,11$: 


CMPB 

*IE.EOF,(RO) 

SEC 

BEQ 

10$ 

CMPB 

#  E.fiBG,(RO; 

BEQ 

1  n 

EMSG$R 

IQ 

EMSG$R 

1R 

SET  GCL  BUFFER  ADDRESS 
AND  BUFFER  SIZE 
READ  NEXT  RECORD 
GET  GCL  lOSB  ADDRESS 
SET  RECORD  LENGTH 
SUCCESS?  (CLEARS  C-BIT) 
IF  MI,  NO 


IS  IT  END  OF  FILE? 

ASSUME  THAT  IT  IS 

IF  EQ,  YES  -  RETURN  WITH  C-BIT  SET 

IS  IT  BUFFER  TOO  SMALL? 

IF  EO,  YES 

READ  FAILURE 

READ  OVERFLOW 
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CNTSDF  STATE  TABLE 


887 
888 
889 
890 

891  001512 

892  001512 

893  001512 
89A  OCT  51 2 

895  001512 

896  001512 

897  001512 

898  001512 

899  001512 

900  001512 

901  001512 

902  001512 

903  C01512 

904  001512 
905 

906 

907  001512 

908  001 51 2 
909 

910 
911 
912 
913 
9U 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 


.SBTTL     CNTSDF    STATE   TABLE 
CONTROLLER  DEFINITION   (CNTSDF) 


STATES 

CNTDF 

TRANS 

JiCNTSDF%,,,1,SYNERR 

STATES 

;  CONTROLLER  NUMBER 

TRANS 

$NUM8R,,C.CTL 

STATES 

TRANS 

<',> 

STATES 

;  VECTOR 

TRANS 

SNUMBR,,C.VECT 

STATES 

TRANS 

<',> 

STATES 

;  CSR 

TRANS 

SNUMBR,  .C.CSR 

STATES 

TRANS 

<'  ,> 

.IF  NDF 

RSSMPL 

STATES 

;  INTERRUPT  PRIORITY 

TRANS 

SNUMBR, SEXIT.C.PRI 

.IFF 

STATES 

;  INTERRUPT  PRIORITY 

TRANS 

SNUMBR,, C.PRI   ;  INTERRUPT  PRIORITY 

STATES 

TRANS 

<'  ,> 

STATES 

;  UNI BUS  RUN  MASK 

TRANS 

SNUMBR, RCDV,C.URM,1,UMRFL 

TRANS 

SLAMDA         ;  ALLOW  FOR  NON-MULTIPROCESSOR 

STATES 

RCDV 

TRANS 

<',>, 

STATES 

;  RECONFIGURATION  DEVICE 

TRANS 

$ALPHA,,C.RCD1 

STATES 

TRANS 

SALPHA,SEXIT,i.RCD2 

.ENDC 


;[MP01] 


;[MP01] 
;[MP01] 
; [MP01 ] 
;CMP01] 
;[MP0i: 
;[MP01] 

;[MP01] 
; CMP01 ] 
;[MP01] 
; CMP01 ] 
; CMP01 ] 
; [MP01 ] 
; [MP01 ] 

;[MP01] 
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TPARS  ACTION  ROUTINES 


HAS 

HA6 

;  SETTMO  -  SET 

UP  TIMEOUT  VALUE 

KA7 

HAS 

;  INPUTS: 

KA9 
1450 
1451  003522 

RO  -  UNIT  NUMBER 

SETTMO 

:  SAVRG 

<R0,R1> 

1452  003326 

016746 

OOOOOOG 

MOV 

.PNUMB,-CSP) 

1453  003332 

042716 

177770 

BK 

#*C<7>,(SP) 

1454  003336 

022726 

000001 

CMP 

#C1.DCP,(SP)t 

1455  003342 

001065 

BNE 

40$ 

1456  003344 

126-'00 

OOOOOOG 

CMPB 

L.UNT(R1),R0 

1457  003350 

001003 

BNE 

5$ 

1458  003352 

016746 

OOOOOOG 

MOV 

$$DCHA,-(SP) 

1459  003356 

000404 

BR 

7$ 

1460  003360 

006300 

5$: 

ASL 

RO 

1461  003362 

006300 

ASL 

RO 

1462  003364 

016046 

000004G 

MOV 

$$DCHA+4(R0),-(SP) 

1463  003370 

000316 

7$: 

SWAB 

(SP) 

1464  003372 

042716 

177760 

BIC 

#*C<17>,(SP) 

1465  003376 

011602 

MOV 

(SP),R2 

1466  003400 

006316 

ASL 

(SP) 

1467  003402 

062716 

000156' 

ADD 

#SPEEDT,(SP) 

1468  003406 

013600 

MOV 

a{SP)+,RO 

1469  003410 

016701 

OOOOOOG 

MOV 

$SLTA,R1 

1470  003414 

126161 

OOOOOOG  OOOOOOG 

CMPB 

L.DLC(R1),L.DDM(R1 

1471  003422 

001425 

BEQ 

20$ 

1472  003424 

012701 

000010 

MOV 

#8.,R1 

1473  003430 

032767 

000004  OOOOOOG 

BIT 

*CH.SYN,$$DCHA 

1474  003436 

001402 

BEQ 

10$ 

1475  003440 

012701 

000012 

MOV 

*10.,R1 

1476  003444 

10$: 

CALL 

$DIV 

1477  003450 

010001 

MOV 

RO.Rl 

1478  003452 

016700 

OOOOOOG 

MOV 

$RDBSZ,RO 

1479  003456 

CALL 

$DIV 

1480  003462 

062700 

000002 

ADD 

*2-R0  ,   „ 

1481  003466 

042700 

177400 

BIC 

#*C<377>,R0 

1482  003472 

000300 

SWAB 

RO 

1483  003474 

000411 

BR 

50$ 

1484 

1485 

;  ODM 

=  DLC 

1486 

1487  003476 

012700 

000002 

^0$: 

MOV 

#2,R0 

1488  003502 

020227 

000017 

CMP 

R2,#17 

1489  003506 

001001 

BNE 

30$ 

1490  003510 

006300 

ASL 

RO 

1491  003512 

000300 

30$: 

SWAB 

RO 

1492  003514 

000401 

BR 

50$ 

1493 

1494 

;  NON- 

DDCMP  LINE 

1495 

1496  003516 

005000 

40$: 

CLR 

RO 

1497 

1498  003520 

105067 

OCOOOIG 

50$: 

CLRB 

.PNUMB+1 

1499  003524 

050067 

OOOOOOG 

BIS 

RO,.PNUMB 

1500  003530 

RESRG 

<R1,R0> 

1501  003534 

RETURN 

SAVE  SOME  REGISTERS 

GET  CHARACTERISTICS  WORD  1 

ISOLATE  PROTOCOL  BITS 

IS  THIS  A  DDCMP  LINE? 

BR  IF  NO 

IS  THIS  THE  KEY  UNIT? 

BR  IF  NO 

GET  CHARACTERISTICS  WORD  0 

CONVERT  TO  DOUBLE  WORD  INDEX 

GET  CHARACTERISTIS  WORD  0 
GET  HIGH  BYTE 
ISOLATE  SPEED  BITS 
SAVE  THEM 

CONVERT  TO  WORD  INDEX 
INDEX  INTO  TRANSLATION  TABLE 
GET  CORRECT  SPEED 
GET  SLT  ADDRESS 

)  ;  IS  THIS  A  COMBINED  DDM/DLC? 
BR  IF  YES 
ASSUME  8  BITS 
IS  TYPE  SYNCH? 
BR  IF  YES 

ELSE  MUST  BY  ASYNCH 
CALCULATE  SPEED/*  BITS 
GET  RESULT 
GET  SIZE  OF  RDB'S 
CALCULATE  TIME  OUT  VALUE 
ADD  FUDGE  FACTOR 
ISOLATE  TIMEOUT  VALUE 
GET  IN  HIGH  BYTE 
AND  FINISH  UP 


GET  NUMBER  OF  BUFFERS  (ASSUME  SPEED  <=9600) 

EXTERNAL  CLOCK? 

BR  IF  NO 

ELSE  NUMBER  OF  BUFFERS  =  4 

GET  INTO  HIGH  BYTE 

AND  STORE  NUMBER  OF  BUFFERS 


STORE  TIMEOUT  VALUE  (OR  NUMBER  OF  BUFFERS) 
RESTORE  REGISTERS 


VCFG  -  VNP  SCAN  CONFIGURATION  F  MACRO  V05.05b  Monda; 
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VCFG  CREATED  BY     MACRO     ON  15-JUL-85  AT   19:06 

SYMBOL    CROSS  REFERENCE 


7-217 


G     7 

PAGE   4 

CPEF       04.00 


VCFP 
ERRO' 


SYMBOL 

VALUE 

REFERENCES 

7-216 

7-216 

S.BRA 

001752  R 

#25-1146 

S.COST 

=   »,**»«     GX 

*25-1243 

S.CTIM 

002014  R 

#25-1165 

S.CTL 

001706  R 

#25-1129 

S.HTIM 

002040  R 

#25-1174 

S.NAME 

001512  R 

#25-1073 

S.PRl 

001762  R 

#25-1153 

S.UNT 

001730  R 

#25-1137 

UCNT 

000152  R 

#7-153 

*8-265 

30-1510 

•30-1512 

UMRFL 

000154  R 

#7-154 

UNT 

000016  R 

#7-126 

*8-271 

UNTDF 

000514  R 

11-529 

U.CHAO 

002762  R 

#28-1369 

U.CHA1 

003066  R 

#28-1392 

U.CST 

003602  R 

#30-1519 

U.DPR 

003634  R 

#30-1529 

U.HTIM 

003644  R 

#31-1537 

U.LTIM 

003670  R 

#31-1547 

d.PECH 

003140  R 

#28-1408 

U.SCSR 

005204   R 

#28-1422 

U.UNT 

002716  R 

#28-1356 

U.XCSR 

003536  R 

#30-1506 

WNDSMX 

=  000177 

#6-92 

35-1677 

Z.NAM 

=   »♦**♦»     GX 

34-1645 

SALPHA 

=  000022 

#17-717 

$ANY 

=  000020 

#17-717 

SAZFS 

=   **♦»»♦     GX 

9-458 

$BFR 

=   «♦***«     GX 

33-1614 

SBLANK 

=  000006 

#17-717 

SCEACC 

=    »*««♦»     GX 

33-1616 

SCLBUF 

I   »****»     GX 

*10-480 

SCLDFO 

=    ••*•«♦     GX 

8-428 

12-567 

SCLFLG 

=    **♦*♦«     GX 

*8-262 

SCLIOS 

=    ......     GX 

9-460 

10-483 

SCLQUE 

=   ».»♦♦»     GX 

9-459 

iCLSAV 

=    **»**♦     GX 

8-261 

SCLSBK 

=   »»»*»«     GX 

8-425 

SCLbIZ 

=    «««*♦♦     GX 

♦10-481 

$CTIM 

=   «**»»*     GX 

»25-1167 

$C5TA 

=   »♦♦»»»     GX 

8-268 

SDFUIC 

=   »♦*♦♦*     GX 

9-455 

SDIGIT 

=  000024 

#17-717 

$DIV 

=    *»»».♦     GX 

29-1476 

29-1479 

SDNUMB 

=  000014 

#17-717 

$EOS 

=  000012 

#17-717 

SERRYA 

001702  R 

#7-207 

25-1181 

SERRYB 

001734   R 

#7-208 

31-1552 

$ERRYP 

001770  R 

#7-209 

25-1240 

SERRYQ 

002012  R 

#7-210 

25-1258 

SERRYR 

002052  R 

#7-211 

25-1169 

7-217 


7-218 


7-218 


8-338 


25-1137 


28-1360         28-1371 


28-1394 


28-1410 


28-1424       *28-1440 


26-1274 

30-1524 


31-1542 


fRFATFD   RY      MACRO      ON   15-JUL-85    AT    19:06 
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vrFP  -  VNP  PS!  CONFIGURATION  FI  MACRO  V05.03b  Saturday  29-Jun-85 
ERROR  MESSAGES 


02:17 


Page  8 


25A 
255 
256 
257 
258 

259  000766 

260  001022 

261  001056 

262  001112 
265  001K6 

264  001222 

265  001276 

266  001332 

267  001352 

268  0OK12 

269  00U42 

270  001472 

271  001522 

272  001552 

273  001602 

274  001640 

275  001676 

276  001724 
V7 

278 
279 
280 
281 

282  001752 

283  001772 
284 

285 
286 
287  000000 


VCFP 
STRN> 


.SBTTL  ERROR  MESSAGES 


ERROR  MESSAGES 


;**-1 


nt;.er$ 

NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 


<:>,P7, 
<:>,P8. 
<:>,P9, 


,00, 
,01, 
,02, 
,05, 
,06, 
,09, 
,M4, 
,M5, 
,M6, 
,MA, 


> 

> 

> 

> 

> 

> 

> 
<:> 
<:> 
<:> 
<:>,MB 
<:>,1P 
<:>,1Q 
<:>,1R 
<:>,1T 


10,CERR,RTSPC,CFL]N,<clefauU  block  si2e> 
10,CERR,RTSPC,CFLJN,<maximum  block  size> 
10,CERR,RTSPC,CFLJN,<default  window  si2e> 
10,CERR,RTSPC,CFLIN,<maximum  window  size> 
8,CERR,RTSPC,CFLIN,<DefauU  block  size  exceeds  maximuni> 
8,CERR,RTSPC,CFLIN,<Default  window  size  exceeds  maximum> 
10,CERR,RTSPC,CFL]N,<counter  timer  value> 
10,CERR,RTSPC,CFLIN,<line-id> 
10,CERR,RTSPC,CFLIN,<logical  channel  number> 
8,CERR,RTSPC,,<X3PSDF  missing> 
8,CERR,RTSPC,,<DSA$DF  missing> 
8,CERR,RTSPC,,<DSCSDF  missing> 
8,CERR,RTSPC,,<DSNSDF  missing> 
8,CERR,RTSPC,,<RNASDF  fnissing> 
8,CFERR,SREP.N,SFN0UT,<0pen  Failure 
8,CFERR,SREP.N,$FN0UT,<Read  Failure 
8,CFERR,RTSPC,FNLIN,<Read  0uerflow> 
8,CERR,RTSPC,CFLIN,<Syntax  Error> 


***.  )> 


ERROR  MESSAGE  FORMAT  STRINGS 


103 
103 


157 
157 


156 
156 


FMT8:: 
FMT10:  : 


.NLIST 

.ASCIZ 

.ASCIZ 

.EVEN 

.LIST 

.PSECT 


BEX 

"Config  File  —  " 

"Config  FUe  —  Illegal 

BEX 


iCTDOOl] 
lETDOOl] 


:**-1 


:**-1 


;**-1 


H    8 

uMP  p<;i    rnwF  rniiR4TinM  Fr   macro  vn5.n3b   Saturday  29-Jun-85  02:17 


Paae  9 


6    9 

VCFP  -  VNP  PSl  CONFIGURATION  fl  MACRO  V05.03b  Saturday  29-Jun-85  02:17 
5TRNXT  -  STORE  NEXT  DIGIT 
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672 
673 
67A 
675 
676 
677 
678 
679 
680 
681 
682 
683 
68A 
685 
686 

687  00125^ 

688  001262 

689  001266 

690  001274 

691  001276 

692  001302 

693  001306 

694  001312 

695  001316 

696  001322 


116767 
012701 
126727 
001404 
012700 

110177 
005267 
105267 


.SBTTL  STRNXT  -  STORE  NEXT  DIGIT 


STRNXT  -  STORE  NEXT  DIGIT 


INPUTS: 

.PCHAR  -  MATCHED  CHARACTER  FROM  TPARS  TRANSITION 
NEXT  -  ADDRESS  OF  NEXT  BYTE  AVAILABLE  FOR  STORAGE 

OUTPUTS: 

NEXT  -  ADDRESS  OF  NEXT  AVAILABLE  BYTE 
COUNT  -  UPDATED 
R0,R1  DESTROYED 


OOOOOOG  000357'  STRNXT: 

000017 

OOOOOOG  000052 

000357' 


000352' 
000352' 
000356' 


10$: 


MOVE 

. PCHAR, CVTBUF 

MOV 

#17, R1 

CMPB 

. PCHAR, #'♦ 

BEQ 

10$ 

MOV 

#CVTBUF,RO 

CALL 

$CDT8 

M0V8 

Rl,aNEXT 

INC 

NEXT 

INCB 

COUNT 

RETURN 


MOVE  DIGIT  TO  CONVERTSION  BUFFER 

ASSUME  CHAR  IS  AN  '»' 

IS  CHAR  AN  '*'  ? 

Dp  TC  YBS 

POINT  TO  CONVERSION  BUFFER 

CONVERT  TO  BINARY 

STORE  BINARY  DIGIT 

POINT  TO  NEXT  AVAILABLE  BYTE 

INCREMENT  DIGIT  COUNT 


H     9 

rnMC  rri  iDAT  r  DM    ci     MATDn    \lC\K    OJ.h    <:;atMrHav    ?Q-liin-ftS    0?  ■  1  7 


Panp    1Q 


G  10 


>»F1LE*«ID««VCID 


VCLQM 

:ahle 


VV    vv 

cccccccc 

vv    vv 

cccccccc 

vv    vv 

vv    vv 

vv    vv 

vv    vv 

vv    vv 

vv    vv 

vv    vv 

vv    vv 

vv  vv 

vv  vv 

vv 

cccccccc 

vv 

cccccccc 

III 

Ml 


II! 
Ill 


11 

000000 

11 

000000 

00     00 

00      00 

00     00 

00      00 

00     00 

00      00 

00      00 

00      00 

00      00 

00      00 

II 

000000 

11 

000000 

S5SSSSSS 

TTT7TTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

inAr\    rcTAD     iMArc    Mftron    \if\^    n7K    Q:: 


H  10 

Panp    L 


VCLQRM  -  REMOVE  ENTRIES  EROM  CL  MACRO  V05.05b  Saturday  29-Jun-85 

Tahle  ot  contents 

5-  5^    MACRO  DEMNITIONS 

6-  61    LOCAL  DATA 

7-  69    CLQREM  -  REMOVE  ENTRIES  FROM  CLOCK  QUEUE 

8-  Kl    FNDPDV  -  FIND  PDV  ADDRESS 


02  :U 


VCLQR 

MACRO 

MACRO 

CALL 

CLKDF 

GETRV 

PUTRC 

RAND 

RETUR 

VNPDf 


r  nnwi  r  i 


MA  rctn    \ir\^    n'ZK  C  71 


H  11 

00-   |M.^-Ht;  n5-  IS   P;>nQ  /. 


G  12 


VCLQRM 

CREATED  BV 

MACRO     ON  29- 

•JUN-85  AT 

02 

18 

PAGE   5 

MACRO   CROSS 

RE 

■ERENCE 

CREF       04.00 

MACRO  NAME 

REFERENCES 

CALL 

7-89 

7-94 

7-101 

7-127 

7-129 

CLKDFt 

#5-56 

5-58 

GETRV 

#5-56 

7-94 

7-101 

7-127 

=UTRC 

#5-56 

7-129 

RAND 

#7-94 

7-94 

#7-101 

7-101 

#7-127 

RETURN 

7-159 

8-173 

VNPDFl 

#5-56 

5-59 

7-134 


7-127 


#7-129 


7-129 


H  12 


VDEV  -  VNP  LOAD  DEVICE   STRUCTUR  MACRO  VO5.03b  Tuesday  03-Sep-85   1 
DBLBL   -   READ   LABEL   BLOCK 


u 


8  Page  11 


375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 

390  000632 

391  000634 

392  000636 

393  0006AO 

394  000644 

395  000650 

396  000654 

397  000656 

398  000660 

399  000662 
«,00  000666 

401  000672 

402  000674 

403  000702 

404  000704 

405  000712 

406  000/ •>  4 

407  000722 

408  000730 

409  000752 
410 

411 
412 
413 

414  000754 

415  000742 

416  000750 

417  000756 

418  000764 


005000 
005001 
005002 


105777 
100427 
052010 
001430 
012700 

103426 
032760 
001430 
026060 
001024 
016067 
166767 
000241 


116777 


.SBTTL  0BL6L  -  READ  LABEL  BLOCK: 

DVLBL  -  OPEN  IMAGE  FILE  AND  READ  LABEL  BLOCK 

THIS  ROUTINE  IS  CALLED  TO  OPEN  THE  DATA  STRUCTURE  FILE  AND  TO  READ  THE  LABEL 
BLOCK.  THE  SYMBOL  VALUES  FROM  THE  STB  FILE  ARE  ADJUSTED  Br  SUBTRACTING  THE 
BASE  ADDRESS  OF  THE  DATA  STRUCTURE  IMAGE  FILE. 

INPUTS: 

DTNAM=FILE  NAME 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 
RO=LABEL  BLOCK  BUFFER  ADDRESS 


DVLBL: 


OOOOOOG 

000000' 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  000170' 
000170'  000136' 


CLR 

CLR 

CLR 

CALL 

CALL 

TSTB 

BMI 

BIS 

BEQ 

MOV 

CALL 

BCS 

BIT 

BEQ 

CMP 

BNE 

MOV 

SUB 

CLC 

RETURN 


SETUP  ASCI2  FILE  SPEC 
FOR  [131,54]XXXTAB.TSK 


RO 

R1 

R2 

$AZFS 

SCLOPE 

aSCLIOS 

101$ 

(R0)+,(RO) 

121$ 

#DSK8UF,R0 

$RL8L 

131$  . 

#TS$NHD,L$BFLG(R0) 

141$  ;  -  -  .  -- 

L$8LDZ(R0),L$BMX7(R0)  ;  IS  THE  IMAGE  OVERLAID? 


OPEN  THE  IMAGE  FILE 

SUCCESS? 

IF  MI,  NO 

IS  FILE  CONTIGUOUS? 

IF  EQ,  NO 

GET  ADDRESS  OF  DISK  BLOCK  SIZED  BUFFER 

READ  LABEL  BLOCK 

IF    CS,    FAILURE 

;    DOES   IMAGE   HAVE  A  HEADER? 
IF   EQ,    YES   -  NOT   ALLOWED 


141$ 
L$8SA(R0),BASE 
BASE, LENGTH 


ERROR   CONDITIONS 


101$: 

121$: 

OOOOOOG  OOOOOOG  131$: 

141$: 


EMSG$R 

EMSG$R 

MOVP 

EMSG$R 

EMSG$R 


2F 

2H 

$IOSB,a$CLIOS 

2J 

2K 


IF  NE,  YES  -  NOT  ALLOWED 
SAVE  BASE  ADDRESS  FOR  LATER 
ADJUST  DEVICE  TABLES  SIZE 
INDICATE  SUCCESS 


OPEN  FAILURE 

FILE  NOT  CONTIGUOUS 

COPY  ERROR  CODE 

LABEL  BLOCK  READ  FAILURE 

INVALID  BINARY  IMAGE  (HEADER  OR  OVERLAID) 


line  n7u 


H  13 

^n-oc  moo 


VDEV  CREATED  BY     MACRO     ON  3-SEP-85   AT   10:28 

SYMBOL    CROSS   REFERENCE 


SYMBOL 

REP9 

RVAD 
R$$MPL 
STBEXT 
SYSFDB 

S$$BAS 


S.LHD 

TABEND 

TSSNHD 

UNITS 

U.CW3 

U.DCB 

U.RED 

U.SCB 

VAD 

VREL 

Z.PCB 

$ALL15 

SAZFS 

$BFR 

SCATS 

SCLDEQ 

SCLIOS 

SCLOPE 

SCUR.N 

$C5TA 

$DEA16 

SDEVHD 

$DFN2 


VALUE 

0025A6  R 

00200A  R 

OOOUOO  R 
=   »**♦»*     GX 


»*•*•«     GX 
000202  R 
•*•**♦  GX 
000172  R 
OOOOU 
000000 
000002 
000020 
00201A  R 
000200  R 


REFERENCES 


-  *♦**♦* 
=  ****** 
r  ****** 

-  ****** 

-  ****** 


****** 


=  ****** 


-  ****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


$ERR2A 

002204  R 

*7-148 

$ERR2B 

002226  R 

6-110 

$ERR2C 

002264  R 

6-111 

$ERR2D 

002322  R 

6-112 

$ERR2E 

002350  R 

6-113 

$ERR2F 

002376  R 

*7-153 

$ERR2H 

002434  R 

#7-154 

$ERR2J 

002464  R 

#7-155 

$ERR2K 

002536  R 

#7-156 

$ERR2L 

002600  R 

#7-157 

$ERR2M 

002634  R 

#7-158 

$ERR2N 

002672  R 

#7-159 

$ERR2P 

0027C6  R 

#7-160 

$ERR2Q 

002744   R 

#7-161 

$ERR2R 

003000  R 

#7-162 

$ERR2S 

003052  R 

#7-163 

10-352 
#7-149 
#7-150 
#7-151 
#7-152 
11-414 
11-415 
11-417 
11-418 
12-463 
13-609 
10-360 
10-364 
9-304 
13-611 
13-614 


7-162 
#13-625 

»8-226 
•12-446 
7-149 
7-153 
7-158 
7-162 
7-167 

13-633 

»9-297 


13-558 
♦13-496 


12-441 

7-156 
13-608 


16-733 
•■13-593 


13-610 


G  U 

PAGE   2 

CREF       04.00 


VDI 
JDS 


7-163 


•8-233 
•13-575 
7-149 
7-154 
7-158 
7-163 
7-167 


•13-510 


#13-627 
13-499 


12-442 
7-157 


7-164 


♦8-250 
•13-577 
7-150 
7-154 
7-159 
7-163 
7-168 


7-165 


•8-254 
♦15-688 
7-150 
7-155 
7-159 
7-164 
7-168 


7-166 


•8-255 
♦15-689 
7-151 
7-155 
7-160 
7-164 
7-169 


7-167 


♦9-281 
♦15-691 
7-151 
7-156 
7-160 
7-165 
7-169 


7-16? 


♦12-441 
♦15-692 
7-152 
7-156 
7-161 
7-165 


13-521 

15-688 
8-223 


13-533  13-536  13-539  13-544 

15-689 
15-693 


H  U 


r 


L 


VDIS  - 
SDSYS 


VNP  SHOW  COMMANDS 
-  SHO  SVS 


327 
328 
329 
330 
331 
332 
333 
33^. 
335 
336 
337 
338 

339  001706 

340  001712 

341  0017H 

342  001724 

343  001734 
mi,  001744 
345  001752 
346 

347 
348 
349 
350 

351  001754 

352  002002 

353  002077 
354 

355  002M0 

356  002175 

357  002240 
358 

359 
360 
361 

362  002252 

363  0022&6 
364 

365 


G  15 
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.SBTIL   $DSrS  -  SHO  SVS 


SDSYS  -  SHOW  SYSTEM  CHARACTERISTICS  OR  SUMMARY 

INPUTS  -  NONE 

OUTPUTS  -  THE  SYSTEM  CHARACTERISTICS  ARE  DISPLAYED  ON  THE  USER'S  TERMINAL 


Vt 
Dl 


103004 


SDSYS; 


10$: 


CALL 

BCC 

ERRPTS 

ERRPTS 

ERRPTS 

DIRS 

RETURN 


CKTYPE 

10S 

SYNERR,tEROUT 

SMSG1,MSG0UT 

SMSG2,MSG0UT 

#TIDET 


MOVE  TYPE  INTO  STRING  TO  BE  DISPLAYED 

BR  If  SUCCESS 

ELSE  SYNTAX  ERROR 

DISPLAY  SYSTEM  CHARACTERISTICS 

DETACH  TERMINAL 
FINISHED 


DISPLAY  MESSAGES 


.ENABL  LC 

ERMSGS  <XNSystem  XA  as  of  !!YXN> 

ERMSGS  <'iH       Maximum  control  buffers  =  XD,  Maximum  small  buffers  =  5!D> 

ERSLKS  SMSG1 ,<TEMP1 ,SCCBNM,SSDSNM> 


Maximum  large  buffers  =  XD,  Large  buffer  size  =  XD> 
Minimum  receive  buffers  =  i!DXN> 


ERMSGS  < 

ERMSGS  <XN 

ERBLKS  SMSG2,<SRDBNM,SRD8SZ,$RD8TH> 


ERROR  MESSAGE 


ERMSGS  ^Syntax  error> 
ERSLKS  SYNERR 

.DSABL   LC 


H  15 


r 


VDIS  -  VNP  SHOW  COMMANDS 


DLONAM  -  DISPLAY  LOGGING  SINK  NAME 


867 
868 
869 
870 
871 
872 
873 
87A 
875 
876 
877 
878 
879 
880 
881 

882  004756 

883  004762 

884  004770 

885  004772 

886  005000 
887 

888  005002 

889  005006 

890  005012 

891  005016 

892  005022 
893 

894  005024 

895  005030 

896  005034 
897 

898  005036 

899  005042 


MACRO  V05.03b  Monday  15-Jul-85 
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.SBTTL  DLONAM  -  DISPLAY  LOGGING  SINK  NAME 


DLONAM  -  DISPLAY  LOGGING  SINK  NAME 

INPUT'. 

R4   -  LOGGING   STATE   BIT 
SOPTON  -   COMMAND  OPTIONS 

OUTPUTS.- 

LOGGING  SINK  NAME  DISPLAYED  ON  USER'S  TERMINAL 
R0,R1,R2,R3  DESTROYED 


001062'        6lONAM: 
000400  OOOOOOG 

000200  OOOOOOG 


OOOOOOG 
000002G 


012700 
032767 
001015 
032767 
001016 

016701 

016701 

000466 


012703  OOOOOOG 

000461 

012703  000020G 


10$: 


20$: 


900  005046 

112720 

000135 

901  005052 

116701 

000001 G 

902  005056 

005002 

903  005060 

904  005064 

112720 

000054 

905  005070 

116701 

OOOOOOG 

906  005074 

005002 

907  005076 

908  005102 

112720 

000135 

909  005106 

012703 

000006G 

910  005112 

012746 

000003 

911  005116 

012301 

912  005120 

913  005124 

005316 

914  005126 

003373 

915  005130 

005726 

916  005132 

122740 

00004C 

917  005136 

001775 

918  005140 

005200 

919  005142 

112720 

000056 

920  005146 

012301 

921  005150 

922  005154 

122740 

000040 

923  005160 

001775 

30$: 
40$: 

50$: 


MOV 
BIT 
BNE 
BIT 
BNE 

MOV 

CALL 

MOV 

CALL 

BR 

MOV 

CALL 

BR 

MOV 
CALL 

Move 
Move 

CLR 

CALL 

MOVE 

MOVB 

CLR 

CALL 

MOVB 

MOV 

MOV 

MOV 

CALL 

DEC 

BGT 

TST 

CMP8 

BED 

INC 

MOVB 

MOV 

CALL 

CMPB 

BEQ 


#TEMP2,R0 

#0P$C0N,$0PT0N 

10$ 

#OP$FIL,$OPTON 

20$ 

SLGMON.RI 

$C5TA 

$LGM0N+2,R1 

$C5TA 

60$ 

#$LGC0N,R3 

CVTDEV 

60$ 

#$LGFNB+20,R3 

CVTDEV 

*'C,(R0)* 

$LGUICt1,Rl 

R2 

$CB0MG 

#<•,>, (R0)+ 

$LGU]C,R1 

R2 

$C80MG 

#'J,(R0)+ 

#$LGFNBt6,R3 

#3,-(5P) 

(R3)t,R1 

$C5TA 

(SP) 

30$ 

(SP)t 

#'  ,-(R0) 

40$ 

RO 

#<'.>, (R0)+ 

(R3)+,R1 

$C5TA 

#'  ,-(R0) 

50$ 


POINT  TO  TEMPORARY  STORAGE  AREA 

SHOW  CONSOLE  NAME? 

BR  IF  YES 

SHOW  FILE  NAME? 

BR  IF  YES 

ELSE  SHOW  MONITOR  NAME 

CONVERT  FIRST  HALF  OF  MONITOR  NAME 

POINT  TO  SECOND  HALF  OF  NAME 

CONVERT  IT 

FINISH  UP 

POINT  TO  CONSOLE  NAME 
CONVERT  IT  TO  ASCII 
FINISH  UP 

POINT  TO  FILE  DEVICE  NAME 

CONVERT  IT  TO  ASCII 

STORE  LEFT  BRACKET  IN  OUTPUT  BUFFER 

GET  USER  GROUP  CODE 

SUPPRESS  ZEROES 

CONVERT  IT  TO  ASCII 

INSERT  DELIMITER 

GET  USER  MEMBER  CODE 

SUPPRESS  ZEROES 

CONVERT  IT  TO  ASCII 

STORE  RIGHT  BRACKET  IN  OUTPUT  BUFFER 

POINT  TO  FILE  NAME 

CONVERT  THREE  WORDS 

GET  NEXT  3  CHARACTERS  OF  FILE  NAME 

CONVERT  THEM  TO  ASCII 

MORE  TO  CONVERT? 

BR  IF  YES 

CLE.AN  UP  STACK 

DELETE  TRAILING  BLANKS 

F  JNT  PAST  LAST  NON-BLANK 

'  ~RE  PERIOD  IN  OUTPUT  BUFFER 

GLi  fILE  TYPE 

CONVERT  IT  TO  ASCII 

DELETE  TRAILING  BLANKS 


H  16 


VCEX  -  VN''  LOAD 

CEX  ROUTINES 

MACRO  V 

LOCAL  DATA 

2^'i 

000732 

000000& 

2Ab 

000734 

OOOOOOG 

2A7 

000736 

OOOOOOG 

2A8 

2^9 

000740 

OOOOOOG 

250 

000742 

0000006 

251 

000744 

OOOOOOG 

252 

253 

25-1 

255 

000746 

OOOOOOG 

256 

000750 

OOOOOOG 

257 

000752 

OOOOOOG 

258 

000754 

OOOOOOG 

259 

000756 

OOOOOOG 

260 

261 

000760 

OOOOOOG 

262 

000762 

OOOOOOG 

263 

000764 

OOOOOOG 

264 

265 

266 

267 

000766 

OOOOOOG 

268 

000770 

OOOOOOG 

269 

000772 

OOOOOOG 

270 

271 

000000 

H  1 
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WORD 

$ERR53 

UORD 

$ERR54 

WORD 

$ERR55 

IF  DF 

M$$MGE 

WORD 

$ERR56 

WORD 

$ERR57 

WORD 

$ERR58 

IFF 

WORD 

101,101,101 

ENDC 

WORD 

$ERR59        ; 

WORD 

$ERR60        ; 

WORD 

$ERR61 

WORD 

$ERR62 

WORD 

$ERR63 

IF  DF 

M$$MGE 

WORD 

$ERR64 

WORD 

$ERR65 

WORD 

$ERR66 

IFF 

WORD 

101,101,101 

ENDC 

WORD 

$ERR67 

WORD 

$ERR68 

WORD 

$ERR9E 

.PSECT 


FILE  NOT  CONTIGUOUS 
LABEL  BLOCK  READ  FAILURE 
INVALID  IMAGE  (HEADER,  OVERLAID, 


ETC.) 


PROCESS  NOT  BUILD  FOR  APR5 

PROCESS  EXCEEDS  4K  WORDS 

PROCESS  EXTENSION  EXCEEDS  4K  WORDS 


PARTITION  NOT  IN  SYSTEM 
BASE  ADDRESS  .'llSMATCH 
PARTITION  TOO  SMALL 
NOT  COMMON  PARTITION 
PARTITION  BUSY 

CEX  PARTITION  NOT  IN  EXEC  SPACE 
SUB-PCS  ALLOCATION  FAILURE 
MAIN  PARTITION  TOO  FRAGMENTED 


PROCESS  READ  FAILURE 
CETAB  ALLOCATION  FAILURE 
TIMER  SERVICE  INIT  FAILURE 


I-  1. 
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VCEX  -  VNP  LOAD  CEX  ROUTINES 
CEPTR  -  INIT  CETAB  POINTERS 


H  2 
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782 

783 

78A 

785 

786 

787 

788 

789 

790 

791 

792 

793 

79A 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

815 

8U 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

83A 

835 

836 

837 

838 


001622 

001624  000261 

001626 

001630  50$: 

001646  005767  000012G 
001652  001425 
001654 


001674  052767  000001  000006G 


001702  001401 

001704  000467 

001706  05276^  000001  000006G  60$: 

001714 

001720 

001724  000457 

001726  010067  00001 2G        70$: 

001732  010067  00001 4G 

001736 

001742  005067     O'OOOOG 


001746  012767  131574  000002G 

001754  012767  105700  000004G 

001762  012767  000001  000006G 

001770  052767  020000  000006G 

0017/6  016767  OOOOOOG  000040G 

002004  012767  000401  000042G 


80$: 


002012 


RESRG 

SEC 

RETURN 

^PTRV 

>T 
BEQ 
GETRV 

.IF   NDF 

BIT 

.IFF 

BIT 

.ENDC 

BEQ 

BR 

BIS 

PUTRC 

CALL 

BR 

MOV 

MOV 

PUTRC 

CLR 


<R0> 


R5,.TLGTH 

T.fiCVL+$BFR 

70$ 


RESTORE  REG 
INDICATE  ERROR 


REREAD  TCB 

ANY  PACKETS  QUEUED  ? 

BR  IF  NO 


T.RCVLt$BFR,#DSlJE  ;  READ  IN  PACKET 

IS  SET  CEX  ALREADY  QUEUED? 


R$$MPL 
#LS.CEX,LR.STS+6+$BFR 


#LS.CEX,LR.STS+10+$BFR 


60$  ;  BR  IF  NO 

110$  ;  ELSE  NOTHING  TO  DO 

#LS.CEX,LR.STS+6+$8FR   ;  ELSE  SET  CEX  ALSO 
;  REWRITE  PACKET 

DEALLOCATE  PACKET 

AND  CONTINUE 

POINT  LISHEAD  AT  FIRST  PACKET 


$DEA16 
110$ 

RO,T.RCVL+$BFR   ; 
R0,T.RCVL+2+$BFR 


$BFR 


REWRITE  NTINIT  TCB  ADDRESS 
CLEAR  LINK  WORD 


.IF  NDF  R$$MPL 


MOV 
MOV 
MOV 
BIS 
MOV 
MOV 

.IFF 

MOV 

MOV 

MOV 

MOV 

BIS 

MOV 

MOV 

.ENDC 

.IF  DF 

BIT 

BEQ 

MOV 

PUTAD 

BR 

PUTRC 


#»R $BFR+2   ;  LOAD  RAD50  NAME 

#*RVNP,$BFRt4   ;  ...VNP 
*LS.CEX,LR.STS+6+$BFR   ;  SET  CEX 

#LS.UNF,LR.STS+6t$BFR   ;  SET  FLAG  THAT  UNFIXES  NTINIT 
..COO,$BrR+32.   ;  ERRORS  GO  TO  COO: 
#401,$BFRt34.   ;  [1,1] 


#<13.+2>,$BFR+2 

#*R $BFR+4 

#*RVNP,$BFR+6   .   --- 

#LS.CEX,$BFR+LR.STS+10 

#LS.UNF,$BFR+LR.STS+10 

..CO0,$BFR*-34 

#401,$BFRt36. 


SET  DATA  LENGTH 

SET  SENDER  TASK  NAME 

SET  CEX 

UNFIX  NTINIT  FLAG 
ERROS  TO  CO: 


R$$MPL 

#DF.POL,$DFLAG 

80$ 

#DSIZE.R1 

*120000,R1,RO 

90$ 

RO.RI 


.IFF 

PUTRC   RO.RI 

.ENDC 


C1,1J 


SECONDARY  POOL  SUPPORTED 
IF  NO  -  BRANCH 
SET  SIZE 
UPDATE  PACKET 
CONTINUE 


REWRITE  NODE  TO  POOL 


;[HPOn 

;[MP01] 
;[MP01] 
;[MP013 


; CMPOl ] 
;[MP01] 


; CMPOl] 
;[MP01] 
; CMPOl] 

; CMPOl] 
.■CMPOl] 
; CMPOl] 
; CMPOl] 

; CMPOl] 
; CMPOl] 
; CMPOl] 
; CMPOl] 
; CMPOl] 
; CMPOl] 
; CMPOl] 
; CMPOl] 

; CMPOl ] 


VCEX  -  VNP  LOAD  CEX  ROUTINES    MACRO  V05.03b  Saturday  29-Jun-85 


u 


3  Page  14-2 


H  3 

VCFG  -  VNP  SCAN  CONF IGURAT lOM  F  MACRO  V05.03b  Monday  15-Jul.-85  19:0A 
Table  ot  contents 


s- 

55 

MACRO  DEFINITIONS 

6- 

82 

CONSTANT  DEFINITIONS 

1- 

105 

LOCAL  DATA 

a- 

247 

SNLCFG  -  CONFIG  FILE  SCAN 

y- 

445 

OPEN  CONFIG  FILE 

10- 

469 

READ  -  READ  NEXT  RECORD 

11- 

500 
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699 
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STASDF  STATE  TABLE 

19- 
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ADDSDF  STATE  TABLE 

?n- 

853 

DDMSDF  STATE  TABLE 

?i- 

887 

CNTSDF  STATE  TABLE 

??- 

928 

UNTSDF  STATE  TABLE 

?•!- 

984 

FEASDF  STATE  TABLE 

?A- 

1015 

LLCSDF  STATE  TABLE 

?■;- 

1065 

TPARS  ACTION  ROUTINES 

V- 

1567 

FEASDF  ACTION  ROUTINES 

^i- 

1598 
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34- 

1624 

FNDPDV  -  FIND  PDV 

;[TD001] 
.-[TDOOn 
.•[TDOOI] 
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>♦  -  LOOK   FOR   «««$0F   MACRO 


500 
501 
502 
505 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 

514  001064 

515  001070 

516  001072 

517  001076 

518  001102 

519  001106 

520  001114 

521  001116 

522  001122 

523  001124 

524  001130 

525  001132 

526  001136 

527  001140 

528  001144 

529  001146 

530  001152 

531  001154 

532  001160 

533  001162 

534  001166 

535  001170 

536  001174 

537  001200 

538  001204 
539 

540  001210 

541  001214 

542  001216 

543  001222 

544  001224 
545 

546 

54  7 

548 

549 

550  001226 

551 

552 


.SBTTL  0***  -  LOOK  FOR  »**$[)F  MACRO 
y 
a***  -   LOOK  FOR  ♦; 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
R3,R4,R5=DESTROYED 


.ENA8L  LS8 


012705 
000436 
012705 
005067 
005067 
042767 
000424 
012705 
000421 
012705 
000416 
012705 
000413 
012705 
000410 
012705 
000405 
012705 
000402 
012705 
005001 
012702 
016703 
012704 
005067 


103003 
005367 
001401 


000356' 

000000' 
OOOOOOG 
OOOOOOG 
000001 

000244' 

000342' 

000372' 

000456' 

000514' 

000662' 

000724' 

000000' 
002700' 
002472' 
002704' 


002704' 


000136' 


OPIT 

MOV 

#PLTDF,R5 

BR 

10$ 

nsi  T 

MOV 

#SLTDF,R5 

CLR 

$$NBRA 

CLR 

$$RPRI 

BIC 

#FG.X2P,CFGFLG 

BR 

10$ 

OSTA 

MOV 

#STADF,R5 

BR 

10$ 

OAOD 

MOV 

#ADDDF,R5 

BR 

10$ 

QDDM 

MOV 

#DDMDF,R5 

BR 

10$ 

QCNT 

MOV 

#CNTDF,R5 

BR 

10$ 

QUNT 

MOV 

#UNTDF,R5 

BR 

10$ 

QFFA 

MOV 

#FEADF,R5 

BR 

10$ 

01  1  r 

MOV 

#LLCDF,R5 

10$: 

CLR 

R1 

MOV 

*CFGKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CFG8F,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

20$: 

RETURN 

;  ERROR  CONDITION 

101$ 

:   EMSGSR 

IT 

.DSA8L 

LS8 

STATE  TABLE  ADDRESS 

STATE  TABLE  ADDRESS 
INIT  NJ  ROUTER  ADJACENCY  VALUE 
INN  ROUTER  PRIORITY  VALUE 
CLEAR  X2P$DF  SEEN 

STATE  TABLE  ADDRESS 

STATE  TABLE  ADDRESS 

STATE  TABLE  ADDRESS 

STATE  TABLE  ADDRESS 

STATE  TABLE  ADDRESS 

STATE  TABLE  ADDRESS 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


SYNTAX  ERROR 
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UNTSDF    STATE    TABLE 


928 
929 
930 
931 

932  001512 

933  001512 
95A  001512 

935  001512 

936  001512 

937  001512 

938  001512 

939  001512 
9A0  001512 

941  001512 

942  001512 

943  001512 

944  001512 

945  001512 

946  001512 

947  001512 

948  001512 

949  001512 
950 

951  001512 

952  001512 

953  001512 
954 

955  001512 

956  001512 

957  001512 
958 

959  001512 

960  001512 

961  001512 
962 

963  001512 

964  001512 

965  C01512 
966 

967  001512 

968  001512 

969  001512 
970 

971  001512 

972  001512 
973 

974  001512 

975  001512 
976 

977 
978 
979 

980  001512 

981  001512 

982  0015-2 


.S8TTL     UNTSDF   STATE   TABLE 
UNIT   DEFINITION    (UNTSDF) 


STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 

TRANS 
STATES 

TRANS 

TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


UNTDF 
ZUNTSDF%,,,1,syNERR 

;  UNIT  NUMBER 
SNUMBR,,U.UNT 


SNUMBR,,U.CHA0 
SNUMeR,,U.CHAl 


;  CHARACTERISTICS  WORD  0 
;  CHARACTERISTICS  WORD  1 


IEND,SEXIT,U.XCSR 

;  SECONDARY  CSR  (OPTIONAL) 
SNUMBR,COST,U.SCSR 
SLAMDA,,U.XCSR 

COST 
<',>,C0ST1 
SLAMDA,SEXIT   ;  DON'T  REQUEIRE  ANY  MORE 

COSTl 
SNUMBR,DPR,U.CST 
SLAMDA 

DPR 
<',>,DPR1 
SLAMDA,SEXIT 

DPR1  ;  DEAD  POLLING  RATIO 

SNUMBR,PECH,U.DPR 
SLAMDA 

PECH 
<',>,PECH1 
SLAMDA, SEXIT 

PECHl  ;  PROTOCOL  EMULATOR  CHARACTERISTICS 

SNUMBR, SEXIT, U. PECH 


:END, SEXIT 


CHECK  FOR  END  OF  SOURCE  LINE 

STATES  END 
TRANS   <';>,SEXIT 
TRANS   SEOS, SEXIT 
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TPARS  ACTION  ROUTINES 


30 


1503 
150A 
1505 
1506  003536 

■  NO  SECONDARV 

CSR  (UNT$OF) 

032767 

OOOOOOG 

OOOOOOG 

U.XCSR 

SIT 

*FL.LMC,$FLAGS 

COMIOP  DEVICE? 

1507  00354^ 

001410 

BEQ 

10$ 

IF  EQ,  NO 

1508  003546 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.KMX,$FLAGS 

COMIOP  MUX  DEVICE? 

1509  003554 

001404 

BEQ 

10$ 

IF  EQ,  NO 

1510  003556 

032767 

000007 

000152' 

BIT 

#7,UCNT 

IS  THIS  THE  FIRST,  NINTH,  ETC.? 

1511  003564 

001403 

BEQ 

101$ 

IF  EQ,  YES 

1512  003566 

005267 

000152' 

10$: 

INC 

UCNT 

INCREMENT  UNIT  COUNT 

1513  003572 

RETURN 

151A  003574 

101$: 

EMSG$R 

IN 

SECONDARY  CSR  MISSING 

1515 

1516 

1517 
1518 
1519  003602 

;  UNIT 

COST  (UNT$DF) 

026727 

OOOOOOG 

000031 

U.CST: 

CMP 

.PNUMB,#MAXCST 

■  IS  THE  COST  IN  RANGE  ? 

1520  003610 

101006 

BHI 

101$ 

•  IF  HI,  NO  ..  ERROR 

1521  003612 

016700 

OOOOOOG 

MOV 

$SLTA,RO 

■  ELSE,  GET  THE  SLT  ADDRESS 

1522  003616 

116760 

OOOOOOG 

OOOOOOG 

M0V8 

.PNUMB,L.COST(R0)  ;  STORE  THE  LINE  COST 

1523  003624 

RETURN 

1524  003626 

101$: 

EMSG$R 

YP 

•  ILLEGAL  LINE  COST 

1525 
1526 
1527 

;  UNIT 

DEAD  POLLING  RATIO 

1528 

1529  003634 

U.DPR: 

1530  003634 

016767 

OOOOOOG 

OOOOOOG 

MOV 

.PNUMB,$$DPR 

;  SAVE  DEAD  POLLING  RATIO 

1531  003642 

RETURN 
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CREF       0^.00 


VCFP 
$NTC 


SYMBOL      VALUE 


SERRYS 

SERRZQ 

SERRIA 

SERRIB 

tERRIC 

SERRID 

SERRIE 

lERRIF 

SERRIG 

SERRIH 

SERRIJ 

SERRIK 

SERRIL 

SERRTM 

SERRIN 

SERRTP 

SERRTQ 

SERRIR 

SERRTS 

SERRIT 

SERRTU 

SERRIV 

SERRIW 

SERRIX 

SERRTY 

JERRI Z 

$ERR2A 

$ERR2B 

$ERR2C 

$ERR3F 

$ERR2I 

$ERR3A 

$ERR3B 

$ERR3C 

SEXIT 

SFAIL 

SFEATR 

SFLAGS 

SGCLEP 

SGETAD 

SGETRV 

SGPRM 

SLAMDA 

$MISS 

SMXVCT 

$NAME 

SNLCFG 

$NUMBR 

tPDVNM 

SPDVTA 

SPFLAG 


002106  R 
001630  R 
000216  R 
000246  R 
000306  R 
0003A0  R 
000376  R 
000424  R 
000460  R 
000506 
000544 
000600 
000640 
000700 
000744 
OOT004 
001042 
001100  R 
001130  R 
001160  RG 
001206  R 
001246  R 
001306  R 
001346  R 
001406  R 
001456  R 
001516  R 
001566  R 
002312  RG 
002346  RG 
002402  RG 
002152  R 
002210  R 
002246  R 

:  000000 

:   177777 


=   ****** 


=  000000 

=    ****** 


GX 
GX 
GX 
GX 
GX 


GX 


=   **»♦,»  GX 

=    ******  GX 

000000  RG 
=  00000? 

-  ******  GX 

-  ******  GX 
=   .»**..  GX 


REFERENCES 

#7-212 

#7-206 

#7-180 

#7-181 

#7-182 

#7-183 

#7-184 

#7-185 

#7-186 

#7-187 

#7-188 

#7-189 

#7-190 

#7-191 

#7-192 

#7-193 

#7-194 

#7-195 

#7-196 

#7-197 

#7-198 

#7-199 

#7-200 

#7-201 

#7-202 

#7-203 

#7-204 

#7-205 

#7-216 

#7-217 

#7-218 

#7-213 

#7-214 

#7-215 

#17-717 

#17-717 

*8-390 

28-1376 

10-482 

33-1617 

33-1612 

17-717 
#17-717 

8-274 
♦27-1289 

27-1286 

8-267 
#8-258 
#17-717 

34-1641 

34-1640 

8-302 


25-1123 
25-1226 
25-1227 
27-1291 
27-1292 
27-1304 
27-1336 
28-1363 
28-1364 

28-1387 

28-1442 

28-1443 

30-1514 

9-467 

10-497 

10-498 

8-435 

11-550 

8-436 

8-437 

8-438 

8-439 

8-363 

8-440 

25-1192 

25-1207 


8-441 
8-442 
8-443 


♦32-1585 
28-1379 


3-308 
27-1297 


34-1652 
13-632 


♦32-1590 
28-1422 


8-313 
♦27-1302 


♦32-1595 
28-1425 


8-332 
27-1324 


30-1506 


♦8-340 
♦27-1334 


30-1508 


♦8-357 
28-1435 


25-1096 


25-1107 


27-1280 
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289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 

303  000000 

304  000000 

305  000004 

306  000012 

307  000016 

308  000022 

309  000026 

310  000030 

311  000034 

312  000036 

313  000044 

314  000046 

315  000052 

316  000054 

317  000060 
318 

319 
320 

321  000062 

322  000066 
323 

324 
325 

326  000070 

327  000076 

328  000100 

329  000104 


.SBTTL  SNTCFP  -  CONFIG  FILE  SCAN 

SNTCFP  -  PROCESS  CONFIG  FILE  FOR  PSI  PARAMETERS 

THIS  ROUTINE  IS  CALLED  DURING  "SET  CEX"  TO  PROCESS  THE  CONFIG  FILE 
FOR  NTL  PARAMETERS  PERTAINING  TO  PSI. 

INPUTS: 

$SLTA=SLr  ADDRESS 

OUTPUTS: 

C-eiT=SUCCESS/FAILURE 


SNTCFP: :VNPD8G  VCfP 


112767 
010667 


103535 

103772 
032767 
001006 

103533 

103766 


103515 


032767 
001403 

103366 


OOOOOOG  OOOOOOG 
000340' 


10$: 


OOOOOOG  OOOOOOG  20$: 


CALL 

MOVB 

MOV 

CALL 

CALL 

BCS 

CALL 

BCS 

BIT 

BNE 

CALL 

BCS 

CALL 

BCS 


$CLSAV 

#CL.OPN,$CLFLG 

SP.SPSAV 

OPEN 

READ 

100$ 

$QPSN 

10$ 

#PF.XGA,$PFLAG 

30$ 

READ 

101$ 

$QX3P 

20$ 


VNP  debugging  break  poiiit 

SAVE  GCL  CONTEXT 

SET  UP  NECESSARY  CONTEXT 

SAVE  SP  FOR  ERROR  EXIT 

OPEN  THE  CONFIG  FILE 

READ  NEXT  RECORD 

IF  CS,  EOF  (PSN$DF  MISSING  -  NOTHING  TO  DO) 

IS  IT  PSN$DF  ? 

BR  IF  NO  ..  KEEP  LOOKING 

If  host  system,  X3P$DF  may  be  absent  ... 

...  in  which  case  do  not  check  here 

READ  NEXT  RECORD 

IF  CS,  EOF  (X3P$DF  MISSING) 

IS  IT  X3P$DF? 

BR  IF  NO  ..  KEEP  LOOKING 


READ  NEXT  RECORD  FROM  CONFIG  FILE 


iO$: 


CALL 
BCS 


READ 
100$ 


READ  NEXT  RECORD 
BR  IF  EOF 


If  host  system,  check  for  an  X3P$DF 
OOOOOOG  OOOOOOG  ^2$: 


BIT 
BEQ 
CALL 
BCC 


#PF.XGA,SPFLAG 

34$ 

$QX3P 

30$ 


No  check  if  not  host 

Check  for  X3P$DF 

Look  for  next  macro  if  found 


330 

331 

;  LOOK  FOR  DTESDF,  DSTSDF,  RDT] 

332 

333  000106 

54$:    CALL 

$QDTE 

334  000112 

103031 

BCC 

35$ 

335  000114 

CALL 

SQDST 

336  000120 

103047 

BCC 

70$ 

337  000122 

CALL 

$QRDT 

338  000126 

103355 

BCC 

30$ 

339  000130 

CALL 

$QX29 

340  000134 

341 

342 

34  3 

344  000136 

103352 

BCC 

30$ 

;  If  host  system,  check  for  ren 

032767 

OOOOOOG  OOOOOOG  '      BIT 

#PF.XGA,$PFLAG 

345  000144 

001746 

BEQ 

30$ 

RDTSDF  OR  X29$DF 


IS  IT  DTE$DF? 

BR  IF  YES 

IS  IT  DSTSDF? 

BR  IF  YES 

IS  IT  RDTSDF? 

BR  IF  YES  -  LOOK  FOR  NEXT 

IS  IT  X29SDF? 

Branch  if  yes 


If  not  host,  ignore  RNWSDF 


;[TD001] 
.•[TD001] 
;**-2 


;[TD001] 
;[TD001] 
;[TD001] 


;CTD001] 
.-CTDOOI] 
.-[TDOOl] 
; CTDOOI] 
; [TDOOl] 
.-CTDOOI] 
; CTDOOI] 


;  CTDOOI] 
-..-1 


;CTD001] 
iCTDOOl] 
;  CTDOOI] 
;CTD001] 
;  CTDOOI] 
;  [TDOOl] 
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698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
7U 
715 
716 
717 
718 
719 
720 
721 
722 
723 
72A 
725 
726 
727 
728 

729  001 32A 

730  001324 

731  001326 

732  001330 

733  001332 

734  001336 

735  001 342 

736  001344 

737  001346 

738  001354 
739 

740  001356 

741  001362 

742  001364 

743  001366 
744 

745  001370 

746  001376 

747  001400 
748 

749 
750 

751  001404 

752  001410 

753  001414 

754  001420 


.SBTTL  STOfilD  -  Store  id-string  according  to  system  type 
***  STORID  -  Store  id-string  according  to  system  type 


FUNCTION 


This  routine  is  used  to  check  and  store  various  parameters 
during  the  parsing  of  CETAB  macros.  In  PSI  V2.0  compatible 
systems,  it  checks  for  and  stores  parameters  in  PSI  V2.0 
compatible  format.  In  extended  systems,  id-strings  of  up 
to  MAXID  characters  are  permitted  and  stored  appropriately. 
The  buffer  is  padded  with  spaces.  The  length  returned  in  the 
buffer  is  the  maximum  length  for  old-format  systems  (fixed 
fields)  or  the  actual  length  for  new-format  systems  (variable 
fields). 


INPUTS 


RO     -  address  of  buffer  to  contain  string  prefixed  by  length 
R1      -  maximum  length  of  string  in  old-format  system 

(R1  <  MAXID) 
.PSTCN  -  actual  length  of  string 
SPFLAG  -  PSI  system  type  flags 


OUTPL'TS 


RO,  R1,  R2  destroyed 

String  and  length  stored  in  buffer 

Carry  set  if  invalid  string  length  for  system  type 


STORID:: 
010046  MOV 

010146  MOV 

105020  CLRS 

012701  000020  MOV 

CALL 

012601  MOV 

012602  MOV 
032767  OOOOOOG  OOOOOOG  BIT 
001005  BNE 

026701  OOOOOOG  '  CMP 
101020  BHI 

110122  Move 

000406  BR 

026727  OOOOOOG  000020  Jo$:  CMP 
101012  BHI 

116722  OOOOOOG  M0V8 


RO,-(SP) 

R1,-(SP) 

(R0)  + 

#MAXJD,R1 

SPFILL 

(SP)+,R1 

(SP)+,R2 

#PF.XDF, SPFLAG 

20$ 

. PSTCN, R1 
99$ 

R1,(R2)+ 
50$ 

. PSTCN, *MAXID 

99$ 

.PSTCN, (R2)+ 


016701  OOOOOOG 
016700  OOOOOOG 

000241 


Move  string  to  buffer 

50$:    MOV  . PSTCN, R1 

MOV  .PSTPT,RO 

CALL  MOVE 
CLC 


Save  buffer  address 

Save  maximum  length 

Clear  length  field  in  output 

Always  clear  MAXID  spaces 

Restore  length 

Get  back  buffer  address 

Check  for  extened  data  format 


Old  format,  so  use  max  Length  in  R1 

HI,  then  string  too  long 

Set  length  to  maximum  for  fixed  field 


New  format,  max  length  is  MAXID 

Set  actual  length  for  variable  field 


Get  address  of  source 
Move  string  to  buffer 
Signal  success 


;CTD001] 
;[TD001] 
;CTD001] 
;CTD0013 
;[TD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;[rD0013 
;CTD001] 
;[TD001J 
;CTD00i: 
;[TD001] 
;[TD001D 
;CTD001D 
;[TD001] 
;CTD001] 
;CTD001] 
; [TD001 ] 
;[TD001] 
.•CDOOI] 
;[TD001] 
;[TD001D 
;CTD00i: 
;[TD001] 
;[TD001] 
.■CTDOOI] 
;[TD001] 
.■CTDOOl] 
;[TD001] 
.-CTDOOI] 
;[TD001] 
;CTD001] 
;[TD001] 
;[^D001] 
;[TD001] 
.•CTDOOl] 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
.-[TDOOl] 
;[TD001] 
; [TDOOl] 
;  [TDOOl] 
; [TDOOl] 
; [TDOOl] 
; [TDOOl] 
;  [TDOOl] 
;  [TDOOl] 
;  [TDOOl] 
;  [TDOOl] 
; [TDOOl] 
;  [TDOOl] 
; [TDOOl] 
; [TDOOl] 
; [TDOOl] 


kAC  n7U  r,*- 
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VCLQRI 


1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2h 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


.TITLE  VCIO  -  LOAD  CETA8  IMAGE 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  EY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  W  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  LOAD  CETAB  IMAGE  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  U-DEC-79 

DECNET-IIM/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-HM-Plus   V3.0 
DECnet-Micro/RSX   Vl.O 
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1 
2 
3 

5 
6 

7 

8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
21^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE  VCLQRM  -  REMOVE  ENTRIES  FROM  CLOCK  QUEUE 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

REMOVE  CLOCK  QUEUE  ENTRIES  PROCESSING  FOR  VNP 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  05-AUG-80 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF   ITS 
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VDEV 
DVALL 

l^ 
I, 
t, 
li 
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A20 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
456 

437  000772 

438  000772 

439  000776 

440  001002 

441  001006 

442  001014 

443  001022 

444  001026 

445  001030 

446  001036 

447  001044 

448  001050 

449  001054 

450  001056 

451  001060 

452  001064 

453  001070 

454  001074 

455  001100 

456  001102 

457  001104 

458  001106 
459 

460 
461 
462 
463  001110 


.SBTTL  DVALL  -  ALLOCATE  DEVICE  TABLE 

DVALL  -  ALLOCATE  DEVICE  TABLE  SPACE  FROM  THE  POOL 

THIS  ROUTINE  IS  CALLED  TO  ALLOCATE  SPACE  FOR  THE  DEVICE  TABLES  FROM  THE 
CORE  POOL.  THE  AMOUNT  TO  ALLOCATE  IS  DEFINED  BY  THE  VALUE  OF  SXXEND  FROM 
THE  STB  FILE.  THE  SYMBOL  VALUES  FROM  THE  STB  FILE  ARE  ADJUSTED  BY  ADDING 
THE  ADDRESS  OF  THE  ALLOCATED  DATA. 

INPUTS: 


LENGTH=BYTE    COUNT   NEEDED 

OUTPUTS: 

C-8IT=SUCCESS/FA1LURE 

$LBUF=BUFFER  ADDRESS  (IF  SUCCESSFUL) 

$LLEN=DEV1CE  TABLES  LENGTH 


016701 
062701 
042701 


103430 


010067 
010167 
060001 
005301 
010167 
166700 
012701 
060061 
011101 
001374 
000241 


000136' 

000003 

000003 


000174' 
000176' 


000202' 
000170' 
000140' 
000010 


DVALL: 


MOV 

LENGTH, R1 

ADD 

*3,R1 

BIC 

#3,R1 

SWTCHO 

SWTCHI 

CALL 

$ALL15 

BCS 

101$ 

SWTCHO 

#DEV6UF 

SWTCHI 

#DEVBUF 

MOV 

RO.PBUF 

MOV 

R1,PLEN 

ADD 

RO.RI 

DEC 

R1 

MOV 

Rl.TABEND 

SUB 

BASE.RO 

MOV 

#D8LK2,R1 

30$:    ADD 

R0,10(R1) 

MOV 

(R1),R1 

BNE 

30$ 

CLC 

RETURN 

;  ERROR  CONDITION 

101$:    EMSG$R 

2L 

GET  BYTE  COUNT  NEEDED 

ROUND  UP  TO  NEXT  MULTIPLE  OF  4 

IN  MEMORY  OF  THE  RPO*  SERIES 

DEFAULT  TO  $BFR  FOR  $ALL15  ROUTINE 

DEFAULT  TO  SBFR  FOR  $ALL15  ROUTINE 

TRY  TO  ALLOCATE  FROM  THE  POOL 

IF  CS,  FAILURE 

RETURN  TO  LOCAL  BUFFER 

RETURN  TO  LOCAL  BUFFER 

STORE  ADDRESS  AND 

LENGTH 
CALCULATE  END  OF  TABLES-1 

SAVE  IT'fOR  later 

ADJUST  FOR  TKB  BASE  ADDRESS 

START  AT  SECOND  CONTROL  BLOCK 

ADJUST  DEVICE  TABLE  SYMBOL 

GET  NEXT  CONTROL  BLOCK  ADDRESS 

IF  NE,  NOT  AT  END 

INDICATE  SUCCESS 


;  ALLOCATION  FAILURE 
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CREF       04.00 


VDl 
$DC 


SYMBOL 

VALUE 

REFERENCES 

$ERR2I 

0031 OA 

R 

#7-164 

13-615 

tERR2U 

003156 

R 

#7-165 

13-616 

SERR2V 

003?30 

R 

#7-166 

13-619 

$ERR2U 

003262 

R 

#7-167 

13-620 

$ERR2X 

00553A 

R 

#7-168 

9-303 

$ERR2y 

005376 

R 

#7-169 

8-262 

tFEATR 

Z 

****** 

GX 

8-234 

SGETRV 

= 

****** 

GX 

8-226 

8-233 

9-281 

13-587 

13-596 

SIOSB 

- 

****** 

GX 

11-416 

13-608 

$LBUF 

- 

****** 

GX 

13-626 

15-686 

$LLEN 

r 

****** 

GX 

•13-489 

15-687 

$NAME 

- 

****** 

GX 

10-324 

16-717 

SNLDEV 

000000 

RG 

#8-206 

$PD\/A 

~ 

***!■** 

GX 

8-224 

SPRV.N 

= 

t ***** 

GX 

7-149 

7-150 

7-153 

SPUTRC 

- 

****** 

GX 

8-232 

8-250 

13-569 

13-598 

13-602 

SRADDR 

= 

****** 

GX 

•8-226 
13-590 

•8-233 
•13-596 

•8-250 
•13-600 

•9-279 

9-284 

$READ 

- 

****** 

GX 

13-491 

SREP.C 

r 

****** 

GX 

7-154 

7-156 

SREP.P 

r 

****** 

GX 

7-151 

7-152 

16-709 

SRLBL 

- 

****** 

GX 

11-400 

SRSIZE 

- 

****** 

GX 

•13-565 

•13-568 

•13-580 

SSAVAL 

r 

**  *  *** 

GX 

14-650 

SSYMBL 

= 

****** 

GX 

10-345 

tllOUT 

- 

****** 

GX 

14-667 

$$DEV 

r 

****** 

GX 

9-282 

10-327 

10-328 

13-500 

17-754 

$$T8L 

= 

****** 

GX 

8-227 

13-600 


•13-569 


•13-582 


13-584 


•13-585 


17-755 


I   H 
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VI 
Dl 


367 
368 

.SBTIL 

jDoaj  -  bHu  u 

HJ 

369 
370 
371 

•  + 

;  $D0BJ 

-  SHOW 

KNOWN  OBJECTS 

CHARACTERISTICS  OR  SUMMARY 

372 

SHOW 

OBJECT  X  CHARACTERISTICS  OR  SUMMARY 

373 
374 
375 
376 

;  INPUTS:  NONE 

•  OUTPUTS:  THE 

OBJECT  CHARACTERISTICS  OR 

SUMMARY  ARE  DISPLAYED 

377 
378 
379 
380 

ON 

THE  USERS  TERMINAL 

ALL 

REGISTERS  ARE 

DESTROYED 

381 
382 
383  002272 

SDOBJ :  ; 

CALL 

CKTYPE 

GET  COMMAND  TYPE 

384  002276 

103004 

BCC 

5$ 

BR  IF  SUCCESS 

385  002300 

ERRPT$ 

SYNERR,$EROUT 

ELSE  SYNTAX  ERROR 

386  002310 

012701 

001062' 

5$: 

MOV 

#TEMP2,R1 

STORAGE  FOR  INTRO  DISPLAY 

387  002314 

012705 

000012 

MOV 

#0.LEN,R5 

GET  LENGTH  OF  OBJECT  BLOCK  TO  READ 

IN 

388  002320 

012705 

OOOOOOG 

MOV 

*$0ejHD,R5 

GET  OBJECT  LISTHEAD 

389  002324 

005767 

OOOOOOG 

TST 

SQUAL 

SHOW  KNOWN  OBJECTS? 

390  002330 

001416 

?l? 

30$ 

BR  IF  NO 

391  002332 

005705 

R3 

ANY  OBJECTS  IN  SYSTEM 

392  002334 

001446 

BED 

70$ 

BR  IF  NO 

393  002336 

012700 

000057' 

MOV 

#OKNOWN,R0 

DISPLAY  KNOWN  OBJECTS 

394  002342 

112021 

10$: 

MOVB 

(R0)+,(R1)+ 

STORE  IT 

395  002544 

396 

397 

398 

399  002346 

001576 

BNE 

10$ 

... 

•  SHOW 

KNOWN  OBJECTS 

005004 

CLR 

R4 

INDICATE  HEADER  TO  BE  PRINTED 

400  002550 

20$: 

CALL 

NXTBLK 

GET  NEXT  ENTRY  IN  OBJECT  TABLE 

401  002354 

103456 

BCS 

70$ 

BR  IF  AT  END  OF  OBJECT  LIST 

402  002556 

CALL 

DISOBJ 

DISPLAY  THE  OBJECT  INFORMATION 

403  002562 

005204 

INC 

R4 

INDICATE  HEADER  NOT  DISPLAYED 

404  002564 

405 

406 

407 

408  002566 

000771 

BR 

20$ 

GO  DO  NEXT  ONE  IN  LIST 

;  SHOW 

SPECIFIED  OBJECT 

005705 

^0$: 

TST 

R5 

ANY  OBJECTS  IN  SYSTEM 

409  002570 

001421 

BEQ 

60$ 

BR  IF  NO 

410  002572 

012700 

000055' 

MOV 

#0SPEC,R0 

DISPLAY  SPECIFIED  OBJECT 

411  002576 

112021 

40$: 

MOVB 

(R0)+,(R1)+ 

STORE  IT 

412  002400 

001576 

BNE 

40$ 

*  >  ■ 

415  002402 

50$: 

CALL 

NXTBLK 

READ  IN  NEXT  ENTRY  IN  OBJECT  TABLE 

414  002406 

105412 

BCS 

60$ 

BR  IF  AT  END  OF  LIST 

415  002410 

012702 

OOOOOOG 

MOV 

#RQB,R2 

GET  INPUT  PARAMETERS 

416  002414 

126263 

000002  000002 

CMPB 

LR.TYP(R2),0 

TYP(R5) 

IS  THIS  THE  ONE  TO  DISPLAY? 

417  002422 

001567 

BNE 

50$ 

BR  IF  NO 

418  002424 

005004 

CLR 

R4 

INDICATE  PRINT  HEADER 

419  002426 

CALL 

DISOBJ 

•  DISPLAY  OBJECT  INFORMATION 

420  002452 

421 

422 

000407 

BR 

70$ 

•  FINISHED 

1  SPECIFIED  OBJECT  NOT  FOUND 

423 

I  15 
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VDIS  -  VNP  SHOW 

COMMANDS 

MAfR 

DIONAM  ■ 

■  DISPLAY  LOGGING 

SINK 

NAME 

92i 

005162 

005200 

925 

00516^. 

112720 

300073 

926 

005170 

012301 

927 

005172 

005002 

928 

005174 

929 

005200 

105010 

930 

005202 

931 

005212 

MAfRO  V05.03b  Monday  15-Jut-85 
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60$; 


INC 

MOVB 

MOV 

CLR 

CALL 

CLf^B 

ERRPIS 

RETURN 


RO 

*';,(R0)» 

(R3)»,R1 

R2 

$C80MG 

(RO) 

L0MSG7,MSG0UT 


POINT  PAST  LAST  NON-BLANK 

STORE  SEMI-COLON 

GET  UNIT  NUMBER 

SUPPRESS  LEADING  7ER0ES 

CONVERT  IT  TO  ASCII 

CREATE  ASCI7  STRING 

DISPLAY  LOGGING  SINK  NAME  MESSAGE 


I  16 


VCEX  -  VNP  LOAD  CEX  ROUTINES 
ISCEX  -  TRANSFER  COMM  EXEC 


273 

27A 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289  000000 

290 

291  000000 

292  000000 

293  000004 

294  000006 
295 

296  000010 

297  OOOOU 

298  000020 

299  000022 

300  000026 
301 

302 

303  000032 

304 

305 

306 

307 

308  000036 

309  000040 
3^0 

311 
312 

313  000044 

314  000050 

315  000052 

316  000056 

317  000062 

318  000066 

319  000104 

320  000110 

321  CC011-; 

322  000120 

323  000134 

324  000140 

325  000142 

326  000160 

327  000164 

328  000170 

329  000172 
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VCEX  - 
CEPTR 


'03001 

012700  000046 
103002 

012700  OOOOOOG 

012701  000376' 


005002 


103002 

010167 
0167-^0 

012701 
016102 
C66102 

162700 
010001 

012700 
062701 
061001 
042001 


.SBTTL  $SCEX  -  TRANSFER  COMM  EXEC 

SSCEX  -  TRANSFER  COMM  EXEC  INTO  CORE 

INPUTS: 

$$MUX=NETLDR  DATA  BLOCK  ADDRESS 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 

.CXSYM=PROCESS  VALIDATION  SYMBOL  DEFINITIONS 

.CXPCa^COMM  EXEC  PCB  ADDRESS 

.CXALL=CETAB  ALLOCATION  ADDRESS 

.CXLEN=CErAB  ALLOCATION  LENGTH 

$NTLPT=NETLDR  DATA  BLOCK  ADDRESS 

FE.CEX  OF  SFMASK  SET  IF  SUCCESSFUL 

SSCEX:: 


LOOK  FOR  SPECIAL  SYMBOLS 
IF  CS,  ERROR 


1$: 


10$: 


000406' 
0000006 

OOOOOOG 

000016 

000014 

000002 


OOOOOOG 
000006 


15$: 


.MCALL 

VNPBPT 

VNPBPT 

VCEX 

CALL 

CESYM 

8CC 

1$ 

RETURN 

MOV 

*46,R0 

CALL 

RUNNTI 

BCC 

10$ 

CALLR 

TSKERR 

MOV 

#$DFUIC,RO 

.IF  NDF 

R$$MPL 

MOV 

#CEXNAM,R1 

.IFF 

MOV 

#$RSX,R1 

.ENDC 

CLR 

R2 

CALL 

SAZFS 

.IF  NDF 

R$$MPL 

CALL 

$PfiIO 

BCC 

15$ 

CALLR 

TSKERR 

MOV 

R1,CEXPCS 

MOV 

.CEAVL.RO 

GETRV 

R1,.PLGTH 

MOV 

#$BFR,R1 

MOV 

P.6LKS(R1),R2 

ADD 

P.REL(R1),R2 

ASL$ 

6.R2 

SUB 

#J,RO 

MOV 

RO.RI 

GETRV 

R0,#20. 

MOV 

#$BFR,R0 

ADD 

#6,R1 

ADD 

(R0),R1 

BIC 

(R0)+,R1 

ASSUME  ERROR  (46=NTINIT  INIT  FAILURE) 

KICK  OFF  TIMER  SERVICE 

IF  SUCCESS  -  BRANCH 

EXIT  ON  ERROR 

SETUP  ASCIZ  FILE  SPEC 


FOR  CXXX,5X]CEX.STB 
FOR  [XXX,543RSX11M.STB 


TRANSFER  COMM  EXEC  INTO  CORE 

IF  SUCCESS  -  BRANCH 

IF  NOT  -  ERROR 

SAVE  THE  COMM  EXEC  PCB  ADDRESS 

GET  ADDRESS  OF  "SCEAVL" 

READ  IN  THE  COMM  EXEC  PCB 

POINT  AT  THE  INTERNAL  PCB 

GET  THE  SIZE  OF  THE  COMM  EXEC  PARTITION 

CALCULATE  END  OF  PARTITION 

CONVERT  BLOCKS  TO  BYTES 

POINT  AT  START  OF  POOL  LISTHEAD 

SAVE  START  ADDRESS  OF  POOL  LISTHEAD 

READ  IN  THE  POOL  LISTHEAD 

POINT  AT  LISTHEAD  TEMPLATE 

POINT  AT  END  OF  LISTHEAD  (  START  OF  FREE  SPACE) 

ROUND  ADDRESS 
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VCEX 

.  r  n  T  n 


VCEX  -  VNP  LOAD  CEX  ROUTINES 
CEPTR  -  INIT  CETA8  POINTERS 


839  002026 
SAO  002026 
841  002032 
8A2  002036 
8A3  002040 

844  002050 

845  002052 

846  002054 
847 

848  002056 
849 

850  002064 

851  002066 
852 


012704 
103007 

000261 


000001 


MACRO  V05.03b  Saturday  29-Jun-85  02:13  Page  14-2 
90$: 


;rMP01] 


MOV 

#TICKS 

R4 

NUMBER  OF  TICKS 

CALL 

RUN 

RUN  NTINIT 

BCC 

100$ 

IF  SUCCESS  -  BRANCH 

ERRPT$ 

ERR4,MSG0UT 

NO  NODES  IN  POOL 

RESRG 

<R0> 

RESTORE  REG 

SEC 

INDICATE  ERROR 

RETURN 

100$: 

SWTCHO 

POINT  BACK  AT  DEFAULT  BUFFER 

110$: 

RESRG 
RETURN 

<R0> 

•  RESTORE  REG 
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An  nn  r  mtc  DC 
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1 

2 

3 

A 

5 

6 

7 

8 

9 

10 
11 
12 
13 
lA 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  VCFG  -  VNP  SCAN  CONFIGURATION  FILE 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  CONFIG  FILE  SCANNER  FOR  "SET  LINE"  AND  "SET  PROCESS" 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

0ECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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CERR.CFERR  -  PRINT   ERROR 

.S8TTL     CERR.CFERR  -  PRINT  ERROR 

CERR  -  PRINT  ERROR  MESSAGE 

CFERR  -  PRINT   FILE   ASSOCIATED  ERROR  MESSAGE 

INPUTS: 

RO=MESSAGE  BLOCK   ADDRESS 

OUTPUTS: 

C-8IT=SET 

RETURN   TO  $NLCFG'S   CALLER 


554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566  001234 

010046 

567  001236 

568  001242 

012600 

569  001244 

010005 

570  001246 

012704     000027' 

571    001252 

012503 

572  001254 

573  001256 

105713 

574  001260 

001403 

575  001262 

112324 

576  001264 

001376 

577  001266 

005304 

578  001270 

012503 

579  001272 

112524 

580  001274 

001376 

581   001276 

005304 

582  001300 

012700     000017' 

583  001304 

010401 

584  001306 

160001 

585   001310 

586  001314 

005703 

587  001316 

001401 

588  001320 

589  001322 

000261 

590  001324 

016706     002702' 

591   001330 

CERR:: 

MOV 

RO,-(SP) 

CALL 

SCLDEQ 

MOV 

(SP)+,RO 

CFERR: 

:    MOV 

R0,R5 

MOV 

#EfiR8UF,R4 
(R5)+,R3 

MOV 

CALL 

a(R5)+ 

TST8 

(R3) 

BEQ 

20$ 

10$: 

MOVB 

(R3)+,(R4)+ 

8NE 

10$ 

DEC 

R4 

20$: 

MOV 

(R5)+,R3 

30$: 

Move 

(R5)+,(R4)+ 

BNE 

30$ 

DEC 

R4 

MOV 

#ERRMSG,RO 

MOV 

R4,R1 

SUB 

RO.Rl 

CALL 

$TIOUT 

TST 

R3 

BEQ 

40$ 

CALL 

(R3J 

40$: 

SEC 

MOV 

SPSAV,SP 

RTSPC::    RETURN 


SAVE   RO 

CLOSE   THE    CONFIG  FILE 

RESTORE  RO 

COPY  ERROR  MESSAGE  BLOCK  ADDRESS 

PLACE  TO  BUILD  ERROR  MESSAGE 

GET  FORMAT  STRING  ADDRESS 

DO  THE  FORMATTING 

IS  IT  END  OF  FORMAT  STRING? 

IF  EQ,  YES 

ELSE  COPY  REST  OF  FORMAT  STRING 

SKIP  THE'ZERO  BYTE 
GET  LINE  2  ADDRESS 
COPY  THE  ERROR  TEXT 

SKIP  THE'ZERO  BYTE 

GET  ERROR  MESSAGE  ADDRESS 

COPY  END  ADDRESS 

GIVING  LENGTH 

PRINT  IT 

SHOULD  SECOND  LINE  BE  PRINTED? 

IF  EQ,  NO 

PRINT  SECOND  ERROR  MESSAGE  LINE 

RETURN  FROM  $NLCFG  WITH  C-BIT  SET 
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VCfG  -  VNP  SCAN  CONFIGURATION  F  MACRO 
FEAiDF  STATE  TABLE 

985 
986 
987 

988  001512 

989  001512 
990 

991  001512 

992  001512 
993 

99A  001512 
995  001512 
996 

997  001512 

998  001512 
999 

1000  001512 

1001  001512 
1002 

1003  001512 

1004  001512 
1005 

1006  001512 

1007  001512 
1008 

1009  001512 

1010  001512 
1011 

1012  001512 

1013  001512 


I     5 
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.SBTTL  FEASDF  STATE  TABLE 

•  FEATURES  DEFINITION  (FEASDF) 

STATES  FEADF 

TRANS  5!FEA$DFJ1,,,1,SYNERR 

STATES 

TRANS  SALPHA,, F.CHI 

STATES 

TRANS  SALPHA,, F.CH2 

STATES 

TRANS  <',> 

STATES 

TRANS  SNUMBR,,F.FEA 

STATES 

TRANS  <',> 

STATES 

TRANS  $NUM8R.,F.M0D 

STATES 

TRANS  <',> 

STATES 

TRANS  $NUMBR,SEXIT,F.SET 
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VCFG  -  VNP  SCAN  CONFIGURATION  F 
TPARS  ACTION  ROUTINES 


1533 
1534 
1535 
1536 

1537  003644 

1538  003650 

1539  003652 

1540  005660 
1541 

1542  003662 

1543 

1544 

1545 

1546 

1547  003670 

1548  003674 

1549  003676 

1550  003704 
1551 

1552  003706 

1553 

1554 

1555 

1556 

1557 

1558  003714 

1559  003722 
1560 

1561 
1562 
1563 

1564  003724 

1565  003732 
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005767 
001004 
016767 


005767 
001004 
016767 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 


HELLO  TIMER 


U.HTIM:  TST  .PNUMH 

BNE  101$ 

OOOOOOG        MOV  .PNUMB,$$HTIM 
RETURN 


101$:   EMSG$R  YA 


LISTEN  TIMER 


U.LTIM:  TST  .PNUMH 

BNE  101$ 

OOOOOOG        MOV  .PNUMB,$$LTIM 
RETURN 

101$:   EMSG$R  YB 


DOUBLE  WORD  VALUE? 
BR  IF  YES  -  ERROR 
SAVE  HELLO  TIMER  VALUE 


ILLEGAL  HELLO  TIMER  VALUE 


DOUBLE  WORD  VALUE? 

BR  IF  YES  -  ERROR 

SAVE  LISTEN  TIMER  VALUE 


ILLEGAL  LISTEN  TIMER  VALUE 


FIRST  CHARACTER  OF  DEVICE  NAME  (LLC$DF) 


116767  OOOOOOG 


OOOOOOG  L.CHI:   MOVB 

RETURN 


=CHAR,$$DEV    ;  COPY  THE  CHARACTER 


SECOND  CHARACTER  OF  DEVICE  NAME  (LLC$DF) 

116767  OOOOOOG  OOOOOIG  L.CH2:  MOVB    .PCHAR,$$DEV+1   ;  COPY  SECOND  CHARACTER 

RETURN 
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VCFG 


CREATED  BY     MACRO     ON  15-JUL-85  AT   19:06 


SYMBOL    CROSS  REFERENCE 
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PAGE   6 

CREF       OA.OO 


VCFP 
SNTC 


SYMBOL      VALUE 


$QDTE 

r 

**■***» 

SQPVC 

= 

*  ***** 

$QSVC 

= 

****** 

$QX2P 

= 

****** 

tQX3P 

~ 

****** 

SRADDR 

~ 

****** 

$RAD50 

= 

000016 

SRDBSZ 

r 

****** 

SREP.N 

~ 

****** 

SRONLY 

- 

****x* 

$SLTA 

- 

****** 

SSTRNG 

ZL 

000004 

SSUBXP 

= 

000010 

STIOUT 

= 

****** 

SXLINK 

:: 

****** 

$$APR 

= 

****** 

$$CSR 

= 

****** 

$$DCHA 

- 

****** 

$$DEV 

= 

****** 

$$DPR 

= 

****** 

$$EXT 

=: 

****** 

$$HTIM 

= 

****** 

$$INC 

= 

****** 

$$LSAD 

- 

****** 

$$LTIM 

= 

****** 

$$MTP 

= 

****** 

$$nux 

= 

****** 

$$NBRA 

= 

****** 

$$PCHA 

- 

****** 

$$PRI 

- 

****** 

$$RPR1 

- 

****** 

JSSCSR 

- 

****** 

$$SNUM 

~ 

****** 

$$VECT 

- 

****** 

$$$FLG 

= 

177777 

$$$KEY 

= 

177777 

.MGMGE 

r 

****** 

.PCHAR 

= 

****** 

.PNUMB 

= 

****** 

.PNUMH 

.PSTCM 
■PSTPT 
.TPARS 
,.SCSR 


GX 
GX 
GX 
GX 
GX 
GX 

GX 
GX 

GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 


GX 

GX 
GX 
GX 
GX 


REFERENCES 

8-300 

8-304 

8-296 

8-369 

8-298 
*33-1612 
#17-717 

29-U78 

7-193 

17-717 

8-269 
#17-717 
#17-717 

12-585 

33-1621 
♦25-1255 
*27-1301 
♦28-1382 
♦31-1558 
♦30-1530 
♦25-1109 
♦25-1176 
♦25-1098 
♦25-1190 
♦25-1178 
♦25-1203 

8-338 
♦11-517 

♦  28-14H 
♦27-1333 

♦  11-518 
♦28-1^39 
♦25-1220 
♦27-1288 
#17-717 
#17-717 

25-1094 

31-1558 

25-1098 

25-1167 

25-1215 

27-1284 

28-1373 

30-1522 

25-1165 

28-1356 

13-635 

13-647 

11-540 

28-1433 


8-397 
♦35-1617 


7-194 

17-717 

25-1234 


16-711 


♦28-1385 
♦  31-1564 

♦25-1118 
♦26-1269 


♦26-1271 
♦25-1223 

♦25-1146 
♦28-1416 

♦25-1155 


25-1105 

31-1564 

25-1109 

25-1176 

25-1220 

27-1286 

28-1399 

30-1530 

25-1174 

28-1369 

13-640 

25-1074 


-414 


17-717 
28-1372 


♦28-1399 
32-1571 


♦31-1539 
♦31-1549 


25-1116 
32-1571 
25-1118 
♦25-1177 
25-1232 
27-1288 
28-1402 
31-1539 
25-1186 
28-1392 
13-642 


28-1396    28-1411    28-1434    29-1469    30-1521 


♦28-1402    29-1458    29-1462    29-1473 
32-1578 


32-1578 
25-1119 
25-1178 
25-1243 
27-1313 
28-1414 
31-1549 
25-1213 
28-1408 
13-646 


25-1129 
25-1188 
25-1251 
27-1316 
28-1416 
32-1585 
26-1264 
31-1537 
25-1075 


25-1137 
25-1190 
25-1255 
27-1328 
29-1452 
32-1590 
27-1282 
31-1547 


25-1146 
25-1199 
26-1269 
27-1330 
♦29-1498 
32-1595 
27-1309 
35-1659 


25-1153 
25-1201 

♦26-1270 
28-1358 

♦29-1499 
35-1661 
27-1311 
35-1673 


25-1155 
25-1203 
26-1271 
28-1360 
30-1519 
35-1675 
27-1326 


VfFG 


fRFATFD   BY      MACRO      ON   15-JUL-85   AT    19:06 
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SNTCFP  -  CONFIG  FILE  SCAN 


3A6  000146 

347  000152 

348  000154 

349  000160 

350  000162 

351  000166 

352  000170 

353  000174 
354 

355 
356 
357 
358 

359  000176 

360  000202 

361  000204 

362  000210 

363  000212 

364  000220 

365  000222 

366  000226 

367  000230 

368  000234 

369  000236 
370 

371 
372 

373  000240 

374  000244 

375  000246 

376  000252 

377  000254 

378  000260 

379  000262 

380  000266 

381  000270 

382  000276 

383  000300 

384  000304 

385  000306 

386  000312 

387  000314 

388  000320 
389 

390 
391 
392 

393  000322 

394  000330 
395 

396  000332 

397  000336 

398  000340 
399 

iOO 
401 
402 


103743 
103504 
103501 
000732 


103447 

103372 
032767 
001003 

103363 

103360 
000714 


103441 

103436 

103436 

103433 
032767 
001406 

103427 

103424 

000660 


126727 
001402 


000241 


Check  for  RNWSDf 

Not  RNWSDF,  so  keep  Looking 

Check  for  matching  RNASDF 

RNASDF  missing  if  EOF 

Check  for  RNAIDf 

Not  RNASDF,  so  error 

End  of  remote  network  macros 

Look  for  another  macro 

Process  DTESDF  macro  and  associated  macros 

As  PVC  circuit  blocks  are  allocated  from  separate  PSI  pool 

in  gateway  systems,  PVCSDF  is  ignored  for  gateways. 


CALL 

SQRNW 

BCS 

30S 

CALL 

READ 

BCS 

105S 

CALL 

SQRNA 

BCS 

105$ 

CALL 

RNWEND 

BR 

30S 

55S: 


OOOOOOG  OOOOOOG 


36$: 


CALL 

BCS 

CALL 

BCC 

BJT 

BNE 

CALL 

BCC 

CALL 

BCC 

BR 


READ 

100$ 

SQCHN 

35$ 

#PF.PSV,SPFLAG 

36$ 

SQPVC 

35$ 

SQCUG 

35$ 

32$ 


Read  next  record 

Branch  if  eof 

Is  it  CHN$DF? 

Branch  if  yes  -  check  for  more 

If  Gateway  system,  ignore  PVC$DF  macros 

...  as  nowhere  to  allocate  circuit  blocks 
Is  it  PVCSDF? 

Branch  if  yes  -  check  for  more 
Is  it  CUGSDF? 

Branch  if  yes  -  check  for  more 
Else  back  to  top  level  scan 


Process  DSTSDF,  DSA$DF,  DSC$DF,  DSN$DF  macros 


>0%: 


OOOOOOG  OOOOOOG 


72t: 


CALL 

READ 

BCS 

102$ 

CALL 

$QDSA 

BCS 

102$ 

CALL 

READ 

BCS 

103$ 

CALL 

$QDSC 

BCS 

103$ 

BIT 

#PF.PSV,$PFLAG 

BEQ 

72$ 

CALL 

READ 

BCS 

104$ 

CALL 

$QDSN 

BCS 

104$ 

CALL 

DSTEND 

BR 

30$ 

ALL  NEEDED  PARAMETERS  SEEN 


OOOOOOG  OOOOOOG  100$: 


110$: 


CMPB 
BEQ 

CALL 

CLC 

RETURN 


$CLSBK,*IE.EOF 
110$ 

$CLDEO 


READ  NEXT  RECORD 

BR  IF  EOF  -  NO  DSA$DF 

IS  IT  DSA$DF? 

BR  IF  NO  -  NO  DSA$DF 

READ  NEXT  RECORD 

BR  IF  EOF  -  NO  DSC$DF 

IS  IT  DSC$DF? 

BR  IF  NO  -  ERROR 

If  gateway  system,  insist  on  DSN$DF 

EQ,  then  not  gateway  system 

EOF  -  No  DSN$DF 

Check  for  DSN$DF 

Error  if  not  present 

END  OF  DESTINATION  DESCRIPTOR  BLOCK  MACROS 

GO  READ  AND  PROCESS  NEXT 


EOF  ? 

IF  VES  -  BRANCH 

CLOSE  CONFIG  FILE 
INDICATE  SUCCESS 


ERROR  CONDITIONS 


;CTD001] 
;[TD001] 
;[TD0013 
;[TD001J 
;rTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD0013 
;CTD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001T 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;**-15 


.-CTDOOl] 
;[TD001] 
;[TD001] 
.-[TDOOl] 
;[TD001] 
;CTD001] 
;[TD001] 

;,t-l 


ircD   _    i/MD   Di!    rriMC  ir.i  lOAT  inM   fl    MirBR   un";    (l^h    <;stiirrts\ 
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STORID  -  Store  id-string  according  to  system  type 
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VCIO 


755  00U22 
756 

757  001A24  000261 

758  00U26 
759 


RETURN 

SEC 
RETURN 


;  Signal  string  too  long 


CTD001] 
[TDOOI] 
CTD001J 
CTDOOI] 
[TDOOi: 
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VCLQRI 
MACRO 


52 
55 
54 
55 
56 
57 
58 
59 

60  000000 

61  000000 

62  000000 
63 

64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87  000000 

OQ 

89  000002 

90  000004 

91  000006 

92  000010 

93  000012 

94  000014 

95  000016 

96  000020 

97  000022 

98  000024 

99  000026 

100  000030 

101  000032 

102  000034 

103  000036 

104  000040 

105  000042 

106  000044 

107  000000 


■  »** 

•  LIBRARY  MACROS 

•  »♦* 

.MCALL  HUDDF$,LBLDF$,PUTRC,DHBDF$ 


LIBRARY  SYMBOLS 

*** 

HWDDFS 
LBLDfS 
DHBDFS 

*** 

LOCAL 

MACROS 

*** 

SHIFT 

LEFT 

.MACRO 

ASL$    COUNT, REG 

.IF  DF 

R$$EJS 

ASH 

*'COUNT',REG 

.IFF 

.REPT 

COUNT 

ASL 

REG 

.ENDR 

.ENDC 

.ENDM 

ASL$ 

*** 

LOCAL 

SYMBOLS 

FEATURES  MASK  BIT  DEFINITIONS 
TASK  IMAGE  LABEL  BLOCK  OFFSETS 
DEFINE  DECNET  HOME  BlOCK  OFFSETS 


;  ERROR  CODES  RETURNED  TO  CALLER 


000002 


.ASECT 

.=2 

ERR2: 

.8LKW   1 

ERR4: 

.BLKW   1 

ERR6: 

.BLKW   1 

ERRS: 

.8LKW   1 

ERR10 

.8LKU   1 

ERR12 

.BLKW   1 

ERR14 

.BLKW   1 

ERR16 

.BLKW   1 

ERR18 

.BLKW   1 

ERR20 

.BLKW   1 

ERR22 

.BLKW   1 

ERR24 

.BLKW 

ERR26 

.BLKW 

ERR28 

.BLKW   1 

ERR30 

.BLKW   1 

ERR32 

.BLKW   1 

ERR34 

.BLKW   1 

ERR36 

.BLKW   1 

.PSECI 

0=SUCCESS 

OPEN  FAILURE 

GET  ATTRIBUTES  FAILED 

FILE  NOT  CONTIGUOUS 

LABEL  BLOCK  READ  FAILURE 

INVALID  PROCESS  IMAGE 

PROCESS  NOT  BUILT  FOR  APR5  (MAPPED) 

PROCESS  >  4K  WORDS  (MAPPED) 

PROCtSS  EXTENSION  >  4K  WORDS  (MAPPED) 

PARTITION  NOT  IN  SYSTlM 

PROCESS/PARTITION  BASE  MISMATCH 

PARTITION  TOO  SMALL 

NOT  COMMON  PARTITION 

PARTITION  BUSY 

CEX  PARTITION  NOT  IN  EXEC  SPACE  (MAPPED) 

SUB-PCB  ALLOCATION  FAILURE  (MAPPED) 

MAIN  PARTITION  TOO  FRAGMENTED  (MAPPED) 

PROCESS  READ  FAILURE 

CETAB  ALLOCATION  FAILURE 


L/nt:  n7k 


-B';  n3-is 
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VDEV 
Table 


54 
55 
56 

57 

58  000000 

59  000000 


.SBTTL 

.MCALL 

CLKDFS 
VNPDFS 


MACRO  DEFINITIONS 
CLKDFS, GETRV.PUTRC, VNPDFS 


DEFINE  CLOCK  QUEUE  ENTRY  OFFSETS 

DEFINE  REQUEST  BLOCK  OFFSETS  AND  SYMBOLS 


,;AC  n7u  r  ^  *.. 
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VDEV  -  VNP  LOAD  DEVICE  STRUCTUR  MACRO  V05.03b  Tuesday  03-Sep-85  U 
Table  ot  contents 

DEFINITIONS 

DATA 

MESSAGES 

-  SETUP  DATA  STRUCTURES 
FIND  DATA  STRUCTURES 

DEFINE  SPECIAL  SYMBOLS 
READ  LABEL  BLOCK 
ALLOCATE  DEVICE  TABLE 
TRANSFER  TABLES  INTO  CORE 
PRINT  ERROR 

DEALLOCATE  DATA  STRUCTURES 
REPLACE  XXXTAB  NAME 

-  REPLACE  XXX  NAME 
REPLACE  DEVICE  NAME 


VDEV 
DVXFF 


s- 

54 

MACRO 

(S- 

64 

LOCAL 

t- 

144 

ERROR 

8- 

188 

SNLDEV 

9- 

264 

FIND  - 

10- 

306 

DVSYM 

11- 

375 

DBLBL 

1?- 

420 

DVALL 

H- 

465 

DVXFR 

14- 

639 

DVERR 

1S- 

674 

DVDEA 

16- 

696 

REP4A 

1(S- 

697 

REP4A1 

17- 

741 

REP9  - 

r\r:\iirc     cTDiirTiiD    MATDn     wn^     n7K     Ti 
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VOEV  ■ 
DVXFR 


VNP  LOAD  DEVICE  STRUCTUR  MACRO  V05.03b  Tuesday  03-Sep-85 
-  TRANSFER  TABLES  INTO  CORE 
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A65 
A66 
467 
A68 
469 
A70 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 

488  001116 

489  001116 

490  001124 

491  001130 

492  001134 

493  001136 
494 

495  001142 

496  001150 
497 

498  001154 

499  001160 

500  001164 

501  001172 

502  001174 

503  001200 

504  001202 

505  001206 

506  001210 

507  001212 

508  001214 
509 

510  001220 

511  001224 

512  001226 

513  001232 

514  001236 

515  001240 

516  001244 

517  001246 

518  001252 

519  001254 

520  001260 

521  001262 


.SBTTL  DVXFR  -  TRANSFER  TABLES  INTO  CORE 

DVXFR  -  TRANSFER  DEVICE  TABLES  INTO  CORE 

THIS  ROUTINE  IS  CALLED  TO  TRANSFER  THE  DEVICE  TABLES  INTO  CORE,  SETUP  THE 
INTRA-8L0CK  POINTERS,  AND  LINK  THE  DCS  INTO  THE  DEVICE  LIST  (SDEVHD).  THE 
LOCATIONS  CHANGED  IN  THE  DEVICE  TABLE  IMAGE  ARE: 

POINTER  TO  UCB 

DEVICE  NAME 

POINTER  TO  DCS 

REDIRECT  POINTER 

POINTER  TO  SCB 

I/O  PACKET  LISTHEAD  (2  WORDS) 

INPUTS: 

$L8UF=C0RE  POOL  BUFFER  ADDRESS 

$LLEN=DEVICE  TABLES  LENGTH 

DCB=DC8  ADDRESS  (REAL  CORE  ADDRESS) 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 


D.UCB 

DCB 

D.NAM 

DCB 

U.DC8 

UCB 

U.RED 

UCB 

U.SCB 

UCB 

S.LHD 

SCB 

016767  000176'  OOOOOOG 
012700  000204' 


DVXFR: 


103002 
000167 

016767 
160067 

016700 
166700 
016760 
005001 
156001 
00';003 
156003 
160103 
005203 
003002 
000167 

010367 
010002 
062702 

103002 
000167 
011202 

103002 
000167 
010246 
066716 


000544 

000174'  000200'  5$: 
000200' 

000150' 
000200' 
OOOOOOG  OOOOOOG 

OOOOOOG 

000001 G 


000502 

000172' 

OOOOOOG 

000464 

000456 
000200' 


7$: 


8$: 


9$: 


MOV 

MOV 

CALL 

BCC 

JHP 

MOV 
SUB 

MOV 

SUB 

MOV 

CLR 

BJS8 

CLR 

BISB 

SUB 

INC 

BGT 

JMP 

MOV 

MOV 

ADD 

CALL 

BCC 

JMP 

MOV 

CALL 

BCC 

JMP 

MOV 

ADD 


PLEN,$LLEN 

#DEV6UF,R0 

SREAD 

5$ 

101$ 

PBUF,VREL 
RO.VREL 

DCe,R0 

VREL,RO 

$$DEV,D.NAM(RO) 

R1 

D.UNIT(R0),R1 

R3 

D.UNITtl(R0),R3 

R1,R3 

R3 

7$ 

111$ 

R3, UNITS 

R0,R2 

#D.UCB,R2 

VAD 

8$ 

121$ 

(R2),R2 

RVAD 

9$ 

131$ 

R2,-(SP) 

VREL,(SP) 


SET  TRANSFER  SI?E 

POINT  AT  OVERWfSKED  BUFFER 

TRANSFER  DEVICE  TABLES  INTO  BUFFER 

ALL  OK 

FAILED  TO  READ  IN  DEVICE  DATA  STRUCTURES 

COMPUTE  RELOCATION  DIFFERENTIAL 
FOR  DEVBUF 

GET  DCB  ADDRESS 
SUBTRACT  DIFFERENTIAL 
SETUP  DEVICE  NAME 
GET  FIRST  UNIT  NUMBER 

AND  LAST 'unit  NUMBER 

CALCULATE  NUMBER  OF  UNITS 


VOE 

MA( 
MA( 
CAl 


CAl 
EM! 

em: 

ERI 
ERI 
ERI 
GE" 
GE' 
NTI 


PU 
PU 
RAl 


RE 

SW 
SW 
UC 
VN 


ALL  OK 

IF  NOT  POSITIVE, 


ILLEGAL 


SAVE  IT  FOR  LATER 
COPY  DCB  ADDRESS 
GET  D.UCB  ADDRESS 
VALIDATE  IT 
BR  IF  LEGAL 
IF  CS,  ILLEGAL 
GET  FIRST  UCB  ADDRESS 
RELOCATE  AND  VALIDATE  IT 
BR  IF  LEGAL 
IF  CS,  ILLEGAL 
COMPUTE  TRUE 
ADDRESS 


i/AC  n'zk 


J  13 
.0";  in. 00 


r 


I  K 

VDEV 

CREATED  BY  MACRO  ON  3- 

SEP-85  AT  10 

28     PAGE 

4 

MACRO  CROSS 

REFERENCE 

CREF 

04.00 

MACRO  MAME 

REFERENCES 

CALL 

8-211 

8-215 

8-217 

8-219 

?;221 

8-223 

9-281 

10-326 

10-331 

10-343 

10-345 

12-?5? 

11-400 

12-443 

13-491 

13-513 

13-517 

13-525 

13-596 

13-598 

13-600 

13-602 

14-650 

14-654 

16-709 

16-718 

16-731 

16-733 

CALLR 

10-373 

EMSGt 

#5-58 

10-352 

10-360 

10-364 

EMSGtR 

#5-58 

8-262 

9-303 

9-304 

11-414 

11-415 

13-610 

13-611 

13-614 

13-615 

13-616 

13-619 

ERBLKS 

#8-208 

ERMSGS 

»8-208 

ERRPTS 

#8-208 

GET  AD 

#5-58 

GETRV 

#5-58 

8-226 

8-233 

9-281 

13-587 

13-596 

NTLERS 

#5-58 

7-K8 

7-149 

7-150 

7-151 

7-152 

7-157 

7-158 

7-159 

7-160 

7-161 

7-162 

7-167 

7-168 

7-169 

PUTAD 

#5-58 

PUTRC 

#5-58 

8-232 

8-250 

13-569 

13-598 

13-602 

RAMD 

#8-226 

8-226 

#8-232 

8-232 

#8-233 

8-233 

#13-569 

13-569 

#13-587 

13-587 

#13-596 

13-596 

#13-602 

13-602 

RETURN 

8-256 
17-756 

9-298 

10-367 

11-409 

12-458 

13-603 

SWTCHI 

#5-59 

8-210 

8-255 

12-442 

12-446 

15-688 

SWTCHO 

#5-59 

8-209 

8-254 

12-441 

12-445 

13-575 

UCBDFS 

#5-58 

5-62 

VNPBPT 

#8-207 

8-208 

VD] 
$D( 


8-226 
10-360 
13-529 
14-667 


11-417 
13-620 


13-600 

7-153 

7-163 


#8-250 
#13-598 

13-637 

15-691 
13-577 


8-233 
11-393 
13-569 
15-690 


12-463 


7-155 
7-165 


#9-281 
#13-600 


14-672  15-694 

15-689  15-692 


8-232 
10-364 
13-558 
14-670 


11-418 


7-154 
7-164 


8-250 
13-598 


8-250 
11-394 
13-587 
15-693 


13-609 


7-156 
7-166 


9-281 
13-600 

16-739 


J   H 


r 


VDl 

S  -  VNP  SHOW  COMMAND^. 

$DOBJ  - 

SHO  OBJ 

U7k 

002A3A 

i.?S 

00?Ai,2 

i^-h 

i,?! 

002A52 

A^H 

002160 

A/4 

t^-^i) 

All 

4V' 

A'!'; 

A« 

G02A62 

A'iS 

002506 

A% 

A:S/ 

I  15 
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60$: 
70$: 


DIR$    *TIDET 
ERRPT$  0ERR1,$ER0UT 


DIR$ 
RETURN 


#TIDET 


DETACH  TERMINAL 

DISPLAY  OBJECT  NOT  FOUND  MESSAGE 

DETACH  TERMINAL 


.ENABL  LC 
ERROR  MESSAGES 


ERMSG$  <Obiect  not  in  sy5tem> 
ERBLKt  OERRl 

.DSABL   LC 
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VDIS  -  VNP  SHOW  COMMANDS 
CVTDFV  -  CONVERT  DEVICE  NAME 


935 
93^ 
935 
936 
937 
938 
939 
9A0 

9^2 
9^3 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 


I  16 
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TO  ASCII 

.SBTTL  CVTDEV  -  CONVERT  DEVICE  NAME  TO  ASCI 


CVTDEV  -  CONVERT  DEVICE  NAME  TO  ASCII 

INPUTS: 

RO  -  NEXT  AVAILABLE  BYTE  IN  OUTPUT  BUFFER 
R3  -  POINTER  TO  TWO  WORD  DEVICE  NAME 

WORD  1  -  TWO  CHARACTER  ASCII  MAME 
WORD  2  -  BINARY  UNIT  NUMBER 

OUTPUTS: 

RO  -  NEXT  AVAILABLE  BYTE  IN  OUTPUT  BUFFER 
R1,R2  DESTROYED 


005214  112320 

005216  112320 

005220  012301 

005222  005002 

005224 

005230  112720  000072 

005234 


CVTDEV:  MOVB 
MOVB 
MOV 
CLR 
CALL 
MOVB 
RETURN 


(R3)+,(R0)+ 

(R3)+,(R0)t 

(R3)+,R1 

R2 

SCBOMG 

«':,(RO)t 


STORE  FIRST  HALF  OF  DEVICE  NAME 
STORE  SECOND  HALF  OF  NAME 
GET  DEVICE  UNIT  NUMBER 
SUPPRESS  ZEROES 
CONVERT  IT  TO  ASCII 
STORE  TRAILING  COLON 
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VCEX  -  V'.P  LOAD  CEX  ROUTINES 
$SCEX  -  TRANSFER  COMM  EXEC 
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353 

334 
335 
336 
337 
338 
339 
3A0 
341 
3^.2 
343 


000174  160102  SUB 

000'"'.  001411  BEQ 

0002uO  010110  MOV 

000202  166701  OOOOOOG  SUB 

000206  060100  ADD 

000210  005060  177776  CLR 

000214  010210  MOV 

000216  PUTRC 

000222  016767  OOOOOOG  177776G  20$:    MOV 

00023C  016767  000002G  OOOOOOG        MOV 

000236  005C67  000002G  CLR 

.ENDC 


R1,R2 

20i 

R1,(R0) 

$RADDR,R1 

RI.RO 

-2(R0) 

R2,(R0) 

$BFR,$CEAVL-2 
$BFRt2,$CEAVL 
$CEAVLi2 


CALCULATE  LENGTH  OF  FREE  SPACE 
IF  ZERO  LENGTH,  DO  NOTHING 
SET  ADDRESS  OF  FIRST  AND  ONLV  BLOCK 
COMPUTE  ADDRESS  OF  NEXT  SEGMENT 

DESCRIPTOR  IN  BUFFER  +  2 
NO  NEXT  BLOCK 
SET  SIZE  OF  THIS  BLOCK 
WRITE  OUT  THE  POOL  LISTHEAD  +  1ST  BLOCK 
STORE  THE  POOL  LISTHEAD  IN  THE  INTERNAL  TEMPL. 


VCEX  - 
CEPTR 


8( 
8f 
8( 
8( 
8( 
8( 
8( 
8( 
8( 
8( 
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VCEX 


VCEX  - 
CEPTR 


VNP  LOAD  CEX  ROUTINES 
-  INIT  CETAB  POINTERS 


854 
85S 
856 
85/ 
858 
859 
860 
861 
862 
863 
86A 
865 
866 
867 
868 
869 
870 
871 
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MSGOUT   -  OUTPUT  MESSAGE 


002070 
002074 
002100 
0021 OA 
002110 


INPUTS: 


R2  =  ARGUMENT  BLOCK  ADDRESS  FOR  SERMSG 


OUTPUTS: 

TYPE  MESSAGE 


012700  000254' 


000001 


MSGOUT: 


CALL 

MOV 

CALL 

CALL 

RETURN 


.END 


SSAVAL 
#MSG8,R0 
SERMSG 
STIOUT 


SAVE  REG'S 

STORE  BUFFER  ADDRESS 
FORMAT  MESSAGE 
TYPE  MESSAGE 


K    2 

VCEX  -  VNP  LOAD  CEX  ROUTINES         MACRO  V05.03b  Saturday  29-Jun-85  02:13     Page  15- 


J    3 

VCFG  -  VNP   SCAN  CONFIGURATION  F   MACRO  V05.03b  Monday   15-Jul-85   19:0^     Page   5 
MACRO  DEFINITIONS 


55 
56 
57 
58 
59 
60 
61 
62 

63  000000 

64  000000 

65  000000 

66  000000 
67 

68 
69 
70 
71 
7? 
73 
74 
75 
76 

n 

78 
79 
80 


.SBTTL  MACRO  DEFINITIONS 
*** 
LIBRARY  MACROS 

.MCALL  ASL$,EMSG$R,ISTAT$,NTLER$, STATES, TRANS, CHADF$,PUTRC 
.MCALL  SAVRG,RESRG,GETAD,GETRV,CEACCS,XPDDBS,PLaDF$,DHBDFS 
.ENABL  LC 


XPDDBS 
PLBDFS 
CHADFS 
DHBDFS 


LOCAL  MACROS 


DEFINE  XPT  OFFSETS 

DEFINE  PLB  OFFSETS 

DEFINE  CHARACTERISTICS  WORD  OFFSETS 

DEFINE  DECNET  HOME  BLOCK  OFFSETS 


REJECT  TPARS  TRANSITION 


.MACRO 

REJS 

ADD 

#2,(SP) 

CLR 

SYNERR 

.ENDM 

REJS 

RETURN  TO  CALLER+2 
INDICATE  NO  SYNTAX  ERROR 
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593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 

624  001332 

625  001332 

626  001334 

627  0C1336 

628  001340 

629  001344 

630  001 350 

631  001352 

632  001354 

633  001362 
634 

635  001364 

636  001370 

637  001372 

638  001 37A 
639 

640  001376 

641  001404 

642  001406 
643 

64A 
645 

646  00U12 

647  001416 

648  0OU22 


010046 
010146 
005020 
012701 

012601 
012602 
032767 
001005 

026701 
101020 
110122 
000406 

026727 

101012 
116722 


016701 
016700 


649  00U26  000241 


.SBTTL  STORID  -  Store  id-string  according  to  system  type 
*»*  STORID  -  Store  id-string  according  to  system  type 
FUNCTION 


This  routine  is  used  to  check  and  store  various  parameters 
during  the  parsing  of  CETAB  macros.  In  PSI  V2.0  compatible 
systems,  it  checks  for  and  stores  parameters  in  PSI  V2.0 
compatible  format.  In  extended  systems,  id-strings  of  up 
to  MAXID  characters  are  permitted  and  stored  appropriately. 
The  buffer  is  padded  with  spaces.  The  length  returned  in  the 
buffer  is  the  maximum  length  for  old-format  systems  (fixed 
fields)  or  the  actual  length  for  new-format  systems  (variable 
fields). 


INPUTS 


RO     -  address  of  buffer  to  contain  string  prefixed  by  length 
R1      -  maximum  length  of  string  in  old-format  system 

(R1  <  MAXID) 
.PSTCN  -  actual  length  of  string 
SPFLAG  -  PSI  system  type  flags 


OUTPUTS 


RO,  R1,  R2  destroyed 

String  and  length  stored  in  buffer 

Carry  set  if  invalid  string  length  for  system  type 


STORID:: 


000020 

OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG  000020 
OOOOOOG 


50$: 


MOV 

MOV 

CLR 

MOV 

CALL 

MOV 

MOV 

BIT 

BNE 

CMP 
BHI 
M0V8 
BR 

CMP 
BHI 
M0V8 


RO,-CSP) 

R1,-(SP) 

(R0)  + 

#MAXID,R1 

SPFILL 

(SP)+,R1 

(SP)+,R2 

*PF.XDF,$PFLAG 

20$ 

. PSTCN, R1 
99$ 

R1,(R2)+ 
30$ 

. PSTCN, #HAXID 

99$ 

.PSTCN, (R2)*- 


Save  buffer  address 

Save  maximum  length 

Clear  length  field  in  output 

Always  clear  MAXID  spaces 

Restore  length 

Get  back  buffer  address 

Check  for  extened  data  format 


Old  format,  so  use  max  length  in  R1 

HI,  then  string  too  long 

Set  length  to  maximum  for  fixed  field 


New  format,  max  length  is  MAXID 

Set  actual  Length  for  variable  field 


Move  string  to  buffer 


OOOOOOG 
OOOOOOG 


50$: 


MOV 
MOV 
CALL 
CLC 


. PSTCN, R1 
.PSTPT.RO 
MOVE 


Get  address  of  source 
Move  string  to  buffer 
Signal  success 


;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;CTD001D 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;tTD001] 
;[TD001] 
;[TD001] 
; [ TDOOI ] 
;[TD001] 
; [TDOOI] 
;CTD00i: 
;CTD001] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
;  [TDOOI] 
; [TDOOI] 
;[TD001] 
; [TDOOI] 
; [TDOOI] 
;['D001] 
; [ I D001 ] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
.-[TDOOI] 
; [TDOOI] 
.-[TDOOI] 
.-[TDOOI] 
;[TD001] 
;[TD001] 
;[TD001] 
.-[TDOOI] 
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LLCSD'^    STATE    TABLE 
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1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 


001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
00-"^I2 
001512 
001512 
001512 
001512 
001512 
001512 
001512 
001512 


.SBTTL     LLCSDF    STATE    TABLE 
LLC   DEFINITION    (LLCSDF) 


STATES 

TRANS 
STATES 

Tf)ANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 

TRANS 
STATES 

TRANS 

TRANS 
STATES 

TRANS 
STATES 

TRANS 

TRANS 
STATES 

TRANS 

TRANS 
STATES 

TRANS 

TRANS 
STATES 

TRANS 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 


LLCDF 
"LLC 


,1,SYNERR 


"DF" 

SRAD50,, 

<'  ,> 

IBITS 

SNUMBR 

<'  ,> 

SNUMBR 


L . NAME 


;  LLC  NAME 


lEND.SEXIT 
<'  ,> 
LLCDF1 
<',>,INC 
SALPHA,, L.CHI 

SALPHA,,L.CH2 

IEND,SEXIT 

<'  ,> 
INC 

SNUMBR,EXT,P.INC 

SLAMDA 
EXT 

lEND.SEXIT 

<'  ,> 


FLAGS 
PRIORITY 

EXTRA  PDV  CHANNELS 

2  CHARACTER  DEVICE  NAME 


LINE  TABLE  COUNT 


<',>,LCTIM 
$NUMBR,SEXIT,P.EXT 
LCTIM 
SNUMBR,,S.CTIM 

lEND.SEXIT 


LLC  PROCESS  EXTENSION 


COUNTER  TIMER 


VfFG 
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VCFG  -  VNP  SCAN  CONFIGURATION  F  MACRO  V05.03b  Monday  15-Jul-85  19:04  Page  32 
FEASDf  ACTION  ROUTINES 


1567 
1568 
1569 
1570 
1571 
1572 
1573 
157^ 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
158A 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 


003734 
003742 
003744 
003754 


003756 
003764 
003766 
003776 


004000 
004006 


004010 
004016 


004020 
004026 


126767  OOOOOOG 
001404 


126767  OOOOOOG 
001404 


.SBTTL  fEASDF  ACTION  ROUTINES 
FIRST  CHARACTER  OF  DEVICE  NAME  (FEASDF) 
OOOOOOG  F.CHI 


T0$: 


CMPS 
BED 
REJ$ 
RETURN 


.PCHAR,$$DEV 
10$ 


IS  THIS  THE  RIGHT  FEATURES  DEFINITION 

IF  EQ,  YES 

ELSE,  REJECT  TRANSITION 


SECOND  CHARACTER  OF  DEVICE  NAME  (FEASDF) 
000001G  f.CH2 


10$: 


CMP8 
BEQ 
REJ$ 
RETURN 


.PCHAR,$$DEV+1 
10$ 


ARE  UE  SURE  THIS  IS  THE  RIGHT  ONE 

IF  EQ,  YES 

ELSE,  REJECT  TRANSITION 


INITIAL  FEATURES  WORD  (FEASDF) 


016767  OOOOOOG  OOOOOOG  F.FEA: 


MOV 
RETURN 


.PNUMB,$FEATR 


SETUP  THE  FEATURES  WORD 


MODIFIABLE  BITS  IN  THE  FEATURES  WORD  (FEASDF) 


046767  OOOOOOG  OOOOOOG  F.MOD: 


BIC 
RETURN 


.PNUMB,SFEATR 


CLEAR  THE  MODIFIABLE  BITS 


BITS  CURRENTLY  SET  IN  THE  FEATURES  WORD  (FEASDF) 


056767  OOOOOOG  OOOOOOG  F.SET: 


BIS 
RETURN 


.PNUMB,SFEATR 


SET  THE  CURRENT  STATES 
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VCFG  CREATED  BY     MACRO     ON  15-JUL-85   AT    19:06 

MACRO   CROSS   REFERENCE 


MACRO   NAME 

ASL$ 
CALL 


CALLR 
CEACCS 
CHADFS 
DBGTPS 


DHBDFI 
EMSGSR 


ERBLKS 

ERMSGS 

ERRPT$ 

GETAD 

GETRV 

ISTATS 

MTRANS 

NTLERS 


PLBDFS 

PUTRC 

RAND 

REJ$ 

RESRG 

RETURN 


SAVRG 

SOB 

STATES 


REFERENCES 

#5-59 
8-261 
8-300 
8-344 
8-377 
8-428 
13-648 
16-711 

#5-60 

#5-59 

#17-717 

#17-781 

#20-359 

#22-982 

#5-60 

#5-59 
8-443 
25-1226 
28-1364 

#8-260 

#8-260 

#8-260 

#5-60 

#5-60 

#5-59 

#17-717 

#5-59 
7-189 
7-199 
7-209 

#5-60 

#5-59 

#33-1612 

#5-77 

#5-60 
8-430 
25-1099 
25-1191 
28-1362 
31-1550 
35-1669 

#5-60 
34-1647 

#5-59 

#17-741 

#17-769 

#18-812 
20-857 

#21-893 

#22-938 

#22-971 

#23-1009 


27-1332 

8-268 

8-304 

8-350 

8-383 

9-458 

27-1299 

33-1616 

5-65 
#17-747 
#17-782 
#20-875 
#24-1039 

5-66 

8-363 

9-467 

25-1227 

28-1387 


33-1617 
33-1612 
17-717 

7-180 
7-190 
7-200 
7-210 
5-64 

33-1612 

25-1087 

29-1500 

9-462 

25-1110 

25-1205 

28-1386 

31-1559 

35-1682 

29-1451 

17-723 
#17-743 
#17-771 
#18-816 
#20-861 
#21-895 
#22-940 
#22-974 
#23-1012 


8-272 
8-318 
8-352 
8-385 
9-459 
28-1395 


#17-750 
#17-785 
#20-882 
#24-1042 

8-435 
10-497 
25-1246 
28-1442 


7-181 
7-191 
7-201 
7-211 


#33-1617 
25-1131 

10-487 

25-1121 

25-1225 

28-1403 

31-1565 


#17-725 
#17-745 
#17-778 
#18-819 
#20"864 
#21-897 
#22-942 
#22-980 
24-1019 


J     7 

:06            PAG! 

7 

CRE 

04.00 

8-283 

8-286 

8-288 

8-291 

8-293 

8-296 

8-298 

8-320 

8-322 

8-328 

8-330 

8-334 

8-336 

8-342 

8-354 

8-356 

8-359 

8-361 

8-367 

8-369 

8-375 

8-391 

8-393 

8-397 

8-402 

8-404 

8-412 

8-414 

10-482 

11-540 

12-567 

12-572 

12-585 

12-588 

13-629 

28-1437 

29-1476 

29-1479 

33-1612 

33-1616 

33-1617 

33-1621 

#17-753 

#17-756 

#17-759 

#17-762 

#17-763 

#17-766 

#17-780 

#17-786 

#17-789 

#17-790 

#18-810 

#18-814 

#18-821 

#18-828 

#22-946 

#22-949 

#22-953 

#22-957 

#22-961 

#22-965 

#22-969 

#24-1047 

#24-1050 

#24-1053 

#24-1056 

8-436 

8-437 

8-438 

8-439 

8-440 

8-441 

8-442 

10-498 

11-550 

25-1123 

25-1169 

25-1181 

25-1192 

25-1207 

25-1258 

26-1274 

27-1291 

27-1292 

27-1304 

27-1336 

28-1363 

28-1443 

30-1514 

30-1524 

31-1542 

31-1552 

7-182 

7-183 

7-184 

7-185 

7-186 

7-187 

7-188 

7-192 

7-193 

7-194 

7-195 

7-196 

7-197 

7-198 

7-202 

7-203 

7-204 

7-205 

7-206 

7-207 

7-208 

7-212 

7-213 

7-214 

7-215 

7-216 

7-217 

7-218 

33-1617 

25-1139 

25-1158 

32-1573 

32-1580 

11-544 

12-591 

13-650 

13-653 

14-675 

15-697 

25-1088 

25-1132 

25-1140 

25-1148 

25-1156 

25-1159 

25-1168 

25-1180 

25-1244 

25-1256 

26-1272 

27-1290 

27-1303 

27-1319 

27-1335 

28-1417 

28-1441 

29-1501 

30-1513 

30-1523 

30-1531 

31-1540 

32-1574 

32-1581 

32-1586 

32-1591 

32-1596 

33-1622 

34-1654 

tt\7-727 

#17-729 

#17-731 

#17-733 

#17-735 

#17-737 

#17-739 

#17-748 

#17-751 

#17-754 

#17-757 

#17-760 

#17-764 

#17-767 

#17-783 

#17-787 

18-796 

#18-799 

#18-802 

#18-805 

#18-808 

#18-823 

#18-826 

#18-830 

19-839 

#19-841 

#19-847 

#19-849 

#20-867 

#20-870 

#20-873 

#20-877 

#20-880 

#20-884 

21-891 

#21-899 

#21-901 

#21-903 

21-907 

22-932 

#22-934 

#22-936 

#22-944 

#22-947 

#22-951 

#22-955 

#22-959 

#22-963 

#22-967 

23-988 

#23-991 

#23-994 

#23-997 

#23-1000 

#23-1003 

#23-1006 

#24-1021 

#24-1025 

#24-1025 

#24-1027 

#24-1029 

#24-1031 

#24-1033 

r  DC  A  Ten 


nM  1  q-  nil  -«■;  SI   iQ-nA 


PAKF    R 
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VCFP  -  VNP  PSI  CONFIGURATION  FI  MACRO  V05.03b  Saturday  29-Jun-85  02:17 
SNTCFP  -  CONFIG  FILE  SCAN 

^03  0003^2 
A04  000350 
A05  000356 

406  00036A 

407  000372 


101$ 

EMSG$R 

MA 

102$ 

EMSG$R 

MS 

103$ 

EMSGSR 

M6 

104$ 

fMSGSR 

MA 

105$ 

EMSG$R 

MB 

Page  9-2 


X3P$DF  MISSING 

DSA$DF  MISSING 

DSC$DF  MISSING 

DSN$DF  missing 

RNA$DF  missing 


VCFP 
MOVE 


;[TD001] 
;[TD001] 


r  I  MAT  Dn 


K  8 

.»■;  n5-i7 
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VCFP  -  VNP  PSI  CONFIGURATION  FI  MACFiO  V05.0?b  Saturday  29-Jun-85  02:17 
MOVE  -  Moue  bytes 


Page  20 


VC 10 


761 
762 
763 
76^ 
765 
766 
767 
768 
769 
770 
771 
7:'2 
773 
77^ 

775  00U30 

776  00U30 

777  00U32 

778  00K3A 

779  00U36 

780  OOUAO 

781  00H^2 


.SBTTL  MOVE  -  Move  bytes 

«*♦  MOVE  -  Move  bytes 

INPUTS 

RO  -  Source  address 

R1  -  Number  of  bytes  to  move 

R2  -  Target  address 

OUTPUTS 

R2  -  Address  of  last  byte  moved  +  1 
RO,  R1  destroyed 


005701 
001A03 
112022 
005301 
003375 


MOVE: 

TST 

R1 

BED 

20$ 

in$: 

MOVB 

(R0)  + 

{R2)  + 

DEC 

R1 

B6T 

10$ 

Check  for  nothing  to  do 


20$: 


RETURN 


CTDOOn 
CTDOOi: 
[TD001] 
CTD001] 

CTDOon 

CTD001] 
CTD001] 
[TDOOl] 
CTDOOn 
CTD001] 
CTD001] 
[TD001] 
[TD001] 
[TDOOi: 
CTDOOl] 
[TD001] 
[TD001] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 


kac  n7k 
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VCLQR' 
LOCM 


109 

no 

111 

112 

113  000000 

lU 

115 

116 

117 

118  000000 

119 

120  000000 

121 

122 

125 

12A 

125  000000 

126 

127  000000 


;♦** 

;    LOCAL    DATA 

;  *** 

.PSECT      DATA,D 

ERROR    INDICATION 
ERROR:      .BLKW        1 

.PSECT      ..3Uf,D 

DISK   BUFFER   FOR   LABEL   BLOCK   READ 
OSKBUF:    .BLKU        1 
.PSECT 


_  QC      AO  .  1  0 
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VCLQRM  -  REMOVE   ENTRIES   FROM  CL  MACRO  V05.03b   Saturday  29-Jun-85 
LOCAL    DATA 


02:1 


8  Page  6 


VDEV 


61 
62 
63 
6A 
65 
66 
67  000000 


.SBTTL  LOCAL  DATA 
■  LOCAL  DATA 
AUXPDV:  .8L<W   1 


AUX  PDV  ADDRESS 
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VDEV  -  VNP  LOAD  DEVICE  STRUCTUR  MACRO  V05.03b  Tuesday  03-Sep-85 


l5i28 


Page  4 


VDEV 
DVXFF 


1 
2 

5 
6 
7 
8 
9 
10 

n 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE  VDEV  -  VNP  LOAD  DEVICE  STRUCTURES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONL^  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
rORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  RSX11M/S  DEVICE  DATA  STRUCTURE  ROUTINES  (NS:  AND  NX:) 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-IIM-PLUS  Vl.l 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-PLus  V3.0 
DECnet-Micro/RSX  Vl.O 
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VDEV  -   VNP  LOAD  DEVICE   STRUCTUR  MACRO  V05.05b   Tuesday  03-Sep-85   1 
DVXFR   -    TRANSFER   TABLES    INTO  CORE 


i  13 

0:28 


Page  13-1 


522  001266 

523  001272 
52A  00127^ 

525  001300 

526  001 30^, 

527  001306 

528  001312 

529  0013U 

530  001520 

531  001322 

532  001326 

533  001330 
53^  00133^ 

535  001 3A0 

536  001342 

537  001346 

538  001352 

539  001 35A 

540  001360 

541  001364 

542  001370 

543  001372 

544  001374 

545  001400 
546 

547 
548 
549 
550 
551 
552 
553 

554  001404 

555  001406 

556  001410 

557  001412 

558  001416 

559  001422 

560  001424 
561 

562  001426 

563  001432 

564  001436 

565  001442 

566  001450 

567  001456 

568  001460 

569  001466 

570  001500 

571  001506 

572  001510 

573  001516 

574  001524 

575  001530 

576  001534 

577  001536 

578  001542 


012660 

OOOOOOG 

010201 

062702 

000020 

103002 

000167 

000444 

011202 

103002 

000167 

000436 

010046 

066716 

000200' 

012661 

000000 

010146 

066716 

000200' 

012661 

000002 

010246 

066716 

000200' 

012661 

000020 

062702 

OOOOOOG 

005012 

010246 

066716 

0002C0' 

012662 

000002 

10$: 


11$: 


12$: 


005303 
001407 
010102 
066002     OOOOOOG 

103323 
000544 


20$: 


016746  000176' 

016746  000174' 

012746  000204' 

016767  000176'   OOOOOOG  25$: 

022767  001000     000176' 

103003 

012767  001000     0000006 

27i: 

022767  001000     000176' 
103013 

162767  001000     000176' 

062767  001000     000174' 

062716  001000 


000742 

012667  000174' 


28$: 


MOV 

MOV 

ADD 

CALL 

BCC 

JMP 

MOV 

CALL 

BCC 

JMP 

MOV 

ADD 

MOV 

MOV 

ADD 

MOV 

MOV 

ADD 

MOV 

ADD 

CLR 

MOV 

ADD 

MOV 

.IF  DF 

sua 

ADD 
MOV 

.ENDC 

DEC 

BEQ 

MOV 

ADD 

CALL 

BCC 

BR 

MOV 

MOV 

MOV 

MOV 

CMP 

SHIS 

MOV 

PUTRC 

CMP 

BHIS 

SUB 

ADD 

ADD 

SWTCHO 

BR 

SWTCHO 

MOV 


(SP)t,D.UCB(RO) 

R2,R1 

#U.SCB,R2 

VAD 

11$ 

141$ 

(R2),R2 

RVAD 

12$ 

151$ 

RO,-(SP) 

VREL,(SP) 

(SP)t,U.DCB(Rl) 

R1,-(SP) 

VREL,(SP) 

(SP)+,U.RED(R1) 

R2,-(SP) 

VREL,(SP) 

(SP)+,U.SCB(R1) 

#S.LHD,R2 

(R2) 

R2,-(SP) 

VREL,(SP) 

(SP)t,2(R2) 

R$$MPL 
#S.LHD,R2 
.SKS5,R2 
$8IAS,(R2) 


R3 

20$ 

R1,R2 

D.UC8L(R0),R2 

VAD 

10$ 

131$ 

PLEN,-(SP) 
PBUF,-(SP) 
#DEV8UF,-(SP) 
PLEN,$RSIZE 
#1000, PLEN 
27$ 

#1000,$RSI7E 
PBUF 

#1000, PLEN 
28$ 

#1000, PLEN 
#1000, PBUF 
,(SP) 


#1000, 
(SP) 
25$ 
(SP)  + 
CSP)  + 


PBUF 


SET  FIRST  UC8  ADDRESS 
PUT  UC8  ADDRESS  IN  Rl 
GET  U.SCS  ADDRESS 
VALIDATE  IT 
BR  IF  LEGAL 
IF  CS,  ILLEGAL 
GET  SC8  ADDRESS 
RELOCATE  AND  VALIDATE  IT 
BR  IF  LEGAL 
IF  CS,  ILLEGAL 
COMPUTE  TRUE 

ADDRESS 
SETUP  DCB  ADDRESS 
COMPUTE  TRUE 

ADDRESS 
REDIRECT  POINTER 
COMPUTE  TRUE 

ADDRESS 
SCB  ADDRESS 
AND  I/O  PACKET  LISTHEAD 

COMPUTE 'true 
ADDRESS 


GET  SCB  ADDRESS 

POINT  TO  S.KS5 

SET  UP  BIAS  FOR  CON  ONLI 


;[MP01] 
;[MP01] 
;[MP01] 
;[MP01] 

;[MP01] 


DONE? 

IF  EQ,  YES 

COPY  UCB  ADDRESS 

ADD  UCB  LENGTH  FROM  DCB 

VALIDATE  NEXT  UCB  ADDRESS 

BR  IF  OK  -  SETUP  NEXT  UCB/SCB  PAIR 

ELSE  ILLEGAL 

SAVE  LENGTH  OF  DATA  STRUCTURES 

AND  ADDRESS  OF  DATA  STRUCTURES 

GET  BUFFER  ADDRESS 

ASSUME  MAXIMUM  RECORD  SIZE  NOT  EXCEEDED 

MAXIMUM  RECORD  SIZE  EXCEEDED? 

BR  IF  NO 

ELSE  ONLY  WRITE  512.  BYTE  RECORD 

WRITE  DATA  STRUCTURES 

MORE  TO  OUTPUT? 

BR  IF  NO 

UPDATE  DATA  STRUCTURE  LENGTH 

UPDATE  ADDRESS 

UPDATE  BUFFER  ADDRESS 

USE  NEW  BUFFER  ADDRESS 

AND  WRITE  NEXT  RECORD 

RETURN  TO  DEFAULT  BUFFER 

ELSE  RESTORE  ADDRESS 
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L 
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'F!LE'MD«*VDIS 


VD 


VV    vv 

DDDDDDDD 

MI 

III 

ssssssss 

vv    vv 

DODDDDDD 

111 

III 

ssssssss 

vv    vv 

0& 

DD 

ss 

vv    vv 

DD 

DD 

ss 

vv    vv 

DD 

DD 

ss 

vv    vv 

DD 

DD 

ss 

vv    vv 

DD 

DD 

ssssss 

vv    vv 

DO 

DD 

ssssss 

vv    vv 

DD 

DD 

ss 

vv    vv 

DD 

DD 

ss 

vv  vv 

DD 

DD 

ss 

vv  vv 

DD 

DD 

ss 

vv 

DDDDDDDD 

11! 

III 

ssssssss 

vv 

DDDDDDDD 

Ill 

111 

ssssssss 

ssssssss 

ITTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL         SSSSSSSS 


TT 
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VDIS  -  VNP  SHOW  COMMANDS 
SDALI  -  SHOW  ALIAS 

441 
442 
445 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 

455  002512 

456  002516  103004 

457  002520 

458  002530  012701 
459 

460  002534 

461  002542 

462  002562 
463 

464  002570  012703 

465  002574  012705 

466  002600  005767 

467  002604  001422 

468  002606  005713 

469  002610  001533 

470  002612  022767 

471  002620  001464 
472 
473 
474 

475  002622  012700 

476  002626  112021 

477  002630  001376 

478  002632  005004 

479  002634 

480  002640  103517 

481  002642 

482  002646  005204 

483  002650  000771 
484 
485 
486 

487  002652  005767 

488  002656  001501 

489  002660  005703 

490  002662  001470 

491  002664  012700 

492  002670  112021 

493  002672  001376 

494  002674  005004 

495  002676  012700 
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.SSTTL  $DAL1  -  SHOW  ALIAS 

^ 

$DAL1  -  SHOW  ALL  ALIASES 
SHOW  KNOW  ALIASES 
SHO  ALIAS  X 

INPUTS:  NONE 

OUTPUTS:  ALIAS  INFORMATION  IS  DISPLAYED  ON  THE  USER'S  TERMINAL 

ALL  REGISTERS  ARE  DESTROYED 


001062' 


OOOOOOG 

000100 

OOOOOOG 


SDALI::  CALL  CKTYPE 

BCC  10$ 

ERRPTS  SYNERR,$EROUT 

10$:    MOV  #rEMP2,R1 


000004  OOOOOOG 


000155' 


OOOOOOG 


000167' 


OOOOOOG 


SWTCHI 

#$HM8UF 

GETRV 

$DECPT,#0$END 

SWTCHI 

MOV 

#$HMBUF+D$ANN,R3 

MOV 

#100, R5 

TST 

$QUAL 

BEQ 

m 

TST 

(R3) 

BEQ 

150$ 

CMP 

#QF$KNO,$QUAL 

BEQ 

100$ 

•  SHOW 

ALL  ALIASES 

MOV 

#AALL,R0 

20$: 

MOVB 

(R0)+,(R1)+ 

BNE 

20$ 

CLR 

R4 

30$: 

CALL 

NXT8LK 

BCS 

150$ 

CALL 

DISALI 

INC 

R4 

BR 

50$ 

;  SHOW 

SPECIFIC 

ALIAS 

40$: 

TST 

$0PT0N 

BEQ 

140$ 

TST 

R5 

BEQ 

150$ 

MOV 

#ASPEC,R0 

50$: 

MOVB 

(R0)  +  ,(R1)»- 

BNE 

50$ 

CLR 

R4 

60$: 

MOV 

#RQ6,R0 

GET  COMMAND  TYPE 
BR  IF  SUCCESS 
ELSE  SYNTAX  ERROR 
STORAGE  FOR  HEA'^ER  STRING 

USE  TEMPORARY  BUFFER 

READ  DECNET  HOME  BLOCK 

RESET  TO  DEFAULT  INPUT  BUFFER 

ALIAS  NAME  BLOCK  LISTHEAD 

LENGTH  OF  ALIAS  NAME  BLOCK 

SHOW  SPECIFIC  ALIAS? 

BR  IF  YES 

ANY  ALIASES  IN  SYSTEM? 

BR  IF  NO 

SHOW  KNOWN  ALIASES? 

BR    IF    YES 


MUST  BE  SHOW  ALL  ALIASES 
STORE  HEADER  STRING 

INDICATE  HEADER  IS  TO  BE  DISPLAYED 
GET  NEXT  ALIAS  NAME  BLOCK  IN  LIST 
BR  IF  AT  END  OF  LIST 
DISPLAY  ALIAS  INFORMATION 
INDICATE  HEADER  NOT  TO  BE  DISPLAYED 
GET  NEXT  BLOCK 


WAS  SCOPE  SPECIFIED? 

BR  IF  NO 

ANY  ALIASES  IN  SYSTEM? 

BR  IF  NO 

HEADER  FOR  SPECIFIC  ALIAS 

STORE  IT 

Indicate  header  to  be  printed 
get  input  parameters  address 
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CHK,SN>:  -  CHECK  FOR  MATCH  ON  SINK  TYPE 


958 

.SBTTL 

CHKSNK  -  CHECK  FOR  MATCH 

ON  SINK  TYPE 

959 

960 
961 
962 
963 
96'. 

+ 

CHKSNK  -  CHECK  FOR  MATCH  ON  SINK  TYPE 

INPUTS: 

965 

R3  -  ADDRESS  OF  FILTER  BLOCK 

966 

TEMP3 

-  NODE  ADDRESS  OF  LAST  SINK 

NODE  DISPLAYED 

967 
968 
969 

L0.SKA+RQ8  -  SPECIFIED  SINK  NODE 

OUTPUTS: 

970 

CARRY 

CLEAR: 

971 

MATCH  ON  SINK  NODE 

972 
973 

CARRY 

SET: 

974 

NO 

MATCH 

975 
976 
977  005236 

032767 

002000 

OOOOOOG 

[HK5NK: 

BIT 

*OP$KSK,$OPTON 

DISPLAY  KNOUN  SINKS? 

978  005244 

001014 

BNE 

20$ 

BR  IF  YES  -  ALWAYS  MATCH 

979  005246 

032763 

100000 

000014 

BIT 

*FF.REM,F.FLG(R3) 

EVENT  QUALIFIED  BY  SINK  NODE? 

980  005254 

001004 

BNE 

10$ 

BR  IF  YES 

981  005256 

005767 

000014G 

TST 

RQ8+L0.SKA 

IS  SINK  NODE  EXECUTOR? 

982  005262 

001034 

8NE 

50$ 

BR  IF  NO 

983  005264 

000404 

BR 

20$ 

CHECK  TO  DISPLAY  SINK  NODE 

984  005266 

026367 

000026 

000014G 

10$: 

CMP 

F.REM(R3),RQBtL0.SKA 

DO  SINK  NODES  MATCH? 

985  005274 

001027 

BNE 

50$ 

BR  IF  NO 

986  005276 

032763 

100000 

000014 

20$: 

BIT 

*FF.REM,F.FLG(R3) 

IS  FILTER  QUALIFIED  BY  SINK  NODE? 

987  005304 

001010 

BNE 

30$ 

BR  IF  YES 

988  005306 

005767 

173670 

TST 

TEMP3 

IS  CURRENT  SINK  NODE  EXECUTOR? 

989  005312 

001416 

BEQ 

40$ 

BR  IF  YES  -  MATCH 

990  005314 

005067 

173662 

CLR 

TEMP3 

ELSE  BUILD  SINK  NODE  MESSAGE 

991  005320 

CALL 

DLOSNK 

BUILD  SINK  NODE  MESSAGE 

992  005324 

000414 

BR 

60$ 

AND  EXIT 

993  005326 

026367 

000026 

173646 

30$: 

CMP 

F.REM(R3),TEMP3 

HAS  SINK  NODE  BEEN  DISPLAYED  ALREADY 

994  005334 

001405 

BEQ 

40$ 

BR  IF  YES 

995  005336 

016367 

000026 

173636 

MOV 

F.REM(R3),TEMP3 

ELSE  BUILD  SINK  NODE  MESSAGE 

996  005344 

CALL 

DLOSNK 

DISPLAY  SINK  NODE 

997  005350 

000241 

40$: 

CLC 

INDICATE  SUCCESS 

998  005352 

000401 

BR 

60$ 

999  005354 

000261 

50$: 

SEC 

INDICATE  NO  MATCH 

1000  005356 

60$: 

RETURN 
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3A5 
3A6 
3-7 
34c  000242 

349  000250 

350  000256 

351  000276 

352  000302 

353  000306 

354  000310 
i55  000314 

356  0C0320 

357  000322 

358  000326 

359  000332 
360 

361 

362  000334 

363  Gj03'2 
364 

365 

366  000362 

367  000366 

368  000370 
369 

370 
371 
372 
373 

374  000376 

375  000402 
376 
377  000404 


378 
37^ 
380 
38' 


000410 


000430 

382  000434 

383  000440 

3t; 

385  000444 
386 

387  000450 

338 

389 

390 

391 

392  000452 

3::3  000460 

39a  C00464 


052767  OOOOOOG  OOOOOOG 

016767  OOOOOOG  OOOOOOG 

012700  OOOOOOG 

012701  OOOOOOG 
005002 


103454 
010102 
016767     OOOOOOG  OOOOOOG 


103431 

016767     OOOOOOG  OOOOOOG 


103423 

012701  000006 


TRANSFER  CETAS  INTO  DISK  IMAGE 


BIS 

MOV 

PUTRC 

MOV 

MOV 

CLR 

CALL 

CALL 

BCS 

CALL 

CALL 

MOV 


#fe.cex,$fmask 
.cepurJbfr 

.NETPF,#2 

*$DFU1C,R0 

*$CET,R1 

R2 

$AZFS 

SCTBIO 

TSKERR 

NL8LK 

CEPTR 

R1,R2 


.IF  NDF  R$$MPL 

MOV  $CEAVL,$BFR 

PUTRC  .CEAVL,*2 
.ENDC 

CALL  $VIMI 

BCS  TSKPOR 

MOV  $$MUX,$NTLPT 


ALLOCATE  DECNET  HOME  BLOCK 


012700  000006G 
112720  000040 


30$: 


042767  OOOOOOG  OOOOOOG  TSKERR: 
0-'6000  000724' 


CALL 
BCS 

SDECHM 
TSKERR 

MOV 

#6,R1 

GETRV 

$DECPT,«D$END 

MOV 

M0V8 

SOB 

*$8FRtD$LNAM,R0 
#'    ,(R0)+ 
R1  J0$ 

PUTRC 

RETURN 

CONDITIONS 

BIC 
MOV 
CALLR 

#FE.CEX,$FMASK 
ETAB2-2(R0),R0 
a(RO)+ 

GET  ALLOCATION  FROM  CEX  POOL 

GET  ADDRESS  OF  COM/EXEC  POWERFAIL  ROUTINE 

STORE  ADDRESS  OF  POWERFAIL  ROUTINE 

SETUP  ASCIZ  FILE  SPEC 

FOR  [XXX.SXJCETAB.STB 


TRANSFER  CETAB  INTO  DISK  IMAGE 
IF  CS,  ERROR 
SETUP  NETLDR  DATA  BLOCK 
RELOCATE  CETAB  TABLE  POINTERS 
COPY  CETAB  ALLOCATION  ADDRESS 

;[MP01] 
THE  COMM  EXEC  LISTHEAD  MIGHT  HAVE  CHANGED  I 
WRITE  OUT  ■'HE  START  OF  CEX  FREE  SPACE 

;[MP01] 


LOAD  COMEXEC  IMAGE 
IF  ERROR  -  BRANCH 
STORE  POOL  ADDRESS 


INTO  INTERN.  TEMPL. 


ALLOCATE  DECNET  HOME  BLOCK 
IF  ERROR  -BRANCH 

LENGTH  OF  NODE  NAME 

READ  DECNET  HOME  BLOCK 

POINT  TO  EXECUTOR  NODE  NAME 

INIT  TO  SPACES  (  MAY  BE  PSI  ONLY  SYSTEM) 

WRITE  BACK  DECNET  HOME  BLOCK 


SAY  CEX  NOT  LOADED 

GET  ERROR  MESSAGE  CONTROL  BLOCK  ADDRESS 

PRINT  ERROR  MESSAGE 


ViEX 
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AB.NPV= 

AB.TYP= 

AF.AST= 

AF.ESQ= 

AF.LCK= 

AF.MDE= 

AF.NOT= 

AF.OOB= 

AF.QUE= 

AF.XCC= 

A<.BUF= 

AK.GBI= 

AK.GGF= 

AK.OCB= 

AS.CAA= 

AS.DEL= 

AS.D1S= 

AS.DLT= 

AS.EXT= 

AS.FPA= 

AS.PFA= 

AS.RCA= 

AS.REA= 

AS.RED^ 

AS.RRA= 

AS.WRT= 

A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

A.ACC 

A.ACCE 

A. AST 

A. BYT 

A. CALL 

A.CBL 

A. CONN 

A.DEQU 

A.DIS 

A. DISC 

A.DQSR 

A.FLEN 

A.IBUF 

A.ILEN 

A.IMAP 

A.INPU 

A. IOC 

A.IOS 

AASR5 

A.LGTH= 

A.LIN 

A.MAS 

A.MPCT 

A.NPR 

A.NU'1 

A.OUTP 

A.PCB 


000001 

000002 

000010 

000020 

000040 

000200 

000002 

000004 

000100 

000001 

000200 

000202 

00030? 

000201 

000006 

000010 

000002 

000001 

OOOOOA 

000001 

000004 

000002 

000005 

000001 

000003 

000002 

000000 

000000 

000000 

000000 

000014 

000000 

000006 

000004 

000024 

000002 

000012 

000002 

000002 

000014 

177776 

000011 

000014 

000016 

000012 

000006 

000003 

000026 

177774 

000014 

000012 

000004 

OC1011 

000010 

000010 

000010 

000012 


A.PC8L 

A.PLEN= 

A.PDUE 

A.PRl 

A.PRM 

A.PROC 

A.RECE 

A.REL 

A. RES  = 

A.SBUF 

A.SLEN 

A. SNAP 

A.STA 

A.STAT 

A.TCB 

A.TCBL 

A.TRAN 

CBLK1 

CBLK3 

CBLK4 

CBLK5 

CEPTR 

CESYM 

CEXNAM 

CEXPCB 

CF.DDM= 

CF.DYN= 

CF.EIS= 

CF.FRK= 

CF.L0G= 

CF.MDM= 

CF.TIM= 

CLKQB 

CL.OPN= 

CM.CDS= 

CM.CEN= 

CM.ELM= 

CH.EXT= 

CM.IND= 

CM.INE= 

CM.LKT- 

C.'«I.MSG= 

CM.RMT= 

CP.DSB= 

CP.EXT= 

CP.L30= 

CP.MSG= 

CP.NI0= 

CP.NUL= 

CP.PRV= 

CP.RST= 

CP.SGL= 

C$$CKP= 

C$$0RE= 

C$$RSH= 

C.AR5 

CAST 


000000 

000016 

000004 

000002 

000012 

000020 

000016 

000000 

000032 

000022 

000024 

000020 

000015 

000010 

000004 

000006 

000022 

000434R 

000450R 

000464R 

000500R 

000746R 

000466R 

000376R 

000406R 

000002 

000004 

000010 

100000 

000020 

000001 

000400 

00041  OR 

*♦»***  GX 

000004 

000003 

000005 

00000 

OOOOu. 

000001 

0000)7 

000011 
000010 
000010 
000400 
000004 
000002 
000100 
000001 
000020 
000200 
000040 
000000 
000400 
177564 
000014 
000012 


C.CSTP= 
C.DST 
C.EFN 
C.LGTH= 


002 
002 


.LNK 
.HRKT=: 
.PCPL 
.PDPL 
.PNAM 
.PRMT 
C.PSTS 
C.PTCB 
C.RQT 
C.RSI 
C.SCHD= 
C.SRC 
C.SSHT= 
C.SUB 
C.SYST=: 
002  C.SYTK= 
002  C.TC8 
C.TIM 
C.UIC 
002  DSIZE  = 
002  DSAMXC 
DSAMXH 
DSANN 
DSBRPR 
D$8RTM 
DSDELF 
DSDELU 
DSEND  = 
002  D$FN8 
DSHIOR 
DSHOST 
DSINAC 
DSINCT 
DSIPL 
D$Lir 
DSLNAM 
DSLNUM 
D$LST 
DSMAXC 
DSMAXH 
DSMAXV 
D$MLL 
DSMNOD 
D$NA 
DSNBEA 
DSNSRA 
D$NEND= 
DSNLN 
D$NN 
DSOUTT 
DSRETF 
D$RNN 
DSRTMR 


000012 

000016 

000003 

000020 

000000 

000000 

000011 

000010 

000002 

000012 

000006 

000000 

000002 

000012 

000002 

000014 

000004 

000012 

000006 

000010 

000004 

000006 

000016 

******  GX 

000072 

000074 

COOOOO 

000102 

000100 

000045 

000046 

000104 

000034 

000024 

000022 

000044 

000042 

000051 

000020 

000006 

000014 

000047 

000064 

000066 

000070 

000040 

010041 

000062 

000056 

000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 


D$SEG 

000036 

I.XPBF 

D$SER 

000032 

I.XPBL 

DSSORL 

000052 

.XPBV 

D$$BUG= 

177514 

.XRBF 

D$$ISK= 

000000 

I.XRBL 

D$$L11= 

000001 

I.XTCB 

D$$YNC= 

000000 

I.XTMO 

D$$YNM= 

000000 

I.XTTB 

ERR1 

000034R 

002 

I.XTTL 

ERR2 

000066R 

002 

K$$CNT= 

ERR3 

0001 52R 

002 

K$$CSR= 

ERR4 

000224R 

002 

K$$LDC= 

ERRS 

000252R 

002 

K$$rPS= 

ETA81 

00071 6R 

002 

LDSLP  = 

ETA82 

000726R 

002 

LO.CON 

E$$XPR= 

000000 

LO.CSR 

FE.CEX= 

******  GX 

LO.CTL 

F$$LVL= 

000001 

LO.LIN 

F.NRBD= 

******  GX 

LO.PAR 

F.RS1Z= 

******  GX 

LO.PRI 

GS.DEL= 

000001 

LO.SCR 

G$$TPP= 

000000 

LO.STA 

G$$TSS= 

000000 

LO.VCT 

G$$TTK= 

000000 

LR.AST 

G$$URD= 

000000 

LR.CIR 

G.CNT 

000004 

LR.CTL 

G.EFLG 

000006 

LR.EFN 

G.6RP 

000002 

LR.LIN 

G.LGTH= 

000012 

LR.PRM 

G.LNK 

000000 

LR.PRO 

G.STAT 

000003 

LR.STS 

IBLK1 

00061  OR 

002 

LR.TCB 

I8LK2 

000622R 

002 

LR.UNT 

P.AB0= 

000040 

LS.AST= 

IP.FAK= 

000020 

LS.CEX= 

P.PND= 

000100 

LS.CIR= 

IP.'JMR= 

000200 

LS.CX0= 

$$RAR= 

000000 

LS.CX5= 

$$RDN= 

000000 

LS.DLM= 

LAST 

000022 

LS.ECH= 

I.ATTL= 

000044 

LS.FDX= 

I.EFN 

000003 

LS.HDX= 

I.FCN 

000012 

LS.LIN= 

I.IOSB 

000014 

LS.LMC= 

I.LGTH= 

000044 

LS.NTI= 

I.  LNK 

000000 

LS.ON  = 

I.LN2 

000006 

LS.OPT= 

I.PRI 

000002 

LS.PRO= 

I.PRM 

000024 

LS.PWF= 

I.TC8 

000004 

LS.TOP= 

I.UCB 

000010 

LS.UNF= 

I.XDBF 

000040 

LS.X25= 

I.XDBL 

000044 

LS.11D= 

I.XIOP 

00C002 

LX.CEX= 

I.XLEN= 

000046 

LX.LIN= 

I.XLNK 

000000 

LX.PRO= 

l.XMOD 

000006 

L$$ASG= 

000022 
000026 
000030 
000012 
000016 
000004 
000020 
000032 
000036 
177546 
177546 
000000 
000074 
000000 
000006 
000006 
000014 
000004 
000010 
000010 
000014 
000015 
000012 
000026 
000002 
000004 
000004 
000002 
000030 
000002 
000000 
000002 
000005 
100000 
000001 
000010 
010000 
000400 
004000 
001000 
004000 
010000 
000005 
000007 
004000 
000011 
000400 
000002 
040000 
002000 
020000 
000012 
004000 
000004 
000006 
000005 
000000 
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CONSTANT  DEFINITIONS 

.SBTTL  CONSTANT  DEFINJTIONS 


82 

83 

84 

85 

86 

87 

000031 

88 

000200 

89 

000007 

90 

000040 

9 

002000 

92 

000177 

93 

007777 

94 

000020 

95 

000040 

96 

97 

98 

99 

100 

000001 

101 

000002 

102 

000003 

103 

000004 

CONSTANTS 


VCFG  - 
STORID 

65( 
65 
65, 
65 


MAXCST  =  25. 
MAXNDC  =128. 
MAXUND  -  7 
BLKSMN  =  32. 
BLKSMX  =  1024. 
WNDSMX  =127. 
CHNLMX  ==  4095. 
MAXJD  =  lb. 
SPACE  =  40 


MAXIMUM  LINE  COST  ALLOWED 

MAXIMUM  NUMBER  OF  NODE  COUNTERS  (LLCSDF) 

MAXIMUM  WINDOW  SIZE  (SVCSDF) 

MINIMUM  BLOCK  SIZE  VALUE 

MAXIMUM  BLOCK  SIZE  VALUE 

MAXIMUM  WINDOW  SIZE  VALUE 

MAXIMUM  VALUE  FOR  CHANNEL  NUMBER 

Max  length  of  net.  mgmt.  'id-string' 

ASCII  space  character 


;CTD001] 
.-CTDCOI] 


CHARACTERSTICS  WORD  1  PROTOCOL  BIT  SELECTIONS 


C1.DCP 
C1.BSY 
CI. SDL 
C1.X25 


DDCMP 

BISYNC 

SDLC/ADCCP/HDLC 

X.25 
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5T0RI0  -  Store  id-string  according  to  system  type 


650  001A30 
651 

652  OOU52 

653  00U34 


000261 


^9$: 


RETURN 

SEC 
RETURN 


Signal  string  too  long 


;[TD00n 
.-CTDOOi: 
;CTD001] 

;i:tdooi] 
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VCFG  -   VNP   SCAN  CONFIGURATION 
TPARS   ACTION  ROUTINES 


1065 
1066 
1067 
1068 
1069 
1070 

1071  001512 

1072  001512 

1073  001512  012700 
107^  001516  016701 

1075  001522  016702 

1076  001526  022702 

1077  001532  00K07 

1078  001 53A  022702 

1079  001540  001011 

1080  001 5A2  122760 

1081  001550  001005 

1082  001552  122021 

1083  001554  001003 
108A  001556  005302 

1085  001560  001374 

1086  001562  000404 

1087  001564 

1088  001574 
1089 

1090 
1091 
1092 

1093  001576 

1094  001576  005767 

1095  001602  100407 

1096  001604  032767 

1097  001612  001403 

1098  001614  016767 

1099  001622 
1100 

1101 
1102 
1103 

1104  001624 

1105  001624  005767 

1106  001630  100407 

1107  001632  032767 

1108  001640  001403 

1109  001642  016767 

1110  001650 
1111 

1112 
1113 
1114 

1115  001652 

1116  001652  005767 

1117  001656  100407 

1118  001660  016767 

1119  001666  026727 

1120  001674  105001 

1121  001676 
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.SBTTL  TPARS  ACTION  ROUTINES 
TPARS  ACTION  ROUTINES 
DDM  NAME  (SLTSDf,  DDHSDF,  LLCSDF) 


000012' 
OOOOOOG 
OOOOOOG 
000003 

000002 

000040  000002 


L.NAME 
D.NAME 
S.NAME 


10$: 


20$: 
30$: 


MOV 
MOV 
MOV 
CMP 
BEQ 
CMP 
BNE 

CHPe 

BNE 

CMPB 

BNE 

DEC 

BNE 

BR 

REJ$ 

RETURN 


♦NAME.RO 
.PSTPT.Rl 
.PSTCN,R2 
#3,R2 

loi 

#2,R2 

20$ 

*•  ,2(R0) 

20$ 

(R0)  + 

20$ 

R2 

10$ 

30$ 


(Rl)< 


POINT  AT  NAME  WE'RE  LOOKING  FOR 

POINT  AT  NAME  FROM  CONFIG  FILE 

GET  CONFIG  FILE  NAME  LENGTH 

THREE  CHARACTERS? 

IF  EQ,  YES 

TUO  CHARACTERS? 

IF  NE,  NO  -  REJECT  TRANSITION 

IS  OUR  THIRD  CHARACTER  A  SPACE? 

IF  NE,  NO  -  REJECT  TRANSITION 

SEE  IF  NAMES  MATCH 

FOR  A  LENGTH  OF  R2  CHARACTERS 


SUCCESS! 

REJECT  TRANSITION 


OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


PROCESS  LINE  TABLE  COUNT  (LLC$DF,  DLCSDF,  ODM$DF 
P. INC: 


10$: 


TST 

.MGMGE 

MAPPED  SYSTEM  ? 

BMI 

10$ 

IF  MI,  NO  ..  LEAVE 

BIT 

*MS.INC,$MISS 

IS  THE  LINE  TABLE  COUNT  MISSING 

BEQ 

10$ 

IF  ro,  NO  ..  LEAVE 

MOV 

.PNUMB,$$INC 

GET  THE  LINE  TABLE  COUNT 

RETURN 


OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


PROCESS  CONTROLLER  TABLE  COUNT  (DDM$DF,  DLC$DF) 
D.EXT: 


10$: 


TST 

.MGMGE 

BMI 

10$ 

BIT 

#MS.EXT,$MISS 

BEQ 

10$ 

MOV 

.PNUMB,$$EXT 

RETURN 

LLC  PROCESS  EXTENSION 


OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  000200 


P. EXT: 


10$: 


TST 

.MGMGE 

BMI 

10$ 

MOV 

.PNUMB,$$EXT 

CMP 

.PNUMB,#128. 

BHIS 

101$ 

RETURN 


HAPPED   SYSTEM 

IF   MI,    NO    ..    LEAVE 

IS   THE    CONTROLLER   TABLE    COUNT  MISSING 

IF   EQ,   NO   ..   LEAVE 

ELSE,  GET  THE  CONTROLLER  TABLE  COUNT 


MAPPED  SYSTEM  ? 

IF  MI,  NO  ..  LEAVE 

GET  THE  LLC  PROCESS  EXTENSION 

IS  THE  PROCESS  EXTENSION  >=  4< 

IF    HIS,    YES    ..    ERROR 


L     5 

uMP   sraw  rriMF  ir,iiRATinN  r   MAfRD  vn5.03h  Monday   15-Jul-85   19:04     Paae  25-1 
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VCFG  -  VNP  SCAN  CONFIGURATION  F  MACRO  V05.03b  Monday  15-Jul-85  19:04  Page  33 
LNKEND  -  LINK  BLOCK  AT  END  OF  LIST 

.SBTTL  LNKEND  -  LINK  BLOCK  AT  END  OF  LIST 


LNKEND  -  LINK  BLOCK  AT  END  OF  LIST 

INPUTS: 

RO  -  ADDRESS  OF  LISTHEAD 

R5  -  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 

OUTPUTS: 

BLOCK  IS  LINKED  AT  END  OF  LIST 


1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612  004030 

1613  004046 

010001 

1614  004050 

016700  OOOOOOG 

1615  004054 

001414 

1616  004056 

1617  004066 

1618  004104 

000760 

1619  004106 

010546 

1620  004110 

010146 

1621  004112 

1622  004116 

VCFG 

MACRO 
MACRO 

TRAN$ 


LNKEND: 

:GETRV 

10$: 

MOV 

MOV 

BEQ 

CEACC$ 

GETAD 

BR 

20$: 

MOV 

MOV 

CALL 

RETURN 

R0,#2 

R0,R1 

$BFR,RO 

20$ 

RO 

R0,#2 

lOi 

R5,-(SP) 

R1,-(SP) 

$XLINK 


READ  IN  LISTHEAD 

SAVE  ADDRESS  OF  PREVIOUS  BLOCK 

GET  ADDRESS  OF  NEXT  BLOCK  IN  LIST 

BR  IF  END  OF  LIST  -  LINK  IT  HERE 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  LISTHEAD 

GET  NEXT  BLOCK  IN  LIST 

GET  UNMAPPED  ADDR  OF  CURRENT  BLOCK 

GET  ADDRESS  OF  PREVIOUS  BLOCK 

LINK  BLOCK  INTO  LIST 


VNPBPl 
XPDDBJ 


i/MP  «C4M  rriMf  tr.iiBiT  inru  r   Marsn  vlTi   n'^h  Mnnris^ 


L     6 

15-.hjl-85    19:04      Paae   34 


...ir  1 1   c 


VCFG  CREATED  BY     MACRO     ON  15-JUL-85  AT   19:06 

MACRO   CROSS  REFERENCE 


K     7 

PAGE  8 

CREF       04.00 


VCFF 
OPEN 


MACRO  NAME 


TRANS 


VNIPBPT 
XPDDBS 


REFERENCES 

#24-1035 

*24-1061 

#5-59 

#17-742 

#17-758 

#17-779 

#18-797 

#18-821 

#20-859 

#20-885 

#22-935 

#22-953 

#22-975 

#23-1010 

#24-1036 

#24-1052 

#8-259 

#5-60 


#24-1037       #24-1040       #24-1043       #24-1045       #24-1048       #24-1051       #24-1054       #24-1057       #24-1059 


#17-724 

#17-744 

#17-759 

#17-780 

#18-800 

#18-824 

#20-862 

#21-892 

#22-937 

#22-956 

#22-981 

#23-1013 

#24-1038 

#24-1053 

8-260 

5-63 


#17-726 

#17-746 

#17-761 

#17-781 

#18-803 

#18-827 

#20-865 

#21-894 

#22-939 

#22-957 

#22-982 

#24-1020 

#24-1039 

#24-1055 


#17-728 

#17-747 

#17-762 

#17-782 

#18-806 

#18-828 

#20-868 

#21-896 

#22-941 

#22-960 

#23-989 

#24-1022 

#24-1041 

#24-1056 


#17-730 

#17-749 

#17-763 

#17-784 

#18-809 

#18-831 

#20-871 

#21-898 

#22-943 

#22-961 

#23-992 

#24-1024 

#24-1042 

#24-1058 


#17-732 

#17-750 

#17-765 

#17-785 

#18-810 

#19-840 

#20-874 

#21-900 

#22-945 

#22-964 

#23-995 

#24-1026 

#24-1044 

#24-1060 


#17-734 

#17-752 

#17-766 

#17-786 

#18-813 

#19-842 

#20-875 

#21-902 

#22-946 

#22-965 

#23-998 

#24-1028 

#24-1046 


#17-736 

#17-753 

#17-768 

#17-788 

#18-814 

#19-848 

#20-878 

#21-904 

#22-948 

#22-968 

#23-1001 

#24-1030 

#24-1047 


#17-738 

#17-755 

#17-770 

#17-789 

#18-817 

#19-850 

#20-881 

#21-908 

#22-949 

#22-969 

#23-1004 

#24-1032 

#24-1049 


#17-740 

#17-756 

#17-772 

#17-790 

#18-820 

#20-858 

#20-882 

#22-933 

#22-952 

#22-972 

#23-1007 

#24-1034 

#24-1050 


i*r  r  I   r  i  *.  T 
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[; 
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VCFP  -  VNP  PSl  CONFIGURATION  FI  MACRO  V05.03b  Saturday  29-Jun-85  02:17 
OPEN  CONFIG  FILE 


Page  10 


VCFP 
SPFI 


A09 
A10 
411 
UM 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 


000400  012700  OOOOOOG 

000404  012701  000000' 

000410  012702  000006' 

000414 

000420 

000424  105777  OOOOOOG 

000430  100401 

000432 


000434 


.SBITL  OPEN  CONFIG  FILE 
OPEN  -  OPEN  THE  CONFIG  FILE 


INPUTS: 

NONE 

OUTPUTS: 

C-8IT= 

SUCCESS/FAILURE 

EN:   MOV 

/»$DFUK,RO 

MOV 

#CFGNAM,R1 

MOV 

#CFGEXT,R2 

CALL 

SAZFS 

CALL 

SCLOUE 

TST8 

ascLios 

BMI 

101$ 

RETURN 

SETUP  ASCI7  FILE  SPEC 
FOR  CETAB.MAC 


OPEN  THE  CONFIG  FILE 
SUCCESS?  (CLEARS  C-BIT) 
IF  MI,  NO 


ERROR  CONDITION 
01$:   EMSG$R  IP 


OPEN  FAILURE 


r: 


,,nc   A2k 


L  8 
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VCFP  -  VNP  PSI  CONFIGURATION  fl  MACRO  V05.0?b  Saturday  29-Jun-85  02:17  Page  21 
SPFILL  -  Fill  area  with  spaces 


783 
78A 
785 
786 
787 
788 
789 
790 
791 
792 
793 

794  00K44 

795  001AA4  010046 

796  00UA6  010U6 

797  00K50  OOUOA 

798  00U52  112720 

799  00K56  005301 

800  001A60  00337A 

801  00U62  012601 

802  00U6A  012600 

803  001466 
80A 

805       OflOOOl 


.SBTTL  SPFILL  -  Fill  area  with  spaces 

**♦  SPFILL  -  FiU  area  with  spaces 

INPUTS 

RO  -  address  of  area  to  fill 
R1  -  length  of  area  to  fill 

OUTPUTS 

All  registers  preserved 


SPFILL: 


000040 


MOV 

RO,-(SP) 

MOV 

R1,-(SP) 

BEQ 

20$ 

10$: 

MOVB 

#SPACE,(R0)+ 

DEC 

R1 

BGT 

10$ 

20$: 

MOV 

(SP)+,R1 

MOV 

(SP)+,R0 

RETURN 

save  registers 
nothing  to  do? 

restore  regs 


.END 


.-CTDOOI] 
;[TD0013 
;[TD001] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
.■CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 


L  9 


VCIO 


LOAD   CETAB   IMAGE   MACRO  V05.05b   Saturday   29-Jun-85   02:18 


K  10 
Page  1 


VCLQR 
CLQRE 


129 

150 

131 

132 

133 

13^ 

135 

136 

137 

138 

139 

HO 

K1 

U2 

K3 

U4 

H5 

K6  000000 

H7  000000 

H8  000004 

1A9  000010 

150  OOOOU 

151  000016 

152  000020 

153  000022 

154  000026 

155  000050 

156  000034 

157  000040 

158  000044 

159  000046 

160  000050 

161  000054 
162 

163 
164 
165 

166  000056 

167  000064 

168  000066 

169  000074 


SCTBIO  -  CETAB  I/O 

THIS  ROUTINE  IS  CALLED  TO  TRANSFER  THE  CETAB  TASK  IMAGE  INTO  CORE. 

INPUTS: 

R1=FILE    SPEC   ADDRESS 
R2=FILE    SPEC   LENGTH 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 
C=1 

R0=ERROR  CODE 
C=0 

R1  =  CETAB  ALLOCATION  ADDRESS 

R2  =  CETAB  ALLOCATION  LENGTH 


005067 

105777 
100420 
052010 
001422 

105402 


005767 
001401 
000261 
016700 


012767 
000770 
012767 
000757 


000000' 
OOOOOOG 


000000' 
000000' 


000002 
000006 


iCTBIO:: 


10$: 


20$: 
50$: 


CLR 

CALL 

TSTB 

BMI 

BIS 

BEQ 

CALL 

BCS 

CALL 

CALL 

TST 

BEQ 

SEC 

MOV 

RETURN 


ERROR 

$CLOPE 

a$CLIOS 

101$ 

(R0)+.(R0) 

111$ 

PR.L8L 

10$ 

PR.XFR 

$CLDEQ 

ERROR 

30$ 

ERROR, RO 


000000' 


ERROR  CONDITIONS 
101$ 


MOV 
BR 

000000'  111$:   MOV 
BR 


#EfiR2, ERROR 

20$ 

#ERR6, ERROR 

10$ 


NO  ERROR,  EITHER 

OPEN  PROCESS  FILE 

LOOK  AT  GCL  I0S8 

IF  MI,  FAILURE 

IS  FILE  CONTIGUOUS? 

IF  EQ,  NO 

READ  LABEL  BLOCK 

IF  CS,  ERROR 

READ  PROCESS  TASK  IMAGE  INTO  CORE 

CLOSE  PROCESS  FILE 

ANY  ERRORS?  (CLEARS  C-BIT) 

IF  ZERO,  NO 

INDICATE  FAILURE 

GET  ERROR  CODE 


OPEN  FAILURE 
NOT  CONTIGUOUS 


oc  m . I Q 


L  10 
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VCLQRM  -  REMOVE  ENTRIES  FROM  CL  MACRO  V05.03b  Saturday  29-Jun-85  02:18  Page  7 
CLQREM  -  REMOVE  ENTRIES  FROM  CLOCK  QUEUE 


VDEV 
MACRl 


69 

^0 
^1 

7? 

/■! 

^A 

^S 

^ft 

7/ 

/•H 

79 

HO 

HI 

H? 

H< 

H4 

KS 

86 

000002 

K*- 

000002 

005067 

HH 

000006 

012700 

H9 

000012 

90 

000016 

103402 

91 

000020 

010067 

9;^ 

000024 

012704 

9', 

000030 

016700 

9A 

000034 

9S 

96 

97 

9H 

000052 

010003 

99 

000054 

011400 

100 

000056 

001470 

101 

000060 

ny 

000076 

005705 

in^ 

000100 

001407 

^0', 

000102 

020564 

10S 

000106 

001432 

106 

000110 

022767 

107 

000116 

001755 

108 

000120 

122764 

109 

000126 

001351 

110 

000130 

016701 

111 

000134 

020100 

IV 

000136 

101345 

11^ 

000140 

062701 

1U 

000144 

020100 

ns 

000146 

103741 

116 

000150 

005767 

11<' 

000154 

100407 

118 

000156 

016701 

119 

000162 

001733 

1?0 

000164 

026461 

1?1 

COOT  72 

001327 

v.' 

V-; 

VA 

125 

000174 

016446 

.SBTTL  CLQREM  -  REMOVE  ENTRIES  FROM  CLOCK  QUEUE 


»••  -  CLQREM 
INPUT: 


REMOVE  ENTRIES  FROM  CLOCK  QUEUE 


OUTPUT 


R5  =  TCB  ADDRESS  OF  ENTRIES  TO  REMOVE  FROM  CLOCK  QUEUE  IF  SET 
EXECUTOR  STATE  OFF  COMMAND 

IF  SET  EXECUTOR  STATE  OFF,  THE  NTINIT  ENTRY  IS  REMOVED  FROM  THE 
CLOCK  QUEUE  IF  IT  IS  IN  THE  LIST.   IF  CLEAR  SYSTEM,  THE  1  SECOND  TIMER 
AND  50  MSEC  TIMER  ENTRIES  ON  THE  CLOCK  QUEUE  ARE  REMOVED  FROM  THE  LIST 
IF  ANY  EXIST. 


177772 
004640 


177754 

OOOOOOG 

OOOOOOG 


CLQREM:: 


5$: 


CLR 

MOV 

CALL 

BCS 

MOV 

MOV 

MOV 


AUXPDV 

#»RAUX,RO 

FNDPDV 

5$ 

RO, AUXPDV 

#$8Ffi,R4 

.CLKHD.RO 


GETRV   RO,#C.LGTH 
SCAN  ENTIRE  CLOCK  QUEUE 


10$: 


000004 

000014  OOOOOOG 

000006  000002  12$: 

OOOOOOG 

OOOOOOC 

OOOOOOG 

177616 

000014  OOOOOOG 


MOV 

MOV 

BEQ 

GETRV 

TST 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

CMPS 

BNE 

MOV 

CMP 

BHI 

ADD 

CMP 

BLO 

TST 

BMI 

MOV 

BEG 

CMP 

BNE 


R0,R3 

(R4),R0 

20$ 

RO,#C.LGTH 

R5 

12$ 

R5,C.TCB(R4) 

15i 

#LS.NOD,RQB 

10$ 

#C.SYST,C.RQT 

10$ 

.PDVTA.RI 

R1,R0 

10$ 

#<$CEXND-$PDV 

RI.RO 

}0i 

.MGMGE 

15$ 

AUXPDV, R1 

10$ 

C.AR5(R4),Z.D 

10$ 


INITIALIZE  AUX  PDV  ADDRESS 

GET  AUX  PROCESS  NAME 

GET  PDV  ADDRESS 

BR  IF  NOT  FOUND 

SAVE  PDV  ADDRESS 

POINT  AT  I/O  BUFFER 

POINT  AT  CLOCK  QUEUE  LISTHEAD 

READ  IN  LISTHEAD 


SAVE  ADDRESS  OF  PREVIOUS  ENTRY 

GET  ADDRESS  OF  NEXT  ENTRY 

IF  EQ,  END  OF  LIST 

READ  IN  ENTRY 

CHECK  FOR  NTINIT  ENTRY? 

BR  IF  NO 

IS  THIS  ENTRY  TO  BE  REMOVED  ? 

IF  EQ,  YES 

SET  EXECUTOR  COMMAND? 
,  BR  IF  YES  (ELSE  MUST  BE  DLX  ONLY  SYSTEM) 
(R45  ;  SINGLE  SHOT  INTERN  SYSTEM  SUBROUTINE? 

BR  IF  NO 

GET  STARTING  ADDRESS  OF  CEXCM 

IS  THIS  ENTRY  FROM  CEXCM? 

BR  IF  NO 
TA>',R1  ;  POINT  TO  END  OF  CEXCM 

IS  ENTRY  FROM  CEXCM? 

BR  IF  NO 

MAPPED  SYSTEM? 

BR  IF  NO  -  REMOVE  ENTRY 

GET  ADDRESS  OF  AUX  PDV 

BR  IF  AUX  NOT  IN  SYSTEM 
SP(R1)  ;  IS  THIS  ENTRY  MAPPED  TO  AUX? 

BR  IF  NO 


000004 


ENTRY  TO  BE  REMOVED 
15$:    MOV     C.TC8(R4),-(SP) 


COPY  POSSIBLE  NTINIT  TCB  ADDRESS 


L  11 


K  12 

VDEV  -  VNP  LOAD  DEVICE  STRUCTUR  MACRO  V05.03b  Tuesday  03-Sep-85  10:28  Page  5 
MACRO  DEFINITIONS 


54 
55 
56 
57 
58 
59 
60 
61 
62  000000 


VDEV 
DVXFI 


.SBTTL  MACRO  DEFINITIONS 
** 
LIBRARY  MACROS 

.MCALL   EMSG$,EMSG$R,NTLER$,GETRV,PUIRC,GETAD,PUTAD,UCBDF$ 
.MCALL  SWTCHO.SWTCHI 
.ENABL   LC 


UC8DF$ 


;  DEFINE  UC8  OFFSETS 


r 


L  12 


L 


K  13 

VDEV  -  VNP  LOAD  DEVICE   STRUCTUR  MACRO  V05.05b   Tuesday  03-Sep-85   10:28     Page   13-2 
DVXFR   -   TRANSFER    TABLES    INTO   CORE 


579  001546 

580  001552 

581  001560 

582  001564 
585  001570 

584  001576 

585  001602 

586  001610 

587  001612 

588  001616 
589 

590  001620 

591  001624 

592  001626 

593  001630 

594  001636 
595 

596  001640 

597  001650 

598  001656 
599 

600  001662 

601  001674 

602  001700 

603  001704 
604 

605 
606 
607 

608  001706 

609  001714 

610  001722 

611  001730 

612  001736 

613  001740 

614  001742 

615  001750 

616  001756 

617  001764 

618  001766 

619  001770 

620  001776 
621 

622 
623 
624 

625  002004 

626  002010 

627  002014 

628  002020 

629  002024 

630  002026 

631  002030 

632  002034 

633  002036 

634  002042 

635  002044 


012667  000176' 

012767  000002G  OOOOOOG 

012702  000204- 

005067  OOOOOOG 

016767  OOOOOOG  000204' 

016701  OOOOOOG        30$: 

016767  000204'  OOOOOOG 

001403 

000767 


016746  OOOOOOG 

005701 

001004 

016767  000174'  OOOOOOG 

000411 


40$: 


016767  000174'  000204' 


44$: 


012667  000204' 


46$: 


50$: 


MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

BEQ 

GETRV 

BR 

MOV 
TST 
BNE 
MOV 
BR 

GETRV 

MOV 

PUTRC 

GETRV 
MOV 
PUTRC 
RETURN 


(SP)+,PLEN 

#D.PCBt2,$RSIZE 

#DEV8UF,R2 

$RADDR 

$DEVHD,DEVBUF 

$RADDR,R1 

DEVBUF,$RADDR 

40$ 

30$ 

$RADDR,-(SP) 

R1 

44$ 

PBUF,$DEVHO 

46$ 

R1 
PBUF,DEVBUF 


P8UF 
(SPM.DEVBUF 


ERROR  CONDITIONS 


116777  OOOOOOG  OOOOOOG  101$:   M0V8 


006202 
103003 


006202 
103003 


166702 
066702 
066702 
032702 
000261 
001005 
020267 
103402 
026702 
006146 
166702 


111$ 
121$ 

131$ 


132$ 
141$ 
151$ 


152$: 


EMSG$R  2M 

EMSG$R  20 

EMSG$R  2R 
ASR 
BCC 

EMSG$R  2S 

EMSG$R  2T 

EMSG$R  2U 
ASR 
BCC 

EMSG$R  2V 

EMSG$R  2W 


$J0S6,51$CL10S 


R2 
132$ 


R2 
152$ 


AND  RESTORE  LENGTH 

SET  LENGTH  OF  TRANSFERS 

SET  BASE  REGISTER 

SET  NO  PREVIOUS  DCB 

STORE  FIRST  DCB  ADDRESS 

STORE  PREVIOUS  DCB  ADDRESS 

LOAD  NEXT  DCB  ADDRESS 

END  OF  LIST 

READ  IN  DCB  IMAGE 

CONTINUE 

SAVE  CURRENT  DCB  ADDRESS 

IS  THERE  A  PREVIOUS  DCB  ? 

YES 

SET  THIS  DCB  AS  FIRST  IN  LIST 

AND  CONTINUE 

READ  IN  PREVIOUS  DCB 
AND  POINT  IT  AT  OURS 
REWRITE  DCB  TO  SVS  IMG 

REREAD  OUR  DCB 
POINT  AT  NEXT  DCB 
REWRITE  OUR  DCB 
BATK  TO  USER  MODE 


COPY  ERROR  CODE 

READ  FAILURE 

D.UNIT  >  D.UNIT+1 

D.UCB  FIELD  OUTSIDE 

ODD  ADDRESS? 

IF  CC,  NO 

UCB  ADDRESS  ODD 

UCB  ADDRESS  OUTSIDE 

U.SCB  FIELD  OUTSIDE 

ODD  ADDRESS? 

IF  CC,  NO 

SCB  ADDRESS  ODD 

SCB  ADDRESS  OUTSIDE 


TABLE  LIMITS 


TABLE  LIMITS 
TABLE  LIMITS 


TABLE  LIMITS 


000170' 
OOOOOOG 
000200" 
000001 


000174' 
000202' 
000200' 


VD 

Tal 


;  RELOCATE  AND 

VALIDATE  DATA  STRUCTURE  ADDRESS 

RVAD: 

SUB 

BASE,R2 

ADJUST  BY  TKB  BASE  ADDRESS 

ADD 

$L8UF,R2 

AND  BY  BUFFER  ADDRESS  FROM  THE  POOL 

VAD: 

ADD 

VREL.R2 

RELOCATE  TO  TRUE  ADDRESS  IN  SCOM 

BIT 

#1,R2 

IS  ADDRESS  ODD? 

SEC 

IN  CASE  IT  IS 

BNE 

10$ 

F  NE,  YES 

CMP 

R2,P8UF 

S  ADDRESS  <   START  OF  BUFFER? 

SCS 

10$ 

IF  CS,  YES 

CMP 

TA8END,R2 

SET  C-BIT  IF  ADDRESS  >  END  OF  BUFFER 

10$: 

ROL 

-(SP) 

SAVE  C-BIT 

SUB 

VREL,R2 

BIAS  ADDRESS  BY  DIFFERENTIAL 

i  15 


r 


L 


VD!S  -  VNP  SHOW  COMMANDS 
Table  of  contents 


MACRO  V05.0?b  Monday  15-JuL-85  12:U 


VD 
$D 


5-  5;  MACRO  CALLS 

6-  105  LOCAL  DATA 

7-  278  LOCAL  SYMBOLS 

8-  327  $DSYS  -  SHO  SYS 

9-  367  $DOBJ  -  SHO  OBJ 

10-  459  $DAL1  -  SHOW  ALIAS 

11-  555  $DPRO  -  SHOW  PROCESS 

12-  MS  SDLOG  -  SHOW  LOGGING 

13-  799  DLOTYP  -  SHOW  LOGGING  SINK  TYPE 
K-  8A3  DLOSTA  -  DISPLAY  LOGGING  STATE 

15-  867  DLONAM  -  DISPLAY  LOGGING  SINK  NAME 

16-  935  CVTDEV  -  CONVERT  DEVICE  NAME  TO  ASCII 

17-  958  CHKSNK  -  CHECK  FOR  MATCH  ON  SINK  TYPE 

18-  1002  DLOSNK  -  DISPLAY  LOGGING  SINK  NODE 

19-  1075  DLOEVT  -  DISPLAY  EVENT  CHARACTERSTICS 

20-  1173  BLDMSK  -  BUILD  EVENT  MASK 

21-  1203  BLDLIN  -  BUILD  LINE  ENTITY 

22-  127?  BLDNOD  -  BUILD  NODE  ENTITY 

23-  1329  CKPREV 

2A-  1355  CHKBIT  -  CHECK  TO  SEE  IF  BIT  IS  ON 

25-  1381  FNDADO  -  FIND  REMOTE  NODE  BY  ADDRESS 

26-  U16  $DNOD  -  SHOW  NODE 

27-  1907  $OCIR  -  SHOW  CIRCUIIT 

28-  2159  SDLIN  -  SHOW  LINE 

29-  2243  SDMOD  -  SHOW  MODULE  INFORMATION 

30-  2292  OMXAC  -  SHOW  MODULE  X25-ACCESS 

31-  2516  DMXACD  -  Display  X25-ACCESS  destinations 
52-  2387  NXTRDT  -  Get  next  RDT  block 

33-  2413  DMXACN  -  Display  X25-ACCESS  networks 

3'.-  2513  DMXPR  -  SHOW  MODULE  X25-PROTOCOL 

55-  2619  DMDTE  -  SHOW  MODULE  X25-PROTOCOL  DTES 

56-  2687  NXTDTE  -  GET  NEXT  DTE  BLOCK 

57-  2725  DMGRP  -  SHOW  MODULE  X25-PROTOCOL  GROUPS 

38-  2796  NXTGRP  -  Get  next  group  block 

39-  2836  DMX5S  -  SHOW  MODULE  X25-SERVER 

40-  2909  DMDST  -  SHOW  MODULE  X2n-SERVER  DESTINATION 

41-  5112  NXTDST  -  Get  next  destination  block 

42-  5153  DMX9S  -  SHOW  MODULE  X29-SERVER 

43-  3197  CKTYPE  -  CHECK  TYPE 

44-  3256  FNDBLK  -  Find  next  block  meeting  giuen  criteria 

45-  5557  NXTBLK  -  READ  IN  NEXT  BLOCK 

46-  5371  NXTCIR  -  GET  NEXT  CIRCUIT 

47-  3403  NXTLIN  -  GET  NEXT  LINE 

48-  5432  DISOBJ  -  DISPLAY  OBJECT  INFO 

49-  5553  DISALI  -  DISPLAY  ALIAS  INFO 

50-  3671  DISPRO  -  DISPLAY  PROCESS  INFORMATION 

51-  3734  DISNOD  -  DISPLAY  NODE  INFORMATION 

52-  3857  DISLOO  -  DISPLAY  LOOPBACK  NODE  INFORMATION 
55-  5924  DISCIR  -  DISPLAY  CIRCUIT  INFORMATION 

54-  4516  DISPVC  -  DISPLAY  PVC  CIRCUIT  INFORMATION 

55-  4575  DISLIN  -  DISPLAY  LINE  INFORMATION 

56-  4552  FMTLIN  -  FORMAT  LINE-ID 

57-  4605  FMTCIR  -  FORMAT  CIRCUIT-ID 

58-  4667  GTEXEC  -  GET  EXECUTOR  ADDRESS  AND  NAME 

59-  4698  GTSTID  -  GET  NODE  STATE  AND  IDENTIFICATION 

60-  4761  TSKSCH  -  SEARCH  TCB'S  FOR  SPECIFIED  TASK 

61-  4792  FNDPDV  -  FIND  PDV  ADDRESS 


CTD001] 
[TD001] 
[TD001] 


;[TD001] 

.-CTDOOI] 
.-CTDOOI] 


; CTDOOI] 


;CTD001] 
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A96  002702 
^.97  002706 
A98  002712 

499  0027U 

500  002716 

501  002722 

502  002726 
505  002730 

504  002732 

505  002734 

506  002736 

507  002742 

508  002744 

509  002752 

510  002754 

511  002760 

512  002762 

513  002764 

514  002766 

515  002770 
516 

517 
518 

519  002772 

520  002776 

521  003000 

522  003004 

523  003006 

524  003010 

525  003012 

526  003016 

527  003022 

528  003024 

529  003032 

530  003034 


062700  000002 


103424 
010302 
062702 
012701 
122022 
001362 
005301 
003374 
005767 
001404 
026063 
001351 


000002 
000006 


OOOOOOG 
000006  000010 


005204 
000745 
005704 
001426 
000443 


005767 
001431 
012700 
112021 
001376 
005004 
012700 

103426 
026063 
001367 


70S: 


SOS: 
90S: 


ADD 

CALL 

BCS 

MOV 

ADD 

MOV 

cMpe 

BNE 

DEC 

BGT 

TST 

BEQ 

CMP 

BNE 

CALL 

INC 

BR 

TST 

fjEQ 

BR 


*LR.ALI,RO 

NXTBLK 

90S 

R3,R2 

*A.NAM,R2 

#6,R1 


,(R2)«- 


(r6) 

60S 

R1 

70$ 

SOPTON 

SOS 

LR.UCB-LR.DES(RO) 

60S 

DISALI 

R4 

60$ 

R4 

130S 

150$ 


POINT  TO  ALIAS  NAME 
GET  NEXT  ALIAS  NAME  BLOCK  IN  LIST 
BR  IF  END  OF  LIST 
POINT  TO  ALIAS  NAME  BLOCK 
POINT  TO  ALIAS  NAME 
6  CHARACTERS  MAXIMUM 
IS  THIS  THE  ONE  WE  ARE  SEARCHING  FOR 
BR  IF  NO 

CHECKED  ALL  CHARACTERS? 
BR  IF  NO 

WAS  A  SCOPE  SPECIFIED 
,  BR  IF  NO 
,A.UCB(ft3)  ;  DO  THE  SCOPES  MATCH? 
BR  IF  NO 

DISPLAY  THE  ALIAS  INFORMATION 
DON'T  DISPLAY  HEADER 
SEE  IF  ANY  MORE 
WAS  O.'.'L  hUUND? 
BR  IF  NO 
FINISHED 


OOOOOOG 
000151' 

OOOOOOG 
000016  000010 


SHOW  KNOWN  ALIASES 


531 

003040  005204 

532 

003042  000763 

533 

534 

003044 

535 

003052 

536 

537 

003062 

538 

003070 

539 

540 

003100 

541 

542 

543 

544 

545 

546 

547 

003102 

548 

C03125 

549 

550 

003130 

551 

003160 

552 

100$:   TST  SOPTON 

BEQ  140$ 

MOV  #AKNOWN,RO 

110$:   M0V8  (R0)t,(R1)t 

BNE  110$ 

CLR  R4 

120$:   MOV  #RQ8,R0 

CALL  NXTBLK 

BCS  150$ 

CMP  LR.UCB(R0),A.UCB(R3) 

BNE  120$ 

CALL  DISALI 

INC  R4 

BR  120$ 


WAS  SCOPE  SPECIFIED? 
BR  IF  NO 

HEADER  FOR  KNOWN  ALIASES 
STORE  IT 

Indicate  header  to  be  printed 

GET  input  parameters 

GET  NEXT  ALIAS  NAME  BLOCK 

BR  IF  AT  END  OF  LIST 

DO  THE  SCOPES  MATCH? 

BR  IF  NO 

DISPLAY  INFO  FOR  THE  ALIAS  NAME 

INDICATE  HEADER  NOT  TO  BE  DISPLAYED 

CONTINUE 


130$: 

DIRS 
ERRPT$ 

*TIDET                ;  DETACH  TERMINAL 
AERRI.SEROUT           ;  ALIAS  NOT  IN  SYSTEM 

140$: 

DIR$ 
ERRPTS 

#TIDET                ;  DETACH  TERMINAL 
AERR2,$ER0UT           ;  SCOPE  NOT  SPECIFIED 

150S: 

RETURN 

;  FINISHED 

.ENABL 

LC 

;  ERROR 

MESSAGES 

E'.ISGS 
ERBLK$ 

<Alia5  not  in  5ystem> 
AERR1 

ERMSG$ 
ERBLKS 

<Parameter  missing,  Scnpe> 
AERR2 
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1005 

100? 

100A 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

10U 

1015  005360 

004567 

OOOOOOG 

1016  00536A 

012702 

001062' 

1017  005570 

016701 

173606 

1018  00537^ 

001403 

1019  005376 

020127 

177777 

1020  005^02 

001034 

1021 

1022  005A0^ 

1023  005412 

102^.  005A32 

1025 

1026  005440 

016701 

000022G 

1027  005444 

020167 

000014G 

1028  005450 

001011 

1029 

1030  005452 

016701 

000014G 

1031   005456 

016722 

000006G 

1032  005462 

016722 

000010G 

1033  005466 

016722 

000012G 

1034  005472 

000413 

1035  005474 

1036  005500 

103416 

1037  005502 

0i2700 

001034' 

1038  005506 

016022 

000002 

1039  005512 

016022 

000004 

1040  005516 

016022 

000006 

1041   005522 

124227 

000040 

1042  005526 

001775 

1043  005530 

005202 

1044  005532 

105022 

1045  005534 

000402 

1046  005536 

005067 

173320 

1047 

1048  005542 

010167 

173266 

1049  005546 

042701 

ooooooc 

1050  005552 

1051 

1052  005560 

042767 

OOOOOOG 

173254 

026727 

173416 

\nm 

1053  005566 

001022 

1054 

1055  005570 

000241 

1056 

000012 

1057 

1058 
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NH  NODE 

.S8TTL   DLOSNK  -  DISPLAY  LOGGING  SINK  NODE 


DLOSNK  -  DISPLAY  LOGGING  SINK  NODE 

INPUTS: 

TEMP5   -    SINK   NODE    ADDRESS    TO  DISPLAY 

OUTPUTS: 

LOGGING  SINK  NODE  DISPLAYED  ON  USER'S  TERMINAL 
R0,R1,R2  DESTROYED 


DLOSNK: 


10$: 


20$: 


30$: 


40$: 
50$: 


JSR 

R5,$SAVRG 

MOV 

#TEMP2,R2 

M)V 

TEMP3,R1 

B!Q 

10$ 

CIP 

R1,#-1 

BNE 

20i 

SWTCHI 

#$HM8UF 

GETRV 

$DECPT,#D$END                        ; 

SWTCHI 

MOV 

$HMeUF«-D$HOST,Rl 

CMP 

Rl,$HMBUf«-D$LNUM 

BNE 

20i 

MOV 

$HM6UF+D$LNUM,R1 

MOV 

$HM8UFtD$LNAM+0,(R2)+ 

MOV 

$HMBUFtO$LNAM+2,(R2)+        ; 

MOV 

$HMBUF+D$LNAM+4,(R2)t 

BR 

30$ 

CALL 

END ADD 

BCS 

40$ 

MOV 

#TEMP1,R0 

MOV 

R.NAM»6(R0),(R2)+ 

MOV 

R.NAMt2(R0),(R2)+ 

MOV 

R.NAM+4(R0),(R2)+               ; 

CMPB 

-(R2),*40                               ; 

BEQ 

30$                                         ; 

INC 

R2 

CLRB 

(R2)t                                      ; 

BR 

50$ 

CLR 

IEMP2 

MOV 

Rl,  TEMPI 

BIC 

*"CARAMSK,R1 

BIC 

*ARAMSK, TEMPI                          ; 

CMP 

TEMP3,#-1 

BNE 

70$ 

CLC 

.REPT 

10. 

ROR 

Rl 

.ENDM 

SAVE  R3,R5 

GET  ADDRESS  FOR  NODE  NAME 

GET  SINK  NODE  ADDRESS 

BR  IF  EXECUTOR 

IS  SINK  NODE  $HOST  7 

IF  NOT  -  BRANCH 

SET  INPUT  BUFFER 

READ  DECNET  HOME  BLOCK 


GET  HOST  NODE  ADDRESS 
IS  HOST  SAME  AS  EXECUTOR 
IF  NOT  -  BRANCH 

GET  EXECUTOR  NODE  ADDRESS 
STORE  EXECUTOR  NODE  NAME 


CONTINUE 

FIND  REMOTE  NODE  NAME  BLOCK 

BR  If  NOT  FOUND 

POINT  TO  NODE  NAME  BLOCK 

STORE  NODE  NAME 


DELETE  TRAILING  BLANKS 

POiNT  PAST  LAST  NON-BLANK 

CREATE  ASCIZ  STRING 

CONTINUE 

NO  NODE  NAME 

POINT  TO  STORAGE  FOR  NODE  ADDRESS 
GET  AREA  NUMBER 
STRIP  OF  AREA  BITS 

$HOST  SINK  NODE  ? 
IF  NOT  -  BRANCH 

DO  NOT  ROR  C-BIT 

CALCULATE  AREA  NUMBER 


L  16 
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396 
397 
596 
39Q 
400 
401 
402 
403 
404 
40^ 
406 
40/ 

408  000466 

409  000472 
410 

411 

412  000500 

413 

414  00U504 

415 

416 

417 

418 

419 

420  000510 

421  000514 
422 

423 

424  000520 
■.25 
426 
427 
423 
429 

m30  000524 
"  000530 


L  1 

MACRO  V05.03b  Saturday  29-Jun-85  02:13  Page  9 

.SBTTL  CEXVM  -  LOOK  FOR  CEX  SYMBOLS 

CESYM  -  LOOK  FOR  SPECIAL  COMM  EXEC  SYMBOLS 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAJLURE 
R0,R1,R2=DESTR0YED 


112767  OOOOOOG  OOOOOOG 

012700  OOOOOOG 

012701  000376' 


012702     030402' 


012700     000454' 


CESYM: 


431 
432 
453 
434 
435 
4  36 
>.3^ 
438 
43'5 
440 
441 
442 
445 
444 
445 
446 


103453 


000532  012700  OOOOOOG 


0C0536  0'2701  000376' 


000542 
000546 


447  000552 


<.4« 
449 
450 
451 


C00556 
000562 
00C564 
/00570 


-52  000574 


012  702  000402' 

012700  000610' 

103436 

01270C  OOOOOOG 

012701  OOOOOOG 

012702  000402' 


CALL 
MOVB 

SCLSA.. 
#CL.OPN,$CLFLG 

MOV 

.IF  NDF 
MOV 

*$DFUIC,RO 

R$$MPL 

#CEXNAM,R1 

.IFF 
MOV 

#$RSX,R1 

.IFTF 

MOV 

CALL 

#STBEXT,R2 
SAZFS 

.IFT 
MOV 

#CBLK1,R0 

.IFF 
MOV 

#XBLK1,R0 

.IFTF 

CALL 

BCS 

SSYMBL 
ST8ERR 

.ENDC 

MOV 

*IDFUIC,R0 

.IF  DF 

R$$MPL 

MO  7 

.IFF 

MOV 

#$RSX,R1 
#CEXNAM,R1 

.ENDC 

MOV 

CALL 

MOV 

CALL 

BCS 

MOV 

MOV 

MOV 

«ST8EXT,R2 

SAZFS 

#1BLK1,R0 

SSYMBL 

ST6ERR 

*SDFUK,R0 

*scet,r1 

#STBEXT,R2 

SAVE  GCL  CONTEXT 
LEAVE  FILE  OPEN 


SETUP  ASCIZ  FILE  SPEC 
FOR  [:XXX,54]CEX.STB 

FOR  [XXX,54JRSX11M.^-TB 


GET  LIST  OF  SYMBOLS 

GET  FIRST  LOOKUP  CONTROL  BLOCK  ADDRESS 


LOOK  FOR  SYMBOLS  IN  STB  FILE 
IF  CS,  FILE  ERROR 


SETUP  ASCIZ  FILE  SPEC 

FOR  [XXX,5X]RSX11M.STB 
FOR  [XXX,54]CEX.STB 


GET  FIRST  LOOKUP  CONTROL  BLOCK  ADDRESS 
LOOK  FOR  SYMBOLS  IN  STB  FILE 
IF  CS,  FILE  ERROR 
SETUP  ASCIZ  FILE  SPEC 
FOR  [XXX,5X]CETAB.STB 


-    .N- 


•1      1 
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L$$DRV= 

000000 

P$$P45= 

L$$P11  = 

000001 

P$$WRD= 

LSS11R= 

000000 

P.BLKS 

MSGB 

00025^R 

002  P. BUSY 

MSGOUT 

002070R 

P. IOC 

M$$CRB= 

000124 

P.LNK 

M$$CRX= 

000000 

P. MAIN 

M$$FCS= 

000000 

P.NAM 

M$$MGE= 

000000 

P.  OWN 

M$SNET= 

000000 

P.PRl 

M$$OVR= 

000000 

P.REL 

NLBLK 

000666R 

P. SIZE 

NT  I NAM 

OOOASOR 

002  P.STAT 

N$$ACC= 

000001 

P.  SUB 

N$$BUF= 

000001 

P.SWSZ 

N$$LDV= 

000001 

P.TCB 

N$$MCP= 

000001 

P.UAIT 

N$$MLL= 

000001 

Q$$0PT= 

N$$MOV= 

000010 

RUN 

N$$NCT= 

000001 

RUNNTI 

N$$PEM= 

000001 

R$$DER= 

CAST 

000006 

R$$K11= 

O.EFN 

000010 

R$$SND= 

O.ESB 

000012 

R$$11M= 

O.LGTH= 

000034 

SLTTOT 

O.LNK 

000000 

STBERR 

O.MCRL 

000002 

STBEXT 

O.PTCB 

000004 

SYSFDB= 

G.STAT 

oooou 

S$$WRG= 

PC.ALF= 

000004 

S$$YS2= 

PC.ALM= 

001000 

TICKS  = 

PC.HIH= 

000001 

TSKERR 

PC.LOW= 

000002 

TSKSCH 

PC.NRM= 

000400 

TS.8LK= 

PC.XAF= 

000010 

TS.CKP= 

PC.XIT= 

000200 

TS.CKR= 

PDVTOT 

000704R 

002  TS.EXE= 

PF.ALL= 

177777 

TS.HLD= 

PF.INS= 

000040 

TS.MSG= 

PF.LOG= 

000100 

TS.NRP= 

PF.REQ= 

000200 

TS.0UT= 

PS.APR= 

000007 

TS.RDN= 

PS.Chl(  = 

010000 

TS.RUN^ 

PS.CKP= 

04U000 

TS.STP= 

PS.C<R= 

020000 

T$$KMG= 

PS.COM= 

000200 

T$$MIN= 

PS.DEL= 

000010 

T.ACTL 

PS.DRV= 

000020 

r.ASTL 

PS.FXD= 

004000 

T.ATT 

PS.LI0= 

001000 

T.CPC8 

PS.N5F= 

000400 

T.DPRI 

PS.OJI= 

100000 

T.EFLG 

PS.PER= 

C02000 

r.ioc 

PS.PIC= 

000100 

T.LBN 

PS.SV5= 

000040 

ASS.   177776 


000000 

000000 

000016 

000024 

000003 

000000 

000012 

000004 

000026 

000002 

000014 

000016 

000030 

000010 

000022 

000026 

000020 

000010 

001206R 

001504R 

000000 

000001 

000000 

000000 

000672R 

000660R 

000402R 

******  (3x 

000000 

007600 

000001 

000452R 

001120R 

171700 

000200 

000100 

100000 

002000 

020000 

010000 

000400 

040000 

004000 

001000 

000000 

000000 

000052 

000016 

000062 

000004 

000040 

000022 

000003 

000041 


000   fRW,l,GeL,A6S,0vR) 


T.LDV 
T.LNK 
T.MXSZ 


002 
002 


,NAM 
T.OFF 
T.PCB 
T.PRI 
T.RCVL 
T.RRFL 
T.SAST 
T.SRCT 
T.STAT 
T.ST2 
T.ST3 
T.TCBL 
T.TIO 
T.TKSZ 
T.UCB 
T2.AB0= 
T2.AST= 
T2.CAF= 
T2.CHK= 
T2.CKD= 
T2.DST= 
T2.FXD= 
T2.HLT= 
T2.REX= 
T2.SEF= 
T2.SPN= 
T2.STP= 
T2.WFR= 
T3.ACP= 
T3.CAL= 
T3.CLI= 
T3.CFL= 
T3.I*ICR= 
T3.NET= 
T3.NSD= 
T3.PMD= 
T3.PRV= 
T3.REM= 
T3.R0\/= 
:3.RST= 
T3.SLV= 
T3.SWS= 
UA.ACC= 
UA.ALL= 
UA.CAL= 
UA.C0M= 
UA.ECH= 
UA.PRC= 
UA.PUT= 
UA.SPE= 
UA.TRA= 


000044 
000000 
000050 
000006 
000066 
000046 
000002 
000012 
000072 
000054 
000071 
000032 
000034 
000036 
000030 
000057 
000060 
000026 
000100 
100000 
000400 
020000 
010000 
040000 
002000 
000200 
001000 
004000 
000004 
000020 
000001 
100000 
000100 
001000 
000010 
004000 
000020 
000200 
040000 
010000 
020000 
000040 
000400 
002000 
000002 
000001 
000400 
OC  100 
000200 
000004 
000002 
000040 
000020 
002000 


UA.TRN= 

001000 

$PD\/NM= 

****** 

GX 

UA.TYP= 

000010 

$PDVTA= 

****** 

GX 

VF.SS  = 

****** 

GX 

SPRCLN 

000374RG 

002 

VXBLKl 

000552F 

002  SPREXT 

000374^6 

002 

VXBLK2 

000564F 

002  SPRINC 

000374RG 

002 

VXBLK3 

000576F 

002  SPRIO  = 

****** 

GX 

V$$CTR= 

001000 

SPRLEN 

000374RG 

002 

XBLK1 

000514F 

002  SPRLLN 

000374RG 

002 

XBLK2 

000526f 

002  $PUTRC= 

****** 

GX 

X8LK3 

000540F 

002  $RADDR= 

****** 

GX 

X$$DBT= 

000000 

$SAVAL= 

****** 

GX 

$ALL15= 

****** 

GX 

SSCEX 

OOOOOORG 

SAZFS  = 

****** 

6X 

$SLTMA= 

****** 

GX 

$BFR  = 

****** 

GX 

$SLTNM= 

****** 

GX 

$CCBNM= 

****** 

GX 

$SYMBL= 

****** 

GX 

$CEAVL= 

****** 

GX 

$TIOUT= 

****** 

GX 

?CE^  = 

****** 

GX 

$VFLAG= 

****** 

GX 

$CLFLG= 

****** 

GX 

SVIMI  = 

****** 

GX 

$CLSAV= 

****** 

GX 

$$ 

vin^ 

$CTBIO= 

****** 

GX 

$$HUX  = 

****** 

GX 

$CXOPT= 

****** 

GX 

$$$   = 

000226R 

002 

$DEA16= 

****** 

GX 

$$$$  = 

0C0252R 

002 

$DECHM= 

****** 

GX 

.ABTIM= 

****** 

GX 

$DECPT= 

****** 

GX 

.CEAVL= 

****** 

GX 

$DFUIC= 

****** 

GX 

.CEPWR= 

****** 

GX 

$ERMSG= 

****** 

GX 

.CLINS= 

****** 

GX 

$ERR44= 

****** 

CX 

.CLKHD= 

****** 

GX 

$ERR45= 

****** 

GX 

.CXALL 

000062 

$ERR46= 

****** 

GX 

.CXCSR 

000004 

$ERR47= 

****** 

GX 

.CXLBR 

000060 

$ERR48= 

*»*«»* 

GX 

.CXLBl 

000030 

$ERR51= 

****** 

GX 

.CXLB2 

000044 

$ERR53= 

****** 

GX 

.CXLtN 

000064 

$ERR54= 

****** 

GX 

.CXPCB 

000006 

$ERR55= 

****** 

GX 

.CXSYM 

000010 

$ERR56= 

****** 

GX 

.CXUNL 

000024 

$ERR57= 

****** 

GX 

.CXVEC 

000026 

$ERR58= 

****** 

GX 

.CXVSM 

000016 

$ERR59= 

****** 

GX 

.FRKHD= 

****** 

GX 

$ERR60= 

****** 

GX 

.HEADR= 

****** 

GX 

$ERR61= 

****** 

GX 

.LLCTB 

000660R 

002 

$ERR62= 

****** 

GX 

.NETPF= 

****** 

GX 

$ERR63= 

****** 

GX 

.NTGCD 

000000 

$ERR64= 

****** 

GX 

.NTPCB 

000000 

$ERR65= 

****** 

GX 

.NTUMR 

000002 

$ERR66= 

****** 

GX 

.PDVTA=: 

****** 

GX 

$ERR67= 

****** 

GX 

.PDVTB 

000634R 

002 

$ERR68= 

****** 

GX 

.PLGlH= 

****** 

GX 

$ERR9E= 

****** 

GX 

.SBPCB 

000066 

$FMASK= 

****** 

GX 

.SLTMB 

000646R 

002 

$GETRV= 

****** 

GX 

.STKDP= 

****** 

GX 

$LICTA= 

****** 

GX 

.TLGTH= 

****** 

GX 

$NTLHB= 

****** 

GX 

.TSKHD= 

****** 

GX 

$NTLPT= 

****** 

GX 

..COO  = 

****** 

GX 
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LOCAL    DATA 


105 
106 
107 
108 
109 
110  000000 

111 

112 
113 
IK 
115 
116 
117 

118  000000 

119  000006 
120 

121 
122 
123 
^2U   000012 

125  000015 

126  000016 
127 

128 
129 
130 

131  000017 

132  000020 

133  000027 
131 

135 

136 

137  000136 

138 

139 

KO 

141 

U2 

U3  OOOIAO 

14A   000U2 

145 

146 

147  0001AA 

148  000146 
149 

150 
151 

152  000150 

153  000152 

154  000154 
155 

156 
157 
158 
159 
160 
161    000156 


103 
115 


105 
101 


124 
103 


015 
126 


000001 
000002 


000001 
000002 


000000 


000062 


116 


120 


.SBTTL      LOCAL    DATA 
»** 

LOCAL   DATA 
*** 

.PSECT     DATA,D 

.NLIST     BEX 


CONFIG   FILE   NAME   AND   EXTENSION 


CFGNAM:    .ASCIZ 
CFGEXT:    .ASCIZ 


"CETAB" 
"MAC" 


LINE  IDENTIFICATION 

NAME:  .BLKB  3 
CTL:  .BLKB  1 
UNT:    .BLKB   1 


DDM  NAME 

CONTROLLER  NUMBER 
UNIT  NUMBER 


;  ERROR 

MESSAGE  BUFFER 

ERRMSG: 
ERRBUF: 

.BYTE   15 
.ASCII   "VNP  — 
.SLKB   70. 

.EVEN 

CFGFLG: 

:.BLKW   1 
FG.X2P  ==  1 
FG.X3P  ==  2 

;  DATA 

FOR  DTESDF  MACRO 

DTEDES::.8LKW   1 
DTEFLG::.BLKW   1 

DE.ON  ==  1 

DE.OFF  ==  2 
HSHSZ::  .BLKU   1 
HSHADD::.8LKW   1 


SCNT:  .BLKU  1 
UCNT:  .BLKW  1 
UMRFL:   .WORD   0 


FLAGS  WORD 

X2P$DF  MACRO  IS  NECESSARY 

X3P$DF  MACRO  IS  NECESSARY 


DTE  ADDRESS 

FLAGS  WORD 

SET  DTE  STATE  TO  "ON" 

SET  DTE  STATE  TO  "OFF' 

HASH  TABLE  SIZE 

ADDRESS  OF  HASH  TABLE 


STASOF'S  SEEN 
UNTSDF'S  SEEN 
UNIBUS  RUN  MASK  SEEN 


;[MP01] 


THIS  TABLE  IS  INDEXED  BY  THE  VALUE  SPECIFIED  IN  THE  HIGH  BYTE 
OF  THE  FIRST  CHARACTERISTICS  WORD.   IT  MAPS  ONTO  THE  CORRECT 
TRANSMIT/RECEIVE  SPEED  WHICH  WAS  SPECIFIED  AT  NETGEN 

SPEEDT:  .WORD   50. 
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VCFG  -   VNP   SCAN   CONFIGURATION 
ROVE  -  Moue  bytes 

655 
656 
657 
658 
659 
660 
661 
662 
663 
66A 
665 
666 
667 
668 

669  001A36 

670  00H36  005701 

671  OOUAO  0OU03 

672  00UA2  112022 

673  00U4A  005301 
67-;  001Ai6  003375 
675  0OK50 


L  A 

F  MACRO  V05.03b  Monday  15-Jul-85  19:0A  Page  U 


.SBTTL  MOVE  -  Move  bytes 
***  MOVE  -  Move  bytes 


INPUTS 

RO 
R1 
R2 

OUTPUTS 
R2 
RO, 


•  Source  address 

-  Number  of  bytes  to  move 

-  Target  address 

■  Address  of  Last  byte  moved  +  1 
R1  destroyed 


MOVE: 

10$: 

20$: 


TST 

BEQ 

M0V8 

DEC 

BGT 

RETURN 


R1 

20$ 

CR0)+,(R2)' 

R1 

10$ 


Check  for  nothing  to  do 


;[TD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
.-CTDOOI] 
.-[TDOOID 
.-[TDOOi: 
.■CTDOOn 
;CTD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD00n 
;[TD0012 
;[TD001] 
;[TD001] 
.-CTDOOI] 
.-CTDOOI] 
; CTDOOI] 


VfFf, 


n  A 
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TPARS  ACTION  ROUTINES 


1122 

1123  001700 

101$:        EMSG$R 

20 

112A 
1125 
1126 

•    CONTROLLER  NUMBER   (SLT$[)F,    C 

1127 

1128  001706 

C.CTL: 

1129  001706 

126767 

OOOOOOG 

000015' 

S.CTL:      CMPB 

.PNUMB,CTL 

1130  0017U 

001404 

BEQ 

10$ 

1131    001716 

REJ$ 

1132  001726 

10$:          RETURN 

1133 

113A 

1135 
1136 
1137  001730 

;•    UNIT   NUMBER    (SLT$DF) 

126767 

OOOOOOG 

000016' 

S.UNT:      CMPB 

.PNUMB,UNT 

1138  001736 

001404 

BEQ 

10$ 

1139  001740 

REJ$ 

11A0  001750 

10$:          RETURN 

1141 

1142 

1143 

1144 
1145 
1146  001752 

';    N]    ROUTER  ADJACENCV 

016767 

OOOOOOG 

OOOOOOG 

S.BRA:      MOV 

.PNUMB,$$NBRA 

1147 

1148  001760 

RETURN 

1149 
1150 
1151 

;    ROUTER   PRIORITY   VALUE 

1152 

1153  001762 

022767 

000177 

OOOOOOG 

S.PRI:      CMP 

#127.,.PNUMB 

1154  001770 

002404 

BLT 

10$ 

1155  001772 

016767 

OOOOOOG 

OOOOOOG 

MOV 

.PNUMB,$$RPRI 

1156  002000 

1157 

1158  002002 

RETURN 

10$:          REJ$ 

1159  002012 

RETURN 

1160 

1161 
1162 
1163 
1164 
1165  002014 

;    COUNTER    TIMER 

(SLT$DF) 

005767 

OOOOOOG 

S.CTIM:    TST 

.PNUMH 

1166  002020 

001004 

BNE 

101$ 

1167  002022 

016767 

OOOOOOG 

OOOOOOG 

MOV 

.PNUMB,$CTIM 

1168  002030 

RETURN 

1169  002052 

101$:        EMSG$R 

yR 

1170 

1171 

1172 

;    HELLO/LISTEN 

TIMER 

117? 

1174   002040 

005767 

OOOOOOG 

S.HTIM:    TST 

.PNUMH 

1175  002044 

001011 

BNE 

101$ 

1176  002046 

016767 

OOOOOOG 

OOOOOOG 

MOV 

.PNUM8,$$HTIM 

1177  002054 

006367 

OOOOOOG 

ASL 

.PNUMB 

1178  002060 

016767 

OOOOOOG 

OOOOOOG 

MOV 

.PNUMB,$$LT1M 

;  PROCESS  EXTENSION  TOO  BIG 
$DF) 

REJECT  TRANSITION  IF  NO  MATCH 


REJECT  TRANSITION  IF  NO  MATCH 


STORE  NI  ROUTER  ADJACENCY  VALUE 

LIMIT  CHECKED  DURING  MARK  FOR  ENABLE  SCAN 


LEGAL  VALUE 

IF  NO  -  BRANCH 

STORE  ROUTER  PRIORITY  VALUE 


ILLEGAL  PRIORITY  VALUE 


VALID  COUNTER  TIMER  VALUE? 

BR  IF  NO 

ELSE  SAVE  COUNTER  TIMER  VALUE 


DOUBLE  WORD  VALUE 
IF  YES  -  BRANCH 
SAVE  HELLO  TIMER  VALUE 
MULTIPLY  BY  2 
SAVE  LISTEN  TIMER 


\,MD   crsM   rnMC  ir.iiBiT  inK]   f   warRn   uOS   n?h  Mnnrisv   15- 
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FNDPDV  -  FIND  PDV 


162A 
1625 
1626 
1627 
1628 
1629 
1650 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
16^0 
16'il 
1642 
16A3 
1644 
16A5 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 


004120 
004120 
004122 
004126 
004132 
004134 
004136 
004140 
004144 
004146 
004152 
004154 
004156 
004160 
004162 
004166 
004170 


.SBTTL  FNDPDV  -  FIND  PDV 


010046 
016701 


OOOOOOG 


016702  OOOOOOG 

001407 

012100 

001403 

026016  OOOOOOG 

001403 

000261 
005226 
006016 
005741 
166701 
006316 


OOOOOOG 


•  FNDPDV  -  TRY 

TO  FIND  PDV 

•  INPUTS: 

R0=RAD50  PDV  NAME 

•  OUTPUTS: 

C-BIT= 

SUCCESS/FAILURE 

R0=PDV 

ADDRESS 

R1=PDV 

INDEX 

•:. 

R2=DESTR0YED 

FNDPDV: 

'mov 

RO,-(SP) 

MOV 

$PDVTA,R1 

MOV 

$PDVNM,R2 

BEQ 

30$ 

10$: 

MOV 

(R1)+,R0 

BEQ 

20$ 

CMP 

Z.NAM(RO),(SP)   ; 

BEQ 

40$ 

20$: 

SOB 

R2,10$ 

30$: 

SEC 

40$: 

INC 

(SPH 

ROR 

(SP) 

TST 

-(Rl) 

sua 

$PDVTA,R1 

ASL 

(SP) 

save  name  to  be  matched 
get  pdv  table  address 
and  number  of  pdv's 
if  zero,  no  pdv's: 
get  pdv  address 
if  zero,  skip  this  one 
does  the  name  match? 
if  eq,  yes  (c-bit  clear) 
loop  $pdvnm  times 
indicate  failure 
purge  stack 
save  c-bit 
calculate  pdv  index 

restoke"c-bit 


RETURN 


,;MD    crAM    T  HM  C  I  T-i  ID  A  T  I  DM    F     MflrPD    \lf\'^    H^h    MnnH;i\/     1  S- 


n   6 

il-RS    19:04      Panp    ^S 


•'FILE 

•«ID' 

•VCFP 

vv 

VV 

CCCCCCCC    F 

FFFFFFFFF 

PPPPPPPP 

vv 

VV 

CCCCCCCC   F 

FFFFFFFFF 

PPPPPPPP 

vv 

VV 

PP      PP 

vv 

VV 

PP      PP 

vv 

VV 

PP      PP 

vv 

VV 

PP      PP 

vv 

VV 

FFFFFFF 

PPPPPPPP 

vv 

VV 

FFFFFFF 

PPPPPPPP 

vv 

VV 

PP 

vv 

PP 

vv 

\J^ 

PP              

vv 

VV 

PP              

vv 

CCCCCCCC   F 

PP              

vv 

CCCCCCCC   F 

PP              

SSSSSSSS    T 

TTTTTTTTT 

SS5SSSSS 

TTTTTTTTT 

ss 

TT 

ss 

TT 

ss 

TT 

ss 

TT 

ssssss 

TT 

ssssss 

TT 

ss 

TT 

ss 

TT 

ss 

TT 

ss 

TT 

LLLLLLLLLL 

SSSSSSSS 

TT 

LLLLLLLLLL 

SSSSSSSS 

TT 

L     7 


VCFF 
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READ  -  READ  NEXT  RECORD 
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43? 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 

444  000442 

445  000450 

446  000456 

447  000462 

448  000466 

449  000474 

450  000476 

451  000500 
452 

453 
454 
455 

456  000502 

457  000506 

458  000510 

459  000512 

460  000516 

461  000'"20 
4o2  000526 


012^67 
012767 

016700 
016067 
105710 
100401 


000130' 
000204 

OOOOOOG 
000002 


.SBTTL  READ  -  READ  NEXT  RECORD 

READ  -  READ  NEXT  RECORD  FROM  CONFIG  FILE 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
CFGSZ=RECORD  LENGTH 


OOOOOOG  READ: 
OOOOOOG 


000336' 


10$: 


MOV 

MOV 

CALL 

MOV 

MOV 

TST8 

BMI 

RETURN 


#CFG8F,$CLBUF 

#132.,$CLSIZ 

SGCLEP 

SCLIOS.RO 

2(R0),CFGSZ 

(RO) 

101$ 


122710  OOOOOOG 

000261 

001773 

122710  OOOOOOG 

001403 


ERROR  CONDITIONS 


101J 


111$: 


CMPB 

*IE.EOF,(RO) 

SEC 

BEQ 

10$ 

CMPB 

#IE.R8G,(R0) 

BEQ 

111$ 

EMSG$R 

10 

EMSG$R 

IR 

SET  GCL  BUFFER  ADDRESS 
AND  BUFFER  SIZE 
READ  NEXT  RECORD 
GET  GCL  lOSB  ADDRESS 
SET  RECORD  LENGTH 
SUCCESS?  (CLEARS  C-BIT) 
IF  MI,  NO 


IS  IT  END  OF  FILE? 

ASSUME  THAT  IT  IS 

IF  EQ,  YES  -  RETURN  WITH  C-BIT  SET 

IS  IT  BUFFER  TOO  SMALL? 

IF  EQ,  YES 

READ  FAILURE 

READ  OVERFLOW 


nn  wAC   A7U 


M  8 

r,_gt;  no  .  1  7 
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Symbol  table 
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VCIC 


A$$CHK= 

A$$CPS= 

A$$PRI= 

A$tTRP= 

BLKSMN= 

BLKSMX= 

BLKSZD 

BLKSZM 

CERR 

CFERR 

CFGBF 

CFGEXT 

CFGNAM 

CFGSZ 

CFLIN 

CH<BLK 

CHKWNO 

CHNLMX= 

CL.OPN= 

COUNT 

CTIM 

CUNMMX= 

CVTBUF 

C$$CKP= 

C$$ORE= 

C$SRSH= 

DARDEN= 

OARMLN= 

DEVCTL 

DEVNAM 

DEVUNT 

0E.OFF= 

DE.ON  = 

DSACGL 

DSACUG 

DSAHCT 

DSALCT 

DSARCT 

DSARDP 

DSARDT 

DSASHI 

DSASLO 

DSCMCT 

DSCMSK 

DSfVAL 

DSCVCT 

DSFLG 

DSTEND= 

DSTNAM 

DSTNML 

DSTOBJ 

OSTPRI 

DSTTKL 

DSTTSK 

DSTVRO 

DSTVR1 

DS.X25= 


000000 

000000 

000000 

000000 

OOOOAO 

002000 

000360RG 

000362RG 

000534RG 

000544RG 

0001 30RG 

000006R 

OOOOOOR 

000336RG 

000636RG 

000742RG 

001000RG 

007777  6 

•♦«*♦*  GX 

00ri356RG 

OOuAOORG 

000006  G 

000357RG 

000000 

000^00 

17756A 

000516RG 

000017  G 

000700RG 

000652RG 

00071 6RG 

000002  G 

000001  G 

000533RG 

000534RG 

000521RG 

000520RG 

000522RG 

000523RG 

000500RG 

000556RG 

OOOSSARG 

000560RG 

000561RG 

000622RG 

000621 RG 

OOOAO^RG 

»♦♦»»»  5X 

000430RG 

000^27RG 

000451RG 

OOO-iSORG 

0O0'iO6RG 

OOC'407RG 

000452RG 

000A70RG 

000001  G 


002 


002 


DS.X29= 
DTEDES 
DTEFLG 
D$$BUG= 
0$$ISK= 
0$$L11= 
002  D$$YNC^ 
002  D$$YNM= 
ERRBUF 
ERRMSG 
002  E$$XPR= 
002  FMTIO 
002  FMT8 
""  FM.10  = 
FM.8  = 
FNDPDV 
FNLIN 
F$$LVL= 
F.RSIZ= 
002  G$$TPP= 
002  G$$TSS= 
G$$TTK= 
002  G$$WRD= 
HSHADD 
HSHSZ 
IE.EOr= 
IE.RBG= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
002  LBRA  = 
002  LDSLP  = 
002  LF.ACT= 
002  LF.BRO= 
002  LF.BWT= 
002  LF.ENA^ 
002  LF.LPB= 
002  LF.MDC^ 
002  LF.MFL= 
002  LF.MTP^ 
002  LF.PAC= 
002  LF.RDY= 
002  LF.REA= 
002  LF.SER= 
LF.TIM= 
002  LF.UNL= 
002  LF.X2P= 
""  .INCTL 
_  LINNAM 
002  LINUNT 
002  LNKEND 
002  LN.CLO= 
002  LN.DUM= 
LN.LOA--^ 


002 
002 


000002  G 

000370RG 

000372RG 

1775U 

000000 

000001 

000000 

000000 

000022R 

00001 2R 

000000 

001772RG 

001752RG 

OOGOOO 

000000 

001202RG 

000632RG 

000001 

******  GX 

000000 

000000 

000000 

000000 

000376RG 

000374RG 

******  (3x 

******  GX 

000000 

000000 

177546 

1775A6 

000000 

000074 

000  '■ 

OOC 

IOGi-00 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000350RG 

000346RG 

000351RG 

001112RG 

000000 

000005 

000004 


LN.LOO= 

002  LN.OAU= 

002  LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

002  LN.STA= 

002  LN.SU8= 

LN.TRI= 

002  L$$ASG= 

002  L$$DRV=: 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 


CVA 
,DDM 
,DDS 
,DLC 
.DLM 

DLS 


002  L.FLG 
002  L.KRBA 
L.LEN  = 
L.MPF 
L.NMST 
L.NSTA 
L . OWNR 
L.UNT 
MAXID  = 
MOVE 
MRKFL 
MXACAC= 
MXACPA= 
MXACUS= 
MXN01D= 
H$$CR8= 
M$$CRX= 
M$$FCS= 
H$$MGE= 
M$$NET= 
M$$OVR= 
NEXT 
N$$ACC= 
N$$8UF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
002  N$$MOV= 
002  N$$NCT= 
002  Nt$PEM= 
OPEN 
PCK8CD 
PF.PSV= 
PF.XDF= 


000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

000020 

001430RG 

000344RG 

000020 

000010 

000020 

000006 

000124 

000000 

000000 

000000 

000000 

000000 

000352RG 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000400R 

001032RG 

******  GX 

«»«*»*  GX 


PF.XGA= 
PORTNO 
PVSTA 
PV.OFF= 
PV.ON  = 
P$$P45= 
P$$URD= 
Q$$OPT= 
RBRA  = 
READ 
RNACCT 
RNAL 
RNETUK 
RNNL 
RNNODE 
■^NPASS 
RNPL 
RNTL 
RNUL 
RNUSER 
RNWEND= 
RTSPC 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SF.ACT= 
SF.ENA= 
SF.LPB= 
SF.MFL= 
SF.PAC= 
SF.REA= 
SF.SER= 
002  SF.SVC= 
SF.UNL= 
SPACE  = 
SPFILL 
SPSAV 
STORID 
STRNXT 
SUBAMN= 
SUBAI«1X= 
SVNERR 
SYSFDB= 
S$$WRG= 
S$$YSZ= 
S.COST 
S.FLG 
S.LEN 
S.NMST 
S.OWNR 
T$$KMG= 
T$$MIN= 
V$$CTR= 
UNDSMX= 
WNDSZD 
UNDSZM 


002 


******  GX 

000354RG 

000402RG 

000001  G 

000002  G 
000000 
000000 
000010 
000076 
000442R 
000745RG 
000744RG 
000663RG 
000703RG 
000704RG 
000734RG 
000733RG 
000662RG 
00071 2RG 
00071 3RG 
******  GX 
000630RG 
000000 
000001 
000000 
000000 
000200 
000100 
000004 
000040 
000020 
000010 
000001 
000002 
000040 
000040 
001444RG 
000340R 
001324RG 
001254RG 
000000  G 
023417  G 
000342RG 
******  GX 
000000 
007600 
000001 
000000 
000004 
000002 
000003 
000000 
000000 
001000 
000177 
000364RG 
000366RG 


002 
002 
002 


X$$DBT= 

002  Z.NAM  = 

002  $AZFS  = 

$BFR  = 

$CAT5 

score 

$CEACC= 
$CLBUF= 
$CLDEQ= 
$CLFLG= 
002  $CLIOS= 
002  $CLQUE= 
002  $CLSAV= 
002  $CLSBK= 
'"   $CLSIZ= 
$DFU1C= 
SERRMA 
002  SERRMB 
002  $ERRM4 
002  $ERRM5 
$ERRK6 
SERROO 
SERROI 
$ERR02 
$ERR05 
$ERR06 
$ERR09 
$ERRP7 
$ERRP8 
$ERRP9 
SERRIP 
SERRIQ 
SERRIR 
$ERR1T 
$FNOUT= 
$GCLEP= 
$GETAD= 
$GETRV= 
SNTCFP 
$PDVNM= 
$PDVTA= 
$PFLAG= 
SQCHN  = 
SQCUG  = 
SQDSA  = 
SQDSC  = 
SQDSN  = 
SQDST  = 
SQDTE  = 
SQPSN  = 
SQPVC  = 
SQRDT  = 
SQRNA  = 
SQRNW  = 
$QX29  = 
002  $QX3P  = 
002  $RADDR= 


000000 

****** 
****** 
****** 


GX 
GX 
GX 

r  ******  GX 

GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


002 


002 


****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

001522RG 

001552RG 

001412RG 

001442RG 

001472RG 

001112RG 

001146RG 

001222RG 

001276RG 

001332RG 

001352RG 

000766RG 

001022RG 

001056RG 

001602RG 

001640RG 

001676RG 

001724RG 

******  GX 

******  GX 

******  GX 

******  GX 

OOOOOORG 


****** 
****** 


GX 
GX 

******  GX 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

******  GX 

****** 

****** 

****** 


GX 
GX 
GX 


002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
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VCLQR 
CLQRE 


171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
1 R8 

189  000076 

190  000102 

191  000106 

192  000110 

193  000116 

194  000120 

195  000124 

196  000130 

197  000132 

198  000136 

199  000140 

200  000144 

201  000146 

202  000152 

203  000154 

204  000170 

205  000174 
206 

207  000176 

208  000202 

209  000204 

210  000206 

211  000210 
212 

213 
214 

215  000212 

216  000220 

217  000226 

218  000230 

219  000236 

220  000240 

221  000246 

222  000250 

223  000256 

224  000260 

225  000266 

226  000270 


012700  000000" 

103441 

032760  040000  000030 

001444 

016001  000016 
026001  000020 
001037 

022701  000200 
103444 

016002  000352 
060102 

022702  000200 
103442 

010167  OOOOOOG 
005002 


103416 
010102 
010001 


PR.LBL  -  READ  LABEL  BLOCK 

THIS  ROUTINE  IS  CALLED  TO  READ  THE  CETAB  LABEL  BLOCK  AND  TO  VERIFY 
THAT  THE  FILE  IS  A  VALID  CETAR  IMAGE.  ON  EXIT,  THE  LOGICAL  BLOCK  1/0 
POINTERS  ARE  SETUP  TO  ACCESS  IMf  FIRST  TEXT  BLOCK. 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 

R1=CETA8  ALLOCATION  ADDRESS 

R2=CETA8  ALLOCATION  LENGTH 

RO^DESTROVED 

$LBN=FIfiST  TEXT  BLOCK  LOGICAL  BLOCK  NUMBER 


PR.LBL: 


MOV 

CALL 

BCS 

BIT 

BEO 

MOV 

CMP 

BNE 

CMP 

BLO 

MOV 

ADD 

CMP 

BLO 

ASL$ 

MOV 

CLR 

CALL 

BCS 

MOV 

MOV 

RETURN 


#DSK8UF,R0 

$RL8L 

101$ 

*TS$NHD,L$BFLG 

111$ 

L$8LDZ(R0),R1 

L$BMXZ(R0),R1 

111$ 

#200, R1 

131$ 

L$8EXT(R0),R2 

R1.R2 

#260, R2 

141$ 

6,fi1 

R1,$LLEN 

R2 

$ALL16 
121$ 
R1,R2 
R0,R1 


116777  OOOOOOG 

012767  000010 

000417 

012767  000012 

000413 

012767     000044 

000407 

012767  000016 

000403 

012767  000020 

000261 


ERROR  CONDITIONS 


OOOOOOG  101$: 
000000' 

000000'  111$: 

000000'  121$: 

000000'  131$: 

000000'  141$: 
142$: 


MOVB 

MOV 

BR 

MOV 

BR 

MOV 

BR 

MOV 

BR 

MOV 

SEC 

RETURN 


$]OSB,a$CLIOS 
#ERR8, ERROR 
142$ 

*ERR10, ERROR 
142$ 

#ERR36, ERROR 
142$ 

#ERR14, ERROR 
142$ 
#ERR16, ERROR 


GET  BUFFER  ADDRESS 
READ  LABEL  BLOCK 
,  IF  CS,  FAILURE 
(RO)  ;  DOES  CETAB  HAVE  A  HEADER? 
IF  EQ,  YES 

GET  LOAD  SIZE  IN  BLOCKS 
IS  CETAB  OVERLAID? 
IF  NE,  YES 

IS  CETAB  >  4K  WORDS? 
IF  LO,  YES 
GET  EXTEND  SIZE 
ADD  CETAB  SIZE  TO  EXTEND  SIZE 
IS  CETAB+EXTENSION  >  4K  WORDS? 
IF  LO,  YES 

CONVERT  FROM  BLOCKS  TO  BYTES 
SET  THE  TRANSFER  SIZE 
SUCCESS  INDICATOR 

TRY  TO  ALLOCATE  ROOM  FOR  CETAB 
IF  CS,  COULD  NOT 
COPY  THE  CETAB  LENGTH 
COPY  THE  CETAB  ADDRESS 
RETURN  TO  CALLER 


COPY  ERROR  CODE 

LABEL  BLOCK  READ  FAILURE 

INVALID  CEX  IMAGE 

CETAB  ALLOCATION  FAILURE 

CEX  EXCEEDS  4K  WORDS 

CEX  EXTENSION  EXCEEDS  4K  WORDS 
INDICATE  FAILURE 
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CLQREM  -  REMOVE  ENTRIES  FROM  CLOCK  QUEUE 


126 
127 
128 
129 
130 
131 
132 
133 
13A 
135 
136 
137 
138 
139 


000200 
000202 
000212 
0002U 

000220 
000222 
00022s 
000250 

00023A 
000256 

000240 


01U02 
0102U 


020526 
001 004 
012701 


010300 
000705 


000020 


MOV 
GETRV 
MOV 
PUTRC 

(R4),R2 

R3 

R2,(R4) 

CMP 
BNE 
MOV 
CALL 

R5.(SP)t 
17i 

#C.LGTH,R1 
$DEA16 

17$: 

MOV 
BR 

R5,R0 
10$ 

20$: 

RETURN 

Page  7-1 


GET  ADDRESS  OF  NEXT  ENTRV 
READ  IN  PREVIOUS  ENTRV 
UN-LINK  ENTRY  FROM  LIST 
REWRITE  CLOCK  QUEUE  ENTRY 

NITNIT  TCB  ADDRESS  ? 
IF  NOT  -  MUST  BE  AUX  CLO^K  BLOCK 
GET  LENGTH  OF  CLOCK  QUEUE  ENTRY 
DE-ALLOCATE  ENTRY  BLOCK 

PREVIOUS  ENTRY  IS  NOW  CURRENT  ENTRY 
AND  LOOK  FOR  NEXT  ENTRY 


VDEV 
LOCA 


M  11 


000004 


VDEV  -  VNP  LOAD 
LOCAL  DATA 

65 
66 
67 
68 

69  000000 

70 

71 

72 

73 

7i, 

75 

76  000000 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86  000007 

87  000010 

88  000017 
89 
90 
91 
92 
93 
94 

95  000126 

96  000132 

97  000136 

98  000140 

99  000144 
100  000150 
101 
102 
103 
104 

105  000152 
106 
107 
108 
109 

110  000156 

111  000160 

112  000162 

113  000164 
114 
115 
116 
117 
118 
119 
12C 


DEVICE   STRUCTUR  MACRO  V05.03b   Tuesday   03-Sep-85   1 


k  12 

0:28 
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VDEV 
DVXF 


123  124 


044  130 


015 

126  116 


000140"  000000 

126230  020564 

000000 

000000  000000 

126230  014572 

000000 


126230  076534 


002226' 
002264' 
002322' 
002350' 


.SBTTL  LOCAL  DATA 

•  ** 
;  LOCAL  DATA 

#  ** 

.PSECT  DATA,D 
.NLIST  BEX 

SYMBOL  TABLE  EXTENSION 
102  STBEXT:  .ASCIZ  "STB" 

DEVICE  NAME  PRECEDED  BY  "$" 
130  DNAME:   .ASCII   "$XX" 

ERROR  MESSAGE  BUFFER 

ERRMSG:  .BYTE   15 
120         .ASCII  "VNP  —  " 
ERRBUF:  .8LKB   70. 

.EVEN 


SYMBOL  LOOKUP  CONTROL  BLOCKS 

DBLKI:   .WORD  DBLK2,0 

.RAD50  "SXXEND" 

LENGTH:  .WORD  0 

DBLK2:   .WORD  0,0 

.RAD50  "SXXDCB" 

DCS:    .WORD  0 


THIS  MUST  BE  THE  FIRST  CONTROL  BLOCK 


DCB  DISPATCH  TABLE  NAME  (THIS  SYMBOL  COMES  FROM  THE  PROCESS  STB  FILE) 
DUMMY:   .RAD50  "SXXTBL" 


STB  FILE  ERRORS 
ETAB: 


.WORD  $ERR28 

.WORD  $ERR2C 

.WORD  $ERR2D 

.WORD  $ERR2E 


OPEN  FAILURE 
READ  FAILURE 
READ  OVERFLOW 
BAD  STB  FORMAT 


000166 


FLAG  WHETHER   OR   NOT   DEVICE    STRUCTURES   ALREADY   EXIST 
fOUND:      .8LKW        1 


M  12 


L 


i'DEV  -  VNP  lOAD  DEVICE  STRUCTUR  MACRO  V05.03b  Tuesday  03-Sep-85  1 
DVXFR  -  TRANSFER  TABLES  INTO  CORE 


l.ll 


636  002050 

637  002052 


006026 


ROR 
RETURN 


(SP)^ 


Page  15-3 
;  RESTORE  C-BIT 


VD 
Ta 
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r 


L 


VDIS  -  VNP  SHOW  COMMANDS 
Table  of  contents 


L  U 

MACRO  V05.03b  Monday  15-Jul-85  12:U 


VD 


62-  48^1  FNDUCB  -  GET  UCB  OF  NS:  DEVICE 

63-  1^858  CUNDEC  -  CONVERT  CUG  NUMBER  TO  DECIMAL 

64-  A9U  BCDA5C  -  CONVERT  BCD  TO  ASCII 

65-  4951  HEXA5C  -  CONVERT  HEX  TO  ASCI7 

66-  4986  MSGOUT  -  OUTPUT  MESSAGE  TO  TI: 


M  U 


r 


VDIS  -  VNP  SHOW  COMMANDS 
SDALl  -  SHOW  ALIAS 

S55 


L  15 

MACRO  V05.03b  Monday  15-Jul-85  12;U  Page  10-2 

.DSABL  LC 


M  15 


L  16 

DIS  -  VNP  SHOW  COMMANDS       MACRO  VOS.OSb  Monday  15-Jul-85  12:U  Page  18-1 
DlOSNh  -  DISPLAY  LOGGING  SINK  NODE 


1059  00S616 
lOhO 

1061  005622 

1062  005652 
1063 

106'.  005634 

1065  00563^; 

1066 

1067 

1068 

1069  C05662 

10"0 

1071  005666 

1072 

1073  005676 


010167 
000421 


000241 
0000^2 


173734 


70$: 


010167     173670 


90$: 


MOV 

ERRPT$ 
BR 


CLC 

.REPT 

ROR 

.ENDM 

MOV 

ERRPT$ 

RETURN 


R1,TEMP7 

L0MS5X,MSG0ur 
90$ 


10. 
Rl 

R1,TEMP7 

L0MS3Y,MSG0UT 


STORE  AREA  NUMBER  FOR  OUTPUT 

PRINT  NODE  AREA. ADDRESS 
CONTINUE 


DO  NOT  ROR  C-BIT 

GET  AREA  NUMBER 

STORE  AREA  NUMBER  FOR  OUTPUT 

PRINT  NODE  AREA. ADDRESS 


M  16 


VCfK  -  vNP  LOAD  CEX  ROUTINES 
E<»W  -  '.OOK  fOR  CEX  SYMBOLS 


MACRO  v05.03b  Saturdsy  29-Jun-f,') 


1 


455 
454 

455 
456 

458 
459 
46C 
461 
462 
463 
464 
465 
466 
46^ 
468 
469 
<.70 
471 
472 
473 
474 
475 
47t 
'.77 
478 
479 
480 
48- 

48? 

483 

484 

465 
486 
48" 
488 
43<y 
49C 
49- 
492 
493 
494 
495 
496 
497 

^98 
400 

500 
501 
5C2 
503 
50' 
5C5 
506 
507 

508 


0006CO 

0006C4  012700 
000610 
OOO614  103421 


000634' 


0006 '6  012700  000434' 

000622  005760  000002 

000626  0C1404 

000630  026070  OOOOiO  000012 

O0C636  0010G5 

00064C  Ol'OOC 

000642  022700  000514' 

000646  001 365 


000650 


000652 

000660  016000  000714' 

C006". 


CALL 

$AZFS 

MOV 

#.PDVTB,RO 

CALL 

SSYMBL 

BCS 

ST8ERR 

.IF  DF 

R$$MPL 

MOV 

#$DFU1C,R0 

MOV 

#VEXNAM,R1 

MOV 

#ST8EXT,R2 

CALL 

$AZFS 

MOV 

#VXBLK1,R0 

CALL 

SSVMBL 

BCS 

STBERR 

SWTCHO 

#TMPSTR 

MOV 

#10,rMPSTR 

PUTRC 

.STMFC,#2 

MOV 

#1010,TMP5TR 

PUTRC 

.LTMFC 

CLR 

TMPSTR 

PUTRC 

.CCBAF 

PUTRC 

.RD8AF 

PUTRC 

.LD8AF 

PUTRC 

.SDBAF 

PUTRC 

.CCBAL 

MOV 

.CMFRK.RI 

ADD 

#4,R1 

PUTRC 

Rl 

MOV 

R1, TMPSTR 

ADD 

#2,R1 

PUTRC 

Rl 

SWTCHO 

.IFF 

MOV 

#CeLKl,RO 

10$:    TST 

2(R0) 

BEQ 

20$ 

CMP 

10(R0),al2(R0) 

BNE 

101$ 

20$:    MOV 

(ROJ.RO 

CMP 

#X8LKl,R0 

BNE 

10$ 

.ENDC 

RETURN 

;  ERROR  CONDI' 

ONS 

l01$:   EMSG$R 

48 

ST8ERR:  MOV 

ETA81-2tRO),R0 

CALLR 

a(RO)» 

Page  9- 


GET  FIRST  LOOKUP  CONTROL  BLOCK  ADDRESS 
LOOK  FOR  SYMBOLS  IN  STB  FILE 
IF  CS,  FILE  ERROR 


SETUP  ASCIZ  FILE  STRING 
FOR  LXXX.RAJRSXVEC.STB 


GET  ! 1ST  OF  SYMBOLS 
DEFINE  SYMBOLS 
IF  ERROR  -  BRANCH 

USE  TEMPORARY  OUTPUT  BUFFER 

FUNCTION  CODE  TO  DISPATCH  100  MSEC  TIMEOUTS 

FILE  IT 

FUNCTION  CODE  TO  DISPATCH  LONG  TIMEOUTS 

FILE  IT 

MAKE  A  NULL 

INITIALIZE  ALLOCATION  FAILURES 


INITIALIZE  NUMBEi^  OF  DYNAMIC  CCB'S 

ADDRESS  OF  FORK  dLOCK 

POINT  AT  LIST  HEAD 

INITIALIZE  FORK  BLOCK  LISTHEAD 


GO  BACK  ro  DEFAULT  OUTPUT  BUFFER 


START  AT  FIRST  SYMBOL  BLOCK 

IS  SYMBOL  DEFINED? 

IF  EQ,  NO  -  DON'T  WORRY 

DOES  VALUE  MATCH  TK8  DEFINITION? 

IF  NE,  NO  -  VERY  BAD 

GET  NEXT  SYMBOL  BLOCK  A^DRCSS 

IS  IT  THE  FIRST  PROCESS  VERIFICATION  BLOCK? 

IF  NE,  NOT  AT  END  0"^  LIST 


VCEX 
Symbo 

DATA 


Work 
Work 
Size 
Size 
Ope'"a 

Eiaps 
SY:VC 


CEX/RSX  INCOMPATIBLE 

GET  ERROR  MESSAGE  CONTROL  BLOCK  ADDRESS 

PRINT  ERROR  MESSAGE 


(F>    -    At 


N     1 


a:    -fx   ROUTINES         MACRO   v05.03b   Saturday  29-Jun-85   02:13     Page   10 


VCEy  -  VN"^  LOAD  CEX  ROUTINES 
S/mbol  table 


002112 
DATA  000774 
E-rors  detected; 


M  2 

MACRO  V05.03b  Saturday  29-Jun-85  02:15  Page  15-3 


001 
002 
0 


(RW,i,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 


.«•  Assembler  statistic? 


Work   file  reads:  75 

Work   f i  Le  writes:  72 

Size  of  work  file:  20927  words  (  82  Pages) 

Size  of  core  pool:  17608  Words  (  67  Pages) 

Operating  s/stem:  RSX-11M/PLUS 


SY:VCEX.V2?[h2J3°JVCEX/CR/-SP=SV:[1  J]RSXMCM.SML/ML,C130J10]NETLie/ML,[130J0JRSXMCM/P 


fRFATFn  RY   MAfRO   ON  29-JUN-85  AT  02:H 


PAGE  1 


N  2 
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VCFG  -  VNP  SCAN  CONFIGURATION  F  MACRO  V05.03b  Monday  15-Jul-85  19:04  Page  7-1 
LOCAL  DATA 


162  000160 

000115 

163  000162 

000156 

16A  000164 

000206 

165  000166 

000226 

166  000170 

000454 

167  000172 

001130 

168  000174 

002260 

169  000176 

003410 

170  000200 

003720 

171  000202 

004540 

172  000204 

007020 

173  000206 

011300 

174  000210 

016040 

175  000212 

022600 

176  000214 

022600 

177 

178 

179 

180  000216 

181  000246 

182  000306 

183  000340 

184  000376 

185  000424 

186  000460 

187  000506 

188  000544 

189  000600 

190  000640 

191  000700 

192  000744 

193  001004 

194  001042 

195  001100 

196  001130 

197  001160 

198  001206 

199  001246 

200  001306 

201  001346 

202  001406 

203  001456 

204  001516 

205  001566 

206  001630 

207  001702 

208  001734 

209  001770 

210  002012 

211  002052 

212  002106 

213  002152 

214  002210 

215  002246 

216  002312 

2^.7   002346 

218  002402 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

ERROR  MESSAGES 

NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 


75. 

110. 

134. 

150. 

300. 

600. 

1200. 

1800. 

2000. 

2400. 

3600. 

4800. 

7200. 

9600. 

9600. 


,1A, 
,16, 
,1C, 
,1D, 
,1E, 
,1F, 
,16, 
,1H, 
,1J, 
,1K, 
,1L, 
,1M, 
,1N, 
,1P, 
,10, 
,1R, 
,1S, 
<:>, 
,1U, 
,1V, 
,1W, 
,1X, 
,1V, 
,17, 
,2A, 
,28, 
,ZQ, 
,VA, 

,rB, 

,YP, 

,YQ, 

,YR, 

,VS 

,3A 

,38 

,3C 

<:> 

<:> 

<:> 


8B,CERR,RTSPC,CFL]N,<stati'on  number.) 
8,CERR,RTSPC,CFLIN,<More  than  48.  STASDF'S.> 
88,CERR,RTSPC,CfLIN,<interrupt  vector.) 
8B,CERR,RTSPC,CFLIN,<Vector  not  in  system.) 
8B,CERR,RTSPC,CFL1N,<CSR  address.) 
8B,CERR,RTSPC,CFLIN,<interrupt  priority.) 
8B,CERR,RTSPC,CFLIN,<unit  number.) 
8,CERR,RTSPC,CFLIN,<UNTSDF  out  of  order.) 
88,CFRR,RTSPC,CFLIN,<logical  link  count.) 
88, CtRR,RTSPC,CFLIN,<characteri sties  value.) 
88,CERR,RTSPC,CFLIN,<secondary  CSR  address.) 
8,CERR,RTSPC,CFLIN,<Secondary  CSR  not  allowed.) 
8,CERR,RTSPC,CFLIN,<Secondary  CSR  missing.) 
8,CFERR,SREP.N,,<0pen  fature  (-*♦*.).) 
8,CFERR,SREP.N,,<Read  failure  (-♦**.).) 
8,CFERR,RTSPC,CFLJN,<Read  overflow.) 
S,CERR,RTSPC,CFLIN,<UNTSDF  missing.) 
1T,8,CERR,RTSPC,CFLIN,<Syntax  error) 
8,CFERR,RTSPC,,<SLT$DF  missing  (  EOF  ).) 
8,CFERR,RTSPC,,<CNTSDF  missing  (  EOF  ).) 
8,CFERR,RTSPC,,<UNT$DF  missing  (  EOF  ).) 
8,CFERR,RTSPC,,<STASDF  missing  (  EOF  ).) 
8,CFERR,RTSPC,,<DDMSDF/DLCSDF  missing  (  EOF 
8,CFERR,RTSPC,,<LLCSDF  missing  (  EOF  ).) 


).) 


,88,CERR,RTSPC,CFLlN,<local  physical  station  address) 
,8,CERR,RTSPC,CFLIN,<  Illegal  PLTSDF  parameter) 
,8,CERR,RTSPC,CFLIN,<LLCSDF  Process  Extension  too  8ig) 
,8B,CERR,RTSPC,CFLIN,<hello  timer  value) 
,88,CERR,RTSPC,CFLIN,<listen  timer  value) 
,88,CERR,RTSPC,CFLIN,<line  cost) 
,8B,CERR,RTSPC,CFLIN,<Multipoint  Active  Ratio) 
,8B,CERR,RTSPC,CFLIN,<counter  t->  r  value) 
,8B,CERR,RTSPC,CFLIN,<maximum  noo-  counter  value) 
,8,CFERR,RTSPC,,<X3PSDF  misc'nq  'EOF)) 
,8,CFERR,RTSPC,,<X2PSDF  "ii'?'ng  (EOF)) 
,8,CFERR,RTSPC,,<SVCSDF,'PV';'.>'^  missing  (EOF)) 
,2C,8B,CERR,RTSPC,CFLIN,<niax,„.,-,  block  size) 
,2F,8B,CERR,RTSPC,CFLIN,<fflaximum  window  size) 
,21, 8B,CERR,RTSPC,CF LIN, < line-id) 


\/MD  crsM  rnMP  irii&iT  inM  F  MarRn  uns  n^h  Mnnriav  15-.lul 


N  3 

-85  19:04   Psap  7-2 
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SPFILL  -  Fill  arta  with  spaces 


677 
678 
679 
680 
681 
682 
683 
68A 
685 
686 
687 

688  00U52 

689  0OU5? 

690  00U5A 

691  00K56 

692  001A60 

693  00U64 
69A   00H66 

695  001470 

696  00U72 

697  001A7A 


.S8TTL  SPFILL  -  Fill  area  with  spaces 
»•»  SPFILL  -  Fill  area  with  spaces 
INPUTS 


RO 
R1 


address  of  area  to  fill 
length  of  area  to  fill 


0100A6 
010K6 
OOUOA 
112720 
005301 
00337A 
012601 
012600 


OUTPUTS 

All   registers   preseri/ed 

SPFILL: 


OOOOAO 


MOV 

RO.-(SP) 

MOV 

R1,-(SP) 

BEQ 

20i 

in$: 

Move 

#SPACE,(RO)+ 

DEC 

R1 

BGT 

10$ 

20$: 

MOV 

(SP)+,R1 

MOV 

(SP)+,R0 

save  registers 
nothing  to  do? 

restore  regs 


RETURN 


;CTD001] 
;[TD001D 
;[TD001D 
;CTD00i: 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD00i: 
;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
.-[TDOOn 
;CTD001] 
.-CTDOOn 
;CTD001] 
;CTD001] 
;[TD001] 
;[TD0011 


uAt:  n7K  Mrt 


N  A 

i<;-i.,i-B':  10. n/. 
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TPARS   ACTION  ROUTINES 


Page  25-2 


1179 

1180  002066 

1181  002070 
1182 

1183 
1184 
1185 

1186  002076 

1187  002102 

1188  002104 

1189  002110 

1190  002112 

1191  002120 

1192  002122 
1193 

119A 
1195 
1196 
1197 
1198 

1199  002130 

1200  002134 

1201  002136 

1202  002144 

1203  002146 
1204 

1205  002154 

1206 

1207  002156 

1208 

1209 

1210 

1211 

1212 

1213  002164 

1214  002170 

1215  002172 

1216  002176 

1217  002200 

1218  002204 

1219  002210 
12'0  002212 

1221  002220 

1222  002222 

1223  002224 

1224  002230 

1225  002234 

1226  002236 

1227  002244 
1228 

1229 
1230 
1231 

1232  002252 

1233  002260 

1234  002262 

1235  002266 


005767 
001007 
105767 
001004 
116767 


005767 
001410 
022767 
103404 
016767 


101$: 


RETURN 
EMSGSR     VA 


ILLEGAL   HELLO   TIMER   VALUE 


005767 
001022 
105767 
001017 
016700 
022700 
101415 
116760 
001406 
005200 
010067 
010067 


026727 
101021 
016700 
105760 


OOOOOOG 
000001 G 
OOOOOOG  OOOOOOG 


LOCAL   PHYSICAL    STATION  ADDRESS    (ADDSDF) 


AD . NUM : 


101$: 


TST 

BNE 

TST8 

BNE 

MOVB 

RETURN 

EMSG$R 


.PNUMH 

101$ 

.PNUMBtl 

101$ 

.PNUMB,$$LSAD 

2A 


MUST  BE   BYTE   VALUE 

STORE   LOCAL   PHYSICAL   STATION  ADDRESS 
ILLEGAL   PHYSICAL    STATION  ADDRESS 


NUMBER  OF    PORTS    TO  ALLOCATE    FOR  AN  NI    INTERFACE 


OOOOOOG  PL.CHN: 

000077     OOOOOOG 
OOOOOOG  OOOOOOG 

101$: 


TST 
BEQ 
CMP 
BLO 
MOV 

RETURN 

EMSGSR 


.PNUM8 

101$ 

*63.,.PNUMB 

101$ 

.PNUMB,$$MTP 


28 


CHECK  PARAMETER   VALIDITY 

IF    ILLEGAL   -  BRANCH 

CHECK   HIGH  LIMIT 

IF    ILLEGAL   -  BRANCH 

STORE   NUMBER   OF    PORTS   TO  ALLOCATE 


REPORT    ILLEGAL   PLT$DF   PARAMETER 


OOOOOOG 

000001 G 

000150' 
000060 

OOOOOOG  OOOOOOG 


OOOOOOG 
000150' 


;    STATION  NUMBER    (STASDF) 

ST. NUM:    TST  .PNUMH 

BNE  101$ 

TSTB  .PNUMB+1 

BNE  101$ 

MOV  SCNT.RO 

CMP  #48., RO 

BLOS  111$  , 

MOVB  .PNUMB,$$SNUM(RO) 

BEQ  101$ 

INC  RO 

MOV  RO,$$MTP 

MOV  RO.SCNT 

RETURN 

101$:        EMSG$R  lA 

111$:        EMSGSR  18 


STATION   COST    (STA$DF) 


OOOOOOG  000031      ST.CST: 

OOOOOOG 
OOOOOOG 


CMP 

bh; 

MOV 
TST8 


.PNUMB,*MAXCST 
101$ 

$SLTA,RO 
L.NSTA(RO) 


MAKE   SURE   STATION  NUMBER 
IS  LESS   THAN  256. 


GET    CURRENT    STATION  COUNT 

HAVE   WE   ALREADY   SEEN  ALL    48.? 

IF    LOS,    YES 

;    STORE    STATION  NUMBER    IN  TABLE 

IF    ZERO,    ILLEGAL   STATION  NUMBER 

INC    STATION   COUNT 

SAVE    IT   FOR   TEMPLATE   ROUTINES 

SAVE    IT   LOCALLY,    ALSO 

ILLEGAL    STATION  NUMBER 
MORE    THAN  48.    STA$DF'S 


IS    THE   COST    IN  RANGE    ? 
IF    HI,    NO    ..    ERROR 
GET    THE    SLT   ADDRESS 
IS    THIS   A  MASTER   LINE 


ikiD     crAM     rnHiC  I  ri  IDA  T  I  riM     C     MATDn     \/n^     n'^h     MnnWau     1^-lii 
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FNDPDV   -   FIND   PDV 


1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 


004172 
004176 
004200 
004204 
004210 
004212 
004216 
004220 
004222 
004224 
004226 


004230 
004234 
004236 
004242 
004244 
004250 
004252 
004254 
004256 
004260 


005767 
001012 
016700 
022700 
101005 
022700 
103402 
000241 
000401 
000261 


005767 
001010 
016700 
002405 
022700 
103402 
000241 
000401 
000261 


000001 


OOOOOOG 

OOOOOOG 
000040 

002000 


CHECK  FOR  LEGAL  BLOCK  SIZE  VALUE 


CHKBLK: 


10$: 
20$: 


:TST 
BNE 
MOV 
CMP 
BHI 
CMP 
BLO 
CLC 
BR 
SEC 
RETURN 


.PNUM) 

10$ 

.PNUMB,RO 

#BLKSMN,RO 

10$ 

#BLKSMX,PO 

10$ 

20$ 


OOOOOOG 
OOOOOOG 
000177 


CHECK  FOR  LEGAL  WINDOW  SIZE  VALUE 


CHKWND: :TST 
BNE 
MOV 
BLT 
CMP 
BLO 
CLC 
BR 
SEC 


10$: 
20$: 


.PNUMH 

10$ 

.PNUMB,RO 

1 0$ 

#WNDSMX,RO 

10$ 

20$ 


RETURN 
.END 


DOUBLE  WORD  VALUE? 

BR  IF  YES  -  ERROR 

GET  BLOCK  SIZE  VALUE 

IS  BLOCK  SIZE  WITHIN  RANGE? 

BR  IF  NO  -  ERROR 

BR'iF  NO  -  jRROR 
INDICATE  LEGAL  VALUE 
AND  RETURN 
INDICATE  ILLEGAL  VALUE 


DOUBLE  WORD  VALUE? 
BR  IF  YES  -  ERROR 
GET  WINDOW  BLOCK  VALUE 
BR  IF  ILLEGAL  VALUE 
WITHIN  VALID  RANGE? 
BR  IF  NO  -  ERROR 
INDICATE  LEGAL  VALUE 
AND  RETURN 
INDICATE  ILLEGAL  VALUE 


VCfP  - 
Table 


1( 

11 

i; 

1: 
V 

1' 
1( 
1- 
1i 
1< 

2( 


c    MAron    \if\ci    n'^k    M^nH^ 
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Table   ot   contents 


VCFl 
CERl 


13- 
H- 
15- 
16- 
17- 
18- 
19- 
20- 


59 

80 

102 

254 


9-  289 

10-  409 

11-  433 

12-  464 


503 
518 
577 
614 
640 
672 
698 
761 


21-  783 


MACRO  DEFINITIONS 

CONSTANT  DEFINITIONS 

LOCAL  DATA 

ERROR  MESSAGES 

SNTCFP  -  CONFIG  FILE  SCAN 

OPEN  CONFIG  FILE 

READ  -  READ  NEXT  RECORD 

CERR.CFERR  -  PRINT  ERROR 

CFLIN  -  ECHO  LAST  RECORD 

COMMON  ACTION  ROUTINES  -  LINE-ID 

PCKBCD  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 

LNKEND  -  LINK  BLOCK  AT  END  OF  LIST 

FNDPDV  -  FIND  PDV 

STRNXT  -  STORE  NEXT  DIGIT 

STORID  -  Store  id-stn'ng  according  to  system  type 

MOVE  -  Moi/e  bytes 

SPFILL  -  FiU  area  with  spaces 


[TDOOl] 
[TD001] 
[TDOOn 


LiAC   A71,  r  ^  *-. 


N  7 
m  .  1  7 


r 
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A6^ 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476  000534 

010046 

477  000536 

478  000542 

012600 

479  000544 

010005 

480  000546 

012704  000022 

481  000552 

012503 

482  000554 

483  000556 

105713 

484  000560 

001403 

485  000562 

112324 

486  000564 

001376 

487  000566 

005304 

488  000570 

012505 

489  000572 

112524 

490  000574 

001376 

491  000576 

005304 

492  000600 

012700  000012 

493  000604 

010401 

494  000606 

160001 

495  000610 

496  000614 

0C5703 

497  00C616 

001401 

498  000620 

499  000622 

000261 

500  000624 

016706  000340 

501  000630 

.SBTTL  CERR,CFERR  -  PRINT  ERROR 

CERR  -  PRINT  ERROR  MESSAGE 

CfERR  -  PRINT  FILE  ASSOCIATED  ERROR  MESSAGE 

INPUTS: 

R0=MESSAGE  BLOCK  ADDRESS 

OUTPUTS: 

C-BIT=SET 

RETURN  TO  SNLCFG'S  CALLER 


CERR: 


CFERR: 


10$: 


20$: 
30$: 


40$: 
RTSPC: 


MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

CALL 

TSTB 

BEQ 

MOVB 

BNE 

DEC 

MOV 

MOVB 

BNE 

DEC 

MOV 

MOV 

SUB 

CALL 

TST 

BEQ 

CALL 

SEC 

MOV 

RETURN 


RO,-(SP) 

$CLDEQ 

(SP)+,RO 

R0,R5 

#ERRBUF,R4 

(R5)+,R3 

aCR5)+ 

(R3) 

20$ 

(R3)  + 

10$ 

R4 

(fi5)  + 

CR5)t 

30$ 

R4 

#ERRMSG 

R4,R1 

R0,R1 

$TIOUT 

R3 

40$ 

(R3) 

SPSAV.SP 


,(R4)t 


R3 
(R4)t 


RO 


SAVE  RO 

CLOSE  THE  CONFIG  FILE 

RESTORE  RO 

COPY  ERP""  MESSAGE  BLOCK  ADDRESS 

PLACE  TO  BUILD  ERROR  MESSAGE 

GET  FORMAT  STRING  ADDRESS 

DO  THE  FORMATTING 

IS  IT  END  OF  FORMAT  STRING? 

IF  EQ,  YES 

ELSE  COPY  REST  OF  FORMAT  STRING 

SKIP  THE'zERO  BYTE 
GET  LINE  2  ADDRESS 
COPY  THE  ERROR  TEXT 

SKIP  the'zero  byte 

GET  ERROR  MESSAGE  ADDRESS 

COPY  END  ADDRESS 

GIVING  LENGTH 

PRINT  IT 

SHOULD  SECOND  LINE  BE  PRINTED? 

IF  EQ,  NO 

PRINT  SECOND  ERROR  MESSAGE  LINE 

RETURN  FROM  $NLCFG  WITH  C-BIT  SET 


VCFP 
Symb 

$REP 
STIC 

AE 

DATA 
Errc 


Work 
Work 
Size 
Size 
Opef 

ELaf 
SY:I, 


,.  N  8 
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Symbol  table 


vcu 


$REP.N=  •«»*•• 
$TIOUT=  **»»*« 

ABS.   177776 
00U7O 
DATA    002022 
Errors  detected: 


GX 
GX 


000 
001 
002 
0 


$XLINK=  «•♦•»*  GX 
.PCHAR=  «•♦*♦*  GX 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


.PNUM8= 
.PNUMH= 


»*»**«  GX 
******  GX 


.PSrCN=  ******  GX 


.PSTPT=  ******  GX 


**.  Assembler  statistics 


C 

0 

14001  Words 

15496  Words 

RSX-11M/PLUS 


Work  file  reads: 
Work,  file  writes; 
Size  of  work  tile; 
Size  of  core  pool; 
Operating  system: 

SYtvCFP;v2?C132?l3AJvCFP/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10JRSXMCM/PA:1,[13:  -"OJi/CFP 


(  55  Pages) 
(  59  Pages) 
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LOAD  CETAB  IMAGE  MACRO  V05.03b  Saturday  ?9-Jun-85  02:1« 
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VCLQR 
FMDPC 


228 
229 
230 
231 
232 
233 
254 
235 
236 
237 
238 

239  000272 

240  000272 

241  000276 

242  000302 

243  000310 

244  000314 

245  000320 

246  000322 

247  000326 

248  000332 

249  000334 

250  000342 

251  000346 

252  000364 

253  000370 

254  000372 

255  000374 

256  000376 
257 

258 
259 

260  000400 

261  000406 

262  000414 
263 


00426V 
016702 
012767 
012700 
162702 
002002 
060267 

103422 
062767 
005567 

066701 
005702 
003350 
000241 


116777 
012767 


PR.XFR  -  READ  PROCESS  TASK  IMAGE  INTO  CORE 

THIS  ROUTINE  IS  CALLED  TO  READ  THE  PROCESS  TASK  IMAGE  INTO  CORE. 

INPUTS: 

R1=START  ADDRESS  OF  UHERE  TO  LOAD  THE  CETAB  TASK  IMAGE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 


OOOOOOG 

OOOOOOG 

001000  OOOOOOG 

OOOOOOG 

001000 

OOOOOOG 


PR.XFR: 


10$: 


20$: 


000001  000002G 
OOOOOOG 

OOOOOOG 


JSR 

MOV 

MOV 

MOV 

SUB 

BGE 

ADD 

CALL 

BCS 

ADD 

ADC 

PUTRC 

ADD 

TST 

BGT 

CLC 

RETURN 


R2,$SAVVR 

$LLEN,R2 

*512.,$LLEN 

#$aFR,RO 

#512. ,R2 

20$ 

R2,$LLEN 

$READ 

101$ 

*1,$LBNt2 

$LeN 

R1,$LLEN 

$LLEN,R1 

R2 

10$ 


ERROR  CONDITION 


OOOOOOG  OOOOOOG  101$: 
000042  000000' 


M0V8 

MOV 

RETURN 


$IOSB,a$CLIOS 
#ERR34, ERROR 


SAVE  VOLATILE  REGISTERS 
GET  LENGTH  OF  TASK  IMAGE 
TRANSFER  1  BLOCK  AT  A  TIME 
READ  IN  BUFFER 
ATTEMPT  TO  TRANSFER  AT  LEAST 

AT  LEAST  512  BVTES. 
ELSE,  TRANSFER  REMAINDER 
READ  INTO  MEMORY 
IF  CS,  FAILURE 
INCREMENT  BLOCK  NUMBER 

DOUBLE  WORD 
WRITE  BLOCK  TO  SYSTEM  IMAGE 
ADJUST  POINTER  FOR  NEXT  TIME 
ANY  MORE  TO  TRANSFER  ? 
IF  6T,  YES 
ELSE  INDICATE  SUCCESS 


COPY  ERROR  CODE 

PROCESS  IMAGE  READ  FAILURE 


N  10 
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f^;DPD■J   -   FIND   PDV   ADDRESS 


VDEV 
LOCA 


HI 

.S8TTL 

FNDPDV  -  FIND  PDV  ADDRESS 

iA2 

U3 

US 

+ 

FNDPDV  -  FIND  PDV  ADDRESS 

U6 

U7 

INPUTS; 

K8 

RO  -  RAD50  PROCESS  NAME 

1A9 

150 

OUTPUTS; 

151 

CARRY 

CLEAR: 

152 

RO 

-  PDV  ADDRESS  OF  PROCESS 

155 

CARRY 

SET; 

15A 

PROCESS  NOT  FOUND 

155 

R1,R2 

DESTROYED 

156 

157 
158 
159 

- 

000242 

010046 

"NDPDV: 

MOV 

RO,-(SP) 

SAVE  NAME  TO  LOOK  FOR 

160 

000244 

016701 

OOOOOOG 

MOV 

$PDVTA,R1 

GET  PDV  TABLE  ADDRESS 

161 

000250 

016702 

OOOOOOG 

MOV 

$PDVNM,R2 

GET  NUMBER  OF  PDV'S 

162 

000254 

001407 

BEQ 

30$ 

BR  IF  NONE 

163 

000256 

012100 

10$; 

MOV 

<R1)+,R0 

GET  PDV  ADDRESS 

164 

000260 

001403 

BEQ 

20$ 

IF  ZERO,  SKIP  IT 

165 

000262 

026016 

0000006 

15$; 

CMP 

2.NAM(R0),(SP) 

DOES  THE  NAME  MATCH? 

166 

000266 

001404 

BEQ 

40$ 

BR  IF  YES  -  SUCCESS 

167 

000270 

005302 

20$; 

DEC 

R2 

DECREMENT  COUNT 

168 

000272 

003371 

BGT 

10$ 

BR  IF  MORE 

169 

000274 

000261 

30$: 

SEC 

INDICATE  PROCESS  NOT  FOUND 

170 

000276 

000401 

BR 

50$ 

171 

000300 

000241 

40$; 

CLC 

INDICATE  SUCCESS 

172 

000502 

005726 

50$: 

TST 

(SP)  + 

CLEAN  UP  STACK 

173 

000304 

RETURN 

174 

000001 

.END 

N  11 
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LOCAL    DATA 


VDEV 
DVER 


121 

122 

123  000170 

12A 

125 

126 

127 

128  000172 

129 

130 

131 

132 

133  0001  7A 

13A  000176 

135  000200 

136 

137 

138 

139 

HO  000202 

141 

1A2  000204 


;    TKB  BASE   ADDRESS   Of    XXXTAB.TSK   FILE 
&A5E:         .8LKU        1 

NUMBER  OF    UNITS 
UNITS:      .BLKW        1 

SCOM  DEVICE    DATA   STRUCTURES   DESCRIPTORS 


PBUf 
PLEN 
VREL 


.BLKW 
.BLKW 
.BLKW 


END   OF    TABLES   ADDRESS 
TABEND:    .BLKW        1 
DEVBUF:    .8LKB        2000 


SCOM  BUFFER  DESCRIPTOR  OF    LOADABLE 

DEVICE   DATA  STRUCTURES. 
RELOCATION  DIFFERENTIAL    FOR  BUFFERING 


DEVICE   DATA   STRUCTURES  BUFFER 
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L 


VDEV    -    VNP   LOAD 

DEVICE    STRUCTUR  MACRO   VO 

DVERR    - 

PRINT    ERROR 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

002054 

651 

002060 

010005 

652 

002062 

012704     000017' 

653 

002066 

012503 

654 

002070 

655 

002072 

105713 

656 

002074 

001403 

657 

002076 

112324 

658 

002100 

001376 

659 

002102 

005304 

660 

002104 

012503 

661 

002106 

112524 

662 

002110 

001376 

663 

002112 

005304 

664 

002114 

012700     000007' 

665 

002120 

010401 

666 

002122 

160001 

667 

002124 

668 

002130 

005703 

669 

002132 

001401 

670 

002134 

671 

002136 

000261 

672 

002140 

M  13 
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vO 


.serri  dverr  -  print  error 

DVERR  -  PRINT   ERROR  MESSAGE 


;    INPUTS: 

RO=MES 

5AGE  BLOCK  ADDRESS 

;    OUTPUTS: 

c-eiT= 

5ET 

DVERR: 

CALL 

$SAVAL 

MOV 

R0,R5 

MOV 

#ERR8UF,R4 
(R5)t,R^ 

MOV 

CALL 

a(R5)t 

TST8 

(R3) 

BED 

20$ 

10$: 

M0V8 

(R3)+,CR4)+ 

BNE 

10$ 

DEC 

R4 

20$: 

MOV 

(R5)+,R3 

30$: 

MOVB 

CR5)+,(R4)+ 

BNE 

30$ 

DEC 

R4 

MOV 

#ERRMSG,RO 

MOV 

R4,R1 

sue 

RO.Rl 

CALL 

$TIOUT 

TST 

R3 

BED 

40$ 

CALL 

(R3) 

40$: 

SEC 
RETURN 

SAVE  ALL  REGISTERS 

COPY  ERROR  MESSAGE  BLOCK  ADDRESS 

PLACE  TO  BUILD  ERROR  MESSAGE 

GET  FORMAT  STRING  ADDRESS 

DO  THE  FORMATTING 

IS  IT  END  OF  FORMAT  STRING? 

IF  EQ,  NO 

COPY  THE  REST  OF  THE  FORMAT  STRING 

SKIP  THt"ZERO  BYTE 
GET  LINE  2  ADDRESS 
COPY  THE  ERROR  TEXT 

SKIP  THE'ZERO  BYTE 
PRINT  THE  ERROR  MESSAGE 


IS  THERE  A  LINE  2  ADDRESS? 
IF  EQ,  NO 

GO  PRINT  SECOND  LINE 
RETURN  C-BIT  SET 
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r 


L 


VOIS 


VN^  SHOW  CO'^MANDS 


A 
5 

6 
7 
8 
9 

10 

""  ? 

15 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
52 
55 
34 
55 
56 
57 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
t.9 
50 
5" 
52 
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.TITLE  VDIS  -  VNP  SHOW  COMMANDS 

.IDENT  /V05.00/ 

.ENA8L  LC 

.NLISI  BEX 
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DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCEPT  FOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  UHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  15  NOT  SUPPLIED  BY  DEC. 

MODULE  DESCRIPTION: 

VDIS  -  VNP  SHOW  COMMAND  PROCESSING 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00 


It: 


14-DEC-79 
DECNET-11M/S  V5.0 
DECNET-11M-PLU5  Vl.O 


5.00  16-APR-82 

DECNET-11M  V5.1 
DECNET-11M-PLUS  Vl.1 

4.00     07-N0V-85 

DECNET-11M  V4.0 
DECNET-11M-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DEtnet-IIM-Plus  V5.0 
DECnet-Micro/RSX  Vl.O 


N  U 


r 


;D1S   -   vNP   bHOiJ  COMMANDS 
SDPRO  -   SHOW  PROCESS 

555 
556 

557 
558 
559 
560 
56' 
562 
565 
56-. 
565 
566 
56? 
568 
569 
570 

571  00316A 

572  003170     lOSOW 

573  0051^2 
57A  003202     01670A 

575  003206     016746 

576  003212     0i2702 

577  003216     005767 

578  005222  00U23 
5  79  003224  022767 
580  003232  OOU40 
581 
58? 
583 

584  003234  012701 

585  003240  112122 

586  003242  001376 

587  005244  005001 

588  003246  005316 

589  003250  002455 

590  005252  012402 

591  005254  005762 

592  005260  001772 

593  005262 

594  005266  005201 

595  005270  000766 
596 
597 
598 

599  003272  012701 

600  003276  112122 

601  005300  001576 

602  005502  012700 

603  005506  005316 

604  003310  002425 

605  003312  012402 

606  003514  026062 

607  C05522  001371 
60S  005324  005001 

609  005526 

610  CC3332  000424 
611 
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.SSriL   $DPRO  -  SHOW  PROCESS 

$DPRO  -  SHOW  ACTIVE  PROCESSES 
SHOW  KNOWN  PROCESSES 
SHOW  PROCESS  X 

INPUTS;  NONE 

OUTPUTS:  PROCESS  INfORMATION  IS  DISPLAYED  ON  USER'S  TERMINAL 

ALL  REGISTERS  ARE  DESTROYED 


OOOOOOG 
OOOOOOG 
001062' 
OOOOOOG 

000004  OOOOOOG 


000175' 


OOOOOOG 


000236' 


OOOOOOG 


000002  OOOOOOG 


SDPRO:: 

CALL 

CKTYPE 

BCC 

5$ 

ERRPT$ 

SYNERR,$EROUT 

5$: 

MOV 

$PDVTA,R4 

MOV 

$PDVNM,-(SP) 

MOV 

#TEMP2,R2 

TST 

$QUAL 

BEQ 

30$ 

CMP 

#qf$k;no,$oual 

BEQ 

60$ 

;  SHOW 

ACTIVE  PROCESSES 

MOV 

#PACTIV,R1 

10$. 

Move 

(R1)',(R2)* 

BNE 

10$ 

CLR 

R1 

20$: 

DEC 

(SP) 

BLT 

100$ 

MOV 

(R4)t,R2 

TST 

Z.PCe(R2) 

BEQ 

20$ 

CALL 

DISPRO 

INC 

R1 

BR 

20$ 

■  SHOW 

SPECIFIC 

PROCESS 

^0$: 

MOV 

*PSPEC,R1 

40$: 

MOVE 

(Rl)t,(R2)t 

BNE 

40$ 

MOV 

#RQB,R0 

50$: 

DEC 

(SP) 

BLT 

90$ 

MOV 

(R4)*,R2 

CMP 

LR.PR0(R0),Z. 

BNE 

50$ 

CLR 

Rl 

CALL 

DISPRO 

8R 

100$ 

NAM(R2' 


SET  UP  COMMAND  I YPE  FOR  HEADER  MESSAGE 

BR  IF  SUCCESS 

ELSE  SYNTAX  ERROR 

GET  ADDRESS  Of  PDV  TABLE  OF  ADDRESSES 

GET  NUMBER  OF  PROCESSES 

STORAGE  FOR  HEADER  INTRO  MESSAGE 

SHOW  A  SPECIFIC  PROCESS? 

BR  IF  YES 

SHOW  KNOWN  PROCESSES? 

BR   If    YES 


else  must  be  show  active  processes 
store  the  string 

Indicate  header  to  be  printed 
any  more  processes  to  check? 

BR   IF    NO 

GET   ADDRESS  Of    PDV 

IS    THIS   PROCESS   ON' 

BR    If    NO 

DISPLAY  THE  INFO  FOR  THIS  PROCESS 

INDICATE  HEADER  NOT  TO  BE  DISPLAYED 

GET  NEXT  PDV 


GET  INTRO  STRING  FOR  HEADER 
STORE  THE  STRING 

GET  INPUT  PARAMETERS 

ANY  MORE  PROCESSES? 

BR  If  NO 

GET  ADDRESS  OF  PDV 

IS  THIS  THE  ONE  TO  DISPLAY? 

BR  IF  NO 

INDICATE  HEADER  TO  BE  DISPLACED 

DISPLAY  THE  INFO  fOR  THIS  PROCESS 

riNISHED 


N  IS 
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DlOEv'T  -  DISPLAY  FVENT  CHARAC  rERST  KS 


1075 
10/6 
10'7 
1078 
1079 
1080 
1081 
1082 
1083 
108^. 
1085 
1086 
108^ 
1088 
1089 
1090 
1091 
1092 
109? 
109A 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1105 
1104 
1105 
1106 
1107 


005700 
005706 
0057K 
005722 
005750 
005754 
005742 
005744 
005750 
005752 
005760 
005762 
005766 
005770 
005776 
006004 
006012 
006020 
006026 
006054 


016567 
016367 
016567 
016567 
O1270O 
032765 
001403 

000432 
052765 
001405 

000423 
016567 
042767 
016567 
016567 
016567 
016567 
000411 


.S8TTL   DLCEVT  -  DISPLAY  EVENT  CHARACTERSTl CS 


DLOEVr  -  DISPLAY  EVENT  CHARACTERISUCS 

INPUTS; 

R5  -  ADDRESS  OF  EVENT  FILTER  BLOCK 

OUTPUTS: 

THE    EVENT  MESSAGE    IS   DISPLAYED 


OLOEVT: 


000004  173126 

000006  175122 

000010  173116 

000012  175112 
001062' 

000010  000014 


000020  000014  10$: 


000002  175046 

000077  175040 

000004  175054 

000006  175050 

000010  175024 

000012  173020 


1108 

006036 

016302 

000002 

1109 

006042 

042702 

000077 

T110 

006046 

020267 

172772 

1111 

006052 

001C02 

1112 

006054 

1113 

006060 

005767 

172750 

1114 

006064 

001016 

1115 

006066 

005767 

172744 

1116 

006072 

001013 

1117 

006074 

005767 

172740 

1118 

006100 

001010 

1119 

006102 

005767 

172754 

1120 

006106 

001005 

nj! 

006110 

012701 

000550' 

1122 

006114 

112120 

1123 

006116 

001576 

1124 

006120 

000515 

1125 

006122 

105067 

173056 

1126 

006126 

105067 

175442 

1127 

C06132 

016501 

000002 

1128 

000006 

M29 

1130 

M31 

006152 

005002 

20$: 


50$: 


40$: 


50$: 


60$: 


MOV 

MOV 

MOV 

MOV 

MOV 

BIT 

BEQ 

CALL 

BR 

BIT 

BEQ 

CALL 

BR 

MOV 

BIC 

MOV 

MOV 

MOV 

MOV 

BR 

MOV 

BIC 

CMP 

BNE 

CALL 

TST 

BNE 

TST 

BNE 

TST 

BNE 

TST 

BNE 

MOV 

MOVB 

BNE 

BR 

CLR8 

CLR8 

MOV 

.REPT 

ASR 

.ENDR 

CLR 


F.EVTtO(R5),EVTMS<+0 
F.EVTt2(R5),EVTMSKt2 
F.EVTt4(R3),EVTMSKt4 
f.EVT+6CR5),EVTMSK+6 


STORE  EVENT  MASKS 


#TEMP2,R0      , 
#FF.LIN,F.FLG(R3) 


10$ 

BLDLIN 

30$ 

#FF.ADD,F.FLG(R3 

20$ 

BLDNOD 

30$ 

F.CLS(R5),GCLASS 

#FF.MSK,GCLASS 

F.EVT+0(R5),GEVMSK+0 

F.EVT*2{R3),GEVMSK+2 

F.EVT+4(R5),GEVMSK+4 

F.EVTt6(R5),GEVMSK+6 


POINT  TO  OUTPUT  BUFFER 

;  IS  FILTER  QUALIFIED  BY  LINE? 

BR  IF  NO 

BUILD  LINE  ENTITY  MESSAGE 

CONTINUE 

;  IS  FILTER  QUALIFIED  BY  NODE? 

BR  IF  NO 

BUILD  NODE  ENTITY  MESSAGE 

CONTINUE 

ELSE  HAVE  GLOBAL  MASK  -  SAVE  CLASS 

ISOLATE  EVENT  CLASS 

SAVE  GLOBAL  FILTER  MASKS 


40$ 

F.CLS(R3),R2 

#FF.MSK,R2 

R2,GCLASS 

40i 

BLDMSK 

EVTMSK+O 

60$ 

EVTMSK<-2 

60$ 

EVTMSK+4 

60$ 

EVTMSKt6 

60$ 

#L0N0EV,R1 

(R1)+,(R0)t 

50$ 

140$ 

BITNUM 

FLAGS 

F.CLS(R3),R1 

6 

R1 

R2 


CONTINUE 

GET  EVENT  CLASS 

ISOLATE  EVENT  CLASS 

DOES  THIS  FILTER  HAVE  A  GLOBAL  FILTER? 

BR  IF  NO 

BUILD  EVENT  MASK 

ANY  EVENT  MASKS  SET? 

BR  IF  YES 


POINT  TO  "NO  EVENTS"  STRING 

STORE  STRING  IN  OUTPUT  BUFFER 

BR  IF  MORE  TO  STORE 

FINISH  UP 

START  WITH  EVENT  TYPE  0 

CLEAR  FLAGS  WORD 

GET  EVENT  CLASS  (BITS  6-15) 

MOVE  EVENT  CLASS  TO  BITS  0-9 


SUPPRESS  ZEROES 


vCEx  ■ 
NlBL« 


VNP   LOAD   CE*   ROUTINES 
-   SE^JP  NTL   HOME   BLOCK 


510 

511 

512 

5^3 

514 

515 

516 

517 

5'8 

51<) 

520 

521 

522  000666 

52?  000666 

52'. 

5?5 

526 

527 

528  000672 

529 

530 

531  000700 

532  000704 

533  0007' 0 

534  OOt"!'. 

535  000716 
536 

'3" 
S5d 
539 
540 
541 
542 
543 
544 
545 

546  000720 

547  000722 

548  000726 

549  CC0730 

550  000734 

551  000^40 

552  0007i.4 
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.S8ITL  NLBLK  -  SETUP  NTL  HOME  BLOCK 

NLBlK  -  SETUP  NETLDR  DATA  BLOCK 

INPUTS: 

R1=:CETAB  ALLOCATION  ADDRESS 
R2=CETAB  ALLOCATION  LENGTH 
CEXPCB=CEX  PCB  ADDRESS 

OUTPUTS: 

DATA  BLOCK    INITIALIZED 


005067     000004G 


NLBLK: 


016767  000406'  000006G 


012700 
012703 
016025 
011C00 
001374 


000514' 
000010G 
000010 


005025 
022703 
001574 
162705 
010163 
010265 


OOOIoOG 

000100 
000062 
000064 


6J: 
10$: 


12$: 


15$: 


CLR 

.IF 

CLR 

.IFF 

MOV 

.ENDC 

MOV 
MOV 
MOV 
MOV 
BNE 

.IF  DF 

MOV 

MOV 

MOV 

MOV 

BNE 

.ENDC 

CLR 
CMP 
BNE 
SUB 

MOV 
MOV 
RETURN 


SNTLHB+.CXCSR 

DF,R$$MPL 
SNTLHB+.CXPCB 

r'EXPCB.lt.        "'* 


ZERO  THE  THIRD  WORD  (NTINIT  -  $DEUHR) 


.CXPCB 


NO  PCB  ADDRESS  IF  RSX-11M-PLUS 
STORE  CEX  PCB  ADDRESS  IN  HOME  BLOCK 


#XBLK1,R0       . 

#$NTLHB+.CXSyM,R3 

10(R0),(R3)+ 

(R0),R0 

10$ 


•  GET  FIRST  VALIDATION  BLOCK  ADDRESS 
;  ADDRESS  OF  THIRD  WORD  OF  NTPOOL 
STORE  SYMBOL  VALUE 
GET  NEXT  SYMBOL  BLOCK  ADDRESS 
IF  NE,  NOT  AT  END  YET 


R$$MPL 

#VX8LK1,R0      ;  GET  VECTORED  EXEC  VALIDATION  BLOCK  ADDRESS 

#$NTLHB+.CXVSM,R3  ;  GET  NTL  BLOCK  VECTORED  VALIDATION  ADDRESS 


10(R0),(R3)t 

(R0),R0 

12$ 


(R3H 

#$NTLH8+100,R3 

15$ 

#100, R3 

R1,.CXALL(R3) 

R2,.CXLEN(R5) 


STORE  SYMBOL 
GET  NEXT  BLOCK 


ZERO  THE  REMAINDER  OF  THE  BLOCK 


BACK  TO  START  OF  HOME  TLOCK 

STORE  THE  CETAB  ALLOCATION  ADDRESS 

AND  THE  LENGTH  OF  THE  ALLOCATION 


VCEX 

CREATED  BY 

MACRO  ON 

29-JUN-85  AT 

02:14     PA 

SYMBOL 

CROSS  REFERENCE 

CR 

SYMBOL 

VALUE 

REFERENCES 

CBLKI 

000^.34 

R 

#6-162 

9-424 

9-489 

CBLIC3 

000^50 

R 

6-162 

#6-165 

CBLr.A 

000A64 

R 

6-165 

#6-168 

CBLK5 

000500 

R 

6-168 

#6-171 

CEPTR 

000746 

R 

8-358 

#11-564 

C'SYM 

000466 

R 

7-292 

#9-408 

CEXNAM 

000376 

R 

#6-118 

7-303 

9-414 

CEXPCB 

000406 

R 

#6-141 

*7-316 

10-528 

CF.DDM 

=  000002 

#5-66 

CF.DYN 

=  000004 

#5-66 

CF.EIS 

=  000010 

#5-66 

CF.FRK 

=  100000 

#5-66 

CF.LOG 

=  000020 

#5-66 

CF.MDM 

=  000001 

#5-66 

CF.TIM 

=  000400 

#5-66 

CLKQB 

000410 

R 

#6-149 

13  '78 

13-711 

CL.OPN 

.-LGTH 

C.RQT 

C.?SI 

C.S5HT 

C.TCB 

C.TIM 

DSIZE 

D$END 

DSLNAM 

ERR1 

ERR2 

ERR3 

ERR4 

ERR5 

ETAB1 

ETAB2 

FE.CEX 

F.NRBD 

F.RSIZ 

IBLKI 

IBLK2 

I$$AS 

LO.CON 

LO.CSR 

LO.CTL 

LO.LIN 

LO.PAR 

LO.PR! 

LO.SCR 

LO.STA 

LO.VCT 

LR.AST 

LR.CIR 

LR.CTL 


-  ****** 
=  000020 

000002 
000012 

=  000004 
000004 
000006 

=  ****** 

=  000104 
000006 
000034  R 
000066  R 
000152  R 
000224  R 
000252  R 
000716  R 
000726  R 

=      ****** 
=   ****** 

-  ****** 


GX 


GX 


000610 
000622 

=      ****** 

000006 
000006 
000014 
000004 
000010 
000010 
000014 
000015 
0000-.2 
000026 
000002 
000004 


9-409 
6-149 
*13-681 
•13-682 
13-681 
»1 3-684 
*13-680 
1  '.-789 
8-379 
8-381 
#6-94 
#6-96 
#6-98 
#6-100 
#6-102 
#6-235 
#6-243 
8-348 
»11-580 
»7-318 
♦13-692 
#6-206 
6-206 
5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-S5 
#5-65 


13-669 

*13-683 

13-698 
•13-686 


14-741 
14-753 
14-781 
14-843 
13-721 
9-507 
8-393 
8-392 
•11-584 
•7-325 
•14-786 
9-447 
#6-209 
5-65 
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04.00 


9-441 


13-692 


13-698 
•13-687 


13-719 


13-700 


13-700 


13-703 


13-703 


•11-618 
•8-350 
•14-789 
11-570 

7-322 


•  13-711 

•8-363 

•14-837 


•  13-713 
•R-379 


•14-848 
•11-581 


•11-585 


•12-636 


•13-685 


ERRON  MESSAGE  FORMAT  STRING 


103 


157 
157 


156 
156 


FMT8:: 
FMT88:: 


.ASCIZ 
.ASCIZ 
.EVEN 


"Config  File 
"Config  File 
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LOCAL    DATA 

219 
220 
221 
222 
223 

224  002«2 

225  002A42 
226 
227 
228 
229 
230 
231 

232  002A72 

233  002700 
25A 
235 
236 
237 

238  002702 
239 
240 
241 
242 

243  002704 
244 
245  000000 


Page  7-2 


Illegal 


RECORD  BUFFER  AND  BUFFER  LENGTH 


CFGBF:: 
CFGSZ:: 


.BLK8 
.BLKW 


134. 
1 


VCFG  - 
CFLIN 

6S 
7C 
7C 
7( 
7C 
7C 
7C 
7C 
7C 
7C 
7( 

r 

T 


SAVED  STACK  POINTER  FOR  ERROR  EXIT 
SPSAV:   .8LKW   1 

SYNTAX  ERROR  FLAG 
SYNERR::.8L<U   1 
.PSECT 
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CFLIN   -   ECHO  LAST   RECORD 


699 
700 
701 
702 
703 
704 
705 
706 
707 
708 

709  00U76 

710  001502 

711  001506 


012700 
016701 


002472' 
002700' 


.SBTTL  CFLIN  -  ECHO  LAST  RECORD 

CFLIN  -  ECHO  THE  LAST  RECORD  READ  FROM  THE  CONFIG  FILE 

INPUTS: 

NONE 


OUTPJTS: 

NONE 


CFLIN: 


MOV 
MOV 
CALLR 


#CFG8F,R0 

CFGSZ.RI 

STIOUT 


GET  RECORD  BUFFER  ADDRESS 
AND  RECORD  SIZE 
PRINT  IT  ON  TI: 


VCFG  - 
TPARS  A 

1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
124- 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
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TPARS   ACTION  ROUTINES 


1236  002272 

1237  002274 

1238  002300 

1239  002302 

1240  002304 

1241  002306 

1242  002310 

1243  002314 

1244  002322 
1245 

1246  002324 

124" 

1248 

1249 

1250 

1251  002332 

1252  002336 

1253  002340 

1254  002344 

1255  002346 

1256  002354 
1257 

1258  002356 


001413 
016701 
005301 
006301 
006301 
060001 
062701 
116761 


105767 
001007 
016700 
005300 
116760 


000150' 


OOOOOOG 
OOOOOOG  OOOOOOG 


10$: 
101$: 


BEQ 

MOV 

DEC 

ASL 

ASL 

ADO 

ADD 

M0V8 

RETURN 


EMSG$R  YP 


10$ 

SCNT.RI 

R1 

Rl 

Rl 

RO.fil 

#L.MPF,R1       , 

.PNUMB,S.C0ST(R1) 


.F  EQ,  NO  ..  TREAT  AS  PT-TO-PT  LINE 

GET  THE  STATION  COUNT 

REALLY  LAST  ONE 

CONVERT  LOGICAL  STATION  NUMBER  TO  2  WORD  INDEX 

GET  START  OF  STATION  TABLE 

■'store  STATION  COST 


ILLEGAL  LINE  COST 


000001 G 
000150' 
OOOOOOG  OOOOOOG 


STATION  ACTIVE  POLLING  RATIO  (STA$DF) 


ST. APR:  TSTB 
BNE 
MOV 
DEC 
MOVB 
RETURN 


.PNUMB+1 

101$ 

SCNT.RO 

RO 

.PNUMB,$$APR(RO) 


101$:        EMSG$R     YQ 


IS  IT  A  BYTE  VALUE  ? 
IF  NE,  NO  ..  ERROR 
GET  CURRENT  STATION  COUNT 
OUR'S  IS  LAST  ONE 
;  SAVE  ACTIVE  POLLING  RATIO 


ILLEGAL  ACTIVE  POLLING  RATIO 


VCFG  -  VNP  SCAN  CONFIGURATION  F  MACRO  \/05.03b  Monday 
Symbol  table 
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VCFP 


ADDDF 

AD.NUM 

A$$CHK= 

A$$CPS= 

AS$PRI= 

A$$TRP= 

ITS 
BITS! 

Bns2 

BL<SMN= 

BLKSMXn 

BRADJ 

CERR 

CFERR 

CFGBr 

CFGEXT 

CFGFLG 

CFGKU 

CFGNAM 

CFGST 

CFGSZ 

CFLIN 

CHERR 

CHKBLK 

CHKWND 

CHNLMX= 

CH.DUP= 

CH.Dn  = 

CH.ECH= 

CH.MDT= 

CH.PAR= 

CH.PRM= 

CH.PRT= 

CH.STA= 

CH.SYN= 

CH.TYP= 

CL.OPN= 

CNTDF 

COST 

COST! 

CTL 

C$$CKP= 

C$$ORE= 

C$$RSH= 

C.CSR 

C.CTL 

C.PRI 

C.VECT 

ci.Bsy= 

C1.DCP= 

C1.SDL= 

C1.X25= 

DDMDF 

DDM1 

0E.OFF= 

OE.ON  = 

DPR 


000342R 

002076R 

OOCDOO 

000000 

000000 

000000 

0001 54R 

000204R 

000220R 

OOOOAO 

002000 

0001 30R 

00123ARG 

001244RG 

002A72RG 

000006R 

0001 36RG 

OOOOOORG 

UOOOOOR 

OOOOOORG 

C02700RG 

00U76RG 

003060R 

00A172RG 

004230RG 

007777  G 

000001 

000100 

000002 

000020 

000100 

000200 

000007 

OOOOAO 

000004 

000010 

»»««»♦  GX 

000456R 

000566R 

000576R 

00001 5R 

000000 

000400 

177564 

002522R 

001706R 

002626R 

002432R 

000002 

000001 

000003 

000004 

000372R 

00041  OR 

000002  G 

000001  G 

000606R 


003  DPR1 
OTEDES 
DTEFLG 
DSAMXC 
DSAMXH 
DSANN 
003  DSBRPR 
003  DSBRTM 
003  DSDELF 
DSDELU 
DSEND  = 

003  D$FNB 
DSHIOR 
DSHOST 

002  DSINAC 
002  DSINCT 
002  D$IPL 

004  DSLID 

002  DSLNAM 

003  DSLNUM 

002  DSLST 
DSMAXC 
DSMAXH 
DSMAXV 
DSMLL 
DSMNOD 
D$NA 
DSNBEA 
DSNBRA 

D$NLN 

D$NN 

DSOUTT 

OSRETF 

DSRNN 

DSRTMR 

D$SEG 

003  DSSER 
003  DSSQRL 
003  D$$BUG= 

002  D$$ISK= 
D$$L11= 
D$$YNC= 
D$$rNM= 
D.EXT 
D.NAME 
END 
ERRBUF 
ERRMSG 

E$$XPR= 
FEADF 

003  FG.X2P= 
003  FG.X3P= 

FL.FDX= 

FL.HDX= 

003  FL.I<MX  = 


00061 6R 

000140RG 

000142RG 

000072 

000074 

000000 

000102 

000100 

000045 

000046 

000104 

000034 

000024 

000022 

000044 

000042 

000051 

000020 

000006 

000014 

000047 

000064 

000066 

000070 

000040 

000041 

000062 

000056 

000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

000052 

177514 

000000 

00000-' 

000000 

000000 

001624R 

001512R 

000652R 

000027R 

00001 7R 

001022R 

000000 

000662R 

000001  G 

000002  G 
♦*»»*♦  GX 
«•♦•♦*  GX 
♦»»*••  GX 


003  FL.LMC= 
002  FMT8 

002  FMT8B 
FM.8  = 
FM.8B  = 
FNDPDV 
F$$LVL= 
F.CHI 
F.CH2 
F.FEA 
F.MOD 
F.RS]Z= 
F.SET 
GETCSfi 
G$$TPP= 
G$$TSS= 
G$$TrK= 
G$IWRD= 
HSHADD 
HSHSZ 
IE.E0F= 
IE.RBG= 
INC 

I$$kAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LCTIM 
LDSLP  = 
LLCDF 
LLCDF1 
LNKEND 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11fi= 
L.CHI 
L.CH2 
L.C0ST= 
L.CTL  = 
L.DDM  = 
L.DLC  = 
L.MPF  = 
L.NAME 

003  L.NSTA= 
002  L.UNT  = 

002  MAXCST= 

003  MAXID  = 
MAXNDC= 

003  MAXWND= 
MOVE 
MS.CIR= 
MS.CSR= 
MS.EXT= 
MS.INC= 


******  GX 

002422RG 

002442RG 

000000 

000000 

0041 20RG 

000001 

003734R 

003756R 

004000R 

00401  OR 

******  GX 

004020R 

002562R 

000000 

000000 

000000 

000000 

000146RG 

000144RG 

******  GX 

******  GX 

001012R 

000000 

000000 

177546 

177546 

000000 

000074 

001044R 

000000 

000724R 

000766R 

004030RG 

000000 

000000 

000001 

000000 

00371 4h' 

003724R 

******  GX 

******  GX 

**-v***  GX 

******  GX 

******  GX 

001512R 

******  GX 

******  GX 

000031 

000020 

000200 

000007 

001436RG 

******  GX 

******  GX 

******  GX 

..*♦«*  GX 


MS.LLC= 
002  MS.MTP= 
002  MS.MUX= 
MS.PRI= 
MS.SEC= 
MS.VCT= 
M$$CR8= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NFT= 
M$$OVR= 
NAME 
N$ADJ1 
N$ADJ2 
NSCACH 
N$CRC 
N$HC1 
002  N$HC2 

002  N$LV1 
N$LV2 
NSMHCI 

003  N$MHC2 
N$PLD 
N$PRI 
NSROAI 
N$R0A2 
NSRTMX 
N$'(lM1 

003  Nr.RTM2 

N$RT1 
003  N$RT2 
003  NSTCTL 
N$TLC 
NSTNC 
N$TRC 
NSTTCB 
NIVER 
NSXLEN 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
OPEN 
PECH 
PECH1 
PF$BLK= 
PF$CLC= 
PF$f)LM= 
PF$EIP= 
PF$FNB= 
PF$FAI= 
PF$FM1= 


****** 
****** 


****** 

000124 

000000 

000000 

000000 

000000 

000000 

000012R 

000072 

000074 

000062 

000120 

000052 

000056 

000002 

000010 

000036 

000044 

000016 

000076 

000022 

000030 

000014 

000014 

000015 

000000 

000006 

000112 

000100 

000114 

000106 

000110 

000066 

000124 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000730R 

000626R 

00C636R 

020000 

010000 

100000 

000002 

000001 

004000 

000100 


GX 
GX 
GX 
GX 
GX 
GX 


PF$FM2= 

PF$0FF= 

PF$RM1= 

PF$RM2= 

PF$RVR= 

PF$STA= 

PF$SVC= 

PF$UP  = 

PF.PSV= 

PF.XDF= 

PLTDF 

PL.CHN 

002  PR$BED= 
PR$BEU= 
PR$BRD= 
PR$BRU= 
PR$DWN= 
PR$LCC= 
PR$MOP= 
PR$UP  = 
PS$CHR= 
PS$FAI= 
PS$NTI= 
PS$0FF= 
PS$STR= 
PSSUP  = 
PS$VER= 
PS$WT  = 
PT$BRO= 
PT$DRT= 
PT$END= 
PT$LV1= 
PT$LV2= 
PT$PH3= 
PT$XAR= 
PX$BLK= 
PX$DI-M= 
PX$SVC= 
PSCHN 
P$CNT 
P$CTR 
PSDRCT 
PSDRTR 
PSFLG 
P$FWD 
PSICCB 
P$IPL 
P$LCD 

003  PSLEN 
003  P$LST 

PSNRNI 

PSOCCB 

P$PFQ 

PSPKSZ 

PSRMXI 

P$RMX2 

PSRPRl 


000200 

000000 

000020 

000040 

000010 

000004 

040000 

000004 

******  GX 

******  GX 

000356R 

0021 30R 

000200 

000100 

000040 

000020 

000002 

000010 

000004 

000001 

000016 

000014 

000006 

000000 

000002 

000012 

000010 

000004 

000200 

000100 

000004 

000002 

000001 

000010 

000020 

000040 

000200 

000100 

000004 

000005 

000034 

00001 5 

000036 

000012 

000030 

000046 

000014 

000002 

00 
0  J40 
0.  050 
000006 
000044 
000016 
000020 
000042 


003 
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VCFl 
CFL 


1 
2 
3 

U 
5 
6 
7 
8 
9 
10 
11 
12 
15 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
Al 
42 
43 
44 
45 
46 
1.7 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 


.TITLE  VCFP  -  VNP  PSI  CONFIGURATION  FILE  SCAN 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGH'  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAI  ASSUMES  NC  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  CONFIG  FILE  SCANNER  FOR  "SET  SYSTEM"  FOR  PSI  COMPONENTS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  01-MAR-82 

VERSION  3.1  RELEASE 


;[TD001] 


3.00  16-APR-82 
DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

3.01  11-0CT-82 

Changes  for  X25  Gateway 
[Tim  Dixon  fSG] 

3.02  5-APR-82 

CORRECT  GCL  LEVEL  BUG 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-'IM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Ptus  V3.0 
DECnet-Micro/RSX  Vl.O 


[TD0C1] 
[TDOOI] 
[TD001] 
CTDOOn 
«*-1 
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505 
50A 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 


000652 

000656  012700  000150' 

000642  016701  000556' 

000646 


.SBTTL   CFLIN  -  ECHO  LAST  RECORD 

'cFLIN  -  ECHO  THE  LAST  RECORD  READ  FROM  THE  CONFIG  FILE 

INPUTS: 

NONE 


OUTPUTS: 

NONE 

FNLIN::  CALL 
CFLIN::  MOV 
MOV 
CALLR 


SFNOUT 
#CFG8F,R0 
CFGSZ,R1 
STIOUT 


PRINT  FILE  NAME 

GET  RECORD  PUFFER  ADDRESS 

AND  RECORD  SIZE 

PRINT  IT  ON  TI: 


VCFP      CREATED  Bv  MACRO  ON  29-JUN-85  AT  02:T8 
SYMBOL  CROSS  REFERENCE 
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PAGE  1 

CREf   O'ii.OO 


veil 


SYMBOL 

VALUE 

REFERENCES 

BLKSMN 

=  OOOOAO 

#6-89 

14-555 

BLKSMX 

=  002000 

#6-90 

14-557 

BLKSZD 

000360  RG 

#7-156 

BLKSZM 

000362  RG 

#7-157 

CERR 

000534  RG 

8-259 

8-260 

8-261 

8-262 

8-263 

8-264 

8-265 

8-268 

8-269 

8-270 

8-271 

8-272 

8-276 

#12-476 

CfERR 

000544  RG 

8-273 

8-274 

8-275 

#12-479 

CFGBF 

000130  RG 

#7-131 

11-444 

13-514 

CFGEXT 

000006  R 

#7-116 

10-421 

CFGNAM 

000000  R 

#7-115 

10-420 

CFGSZ 

000336  RG 

#7-132 

•11-448 

13-515 

CFLIN 

000636  RG 

8-259 
8-276 

8-260 
#13-514 

8-261 

8-262 

8-263 

8-264 

8-265 

CHKBLK 

000742  RG 

#14-552 

CHKWND 

001000  RG 

#14-566 

CHNLMX 

=  007777  G 

#6-91 

CL.OPN 

=  ..«*»«  Gx 

9-305 

COUNT 

000356  RG 

#7-150 

15-594 

•18-695 

CTIM 

000400  RG 

#7-170 

CUNMMX 

=  000006  G 

i6-92 

CVTdUF 

000357  RG 

#7-151 

•18-687 

18-691 

DARDEN 

=  000516  RG 

#7-220 

DARMLN 

=  000017  G 

#7-217 

7-218 

7-224 

DEVCTL 

000700  RG 

#14-533 

DEVNAM 

000652  RG 

#14-524 

DEVUNT 

000716  RG 

#14-540 

DE.OFF 

=  000002  G 

#7-166 

DE.ON 

=  000001  G 

#7-165 

DSACGL 

000533  RG 

7-203 

#7-225 

DSACUG 

000534  RG 

#7-226 

DSAHCT 

000521  RG 

#7-222 

DSALCT 

000520  RG 

#7-221 

DSARCT 

000522  RG 

7-212 

#7-223 

DSARDP 

00052  ;g 

#7-224 

DSARDT 

00050U  RG 

#7-218 

DSASHI 

000556  RG 

#7-229 

DSASLO 

000554  RG 

#7-228 

DSCMCT 

000560  RG 

7-210 

#7-233 

DSCMSK 

000561  RG 

#7-234 

nc - ;AL 

000622  RG 

#7-236 

vCT 

000621  RG 

7-211 

#7-235 

DSFLG 

000404  RG 

#7-180 

DSTEND 

=  .«.»..  GX 

9-387 

DSTNAM 

000430  RG 

#7-186 

DSTNML 

000427  RG 

#7-185 

7-202 

DSTOBJ 

000451  RG 

#7-188 

DSTPRI 

000450  RG 

#7-1 H7 

DSTTKL 

000406  RG 

#7-18.' 

7-204 

DSTTS!^ 

000407  RG 

#7-184 

DSTVRO 

000452  RG 

#7-201 

DSTtfRI 

000470  RG 

#7-209 

DS.X25 

=  000001  G 

#7-181 

8-266 


8-266 


8-267 


8-267 
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265 
266 
267 
268 
269 
270 
271 
272 
273 
27^ 
275 
276 
277 
278 

279  000416 

280  000422 

281  000426 
282 

283  000430 

284  000434 
285 

286  000456 

287  000442 

288  000446 

289  000450 

290  000452 

291  000454 

292  000460 
293 

294  000464 

295  000470 
296 

297  000474 

298  000502 

299  000506 

300  000514 
301 

302  000520 

303 

304  000540 

305 

306 

307 


012701  000104 

103003 

O127C0  000044 


010067 
012700 
105020 
005301 
001375 
012700 
016701 


OOOOOOG 
OOOOOOG 


OUUOOOG 
OOOOOOG 


$DECHM 
INPUTS 

OUTPUT 


ALLOCATE  DECNET  HOME  BLOCK  FROM  DSR 
NONE 


DECNET  HOME  3L0CK  ALLOCATED 
$DECPT  POINTS  TO  HOME  BLOCK 
RO.Rl  DESTROVED 


062701  000004 

010160  000002 

112760  000252  000024 

105060  000025 

112760  000004  000026 

105060  000027 


000001 


$DECHM: 

:M0V 
CALL 
BCC 

#D$END,R1 

$ALL15 

10$ 

MOV 
RETURN 

*ERR36,R0 

10$: 
15$: 

MOV 

MOV 

CLRB 

DEC 

BNE 

MOV 

MOV 

R0,$DECPT 

#$8FR,R0 

(R0)  + 

Rl 

15$ 

#$8FR,R0 

$DECPT.R1 

ADD 
MOV 

#D$RNN+2,R1 
R1,D$RNN(R0) 

Move 

CLRB 
M0V9 
CLRB 

*252,D$HIOR(R0) 
DIHIORtURO) 
#4,D$HIORf2iR0) 
D$HI0R*3(R0) 

PUTRC 

$DECPT,#D$END 

RETURN 

GET  NUMBER  OF  BYTES  ^0  ALLOCATE 
ALLOCATE  FROM  DSR  (NOTE  FE.CEX  NOT  SET) 
IF  SUCCESS  -  BRANCH 

ALLOCATION  FAILURE 


SET  UP  POINTER 

GET  I/O  BUFFER  ADDRESS 

INIT  BLOCK 

COUNT  ONE  BYTE 

IF  MORE  -  BRANCH 

GET  STATING  ADDRESS 


SET  UP  REMOTE  LIST  POINTERS 

SET  UP  ETHERNET  ADDRESS  HIGH  ORDER  BYTES 

WRITE  OUT  DECNET  HOME  BLOCK  TO  IMAGE 


.END 
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Symbol  table 


AUXPDV 

a$$chk;= 

A$$CPS= 
A$$PRI= 
A$$TRP= 
CLQREM 

c$$ck:p= 

C$$ORE= 

C$$RSH= 

CARS 

CAST 

C.CSTP= 

C.DST 

C.EFN 

C.LGTH= 

C.LNK 

C.MR<T= 

C.RQT 

C.RSI 

C.SCHO= 

C.SRC 

C.SSHT  = 

C.SUB 

C.SYST= 

C.SYTK^ 

C.'CB 

CUM 

CUIC 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

FNDPDV 

F$$LVL= 

F.RSIZ= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

!$$RAR= 

1$$RDN= 

K$$CNT= 

<$$CSR= 

K$$LDC= 

<$fT°S= 

LDSLP  = 

LD.ALI= 

LD.CEX= 

LD.CIR= 

LD.LIN= 

LD.LOG= 

LD.MOD= 

LU.NOD= 


OOOOOOR 

000000 

000000 

000000 

000000 

000002RG 

000000 

000400 

177564 

OOOOK 

000012 

000012 

000016 

000003 

000020 

000000 

000000 

000002 

000012 

000002 

OOOOU 

OOOOOA 

000012 

000006 

000010 

000004 

000006 

000016 

177514 

000000 

000001 

000000 

000000 

000000 

00024 5R 

000001 

*♦»♦»•  GX 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

000030 

000024 

000035 

000025 

000031 

000037 

000027 


LO.OBJ= 

LD.PRO= 

LO.ADD 

LO.ADR 

LO.CLS 

LO.CON 

LO.COP 

LO.COS 

LO.CSR 

LO.CTL 

LO.DES 

LO.DTE 

LO.EVT 

LO.GRO 

LO.HOS 

LO.HTM 

LO.INA 

LO.INC 

LO.LDT 

LO.LID 

LO.LIi'J 

LO.LTM 

LO.MAC 

LO.MDE 

LO.NAM 

LO.NET= 

LO.NNM 

LO.OFL 

LO.ONM 

LO.OUT 

LO.OWN 

LO.PAR 

LO.PRI 

LO.RET 

LO.RPA 

LO.SCR 

LO.SEG 

LO.SKA 

LO.SKN 

LO.SNM 

LO.TPA 

LO.TRB 

LD.TRI 

LO.UNT 

LO.VCT 

LO.VER 

LR.ACC 

LR.ACO 

LR.ADD 

LR.ALI 

LR.8LK 

LR.CTL 

LR.DES 

Lf(.HLP 

LR.LIN 


CJ0032 
000026 
000022 
000052 
000002 
000006 
000010 
000020 
000010 
000032 
000002 
000047 
000004 
000024 
000040 
000032 
000062 
000060 
000046 
000030 
000004 
000034 
000022 
000024 
000044 
000002 
000022 
000012 
000004 
000056 
000026 
000010 
000012 
000064 
000030 
000016 
000054 
000014 
000014 
000035 
000020 
000034 
000030 
000033 
000014 
000042 
000020 
100052 
000012 
000002 
000010 
000004 
000010 
000002 
000002 


LR.NAf 

LR.PAS 

LR.PRO 

LR.STS 

LR.TR! 

LR.TYP 

LR.UCB 

LR.UIC 

LR.UNT 

LS.AL]= 

LS.CEX= 

LS.CIR= 

LS.CX0= 

LS.CX5= 

LS.ECH= 

LS.FDX= 

LS.HDX= 

LS.HLP= 

LS.LIN= 

LS.LMC= 

LS.LOG= 

LS.MOD= 

LS.NOD= 

LS.NTI= 

lS.OBJ= 

LS.OPT= 

LS.PRO= 

LS.T0P= 

LS.TSr= 

LS.UN'^  = 

LS.XIT= 

LX.ALI= 

LX.CEX= 

LX.CIR= 

LX.LIN= 

LX.L0G= 

LX.NO.I- 

LX.OBJ-- 

LX.PRO= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

M$$CRB= 

M$$CRX= 

m$$f:s= 

M$$MGE= 
M$$NET= 
M$$OVR= 
N$$ACC= 
N$$8UF= 
N$$LDV- 
N$$MCF= 
N$$MLL= 
N$$MOV= 


000012 
000041 
000002 
000000 
000006 
000002 
000016 
000020 
000005 
000016 
000001 
000033 
010000 
000400 
001000 
004000 
010000 
000012 
000003 
000007 
000020 
000036 
000014 
000013 
000022 
000400 
000002 
002000 
000010 
020000 
000011 
000017 
000004 
000034 
000006 
000021 
000015 
000023 
000005 
000000 
000000 
000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
J00001 
000001 
000001 
000001 
000010 


N$$NCT= 
N$$PEM= 
0F$INS= 
0F$LOG= 
0F$OFF= 
OF  SON  = 
OF$SHC= 
0P$ADD= 
0P$ALL= 
0P$CCS= 
OP$CIE= 
0P$CON= 
OP$COP= 
OP$COS= 
OP$DST= 
OP$DTE= 
OP$DUP= 
OP$EST= 
OP$EVE= 
OP$F]L= 
OP$GRP= 
OP$HOS= 
OP$HTM= 
OP$INA= 
OP$INC= 
OP$KDS= 
OP$KDT= 
OP$KEV= 
OP$KGR= 
OP$KNT= 
OP$KSK= 
OP$LCT= 
OP$LNE= 
OP$LOC= 
OP$LST= 
OP$LrM= 
OP$LVL= 
OP$MAC= 
OP$MCO= 
OP$MDE= 
OP$MLI= 
0P$MON= 
OP$MST= 
OP$NAM= 
OP$NET= 
OP$NLI= 
OPSNOD- 
OP$OUT= 
OP$OWN= 
OP$PAR= 
0P$PR1= 
OP$RET= 
OP$RPA= 
OP$SCO= 


000001 
000001 
000001 
000100 
000002 
000000 
000200 
000200 
000200 
000004 
004000 
000400 
000001 
000100 
000200 
000040 
000002 
000100 
010000 
000200 
000100 
000001 
000002 
004000 
001000 
002000 
000400 
001000 
001000 
010000 
002000 
000200 
000040 
000001 
000002 
000001 
000010 
000010 
000002 
000400 
000004 
000100 
000020 
000004 
004000 
000002 
000020 
002000 
000020 
000010 
000010 
010000 
000010 
000001 


0P$SEG= 
0P$SER= 
0P$SIN= 
OP$STA= 
OPJiTPA= 
OP$TRI= 
OP$UCS= 
OP$USE= 
OP$VEC= 
OP$VER= 
0P$XAC= 
OP$XPR= 
0P$X5S= 
0P$X9S= 
PS$P45= 
P$$WRD= 
QF$ACT= 
QF$ALL= 
QF$KNO= 
QF$L00= 
Q$t0PT= 
ROB  = 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SySFDB= 
S$$WRG= 
S$$YSZ= 
Ty$CHA= 
rY$EVE= 
TY$STA= 
TY$SUM= 
T$$KMG= 
T$tMIN= 
V$$CTR= 
WC.CNT= 
WC.EVE= 
UC.TRI= 
UC.UNT= 
X$$DBT= 
Z.OSP  = 
Z.NAM  = 
$BFR  = 
$CEXND= 
$DEA16= 
$GETRV= 
SPDVNM: 
$PDVTA= 
$PUTRC= 
$RADDR= 
.CLKHD= 
.MGMGE= 
.PDVTA= 


000400 
000400 
000010 
000004 
000020 
000040 
000020 
000002 
000040 
000040 
000001 
000002 
000004 
000010 
000000 
000000 
000001 
000002 
000004 
000010 
000010 
****** 

000000 
000001 
000000 
000000 
****** 

000000 
007600 
000400 
001000 
002000 
000000 
000000 
000000 
001000 
000400 
004000 
002000 
001000 
000000 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 


GX 


GX 
GX 
GX 
GK 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


ABS.   000106    000   (RW,I,GBL,A8S,0VR) 


_J 
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VDEV 
OVDE 


1A5 

U6 

K7 

KB  002204 

K9  002226 

150  00226A 

151  002322 

152  002350 

153  002376 
15A  002434 

155  002464 

156  002536 

157  002600 

158  002634 

159  002672 

160  002706 

161  002744 

162  003000 

163  003052 

164  003104 

165  003156 

166  003230 

167  003262 

168  003334 

169  003376 
170 

171 
172 

173  003420 

174  003461 

175  003511 

176  003532 
177 

178 

179  000000 

180 

181 

182 

183 

184  000000 

185 

186  000000 


052 
052 
052 
052 


040 
040 
040 
072 


.SBTTL  ERROR  MESSAGES 

ERROR  MESSAGES 

NTLERS  ,2A,4A,DVERR,REP4A,,<undefined> 

NTLERS  ,28,4,DVERR,$PRV.N,,<0pen  failure  (-*•♦.)> 

NTLERS  ,2C,4,DVERR,$PRV.N,,<Read  failure  (-*•*.)> 

NTLERS  ,2D,4,DVERR,$REP.P,,<Read  overflow> 

NTLERS  ,2E,4,DVERR,$REP.P,,<Format  error> 

NTLER$  ,2F,6,DVERR,$PRV.N,,<0pen  failure  (-♦*•.)> 

NTLERS  ,2H,6,DVERR,$REP.C,$CLDEQ,<not  contiguous> 

NTLERS  ,2J,6,DVERR,SCUR.N,SCLDEQ,<Label  block  read  failure  (-•♦♦.)> 

NTLERS  ,2K,6,DVERR,SREP.C,$CLDEQ,<not  a  ualid  binary  image. > 

NTLERS  ,2L,9,DVERR,REP9,$CLDEQ,<allocation  failure> 

NTLERS  ,2M,6,DVERR,SCUR.N,DVDEA,<Read  failure  (-•**.)> 

NTLERS  ,2N,4A,DVERR,REP4A,,<odd> 

NTLERS  ,2P,4A,DVERR,REP4A,,<outside  table  limits. > 

NTLERS  ,20,9,DVERR,REP9,DVDEA,<illegal  unit  count. > 

NTLERS  ,2R,9,DVERR,REP9,DVDEA,<D.UC8  field  outside  table  limits. > 

NTLERS  ,2S,9,DVERR,REP9,DVDEA,<UCB  address  odd.> 

NTLERS  ,2T,9,DVERR,REP9,DVDEA,<UCB  address  outside  table  limits. > 

NTLERS  ,2U,9,DVERR,REP9,DVDEA,<U.SCB  field  outside  table  limits. > 

NTLERS  ,2V,9,DVERR,REP9,DVDEA,<SC8  address  odd.> 

NTLERS  ,2W,9,DVERR,REP9,DVDEA,<SCB  address  outside  table  limits. > 

NTLERS  ,2X,9,DVERR,REP9,,<driver  already  resident. > 

NTLERS  ,2Y,4A,DVERR,REP4A1,,<undefined> 

ERROR  MESSAGE  FORMAT  STRINGS 


123  FMT4A 

123  FMT4 

111  FMT6 

040  FMT9 


.ASCI2 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 


.PSECT   ..8UF,D 


'*  Symbol  table  file  —  symbol  * 

'*  Symbol  table  file  —  " 
'*  Image  f  i  Le  —  " 

'*:  ;  i.'uice  tables  —  " 


DISK  BUFFER  FOR  LABEL  BLOCK  READ 
i)SK8UF:  .BLKW   1 
.PSECT 


L 


VDEV  -  VNP  LOAD  DEVKE  STRUCTUR  MACR 

DVDEA  - 

DEALLOCATE  DATA  STRUCTURES 

674 

675 

676 

677 

678 

679 

680 

681 

682 

685 

68A 

685 

002U2 

686 

002U2  016700  OOOOOOG 

687 

002U6  016701  OOOOOOG 

688 

002152 

689 

002160 

690 

002166 

691 

002172 

692 

002200 

693 

002206 

694 

002212 
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VD 
MA 


.SBTTL  DVDEA  -  DEALLOCATE  DATA  STRUCTURES 
OVDEA  -  DEALLOCATE  DATA  STRUCTURES  AND  CLOSE  IMAGE  FILE 
INPUTS: 


GET  BUFFER  ADDRESS 
AND  LENGTH 
DEFAULT  TO  $BFR 


$LBUF=8UFFER  ADDRESS 

$LLEN=8UFFER  LENGTH 

OUTPUTS: 

NONE 

DEA: 

MOV 

$L8UF,R0 

MOV 

$LLEN,R1 

SUTCHI 

SWTCHO 

CALL 

$DEA16 

SWTCHI 

#DEV8UF 

SUTCHD 

#DEV8UF 

CALL 

SCLDEQ 

RETURN 

DE-ALLOCATE  DEVICE  DATA  STRUCTURES 
RETURN  TO  LOCAL  BUFFER 

DEQUEUE  GCL  FILE 


L 


VDIS  -  VNP  SHOW  COMMANDS 
MACRO  CALLS 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64  000000 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75  000000 

76  000000 

77  000000 

78  000000 

79  000000 

80  000000 

81  000000 

82  OOCOOO 

83  000000 
8A  000000 

85  000000 

86  000000 

87  000000 

88  000000 

89  000000 

90  000000 

91  000000 

92  000000 

93  000000 
9A  000000 

95  000000 

96  000000 

97  000000 

98  000000 

99  000000 

100  000000 

101  000000 

102  000000 
^03 


N  K 
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.S8TTL  MACRO  CALLS 


VC 
$[ 


ERMSG$,ER8LK$,ERRPT$,VNPDf$,GETAD,GETRV,SWrCHI,SAVRG,RE5RG 

08JDF$,ANBDr$,NSFDF$,RNBDF$,SLrDF$,fLTDf$,ASR$ 

DDCDF$,PCLDF$,UC8DF$,DCSDF$,TCBDF$,D1R$,Q]0W$,CEACC$ 

ASL$,CTRDF$,DMPDF$,PH8DF$,PLIDF$,DTEDF$,CUG0Ft,NWDr$,DSTDF$ 

RDTDFt,x29DF$,PVCDF$,ECDDB$,XPDD8$,PLBDF$,DHaDF$ 


.MCALL 
.MCALL 
.MCALL 
.MCALL 
.MCALL 


.IF  NDF  R$$MPL 
.MCALL  NKRDFS 
NKRDFS 

.IFF 

.MCALL   KR8DF$ 

KR8DF$ 

.ENDC 


.MCALL   RNWDFS 
.MCALL  VNPD8G 

AN8DF$ 

CTRDFS 

CUGDFS 

DCBDFS 

DDCDFS 

OMPDFS 

DSTDFS 

DTEDFS 

ECDDBS 

FLTDFS 

NSFDFS 

NUDFS 

OBJDFS 

PCLDFS 

PHBDFS 

PLBDFS 

PLIDFS 

PVCDFS 

RDTDFS 

RN8DF$ 

RNWDFS 

SLTDFS 

TCBDFS 

UC8DF$ 

VNPDFI 

XPDDBS 

X29DF$ 

DHBDFS 


;  DEFINE  NETWORK  KRB  OFFSETS 


;[MPOn 
;rMPOn 
;CMP01] 

;[MP01] 
;[HP01] 
;[MP01] 

.■rMPon 


.-[TDOOI] 
;[TD001] 

ALIAS  NAME  TABLE  SYMBOL  DEFINITIONS 

COUNTER  BLOCK  SYM80'  DEFINITIONS 

CLOSED  USER  GROUP  SYMBOL  DEFINITIONS 

DCB  SYMBOL  DEFINITIONS 

DDCMP  SYMBOL  DEFINITIONS 

DMP  SYMBOL  DEFINTIONS 

DESTINATION  DESCRIPTOR  DEFINITIONS 

DTE  SYMBOL  DEFINITIONS 

ECL  DATA  BASE  SYMBOL  DEFS 

FILTER  CONTROL  BLOCK  DEFINITIONS 

FEATURSE  WORD  DEFINITIONS  FOR  NSP 

NW  LINE  TABLE  SYMBOL  DEFINITIONS 

OBJECT  TABLE  'SYMBOL  DEFINITIONS 

PCL  SYMBOL  DEI INITIONS 

PSI  HOME  BLOCK  SYMBOL  DEFINITIONS 

DEFINE  PLB  OFFSETS 

PLI'S  DDB  SYMBOL  DEFINITIONS 

PVC  NAME  BLOCK  SYMBOL  DEF INI  TONS 

RP'  SYMBOL  DEFINITIONS 

"E  NAME  BLOCK  SYMBOL  DEFINITIONS 
t<emote  network  block  symbol  def  ini  t  ion;  tTDOOl  ] 
SYSTEM  LINE  TABLE  SYMBOL  DEFINITIONS 
TCB  SYMBOL  DEFINITIONS 
UCB  SYMBOL  DEFINITIONS 
VNP  SYMBOL  DEFINTIONS 
XPT  DATA  BASE  SYMBOL  DEFINTIONS 
X29  SYMBOL  DEFINITIONS 
^ECNET  HOME  BLOCK  DEFINITIONS 


vol 5  -  VNP  SHOW  COMMANDS 
SDPRO  -  SHOW  PROCESS 


612 

613 

61'.  005?34 

012701  000216' 

615  0053AO 

112122 

616  0O53A2 

001376 

617  005344 

005001 

618  003346 

005316 

619  003350 

0024^5 

620  003352 

0124:^2 

621  003354 

622  003360 

005201 

623  003362 

000^71 

624 

625 

626 

627  003364 

628  003372 

005726 

629  003374 

630 

631  003404 

632  003412 

005726 

635  005414 

654 

655 

656 

637 

658 

659 

640  005416 

6'.1  005445 

642 

645 

N  15 
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SHOW  KNOWN  PROCESSES 


hO%: 

MOV 

#PKN0UN,R1 

70$: 

M0V8 

(R1)t,(R2) 

BNE 

70$ 

CLR 

Rl 

80$: 

DEC 

(SP) 

BLT 

100$ 

MOV 

(R4)t,K2 

CALL 

DISPRO 

INC 

Rl 

BR 

80$ 

;  PROCESS  NOT  FOUND 

^0$:    D1R$  #TIDET 

rST  (SP)* 

ERRPT$  PERR1,$ER0UT 

'■'oi-       OIR$  *riDET 

TST  (SP)t 
RETURN 

.ENA8L  LC 


ERROR  MESSAGES 


get  string  for  intro  in  header  message 
store  the  string 

Indicate  header  to  be  displayed 

ANV  MORE  processes? 

BR  IF  NO 

GET  ADDRESS  OF  PDV 

DISPLAY  THE  PROCESS  INFORMATION 

INDICATE  HEADER  NOT  TO  BE  DISPLAYED 

GET  NEXT  PDV 


DETACH  TERMINAL 
CLEAN  UP  STACK 
DISPLAY  ERROR  MESSAGE 

DETACH  TERMINAL 
CLEAN  UP  STACK 
FINISHED 


ERMSG$  <Process  not  in  system> 
ERBLK$  PERR1 

.DSA8L   LC 


B  1 

J  5 

r          1 
1^    1 

K  5 

D  1 

L   5 

E  1 

M  5 

F   1 

N  5 

G  1 

B  6 

H   1 

C  6 

1   1 

D  6 

J   1 

E  6 

H   1 

F  6 

L  1 

G  6 

M  1 

H  6 

N  1 

1  6 

B  2 

J  6 

C  2 

K  6 

D  2 

L  6 

E  2 

M  6 

F  2 

N  6 

G  2 

B  7 

H  2 

C   7 

I  2 

D  7 

J  2 

E  7 

K  2 

F   7 

L   2 

G  7 

M   2 

H  7 

N   2 

I  7 

B  3 

J  7 

C  3 

K  7 

D  3 

L  7 

E  3 

M  7 

F   3 

N  7 

G   3   VCFG 

B  8 

H   3 

C  8 

I  3 

D  8 

J  3 

E  8 

<  3 

F  8 

L   3 

G  8 

M   3 

H 

N   3 

J  i 

B  A 

J  i 

C  ^ 

K  i 

D  A 

L  \ 

E  4 

M  i 

F   4 

N 
B  9 

G   -i 

H   4 

C  9 

I  '^ 

D  9 

J   4 

E  9 

K   4 

F  2 
G  9 

^   4 

M   4 

H  9 

N   4 

I  9 

B  5 

J  2 

C   5 

K  9 

D  5 

L  9 

E   5 

M  9 

F   5 

N  9 

G  5 

M   5 

\\% 

I  5 

D  10 

VCFP 


F 

10 

F 

10 

G 

10 

H 

10 

I 

10 

J 

]({ 

1 

10 

M 

10 

N 

10 

B 

11 

(' 

11 

I) 

11 

F 

11 

F 

11 

G 

•  1 

H 

11 

1 1 

J 

11 

K 

11 

1 

11 

M 

11 

N 

11 

R 

V 

r 

12 

D 

y? 

F 

12 

F 

12 

G 

12 

H 

12 

I 

12 

J 

12 

K 

12 

1 

12 

M 

12 

N 

12 

R 

1^ 

r 

n 

n 

H 

F 

H 

F 

H 

G 

1^ 

H 

^^ 

I 

H 

.1 

Ti 

K 

n 

1 

1^ 

M 

i< 

N 

y, 

R 

u 

r 

14 

D 

A 

F 

•4 

F 

14 

G 

14 

H 

14 

I 

14 

J 

14 

K 

14 

L 

14 

VCIO 


VCLQRM 


VDEV 


VDIS 


M  14 
N  14 
B  15 


15 
15 

15 
15 
15 


H  15 


15 
15 
15 
15 


M  15 
N  15 
B  16 


16 
16 
16 

16 
16 


H  16 


16 
16 
16 
16 


M  16 
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DLOEVT   -  DISPLAY   EVENT    CHARACTERSTICS 


VD 


1132  006154 

CALL 

$C8DMG 

1133  006160 

720 

000056 

MOVB 

*PERIOD,(R0)+ 

1134  006164 

o727 

173014 

000100 

70$: 

CMPB 

BJTNUM,#MSKLEN      ; 

1135  006172 

103065 

BHIS 

130$ 

1136  006174 

CALL 

CHK8IT 

1137  006200 

001455 

BEQ 

110$                          ; 

1138  006202 

132767 

000001 

173364 

BITS 

#F.STRT,  FLAGS        ; 

1139  006210 

001016 

BNE 

80$ 

1140  006212 

116701 

172766 

MOVB 

BITNUM.Rl 

1141  006216 

005002 

CLR 

R? 

1142  006220 

CALL 

$CaDMG 

1143  006224 

152767 

000001 

173342 

BIS8 

#F.STRT, FLAGS 

1144  006232 

152767 

000002 

173334 

BIS8 

*r.PREV, FLAGS 

1145  006240 

105067 

172741 

CLR8 

PF'VNT 

1146  006244 

1147 

1148  006246 

000435 

BR 

120$ 

132767 

000002 

173320 

80$: 

BITB 

*F.PREV, FLAGS 

1149  006254 

001015 

BNE 

90$ 

1150  006256 

112720 

000054 

MOVB 

#COMHA,(R0)t 

1151  006262 

116701 

172716 

MOVB 

BITNUM.Rl 

1152  006266 

105067 

172713 

CLRB 

Pi?EVNT 

1153  006272 

005002 

CLR 

R2 

1154  006274 

CALL 

$CBDMG 

1155  006300 

152767 

000002 

173266 

BISB 

#F.PREV, FLAGS        . 

1156  006306 

000414 

BR 

120$ 

1157 

1158  006310 

126027 

177777 

000055 

90$: 

CMPB 

-URO),#DASH 

1159  006316 

001402 

BEQ 

100$ 

1160  006320 

112720 

000055 

MOVB 

#DASH,(RO)+ 

1161  006324 

116767 

172654 

172653 

100$: 

MOVB 

BJTNUM.PREVNT 

1162  006332 

00C402 

BR 

120$ 

1163 

1164  006334 

110$: 

CALL 

CKPREV 

1165  006340 

105267 

172640 

120«- 

INCB 

BiTNUM 

1166  006344 

000707 

BR 

70$ 

1167 

1168  006346 

130$: 

CALL 

CKPREV 

1169  006352 

105020 

CLRB 

^R0)  + 

1170  006354 

140$: 

ERRPT$ 

L0MSG4,MSG0UT 

1171   006364 

RETURN 

CONVERT  TO  ASCII 

STORE  PERIOD  AFTER  EVENT  CLASS 

ALL  BITS  PROCESSED? 

BR  IF  YES 

TEST  BIT  TO  SEE  IF  IT  IS  ON 

BR  IF  NOT  ON 

HAS  FORMATTING  BEGUN  ALREADY? 

BR  IF  YES 

GET  EVENT  TYPE  NUMBER 

ZERO  SUPPRESSION 

CONVERT  TO  ASCII 

INDICATE  FORMATTING  HAS  BEGUN 

INDICATE  THIS  EVENT  TYPE  IS  SE ,' 

INDICATE  FIRST  NUMBER  IN  RANGE 

CONTINUE 

WAS  PREVIOUS  NUMBER  SET? 

BR  IF  YES 

SEPARATE  WITH  A  COMMA 

GET  EVENT  TYPE  NUMBER  TO  DISPLAY 

INDICATE  VALUE  ALREADY  DISPLAYED 

ZERO  SUPPRESSION 

CONVERT  TO  ASCII 

INDICATE  THIS  EVENT  TYPE  IS  SET 

CONTINUE 

IS  DASH  ALREADY  INSERTED? 

BR  If  YES 

STORE  DASH 

SAVE  EVENT  TYPE  NUMBER 

CONTINUE 

CHECK  FOR  DISPLAY  OF  PREVIOUS  EVENT  TYPE 
UPDATE  BIT  NUMBER 


SEE  IF  LAST  EVENT  TYPE  MUST  BE  DISPLAYED 
CREATE  ASCIZ  STRING 
DISPLAY  EVENT  MESSAGE 


VDIS  -  VNP  SHOW  COMMANDS 
BLDMSK  -  BUILD  EVENT  MASK 


C     1 
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vt 


VDIS  -  VNP  SHOW  COMMANDS 
t.DNOD  -  SHOW  NODE 


1701 
1702 
1703 
170A 
1705 

1706  011166 

1707  011206 

1708  01121A 
1709 

1710  011222 

1711  011232 
1712 

1713  01123A 
17K  011254 

1715  011262 

1716  011264 

1717  011272 

1718  011300 

1719  011304 

1720  011312 

1721  011316 

1722  011324 

1723  011330 

1724  011336 

1725  011342 

1726  011350 

1727  011352 

1728  011356 

1729  011362 

1730  011366 


B     2 
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DISPLAY  MAXIMUM  HOPS,  MAXIMUM  VISITS 


vol 

DM) 


016767  000066G  170010 
01676"  000070G  167760 


1731  011370 

1732  011372 

1733  011374 

1734  011400 

1735  011404 

1736  011414 

1737  011420 

1738  011422 
■■739  011426 

1740  011430 

1741  011432 
MU2  011434 

1743  011436 

1744  011442 

1745  011446 

1746  011452 

1747  011460 

1748  011464 

1749  011472 
1750 

1751 

1752 

1753 

1754  011502 

1755 

1756 

1757 


000410 


016767 
001006 
016767 
162767 
005067 
156767 
005067 
156767 
005067 
156767 
005067 
156767 
005001 
156701 
012700 
062701 
006300 
005301 
003375 
005067 
110067 

012700 
005001 
156701 
001405 
006300 
005301 
003375 
005067 
110067 
005067 
116767 
005067 
116767 


000036G  167600 

OOOOOOG  167570 
000022  167562 
167676 

000050G  167670 
167706 

000042G  167700 
167714 

000043G  167706 
170212 
000044G  170204 

0OO045G 

000001 

000004 


170156 
170152 

000001 

000046G 


167420 
167414 
167530 

000047G  167522 
167540 
000051G  167532 


400$: 
404$: 


405$: 


406$: 


GETRV   $DECPT,#D$END 
MOV     $BFR+D$MAXH,TEMP4 
MOV     $8FRtD$MAXV,:EMP3 


ERRPTI 

MMSG7,MSG0UT 

BR 

404$ 

GETRV 

$DECPT,#D$END 

MOV 

$BFR+D$SEG,TEMP2 

BNE 

405$ 

MOV 

$RD6SZ,fEMP2 

SUB 

*18.,TEMP2 

CLR 

lEMP^ 

BISB 

$SFR+D$RETF,TEMP3 

CLR 

TEMP4 

BISB 

$8FR+D$INCT,TEMP4 

CLR 

TEMP5 

BISB 

$BFR+D$0UTT,TEMP5 

CLR 

TEMP6 

BISB 

$BFR+D$INAC,TEMP6 

CLR 

R1 

BIS8 

$BFRtD$DELF,R1 

MOV 

*1,R0 

ADD 

*4,R1 

ASL 

RO 

DEC 

R1 

BGT 

406$ 

CLR 

TEMP7 

M0V8 

R0,TEMP7 

ERRPT$ 

NMSG13,MSG0UT 

MOV 

#1,R0 

CLR 

R1 

BISB 

$BFR+D$DELU,R1 

BEQ 

408$ 

ASL 

RO 

DEC 

R1 

BGl 

407$ 

CLR 

TEMP2 

M0V8 

R0,TEMP2 

CLR 

TEMP3 

M0V6 

$BFR+D$LST,TEMP3 

CLR 

iEMP4 

MOVE 

$BFR+D$1PL,TEMP4 

ERRPT$ 

NMG13A,MSG0UT 

407$: 


408$: 


;  DISPLAV  ROUTING  TYPE 

410$:   ERRPT$  .MMSG8,MSG0UT 

■  DISPLAY  RECEIVE/TRANSMIT  PASSWORDS 


READ  DECNET  HOME  BLOCK 
STORE  MAX  HOPS  FOR  DISPLAY 
STORE  MAX  VISITS 

DISPLAY  MESSAGE 


read  decnet  hame  block  if  f 
copy  segment  size 
if  not  default  -  branch 
calculate  default 

Init  location 

copy  retransmit  factor 

init  location 

copy  incoming  timer 

init  location 

copy  outgoing  timer 

init  location 

copy  inactivity  timer 

INIT  REG 

COPY  DELAY  FACTOR 

CALCULATE  ACTUAL  VALUE 


INIT  LOCATION 

COPY  ACTUAL  DELAY  FACTOR  VALUE 

DISPLAY  :XECUTOR  INFO 

SET   UP  REG 

IMT   REG 

COPY  DELAY  WEIGHT 

IF  ZERO  -  BRANCH 

CALCULATE  ACTUAL  DELAY  WEIGHT 


INIT  LOCATION 

COPY  ACTUAL  DELAY  WEIGHT 

INIT  LOCATION 

COPY  LINK  SERVICE  THRESHOLD 

INIT  LOCATION 

COPY  INPUT  PACKET  LIMITER 

DISPLAY  MORE  EXECUTOR  INFO 


DISPLAY  ROUTING  TYPE 


VDIS  -  VNP  SHOW  COMMANDS 
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2316 

.SBTTL 

DMXACD  -  Display  X25- 

ACCESS  destinations 

2317 

+ 

2318 
2319 
'320 

*** 

DMXACD  - 

Display  X25-ACCESS  des 

ti nations 

INPUTS 

2321 

RQB  -  Request  Block 

2322 

2323 

OUTPUTS 

2324 

Information  displayed  on  user 

's  terminal 

2325 

- 

23'6  015760 

)MXACD 

2327  015760 

016700 

OOOOOOG 

MOV 

$PSIPT,RO 

;  GET  ADDRESS  OF  PSI  HOME  BLOCK 

2328  015764 

062700 

000004 

ADD 

*H$RDTE,RO 

;  POINT  TO  RDT  LISTHEAD 

2329  015770 

GETRV 

R0,#2 

;  READ  IN  LIS'HEAD 

2330  016006 

0$: 

CALL 

NXTRD! 

;  GET  NEXT  REMOTE  DESTINATION  BLOCK 

2331  016012 

103512 

BCS 

50$ 

;  BR  IF  END  OF  LIST 

2332  016014 

2333 

2334  016022 

052767 

000004 

163552 

BIS 

#F. END, FLAGS 

;  Indicate  destination  found 

012700 

000002G 

MOV 

#R$NAM+$BFR,RO 

;  POINT  TO  RDT  NAME 

2335  016026 

012701 

001034' 

MOV 

#TE.MP1,R1 

;  POINT  TO  TEMPORARy  BUFFER 

2336  016032 

012702 

000006 

MOV 

#6,R2 

;  NUMBER  OF  BYTES  IN  RDT  NAME 

2337  016036 

112021 

20$: 

M0V8 

(R0)+,(R1)t 
R2,20i 

;  STORE  RDT  NAME 

2338  016040 

SOB 

2339  016044 

122741 

000040 

30$: 

CMP8 

#SPACE,-(R1) 

;  BACKUP  OVER  SPACES 

2340  016050 

001775 

BEO 

30$ 

2341  016052 

105061 

000001 

CLRB 

KRI) 

;  CREATE  ASCIZ  STRING 

2342  016056 

2343 

2344  016066 

ERRPT$ 

ACMSI.MSGOUT 

;  DISPLAY  RDT  NAME 

1 16702 

0000 i3G 

hOVB 

$BFR+R$DAL ,R2 

;  GET  NUMBER  OF  DIGITS  IN  DTE  ADDRESS 

2345  016072 

012^01 

000014G 

MOV 

*$BFfi+R$DTE,R1 

;  POINT  TO  DTE  ADDRESS 

2346  016076 

012703 

001034' 

MOV 

*TEMP1,R3 

;  POINT  TO  TEMPORARY  BUFFER 

2347  016102 

CALL 

BCDASC 

;  CONVERT  DTE  ADDRESS  TO  ASCIZ 

2348  016106 

005767 

OOOOOOG 

TST 

R$0WNt$BFH 

;  IS  SCOPE  GLOBAL? 

2349  016112 

001445 

BEQ 

40$ 

;  BR  IF  YES 

2350  016''14 

SWTCHI 

#TEMP2 

;  USE  TEMP2  AS  TEMP  INPUT  BUFFER 

2351  016^22 

012701 

001062' 

MOV 

*TEMP2,R1 
R$OWNt$BFR,#U.LEN 

;  GET  ADDRESS  OF  TEMP  INPUT  BUFFER 

2352  016126 

GETRV 

;  READ  IN  UCB 

2353  016146 

116167 

000006 

163050 

MOVB 

U.UNIT(R1),TEMP4 

;  SAVi:  UNIT  NUMBER 

2354  016154 

GETRV 

U.DCB(R1),*D.LEN 

;  READ  IN  DCB 

2355  016174 

016167 

000004 

163000 

MOV 

D.NAM(R1),TEMP3 

;  SAVE  DEVICE  NAME 

2356  016202 

105067 

162777 

CLRB 

TEMP3+3 

;  CREATE  ASCIZ  STRING 

2''57  016206 

Sv'TTHI 

;  $8FR  IS  INPUT  BUFFER 

2358  0^6214 

ERRPT$ 

ACMS2A,MSG0UT 

;  DISPLAY  SCOPE  AND  DTE  ADDRESS 

2359  016224 

2360 

2561  016226 

00C670 

BR 

10$ 

;  GET  NEXT  RDT 

40$: 

ERRPT$ 

ACMS2B,MSG0UT 

;  DISPLAY  SCOPE  AND  DTE  ADDRESS 

2362  016236 
2363 

2364  016240 

000663 

BR 

10$ 

;  GET  NEXT  RDT 

132767 

000004 

163326 

50$: 

BITS 

#F.FND, FLAGS 

;  WAS  AN  RDT  FOUND? 

2365  016246 

001015 

BNE 

70$ 

;  BR  IF  YES  -  DONE 

2366  016250 

032767 

000200 

OOOOOOG 

BIT 

#0P$D5T,$0PT0N 

;  SHOW  SPECIFIC  RDT? 

2367  016256 

001005 

BNE 

60$ 

;  BR  IF  YES 

236S  016260 

ERRPT$ 

NO  NFO.MSGOUT 

;  ELSE  DISPLAY  NO  INFORMATION  MESSAGE 

2369  016270 

000404 

BR 

70$ 

;  AND  EXIT 

2370  016272 

60$: 

ERRPT$ 

ACMS3,MSG(jJT 

;  ROT  NOl  IN  SYSTEM 

2371  016302 

70$: 

RETURN 

2372 

; 

[TD001] 

[TDOon 

[TD001J 

[TDOOi: 

[TD001J 
[TDOOl] 
CTD001] 

CTDOOi: 

[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
♦  ♦-1 


; [TDOOl] 
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2836 
2837 

.SBTTL 

DMX5S  -  SHOW  MODULE  X25-i 

tKVtK 

2838 
2839 

28A0 

+ 

DMX5S 

-  SHOW 

MODULE  X25-SERVER 

2841 

28A2 

INPUTS: 

28A3 

RQ6  -  ADDRESS  OF  REQUEST  BLOCK 

28AA 

28A5 

OUTPUTS: 

28A6 

INFORMATION  DISPLACED  ON  USER'S  TERMINAL 

28A7 
28A8 
28A9  021762 

012700 

055A30 

)MX5S: 

MOV 

#*RNW,RC 

GET  NW'S  PROCESS  NAME 

2850  021766 

CALL 

FNDPDV 

LOOK  FOR  PDV 

2851  021772 

10300A 

BCC 

10$ 

BR  IF  FOUND  IT 

2852  021 77A 

2853 

285A  022OOA 

ERRPT$ 

X5ER1,$ER0UT 

DISPLAY  ERROR  MESSAGE 

032767 

002200 

OOOOOOG 

OS: 

BIT 

#OP$DSTIOP$l<;DS,$OPTON 

DESTINATION  QUALIFIER  SPECIFIED? 

2855  022012 

001A05 

BED 

20$ 

BR  IF  NO 

2856  02201A 

012700 

000012 

MOV 

#H$DST,RO 

POINT  TO  OFFSET  INTO  HOME 

BLOCK 

2857  022020 

CALL 

DMDST 

DISPLAY  DESTINATION  INFO 

2858  02202A 

2859 

2860  022026 

OO0A76 

BR 

60$ 

EXIT 

20$: 

SAVRG 

<R0> 

SAVE  PDV  ADDRESS 

2861  022030 

012701 

001062' 

MOV 

*TFMP3,R1 

STORAGE  FOR  STATE  STRING 

2862  02203A 

012700 

000077' 

MOV 

#OFF,RO 

ASSUME  STATE  IS  OFF 

2863  0220AO 

012702 

00102A' 

MOV 

#NTINAM,R2 

GET  NTINIT  NAME 

286A  0220A4 

CALL 

TSKSCH 

GET  TCB  ADDRESS 

28o5  C22O50 

103A31 

BCS 

A0$ 

BR  IF  NOT  INSTALLED 

2866  022052 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#VF.SS,$VFLAG 

IS  THIS  AN  RSX11S  SYSTEM? 

2867  022060 

001A0A 

BEO 

30$ 

BR  IF  NO 

2868 
2869 

.IF  NDF 

R$$MPL 

CMPOI] 

2R7C  022062 

032767 

002000 

C'j003AG 

BIT 

*T2.FXD,T.ST2+$BFR 

IS  TASK  FIXED? 

2871  022070 

001A21 

BEQ 

40$ 

BR  IF  NO 

2872 

.ENDC 

[MP01] 

2873  022072 

0C5767 

000012G 

30$: 

TST 

T.RCVLt$BFR 

ANY  PACKETS  QUEUED? 

2874  022076 

001A16 

BEO 

40$ 

BR  IF  NO 

2875 
2876 

.IF  DF 

R$$MPL 

CMP01] 

2877 

GETAD 

*1 40000, *RCVLNG,T.RCVLt$8fR 

[MP01] 

2878 
2879 

.IFF 

CMP01] 

2880  022100 

GETRV 

T.iL'/Lt$BFR,#RCiLNG 

READ  IN  PACKET 

2881 

7882 

.ENDC 

[MP01] 

2883  022120 

032767 

OOOAOO 

000006G 

BIT 

*LS.CX5,LR.ST3•^6  +  $BFR 

•  IS  X25-SERVER  STATE  ON  QUEUED? 

288A  022126 

001AC2 

BEQ 

40$ 

■  BR  IF  NO 

2885  022130 

012700 

000064' 

MOV 

#ON,R0 

■  ELSE  STATE  IS  ON 

2886  0221 3A 

112021 

A0$: 

M0V8 

(R0)  +  ,(R1)*- 

•  STORE  STATE  STRING 

2887  022136 

001376 

BNE 

40$ 

;  ... 

2888  022U0 

RESRG 

<R0> 

;  RESTORE  RO 

2889  0221A2 

016001 

OOOOOOG 

MOV 

Z.DAT(R0),R1 

•  GET  LINE  TABLE  ADDRESS 

2890  022'A6 

005067 

OOOOOOG 

CLR 

$R8LC< 

;  ASSUME  LINE  ^ABLE  NOT  IN 

DSR 

2811  :2'152 

022701 

120000 

CMP 

#120000, R1 

;  IS  LINE  TABLE  IN  PROCESS 

SPACE 

1 

2892  022156 

101003 

BHI 

50$ 

;  BR  IF  NO 

VDIS  -  VNP  SHOW  COMMANDS 
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VDIS  -  VNP   SHOW   COMMANDS 
NXTL'.N  -  GET    NEXT   i  INE 

3A03 
3A0A 
3A05 
3406 
3A07 
3408 
3409 
3410 
3411 
34 1: 
3413 
3414 
3415 
3415 
3417 
3418 
3419 
34?0 
3421 

3422  025120     000261 

3423  025122  005303 
34^4  025124  002406 
34..5  : 251 26  012500 

3426  Oc^;'0  116001   000002 

3427  02:.  :-  066701   OOOOOOG 

3428  025140  011101 

3429  025142 
3430 


B  5 

MACRO  V05.03b  Monday  15-Jul-85  12:14  Page  47 


.SBTT'_  NXTLIM  -  GET  NEXT  LINf 


NXTLIN  -  GET  NEXT  ^INE 

INPUTS: 

R3  =  NUMhER  OF  SLT'S  REMAINING  TC  SCAN 
R5  =  ADDRESS  OF  ?LT  OF  LINE 

OUTPUTS: 

RO  =  SLT  ADDRESS 

R1  =  adoresj  of  DDM  PDV 

R5  =  ADDRESS  OF  SLT  OF  NEXT  LINE  iN  SYSTEM 
ALL  OTHER  REGISTERS  ARE  PRESERVED 


NXTLIN:  SEC 

DEC 

R3 

BLT 

10$ 

MOV 

(R5)t,R0 

MOVB 

L.DDMCRO) 

ADD 

SPDVTA.Rl 

MOV 

(R1),R1 

,R1 


ASSUME  ERROR 

DECREMENT  COUNT  OF  NUMBER  OF  SLT'S 

BR  IF  NO  MORE 

GET  SLT  ADDRESS 

GET  DDM  PDV  INDEX 

POINT  INTO  PDV  INDEX  TABLE 

GET  ADDRESS  OF  DDM  PDV 


10$: 


RETURN 
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VDIS  -  VNP  SHOW  COMMANDS 
DISCIR  -  DISPLAY  CIRCUIT 


592A 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
393h 
3939 
3940 
3941 
3^42 
3943 
3944 
3945 
3946 
3947 
3948 

3949  030042 

3950  030056 

3951  030060 

3952  030062 

3953  030072 

3954  030076 

3955  030102 
3956 

3957 
3958 

3959  030106 

3960  030112 

3961  030122 

3962  030126 

3963  030132 
3964 

3965 
3966 

3967  030136 

3968  030^42 

3969  030150 

3970  030152 

3971  030156 

3972  030160 

3973  030162 

3974  030166 
3975 

3976 
3977 

3978  030172 

3979  C3C176 
398C  030202 
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.SBTTL      DISCIR   -   DISPLAY    CIRCUIT    INFORMATION 

h 

DISCIR  -  DISPLAY  CIRCUIT  INFORMATION 

INPUTS: 

RO  =  CIRCUIT'S  SLT  ADDRESS 
R1  =  CIRCUIT'S  DD^'  PDV  ADDRESS 
R2  =  IF  MULTIPOINT  CIRCUIT  - 
TRI8  NUMBER 
IF  NOT  MULTIPOINT  CIRCUIT  - 
NO  MEANING 
R3  =  NUMBER  OF  SLT'S  REMAING  TO  SCAN 
R4  =  0  PRINT  HEADER  INFORMATION  ALONG  WITH  CI.^CUIT  INFORMATION 

ELSE,  PRINT  ONLY  CIRCUIT  INFORMATION 
R5  =  ADDRESS  OF  MULTIPOINT  FLAG  TABLE  IF  R2  IS  POSITIVE 

OUTPUTS: 

CIRCUIT  INFORMATION  IS  DISPLAYED  ON  USER'S  TERMINAL 

ALL  REGISTERS  ARE  PRESERVED 


005704 
001012 

016600  000012 

016601  000010 

016602  000006 


016600  000012 

016601  000010 

016602  000006 


116003  000015 

032760  000400  000000 

001006 

105760  000014 

001403 

011604 

116403  000001 

110367  150642 


012705  001062' 
012704  000641' 
026127  OOOOOOG  015355 


DISCIR: 


SAVRG  <R0,rtl,R2,R3,R4,R5> 

TST  R4 

BNE  10$ 

ERRPTS  CMSGI,MSGOUT 

MOV  12(SP),R0 

MOV  10(SP),R1 

MOV  6(SP),R2 


DISPLAY  CIRCUIT-ID 


0$:     CALL 

ERRPTS 
MOV 
MOV 
MOV 

GET  THE  COST 


M0V8 

SIT 

BNE 

TST8 

BEQ 

MOV 

MOVB 

MOVO 


FMTCIR 

CMSG2,MSG0UT 

12(SP),R0 

10(SP),R1 

6(SP),R2 


L.COST(R0),R3 

#LF.6RO,L.FLG(R0) 

20$ 

L.NSTA(RO) 

20$ 

CSP),R4 

S.C0ST(R4),R3 

R3, TEMPI 


20$: 


GET  CIRCUIT  TY^E 

50$:    MOV  #T£r,P2,R5 

MOV  #LX25,R4 

CMP  Z.NAM(R1),#''RDLM 


SAVE  R0-R5 

DISPLAY  HEADER? 

BR  IF  NO 

DISPLAY  HEADER  MESSAGE 

RESTORE  RO 

RESTORE  Rl 

RESTORE  R2 


CREATE  THE  CIRCUIT-ID 
DISPLAY  THE  CIRCUIT-ID 
RESTORE  RO 
RESTORE  Rl 
RESTORE  R2 


ASSUME  COST  =  CIRCUIT  COST 

ETHERNET  CIRCUIT  ? 

IF  YES  -  BRANCH 

MULTIPOINT  CIRCUIT? 

BR  IF  NO 

GET  MULTIPOINT  FLAG  TABLE 

GET  TRIBUTARY  COST 

GET  COST  FOR  DISPLAY  MESSAGE 


STORAGE  FOR  CIRCUIT  TYPE 
ASSUME  X25  CIRCUIT 
IS  THIS  DLM? 
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VOIS  -  VNP  SHOW  rc  1ANDS 
FMTL'.M  -  FO'^'^AT  Lii-,_-![) 

4555 
A55A 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 

4569  034 -;66 

4570  034176     005003 

4571  054200     032761 

4572  034206     001401 

4573  034210     005203 

4574  034212     016101 

4575  034216     012700 

4576  034222 

4577  034226  124027 

4578  054232  001775 

4579  034234  005200 
4580 
458: 
4582 

4583  034236  112720 

4584  034242  016601 

4585  034246  116101 
4536  054252  012702 

4587  034256 

4588  034262     005703 

4589  03',264     001412 
4590 
4591 
4592 

4593  034266  112720 

4594  034272  016601 

4595  034276  116101 

4596  054302  "12702 

4597  (134306 

4598  054312  016601 

4599  054316  112^10 

4600  034522 

4601  034552 
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.SBTTL  FMTLIN  -  FORMAT  LIWE-ID 

h 

FMTLIN  -  FORMAT  A  LINE-ID 

INPUTS: 

RO  ■■  SLT  ADDRESS 
R1  =  ADDRESS  OF  PDV 

OUTPUTS: 

TEMP5  =  CONTAINS  ASCII  LINE-ID 

ALL  REGISTERS  PRESERVED 


OOOOOOG  OOOOOOG 


OOOOOOG 
001202' 


0000 ',0 


000055 
000006 
000012 
014012 


000055 
000006 
000015 
014012 

000006 
000000 


FMTLIN 

SAVRG 
CLR 

<R0,R1,R2,R3>          ; 
R5 

BIT 

*ZF.MUX,Z.FLG(R1) 

BEO 

10$ 

INC 

R5 

10$: 

MOV 

Z.NAM(R1),R1 

MOV 

#TEMP3,R0             ; 

CALL 

$C5TA                ; 

20$: 

CMPB 

-(RO),#SPACE           ; 

BEQ 

20$ 

INC 

RO 

;  CONTROLLER  NUMBER 

MOVB 

#DASH,(RO)r 

MOV 

6(SP),R1 

MOVB 

L.CTL(R1),R1 

MOV 

*«5*4000>:10.>,R2 

CALL 

$C8TA 

TST 

R5 

BEO 

50i 

;  UNIT 

NUMBER 

MOVB 

#DASH,(R0)+ 

MOV 

6(SP),R1 

MOVB 

L.UNT(R1),R1 

MOV 

*<;3*4000>'10.>,R2 

CALL 

$C8TA 

50$: 

MOV 

6(SP),R1 

MOVB 

#0,(R0) 

RESRG 

<R5,R2,R1,R0> 

RETURN 


SAVE  REGISTERS 

ASSUME  NOT  A  MUX  DEVICE 

IS  IT  A  MUX  DEVICE? 

BR  IF  NO 

REMEMBER  IT 

GET  DDM  PROCESS  NAME 

STORAGE  FOR  LINE-ID 

CONVERT  NAME  TO  ASCII 

DELETE  TRAILING  SPACES 

POINT  PAST  LAST  GOOD  CHARACTER 


INSERT  DELIMITER 

GET  SLT  ADDRESS 

GET  CONTROLLER  NUMBER 

USE  BASE  10.  -  FIELD  WIDTH  3 

CONVERT  TO  ASCII 

IS  THIS  A  MUX  DEVICE? 

BR  IF  NO 


ELSE,  INSERT  DELIMITER 

GET  aT  ADDRESS 

GET  lNIIT  NUMBER 

USE  BASE  ;0.  -  FIELD  WIDTH 

CONVERT  TO  ASCII 

GET  SLT  ADDRSSS 

CREATE  ASCIZ  STRING 

RESTORE  REGISTERS 
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VDIS  - 

VNP  SHOW  COMMANDS 

MACRO  V05 

03b  Monday  15 

B  8 
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S/mbol 

table 

AALL 

0001 55R 

CMSG9 

0325A6R 

DSMS1 

0233A0R 

D$IPL 

000051 

E$NBS 

000020 

ACMS1 

016320R 

COMMA  = 

00005A 

DSM310 

0^4050R 

D$LID 

000020 

ESNCR 

00003A 

ACMS2A 

016374R 

CSPEC 

00G!)57R 

DSMS11 

02A076R 

DSLNAM 

000006 

E$NCS 

000036 

ACMS2B 

016AAAR 

CUNDEC 

035300R 

DSMS12 

02A122R 

D$LNK 

000000 

E$NIC 

OOOOAA 

ACMS3 

016520R 

CVTDEV 

0052UR 

DSMS2A 

023A06R 

DSLNUM 

OOOOIA 

ESNLEN 

000050 

ACNS1 

017I60R 

CVTnEX 

001575R 

DSMS2B 

023A56R 

D$LST 

0O0OA7 

ESNLLA 

000012 

ACNS? 

017202R 

CSDTE 

000012 

DSMS2C 

02352AR 

DSMAXC 

00006A 

ESNLNK 

000000 

AI.NS3 

017224R 

C$FLG 

000015 

DSMS3 

023576R 

D$MAXH 

000066 

E$NML 

OOOOAO 

ACNSA 

^17252R 

CSGNAM 

000016 

DSMSA 

023622R 

DSMAXV 

000070 

E$NMR 

00002A 

ACMS5 

017276R 

C$LCN 

000010 

DSMS5 

023652R 

D$MLL 

OOOOAO 

ESNMS 

000030 

ACNS6 

0173A6R 

CSLEN 

000016 

DSMS6 

02370AR 

DSMNOD 

0000A1 

ESNNOD 

000002 

ACNS7 

017352R 

C$LNK 

000000 

DSMS7 

0237A2R 

0$NA 

000062 

E$NRT 

0000A2 

AERRl 

003126R 

CSNAM 

000002 

0SMS8 

02A006R 

OSNAM 

OOOOOA 

ESNRTP 

000005 

AERR2 

003162R 

C$NML 

000002 

DSMS9 

02A026R 

DSNBEA 

000056 

ESNSEG 

000010 

AKNOWN 

000151R 

CtPORT 

OOOOU 

0TMS1 

021000R 

DSNBRA 

000C5A 

ESNTTM 

0000A6 

AMSG1 

026322R 

C$$CKP= 

000000 

DTMS2 

021070R 

D$NEND= 

00005A 

ESNUSE 

OOOOOA 

AMSG2 

026352R 

C$$ORE= 

OOOAOO 

DTMS3 

02112AR 

0$NLN 

000030 

ESSTRT 

000006 

AMSG3 

026A2Art 

C$$RSH= 

17756A 

DV.CCL= 

000002 

D$NN 

000060 

E$$XPR= 

000000 

AMSGA 

026506R 

DASH  = 

000055 

DV.COM= 

020000 

D$NOD 

000010 

FF.ADD= 

000020 

ARAMSK= 

*«»»«*  GX 

DEFAUL 

00011  OR 

DV.DIR= 

000010 

D$08J 

000003 

FF.CIR= 

OOOOAO 

ASPEC 

000157R 

DF.CRC= 

000010 

DV.EXT= 

OOOAOO 

DSOUTT 

0OOOA3 

F'=.CON= 

000001 

A$$CHK= 

000000 

DF.FOC= 

000020 

DV.F11= 

OAOOOO 

D$PAL 

000026 

FF.FIL= 

000002 

AS$CP5= 

000000 

DF.PAN= 

OOOOAO 

DV.ISP= 

002000 

0$PR1 

000002 

fF.HST= 

OAOOOO 

AS$PRI= 

000000 

DF.UNK= 

000100 

DV.MBC= 

OOOAOO 

DIPRL 

00002A 

FF.LIN= 

000010 

AS$TRP= 

000000 

DISABL 

000507R 

DV.MNT= 

1C0000 

OSRETF 

000050 

FF.MOD= 

000100 

A.ACC 

000020 

DISALI 

025666R 

DV.MSD= 

000100 

D$RNN 

000002 

FF.MON= 

OOOOOA 

A.LNK 

000000 

DISCIR 

0300A2R 

DV.OSP= 

OOAOOO 

DSRTMR 

000076 

FF.MSK= 

000077 

A.NAM 

000002 

DlSclH 

03307AR 

DV.PSE= 

010000 

D$SEG 

000036 

FF.PRT= 

000200 

A.  PUD 

000010 

DISLOO 

027630R 

DV.REC= 

000001 

D$SER 

000032 

FF.QUL= 

000370 

A. REM 

0C0012 

DISNOD 

026726R 

OV.SDI= 

000020 

0$SHI 

000020 

FF.REM= 

100000 

A.UCB 

OUOOIO 

DISOBJ 

0251AAR 

DV.SQD^ 

OOOOAO 

DSSLO 

000016 

FLAGS 

00157AR 

BCDASC 

035A6AR 

r:spRO 

026516R 

DV.SWL= 

001000 

DSSQRL 

000052 

FMTCIR 

03A33AR 

BF.TRC= 

OOOOOA 

UlSPVC 

032602R 

DV.rTy= 

OOOOOA 

D$USL 

000025 

FMTLIN 

03A166R 

BITNUM= 

00120AR 

DLOEVT 

005700R 

DV.UMD= 

000200 

D$VBL 

000032 

FNDADD 

007276R 

BLDLIN 

006500R 

DLONAM 

0OA756R 

D$ACL 

000027 

D$$BUG= 

17751A 

FNDBLK 

02A620R 

BLDMSK 

006366R 

DLOSN< 

005360R 

DIAMXC 

000072 

D$$ISK= 

000000 

FNDPDV 

0351A0R 

BLDNOD 

006735R 

DLOSTA 

00A716R 

DSAMXH 

00007^. 

D$$L11= 

000001 

FNDUCB 

035212R 

BROAD 

000652R 

DLOTYP 

00A600R 

D$ANN 

OOOOuU 

D$$YNC= 

000000 

F$$LVL= 

000001 

CACTIV 

000520R 

DMDST 

0223A2R 

DSBRPR 

000102 

D$$YNM^ 

000000 

F.ADD 

000016 

CF$BLK= 

000102 

DMDTE 

020520R 

DSBRTM 

000100 

D.DSP 

000012 

F.CEV 

000030 

CHARAC 

00001 7R 

DMGRP 

021226R 

DSCUGL 

000025 

3.LEN  = 

000036 

F.CIR 

00002A 

CHKBIT 

007230R 

DMXAC 

01f72AR 

DSCUGN 

000022 

D.LNK 

000000 

F.CLS 

000002 

CHKSNIv 

00'^236R 

DMXACD 

C15760R 

DSDAIL 

000030 

D.MSK 

OOOOU 

F.EVT 

OOOOOA 

CIERR1 

C15156R 

DMXACN 

016562R 

DSDELF 

000OA5 

D.NIAM 

OOOOOA 

F.FLG 

OOOOIA 

C KNOWN 

0005A0R 

DMXPR 

01735AR 

DSDELW 

O0OOA6 

D.PC6 

00003A 

F.fND  = 

OOOOOA 

CKPREV 

0071  7AR 

DMX5S 

0?1762R 

D$DSL 

000022 

D.UCB 

000002 

F.LEN 

000016 

CKTYPE 

02A5AAR 

DMX9S 

02A226R 

DSDST 

000010 

D.UCSL 

000010 

F.LIN 

000020 

CKTYP1 

02A530R 

DNMSG1 

027352R 

OSDTEL 

000031 

D.UNIT 

000006 

F.LNK 

000000 

CMSG1 

032170R 

DNMSG2 

027366R 

D$END  = 

OOOIOA 

D.VCAN= 

000002 

F.MOD 

000022 

CMSCn 

032572R 

DNMSG3 

027A06R 

D$FLEN 

000032 

D.VDE8= 

177776 

F.PREV= 

OC0002 

CMSG12 

032600R 

DNMSGA 

027A32R 

DSFNB 

00003A 

D.VIN!^ 

000000 

F.REM 

000026 

CMSG2 

032220R 

DNMSG5 

027A56R 

D$GLEN 

000032 

D.VOUT= 

OOOOOA 

F.RSIZ= 

**♦*««  GX 

CM5GA 

C3227AR 

DNMSG6 

027502R 

D$GVBL 

000032 

D.VPWF= 

000006 

F.SEV 

OOOOOA 

CMSG5 

0323AAR 

DNMSG7 

02752AR 

DSHIOR 

00002A 

ENABLE 

000A77R 

F.STRT= 

000001 

C(1SG6 

032A06R 

DNMSG8 

027552R 

DSHOST 

000022 

EVENT 

OOOOOOR 

F.URBD= 

••**•♦  GX 

CMSG/ 

032A32R 

DNMSG9 

027576R 

DSINAC 

OOOOAA 

EVTMSK= 

00103AR 

GCLASS= 

OOIOAAR 

fMsG8 

032506R 

DNMS10 

027620R 

D$INCr 

0OOOA2 

ESNBR 

OOOOIA 

GEVMSK= 

001^A6R 
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CREF       OA.OO 


SYMBOL     VALUE 


LN.LLO 

LN.DUM 

lN.lOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REf 

LN.SER 

LN.STA 

LNJ.SUB 

LN.TRI 

LOACTV 

LOGON 

L0ERR1 

L0ERR2 

LOriL 

LOGIN 

LOGTYP 

LOKNWN 

LOMON 

L0MSC1 

LOi^SG? 

L0MSG3 

LOMSGA 

L0MSG5 

L0MSG6 

L0MSG7 

L0MS3A 

L0MS3X 

L0MS3Y 

LONOEV 

LOSPEC 

LO.ADD 

LO.ADR 

LO.CLS 

LO.CON 

LO.COP 

LO.COS 

LO.CSR 

LO.CTL 

LO.DES 

LO.DTE 

LO.EVT 

LO.GRO 

LO.HOS 

LO.HTM 

LO.INA 

LO.INC 

LO.LDT 


=  000000 
=  000005 
-  OOOCOA 
=  000005 
=  000003 
=  000001 
=  000000 
=   000004 
=  00  00'! 
=  U00002 
=  000002 
=   000017 
=  C00360 
=  000006 
000256  R 
000340  R 
OOA552  R 
004576  R 
000333  R 
000120  R 


001676 

000275 

000323 

004102 

0C4126 

004174 

004432   R 

004440  R 

004464   R 

004512  R 

004412  R 

00425^    R 

004332  R 

000350  R 

000313  R 

000022 

000052 

000002 

000006 

000010 

000020 

000010 

000032 

000002 

000047 

000004 

000024 

000040 

000032 

C00062 

000060 

000045 


REFERENCES 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#6-167 

#6-176 

12-666 

12-680 
#6-175 
#6-138 
#6-273 
#6-168 
#6-174 

12-698 
#12-764 
#12-767 
#12-780 

12-750 
#12-786 
#12-789 
#12-777 
#12-770 
#12-773 
#6-1/8 
#6-169 
#5-99 
#5-99 
#5-99 
#5-99 
#5-99 
#5-99 
#5-99 
#5-99 
#5-99 
#5-99 
#5-99 
#5-99 
#5-99 
#5-99 
#5-99 
#5-90 
#5-9^ 


12-693 

13-824 

#12-792 

#12-795 

13-828 

48-3493 

12-690 

12-695 

13-820 

#12-761 

14-864 

19-1170 
#12-783 
13-839 
15-930 

18-1061 
18-107' 
19-1121 
12-688 


5-99 

5-99 

36-2713 

38-2820 


36-2711 


32-2406 


36-2715 


41-3137 
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SVMBOL  CROSS  REFERENCE 
SYMBOL   VALUE 


SPOVNM 
SPDVTA 

SPFLAG 

SF'SIPT 

$QUAL 

SRADDR 


$RRLC^ 

SRDBNM 

SRDBSZ 

SRDBTH 

SRSIZE 

S5AVAL 

tSAVR'i 

SSDBNM 

SSLTMA 

$.1  TNM 

STIOUT 

STYPE 

SVFLAG 

i$ 


GX 
GX 

GX 

GX 

GX 

GX 


»«♦  GX 


****** 
****** 


****** 


177777 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

«n-5061 
11-575 
11-57A 
55-^444 
27-1952 
54-4341 
27-1946 
42-3166 
9-389 
13-830 
28-2163 
*10-461 
•26-1605 
•27-2091 
•37-2767 
•49-3578 
•53-4262 
•62-4853 
•34-2566 
•53-4079 
8-357 
8-357 
8-357 
•12-727 
54-4333 
18-1015 
8-353 
21-1227 
27-1927 
66-5003 
43-3217 
12-673 
6-236 
#8-352 
8-362 
10-547 
#r-640 
#12-764 
12-772 
12-779 
#12-785 
#12-792 
26-18"3 
26-1839 
#26-1845 
26-1852 
#26-1856 
#26-1863 
26-1871 
26-1877 
#26-1884 
26-1889 


41-3135 
61-4815 
21-1231 
61-4814 
27-2005 

27-2000 

10-466 
26-1442 
28-2199 
•18-1023 
•26-1630 
•31-2329 
•39-2880 
•53-4021 
•55-4473 

•34-2569 
•53-4259 

26-1716 

•12-728 
66-5000 
44-3276 

27-1926 
28-2159 

43-3221 
26-1527 
6-2^6 

#8-353 
8-362 

#10-547 

#11-641 
12-766 
12-772 

#12-779 

#12-786 
12-794 
26-18:^ 

#26-1839 

#26-1846 
26-1852 

#26-1857 
26-1865 
26-1871 

#26-1877 
26-1885 

:r.'6-1889 
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CREF   04.00 


46-3395  47-3427    52-3905    53-4116  53-4246  55-4428 

33-2426    34-2546  38-2821  40-2938  40-3028  41-3138 

31-2327    33-2428    34-2545  35-2633  37-2739  40-2925 

11-577    11-579    12-686    12-691     12-702    12-748 

27-1929    27-1931    27-2026  ,  27-2033  27-2042  28-2161 

•22-1308  •25-1397  •25-1408  •26-1439  ^26-1484  •26-1524 

•26-1706  ^26-171.  •26-1762  •26-1763  *27-1949  -27-2003 

•31-2354  ^33-2430  ^34-2553  *34-2570  *35-2635  *37-2741 

♦40-2926  ^42-3168  *42-3180  •44-3280  *45-3364  •49-3577 

•53-4049  *53-4053  •53-4080  ^53-4084  ^53-4208  ^53-4258 

•59-4733  •59-4743  *59-4749  ^60-4778  ^60-4782  ^62-4848 

•79-2890   •39-2893  •53-4015  •53-4020  •53-4043  *53-4048  *53-4074 


12-729 


42-3173 

35-2661 
61-4827 
27-2094 

27-2088 

;0-470 
26-1447 
28-2206 
•22-1298 
•26-1684 
•31-2352 
•39-2894 
•53-4025 
•58-4682 


28-2158 
53-4194 

43-3224 
26-1543 
#6-236 
8-355 
#8-362 
#10-548 
12-760 
12-766 
#12-772 
#12-780 
12-788 
12-794 
#26-1833 
#26-1840 
26-184d 
#26-1852 
26-1859 
26-1865 
#26-1871 
#26-1878 
26-1885 
26-1890 


35-2658 


39-2866 
#6-237 

8-355 
#8-363 

10-550 

12-760 
#12-766 
#12-773 

12-782 

12-788 
#12-794 
#26-1834 

26-1842 

26-1848 
#26-1853 

26-1859 
#26-1865 
#26-1872 

26-188C 
#26-1885 

26-1890 


52-3901 


59-4718 
8-351 
#8-355 
9-434 
10-550 
#12-760 
#12-767 
12-776 
12-782 
#12-788 
#12-795 
26-1836 
26-1842 
#26-1848 
26-1855 
#26-1859 
#26-1866 
26-1874 
26-1880 
26-1886 
"26-1890 


53-4251 


8-351 

8-356 

9-434 
#10-550 
#12-761 

12-769 

12-776 
#12-782 
#12-789 

26-1830 

26-1836 
#26-1842 
#26-1849 

26-1855 
#26-1860 

26-1868 

26-1874 
#26-1880 

26-1886 
#26-1891 


#8-351 
8-356 
#9-434 
#10-551 
12-763 
12-769 
#12-776 
#12-783 
12-791 
26-1830 
#26-1836 
#26-1843 
26-1851 
#26-1855 
26-1862 
26-1868 
#26-1874 
#26-1881 
#26-1886 
26-1893 


8-352 
#8-356 
#9-435 
11-640 
12-763 
#12-769 
#12-777 
12-785 
12-791 
#26-1830 
#26-1837 
26-1845 
26-1851 
26-1856 
26-1862 
#26-1868 
#26-1875 
26-1884 
#26-1887 
26-1893 


8-352 
#8-357 
10-547 
11-640 
#12-763 
#12-770 
12-779 
12-785 
#12-791 
#26-1831 
26-1839 
26-1845 
#26-1851 
26-1856 
#26-1862 
#26-1869 
26-1877 
26-'' 884 
26-1889 
#26-1893 
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LOCAL  DATA 


115 

.SBTTL 

LOCAL  DATA 

1U 

115  000000 

.PSECT 

DATA.D 

116 
117 
118  000000 

054154 

005310 

ACPNAM: 

.RAD50 

/NETACP/ 

119  000004 

115445 

003510 

X25NAM: 

.RAD50 

/X25ACP/ 

120  000010 

055251 

054574 

NT  I  NAM. 

.RAD50 

/NTINIT/ 

121  00001A 

055251 

054574 

NTI11S. 

.RAD50 

/NTINIT/ 

122  000020 

021265 

055254  057550  DEFFIL 

.RAD50 

/EVENTLOG/ 

123  000026 

075273 

DEFTYP. 

.RAD50 

/SYS/ 

124  000030 

000000 

DEFVER 

.WORD 

0 

125  000032 

114 

102 

DEFDEV 

.ASCII 

/LB/ 

126  00005A 

000000 

OEFUNT 

.UORD 

0 

127  000036 

006 

001 

DEFUIC 

.BYTE 

6,1 

128 

000020 

FILLEN 

=  .-DEFFIL 

129  OOOOAO 

051646 

131574 

DEFMON 

.RAD50 

/MON.../ 

130  000044 

103 

117 

DEFCON 

.ASCII 

/CO/ 

131  000046 

000000 

.WORD 

132 

000050 

DF.LEN 

=  .-DEFFIL 

135  000050 

CLKQB: 

.BLKB 

C.LGTH 

134 

000001 

TICKS 

= 

135 

000001 

SEP 

= 

136  000070 

CHAN: 

.BLKW 

137  000072 

PDVX: 

.BLKW 

158  OOOu.H 

CLASS: 

.BLKW 

139  000076 

TMPMSK 

.BlKW 

140  000106 

GMASK: 

.BLKW 

141  000116 

GCLASS 

.BLKW 

1'.2  000120 

EVQUAL 

.BLKW 

143  000122 

PLBFLG 

.BLKB 

144  000123 

LCLFLG 

.BLKB 

145  000124 

SNAPX: 

.BLKB 

146  000125 

DLXPX: 

.BLKB 

147 

.EVEN 

148  0C0126 

000000 

SERFLG 

.WORD 

149  000130 

SINKND 

.BLKW 

150  000152 

REMOTE 

.BLKW 

151  000154 

FILNAM 

.BLKW 

5 

152  000142 

FILTVP 

.BLKW 

153  000144 

FILVER 

.BLKW 

154  000146 

FILDEV 

.BLKW 

155  000150 

FILUNT 

.BLKW 

156  000152 

FILUIC 

.BLKW 

157  000154 

MONNAM 

.BLKW 

2 

158  000160 

CONNAM 

■  .BLKW 

2 

159  000164 

CURUNM 

•  .BLKW 

160  000166 

PRVUNM 

•  .BLKW 

161  000170 

FLTBUF 

■  .BLKB 

F.CEVMO 

162 
163 
164 
165 
166  000230 

.EVEN 

;  SINK 

TVPE  TABLE  (USED  FC 

000001 

SNKTYP 

:  .WORD 

FF.CON 

167  000252 

000002 

.WORD 

ff.^:l 

168  000234 

000004 

.WORD 

FF.TiON 

169  000236 

000000 

.WORD 

0 

IF  US  NAME  IS  DIFFERENT,  USE  IT  HERE 

DEFAULT  FILE  NAME 

DEFAULT  FILE  TYPE 

DEFAULT  VERSION  NUMBER 

DEFAULT  DEVICE  NAME 

DEFAULT  UNIT  NUMBER 

DEFAULT  UIC 

LENGTH  OF  DEFAULT  ,  ILE  NAME 

DEFAULT  MONITOR  NAME 

DEFAULT  CONSOLE  NAME 

LENGTH  OF  ALL  OF  DEFAULT  NAMES  FOR  EVENT  LOGGING 

CLOCK  QUEUE  ENTRY  BUFFER 

NUMBER  OF  TICKS  TO  WAIT  FOR  NTINIT  TO  RUN 

SERVICE  FLAG 

CHANNEL  NUMBER 

PDV  INDEX 

EVENT  CLASS 

TEMPORARY  STORAGE  FOR  EVENT  MASKS 

GLOBAL  EVENT  MASK 

GLOBAL  EVENT  CLASS 

EVENT  FILTER  BLOCK  QUALFIER  FLAGS 

PLB  FLAG,  =1  IF  PLB  DATA  BASE  IS  PRESENT 

Local  state  flag,  used  in  ALPLB 

SNA  PDV  index,  used  in  SVENA 

DLX  PDV  index,  used  in  SVENA 

CIRCUIT  SERVICE  FLAG  WORD 

SINK  NODE  ADDRESS  FOR  EVENT  LOGGING 

REMOTE  NODE  ADDRESS  FOR  EVENT  LOGGING 

FILE  NAME  (RAD50) 

FILE  TYPE  (RAD50) 

VERSin-g  NUMBER  (BINARY) 

DEVICE  NAME  (ASCII) 

DEVICE  UNIT  NUMBER  (BINARY) 

UIC  (BINARY) 

MONITOR  NAME  (RAD50) 

CONSOLE  NAME  (ASCII  AND  BINARY) 

UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 

UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK  IN  LIST 

STORAGE  FOR  EVENT  FILTER  BLOCK 


CONSOLE  SINK  TYPE 
FILE  SINK  TYPE 
MONITOR  SINK  ^ypE 
END  OF  TABLE 
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649 
650 
651 
652 
655 
654 
655 
656 
657 
658 
659 
660 
661 
662 
665 
664 


.S8TTL   $VDEA  -  SET  DEAD  POLLING  RATE 

•»-$VDEA-SET  DEAD  POLLING  RATIO  FOR  A  LINE 

THIS  ROUTINE  IS  CALLED  TO  CHANGE  THE  DEAD  POLLING  RATE 
FOR  A  LINE. 

INPUTS: 


CO 


665  00 

666  CO 

667  00 
668 

669  00 

670  00 

671  00 

672  - 


1450 

1450  016701 

1454  052761 

U42  001412 


31444 

31450     105406 

31452  001412 
._  .J1454  116767 
675  001462 

31466 


001 


OOOOOOG 
OOOOOOG  OOOOOOG 


0C0024G  000047G 


SSLTA  =  SLT  ADDRESS 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 


$VDEA:; 


674  001 
675 
676 
677 

678  00 

679  00 


1470 
1500 


MOV     $SLTA,R1 

BIT     #LF.MTP,L.FLG(R1) 

BEQ     101$ 

10$: 

CALL    FNDIIN 

8CS     10$ 

BEQ     102$ 

MOVB    RQ8tL0.MDE,$8FRtL.PLD 

PUTAD 

RETURN 

;  ERROR 

CONDITIONS 

iOIS: 
102$: 

ERRPT$  ERR51,$ER0UT 
ERRPTS  ERR54,$EROUT 

GET  SLT  ADDRESS 

IS  THIS  A  MULTI-POINT  LINE  ? 

IF  EQ,  NO  -  PARAMETER  NOT  APPLICABLE 

FIND  THE  DCP  LINE  TABLE 
IF  CS,  ERROR  DETECTED 
IF  EQ,  NO  LINE  TABLE 
SET  THE  NEW  POLLING  RATE 
WRITE  BACK  THE  LINE  TABLE 
BACK  TO  USER  STATE 


LP'E  IS  NOT  MULTIPOINT 

INVALID  PARAMETER,  MULTIPOINT  DEAD 
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1156 

1157 

1158 

1159 

1160 

1161 

1162 

116? 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

117;; 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 


003460 
003460 
003464 
003466 
003466 
003472 
003476 


003500 
003506 
003510 


003512 
003520 
003522 
003530 
003532 
003540 
003542 
003550 

003552 
003556 
003560 
003562 
003564 
003566 
003570 
003574 
003576 
003600 
003602 
003604 
003606 
003610 
0C3612 
003614 
003616 


♦*•  -  $SNOD  -  PROCESS  SE1  NODE  REQUESTS 
<•*  -  SCNOD  -  PROCESS  CLEAR  NODE  REQUESTS 

INPUTS: 

SOPTON  =  OPTIONS  SELECTED 

OUTPUTS: 

NONE. 

REGISTERS: 

ALL  REGISTERS  OESTROVED. 


012705 
000402 

012705 

001005 


032767 
001045 
000420 


032767 
001040 
032767 
001034 
032767 
001404 
032767 
001024 

016704 
000241 
006004 
103006 
010446 
010546 

012605 
012604 
005725 
001406 
005715 
002002 
006004 
005725 
005704 
001360 


003660' 
003714' 

000044  OOOOOOG 


$SNOD: 

SCNOD: 
5$: 


.ENABLE  LS8 


MOV 
BR 

MOV 

CALL 

BNE 


#SNODT8,R5 
5$ 


#CNODTE 

CHKEXE 

10$ 


,R5 


CHECK  FOR  INVALID  EXECUTOR  OPTIONS 

BIT     #OP$NAM10P$LNE,$OPTON 
BNE     101$ 
BR      20$ 


GET  ADDRESS  OF  SET  NODE  TABLE 
AND  CONTINUE 

GET  ADDRESS  OF  CLEAR  NODE  TABLE 
I?  l.    EXECUTOR  NODE  ? 
IF  Nb,  M 


WAS  NODE  NAME  OR  LINE  ID  SPECIFIED 
IF  NE,  VES  ..  INVALID  OPTION(S) 
ELSE,  CONTINUE 


CHECK  FOR  INVALID  NODE  OPTIONS 


017400  OOOOOOG  10$: 

000171  OOOOOOG 

000040  OOOOOOG 

000004  OOOOOOG 


OOOOOOG 


20$: 
30$: 


40$: 


45$: 


BIT 
BNE 
BIT 
BNE 
BIT 
BEQ 
BIT 
BNE 

MOV 

CLC 

ROfi 

BCC 

MOV 

MOV 

CALL 

MOV 

MOV 

TST 

BEQ 

TST 

BGE 

ROR 

TST 

TST 

BNE 


#0P$INC10P$0UT.'0P$INAI0P$RET!0P$SEG,$0PT0N  ;  ILLEGAL  OPTION 
101$  ;  IF  YES  -  BRANCH 

*OP$HOS:OP$RPA!OP$TPAiOP$VERIOP$EST,$OPTON  ;  ILLEGAL  OPTION 


101$ 

#0P$LNE,$0PT0N 

20$ 

#0P$NAM,$OPTON 

101$ 

$0PT0N,R4 

R4 

40$ 

R4,-CSP) 

R5,-(SP> 

51(R5) 

(SP)+,R5 

(SP)t,R4 

(R5)  + 

50$ 

(R5) 

45$ 

R4 

(R5)  + 

R4 

30$ 


IF  NE,  YES  ..  INVALID  OPTION 

WAS  LINE  ID  SPECIFIED  ? 

IF  EQ,  NO  ..  OKAY 

ELSE,  MAKE  SURE  NAME  NOT  PRESENT  I 

IF  NE,  NAME  PRESENT  ALSO  ..  ERROR 

GET  OPTIONS  WORD 

MAKE  SURE  CARRY  IS  CLEAR 

GET  NEXT  OPTION 

IF  CC,  NOT  PRESENT 

SAVE  R4 

SAVE  R5 

ELSE,  EXECUTE  REQUEST 

RESTORE  R5 

RESTORE  R4 

SKIP  TO  NEXT  REQUEST 

IF  EQ,  END  OF  TABLE 

CHECK  FOR  MINUS 

IF  NO  -  BRANCH 

SKIP  ONE  BIT 

SHIP  TO  NEXT  REQUEST 

ANY  MORE  ? 

IF  NE,  YES 
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1724 
1725 
1726 
1727 
1728 
1729 
1730 
-731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1759 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 


.SBTTL   CLRBIT  -  CLEAR  LOOPBACK  BIT 

♦»-CLR8IT-CLEAR  LOOPBACK  BIT 

INPUTS. 

R2  =  CHANNEL  NO. 


OUTPUTS; 

C-8IT 
R2,R3 


005724 
005724 
005730 
005732 
005735 
0057^0 
005746 
005750 
005752 
005754 
005756 
005762 
005770 
0057:^2 


CLRBIT: 


105420 
105762 
001004 
042762 
000411 
006303 
006503 
060302 
062702 
142762 
000241 


OOOOOOG 
OOOOOOG  OOOOOOG 


10J 


OOOOOOG 
OOOOOOG  OOOOOOG 


20S: 


CALL 

BCS 

TSTB 

BNE 

BIC 

BR 

ASL 

ASL 

ADD 

ADD 

BIC8 

CLC 

RETURN 


SUCCESS/FAILURE 
DESTROYED 


GTSLT 

20$ 

L.NSTA(R2) 

10$ 

#LF.LPB,L.FLG(R2) 

20$ 

R5 

R3 

R3,R2 

#L.MPF,R2 

*SF.LPB,S.FLG(R2) 


GET  SLT  ADDRESS 

IF  CS,  NO  XPT 

IS  THIS  LINE  MULTIPOINT  ? 

IF  NE,  YES 

ELSE,  CLEAR  THE  LOOP  BACK  BIT 

AND  RETURN 

POINT  TO  STATION  INFO  IN  SLT 


AND  CLEAR  THE  LOOPBACK  BIT 
INDICATE  SUCCESS 
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2287 
2288 

2289 

229C 

2291 

2292 

2293 

229A 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2502 

2303 

230^ 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

23U 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

23A1 

2342 

2343 


011012 

011012  012701 

011016  032767 

011024  001115 


011026  032767 

011034  001402 

011036  000167 

011042  032767 

011050  001004 
011052 

0n062 

011066  103002 

011070  000167 

011074  010103 

011076  016704 

011102  012701 

011106  062701 

011112  112102 

011114  060201 

011116  112102 

011120  060201 

011122  112:02 

011124  060201 

011126  162701 

011132  010146 


.S8TTL   SVALI  -  SE1/CLEAR  ALIAS 
\ 
*♦•  -  SVALI  -  SET/CLEAR  ALIAS 

INPUTS: 

SOPTON  =  OPTIONS  WORD 
REQUEST  BLOCK  CONTAINS  DATA 

OUTPUTS: 

NONE. 


000002G 
OOOOOOG  OOOOOOG 


SVALI:: 


.ENABL   LS8 


MOV 
BIT 
BNE 


*RQ8+LR.ALI,R1 
#CMSSET,SCMAND 
20s 


000006  OOOOOOG 

000672 

000001  OOOOOOG 


000574 


CLEAR  REQUEST 

BIT 
BEQ 
JMP 


OOOOOOG 
OOOOOOG 
000020 


OOOOOOG 


#QF$ALLIQFSKNO,SQUAL 

3$ 

VALJ 

3S:     BIT  #OP$SCO, SOPTON 

BNE  4S 

ERRPTS  ERR26,$EROUT 

4S:     CALL  SFNALI 

BCC  REMALI 

JMP  101$ 

REMALI:  MOV  R1  ,R3 

MOv'  SBFR,R4 

MOV  *SBFR,R1 

ADD  #A.ACC,R1 

M0V8  (Rl)t,R2 

ADD  R2,R1 

MOVB  (R1)+,R2 

ADD  R2,R1 

MOVB  (R1)+,R2 

ADD  R2,R1 

SUB  #S8FR,R1 

MOV  R1,-(SP) 


01M54  0267C3  OOOOOOG 

011140  001Q37 

011142 
011150 
011170 

011176  010467  OOOOOOG 


GET  THE  ALIAS  NAME  STRING 
IS  THIS  A  SET  COMMAND  ? 
IF  NE,  YES 


IS  THIS  FOR  KNOWN  OR  ALL  NODES  ? 
IF  EQ,  NO  ..  CONTINUE 
ELSE,  REMOVE  THOSE  ALIASES 

WAS  THE  SCOPE  GIVEN  ? 

IF  NE,  YES  ..  OKAY 

ELSE,  SCOPE  PARAMETER  MISSING 

TRY  TO  FIND  THE  ALIAS 
IF  CC,  FOUND  ..  OKAY 
ELSE,  ERROR 

SAVE  ADDRESS  OF  PREVIOUS  ENTRY 
SAVE  ADDRESS  OF  NEXT  ENTRY 
POINT  AT  START  OF  BUFFER 
POINT  TO  ACCOUNTING  INFO. 
GET  LENGTH  OF  FIELD 
POINT  TO  NEXT  FIELD 
GET  LENGTH  OF  FIELD 
POINT  TO  NEXT  FIELD 
GET  LENGTH  OF  LAST  FIELD 
POINT  TO  END  OF  ALIAS  BLOCK 
CALCULATE  LENGTH  OF  ALIAS  BLOCK 
SAVE  LENGTH  OF  BLOCK 


REMOVE  ENTRY 

FROM  LIST 

CMP 

$DECPT,R3 

;  IS  PREVIOUS  ALIAS  THE  LISTHEAD  ? 
;  DSANN  IF  FIRST  WORD  OF  HOME  BLOCK 

BNE 

10$ 

;  IF  NE,  NO 

SWTCHI 

#$HM8UF 

;  USE  TEMPORARY  BUFFER 

GETRV 

$DECPT,/,3$END 

;  READ  DECNET  HOME  BLOCK 

-WTCHI 

;  RESET  TEMPORATY  BUFFER 

MOV 

R4,$HMBUFtD$ANN 

;  ELSE,  SET  NEW  NEXT 

C  15 
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2841  013274 

020500 

CMP 

R5.R0 

ii6$ 

END  OF  STRING? 

2842  013275 

101530 

BL03 

BR  IF  YES 

2843  013300 

122710 

000133 

CMPB 

*'[,(R0) 

WAS  A  UK  SPECIFIED? 

2844  013304 

001017 

BNE 

50$ 

BR  IF  NO 

2845  013306 

005200 

INC 

RO 

POINT  PAST  LEFT  BRACKET 

2846  013310 

CALL 

$C0TB 

CONVERT  USER  GROUP  CODE 

2847  Orj14 

022702 

000054 

CMP 

120i 

SUCCESSFUL  CONVERSION? 

2848  01j320 

001121 

BNE 

BR  IF  NO 

2849  013322 

110167 

000153' 

MOVS 

Rl.flLUICtI 

STORE  USlR  group  CODE 

2850  013326 

CALL 

$C0T8 

CONVERT  USER  MEMBER  CODE 

2851  013332 

022702 

0001:  - 

CMP 

#'],R2 

SUCCESSFUL  CONVERSION? 

2852  013336 

001112 

BNE 

120$ 

BR  IF  NO 

2853  013340 

2854 

2855 

110167 

000152' 

M0V8 

Ri.FILUlC 

STORE  USER  MEMBER  CODE 

•  CHECK  FILE 

NAME 

2856 

2857  013344 

020500 

50$:     CMP 

R5,R0 

END  OF  STRING? 

2858  CI  3346 

101504 

BLOS 

110$ 

BR  IF  YES 

2859  013350 

122720 

000056 

CMPB 

#'.,(RO)t 

ANY  FILE  NAME  SPECIFIED? 

2^50  013354 

001437 

BEQ 

80$ 

BR  IF  NO 

2861  013356 

C05300 

DEC 

RO 

POINT  TO  BEGINNING  OF  FILE  NAME 

2862  013360 

012704 

000134' 

MOV 

*FUNAM,R4 

POINT  TO  FILE  NAME  SAVE  AREA 

2863  013364 

005014 

CLR 

(R4) 

INITIALIZE  MLE  NAME 

2864  013366 

005064 

000002 

CLR 

2(R4) 

2865  013372 

005064 

000004 

CLR 

4fR4) 

•  ■  • 

2866  013376 

012703 

000003 

MOV 

#MXFILN,R3 

MAXIMUM  NUMBER  OF  WORDS  FOR  FILE  NAME 

2867  013402 

005001 

60$:    CLR 

Rl 

PERIOD  NOT  VALID 

2868  013404 

CALL 

$CAT5 

CONVERT  NAME  TO  RAD50 

2869  013410 

103011 

BCC 

70$ 

BR  IF  SUCCESSFUL  CONVERSION 

2870  013412 

020500 

CMP 

R5,R0 

END  OF  STRING? 

2871  013414 

101405 

BLOS 

65$ 

BR  IF  YES 

2872  013416 

020227 

000056 

CMP 

R2,#'. 
126$ 

VALID  TERMINATOR? 

2873  0''3422 

001060 

BNE 

BR  IF  NO 

2874  013424 

010124 

MOV 

R1,(R4)t 

STORE  FILE  NAME 

2875  013426 

000412 

BR 

80$ 

NOW  CHECK  FILE  TYPE 

2876  013430 

010124 

65$:    MOV 

R1,(R4)t 
116$ 

STORE  FILE  NAME 

2877  013432 

000452 

BR 

AND  EXIT 

2878  013434 

010124 

70$:    MOV 

R1,(fi4)t 

STORE  FILE  NAME 

2879  013436 

005303 

DEC 

R3 

MORE  TO  CONVERT? 

2880  013440 

003360 

BGT 

60$ 

BR  IF  YES 

2881  013442 

020500 

CMP 

R5.R0 
110$ 

END  OF  STRING? 

2882  013444 

101445 

BLOS 

BR  IF  YES 

2883  013446 

1220:/ 

000056 

CMPB 

(R0)+,*' . 

■  VALID  TERMINATOR? 

2?84  013452 

001044 

BNE 

120$ 

■  BR  IF  NO  -  TOO  MANY  CHARACTERS 

2885 
2886 

•  CHECK  FILE 

TYPE 

2887 

2888  013454 

020500 

S0$:    CMP 

R5,R0 
116$ 

•  END  OF  STRING? 

2889  013456 

101440 

BLOS 

■  BR  IF  YES 

2890  013460 

122720 

000073 

CMPB 

*'■  (RO)t 

■  ANY  FILE  TYPE  SPECIFIED? 

2891  013464 

001424 

BEQ 

106$ 

;  BR  IF  NO 

2892  013466 

005300 

DEC 

RO 

;  POINT  TO  START  OF  FILE  TYPE  STRING 

2893  CI  3470 

005301 

CLR 

Rl 

;  PERIODS  NOT  VALID 

2894  013472 

CALL 

$CAT5 

;  CONVERT  TO  RAD50 

2895  013476 

103010 

BCC 

90$ 

;  BR  IF  SUCCESS 

2896  013500 

020500 

CMP 

R5.R0 
90§ 

;  END  OF  STRING? 

2897  013502 

101406 

BLOS 

;  BR  IF  YES 
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VDIS  -  VNP  SHOW  COMMANDS 
BLDl^SK  -  BUILD  EVENT  MASK 

1175 
1174 
1175 
"176 
1177 
1178 
1179 
1180 
1181 
1182 
1181 
118A 
1185 
1186 
1187 
11S8 

1189  006366     016767     172454 

1190  006374     016767     172450 

1191  006402     016767     172444 

1192  006410     016767     172440 

1193  006416     046367     000030 

1194  006424     046367     000032 

1195  006432     046367     000034 

1196  006440     046367     000036 

1197  006446     056367     000004 

1198  006454     056367     000006 

1199  006462     056367     000010 

1200  006470     056367     000012 

1201  006476 
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.SBTTL  BLDMSK  -  BUILD  EVENT  MASK 


BLDHSK  -  BUILD  EVENT  MASK  FOR  A  FILTER  BLOCK  WITH  A  QUALIFIER  WHICH 
HAS  A  GLOBAL  FILTER  BLOCK  ASSOCIATED  WITH  IT 

INPUTS: 


R3  -  ADDRESS  OF  FILTER  BLOCK 

OUTPUTS: 

EVTMSK  -  EVENT  MASK 

R3  -  ADDRESS  OF  FILTER  BLOCK 


172440 
172434 
172430 
172424 
172410 
172404 
172400 
172374 
172360 
172354 
172350 
172344 


BLDMSK: 


MOV 
MOV 
MOV 
MOV 
BIC 
BIC 
BIC 
BIC 
BIS 
BIS 
BIS 
BIS 
RETURN 


GEVMSK 
GEVMSK 
GEVMSK 
GEVMSK 
F.CEV+ 
F.CEV+ 
F.CEV+ 
F.CEV+ 
F.SEVt 
F.SEV+ 
F.SEVt 
F.SEVt 


+0,EVTMSK+0 

t2,EVTMSK+2 

+4,EVTMSK+4 

+6,EVTMSK+6 

0(R3),EVTMSK+0 

2(R3),EVTMSK+2 

4(R?),EVTMSK+4 

6(R3),EVTMSK+6 

0(R3),EVTMSK+0 

2(R3),EVTMSKt2 

4(R3),EVTMSK+4 

6(R3),EVTMSK+6 


SAVE    GLOBAL   FILTER   MASKS 


LEAR   OUT    CLEAR   EVENT   MASKS 


SET   EVENTS   FROM   SET   EVENT  MASKS 


VDIS   -  VNP   SHOW  COMMANDS 
BLDLIN  -  BUILD   LINE   ENTITY 
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VDIS  -  VNP  SHOW  COMMANDS 
$DNOD  -  SHOW  NODE 
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DM) 


1758 

011512 

012700 

114224 

MOV 

#*RXPT,RO 

GET    XPT'S   PDV  ADDRESS 

1759 

011516 

CALL 

FNDPDV 

.    .    . 

1760 

011522 

103445 

BCS 

450$ 

BR    IF    NONE 

1761 

011524 

SWTCHI 

SET   DEFAULT   BUFFER    ($BFR) 

1762 

011532 

GETRV 

Z.DAT(RO),#N$XLEN 

GET   XPT'S   DATA  BASE 

1765 

011552 

GETRV 

N$VER+2t$BFR,*V$LEN 

GET   PASSWORD   DESCRIPTOR 

176A 

011572 

052767 

100000 

OOOOOOG 

BIT 

#VF$RCV,V$FLG+$BfR 

RECEIVE   PASSWORD   VALID? 

1765 

011600 

001404 

REQ 

420$ 

BR    IF   NO 

1766 

011602 

ERRPT$ 

NMSG9,MSG0UT 

ELSE,    DISPLAY  RECEIVE    PASSWORD 

1767 

011612 

052767 

040000 

OOOCOOG  420$: 

BIT 

*VF$XMT,V$FLGt$BFR 

TRANSMIT   PASSWORD   VALID? 

176S 

011620 

C01404 

BEQ 

450$ 

BR    IF   NO 

1769 
1770 
1771 

011622 

ERRPT$ 

NMSG10,MSGOUT 

ELSE,    DISPLAY    TRANSMIT   PASSWORD 

DISPL. 

AY   VERIFICATION   STATE 

1772 
1773 

011652 

012701 

001062' 

450$: 

MOV 

#TEMP2,R1 

STORAGE   FOR   VERIFICATION  STATE    STRING 

177i 

011656 

012700 

000064' 

MOV 

#ON,R0 

ASSUME    IT   IS   ON 

1775 

011642 

CALL 

FNDUCB 

GET   UCB   FOR  NS:    DEVICE 

1776 

011646 

032767 

100000 

000014G 

BIT 

*NF$ACC,$BFR+U.CW5 

IS    IT  ON? 

1777 

011654 

001002 

BNE 

440$ 

BR    IF    YES 

1778 

011656 

012700 

000077' 

MOV 

#aFF,R0 

ELSE,    GET  OFF    STRING 

1779 

011662 

112021 

440$: 

MOVB 

(R0)'-,(R1)  + 

STORE   VERIFICATION   STATE   STRING 

1780 

011664 

001376 

BNE 

440$ 

1781 

011666 

ERRPT$ 

NMSGIl.MSGOUT 

dIsPLAY   VERIFICATION   STATE 

1782 

011676 

000452 

BR 

520$ 

FINISHED 

1785 

178A 
1785 
1786 

SHOW 

LOOP  NODES 

011700 

012700 

000576' 

450$: 

MOV 

*NLOOP,R0 

LOOP   TYPE    COMMAND 

1787 

011704 

112021 

460$: 

MOVB 

(R0)+,(R1)+ 

•    STORE    TYPE    STRING 

1788 

011706 

001576 

BNE 

460$ 

1789 
1790 
1791 

011710 

005004 

CLR 

R4 

Indicate  header  to  be  printed 

011712 

470$: 

CALL 

NXTBLK 

•    read    in  next   remote   name   BLOCK 

1792 

011716 

105415 

BCS 

490$ 

•    BR    IF    end   of    list 

1793 

011720 

305765 

000012 

TST 

R.FLAG(R3) 

•    IS    THIS   A  LOOPBACK  NODE? 

179^ 

011724 

100372 

BPL 

470$ 

•    BR    IF   NO 

1795 

011726 

005704 

TST 

R4 

•    DISPLAY  HEADER? 

1796 

01 1 750 

001004 

BNE 

480$ 

■    BR    IF   NO 

1797 

011732 

ERRPT$ 

NMSGI.MSGOUT 

■    DISPLAY   HEADER 

1798 

011742 

480$: 

CALL 

DiSLOO 

•    DISPLAY   LOOPBACK   NODE    INFORMATION 

1799 

011746 

005204 

INC 

R4 

:    INDICATE   HEADER   ALREADY   PRINTED 

1800 

011750 

000760 

BR 

470$ 

;    GET   NEXT   NAME   BLOCK 

1801 

011752 

005704 

490$: 

TST 

R4 

;    ANY    INFO  DISPLAYED? 

1802 

011754 

001423 

BEQ 

520$ 

;    BR    IF    NO 

1803 

011756 

000416 

BR 

510$ 

1804 
1805 
1806 
1807 
1808 

;    SHOW 

DLX   EXECUTOR    INFORMATION 

;        FIRST   -  "EXECUTOR   NODE" 

1809 
1810 
I8i1 
18V 

011^60 

^00$: 

ERR°T$ 

NMSG14,MSG0UT 

;    DISPLAY   "EXECUTOR   NODE" 

•        flND   S'UE 

OF    EXECUTOR   Ai'.'D   DISPLAY 

1815 

314   011770 


GEi'   STATE 


VDi:  -  VNP   SHOW  COMMANDS 
WNOC   -   SHOW  NODE 
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VD 
NX 


vc:'  -  VNP 

DMXACD  -  D 

2573 
237A 

2375  CI 

2376  01 
2377 

2378  01 

2379  01 
2380 

2381  01 

2382  01 
2383 

2384  01 

2385  01 
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I'splay  X25-ACCESS  destinations 


or 


MESSAGES 


650A 
6316 

632A 
6372 

6A42 

6450 
6516 


ERMSGS  <  Name  =  *:A> 

ER8LK$  ACMS1,<TEMP1> 

ERMSGS  <    DTE  =  %A,  Scoqp  -  Terminal  XAXQ:XH> 

ER8LK$  ACMS2A,<TEMP1 ,TEMP3,TEMP4> 

ERMSGS  <    DT'i  =  M,  Scope  =  ulobaii!fJ> 

ER8I.K$  ACMS2B,  •TEMP1> 

ERMSGS  <    Remote  destination  ret  in  system/(N> 

ER8LKS  AIMS3 


VDIS  -  VNP  SHOW  COMMANDS 
NXTRD^  -  Get  next  RDT  block 
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7DIS  -  VNP   SHOW  COMHA^JDS 
DMX5S   -  SHOW  TODULE   X25-SERVER 


MACRO  V05.03b  Monday  15-Jul-85 


2893  022160 
289A  022166 

2895  02220A 

2896  022212 

2897  022222 
2»af> 

2899 
2900 

2901  02222A 

2902  022262 
2903 

2904 
2905 

2906  022266 

2907  022332 


('16067 
016767 


OOOOOOG  OOOCOOG 
OOOOIAG  156622 


50$: 

60S: 
ERRORS 


MOV 

GETAD 

MOV 

ERRPTS 

RETURN 


C  A 

12;U  Page  39-1 


_CK 


2.DSP(R0),J.R8l 
R1,#Z$LEN 
ZSCTJMtSBFR, TEMPI 
X5MS1,MS60UT 


GET  PROCESS  MAPPING  BIAS 

READ  IN  LINE    TABLE 

GET  COUNTER  TIMER 

DISPLAY  iNfO  TO  USER'S  TERMINAL 


ERMSGS 
ERBLKS 


<  NW 

X5ER1 


process   not   in  s)'SteiiiW> 


MESSAGES 


ERMSGS 
ERSLKS 


<    Stat-  =  XA,  Counter 
X5MS1,<TEMP2,TEMb1> 


timer  =  'iFXN> 


VDIS  -  VNP  SHOW  COMMANDS       MACRO  V05.03b  Monday  15-Jiil-85 
DMDSt  -  SHOW  MODULE  X2n-SERVER  DESTINATION 
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v/DIS   -  VNP   SHOW  COMMANDS 
DISOB.'    -  DISPLAY   OBJECT    INFO 


5432 
3-'.  3  3 
343A 
3435 
3A36 
3A37 
3A38 
34^' 

3^ 

3' 

3'..,. 

3443 

3444 

3445 

3446 

3447 

3448 

3^49 

3450 

3451 

3452 

5453 

3454 

3455 

5456 

3457 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

5^65 

3466 

3467 

3468 

3469 

3470 

3471 

3472 

5473 

3474 

3475 

3476 

3477 

5478 

3479 

5480 

5481 

3482 

5485 

548'. 

54  8  s 

^486 

3487 

5488 
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12:14  Page 


025144 
025146 
C25150 


025160 
025166 


025176 
025204 


025212 
025216 
025222 
025226 
025252 
025236 
02 5 24 C 
025244 
025250 
025252 
025256 
025260 
025262 
025266 
025270 
025300 
025502 


016367 
016367 


012701 
012700 
116302 
042702 
122702 
001407 
012700 
122702 
001402 
012700 
112021 
001376 
105763 
001005 

000404 


.SBTTL  OlSObJ  -  DISPLAY  OBJECT  INFO 

D1S08J  -  DISPLAY  OBJECT  INFORMATION 

INPUTS: 

R3  =  ADDRESS  OF  OBJECT  TABLE 

R4  =  0  IF  ;1EADER  IS  TO  BE  PRINTED  ALONG  WITH  OBJECT  INFORMATION 
ELSE,  ONLY  THE  OBJECT  INFORMATION  IS  PRINTED 

IF  HEADER  IS  TO  BE  PRINTED: 

TEMPI  =  SECOND  ASCIZ  STRING  OF  HEADER  MESSAGE 
TEMP2  =  FIRST  ASCIZ  STRING  OF  HEADER  MESSAGE 

OUTPUTS: 

THE  OBJECT  INFORMATION  IS  DISPLAYED  ON  THE  USER'S  TERMINAL 


005704 
001004 


116367  000002  153646 


R3,R4,R5  ARE  PRESERVED 


DISOeJ:  TST     R4 
8NE     10$ 
ERRPTS  OMSGI.MSGOUT 


000006  155656 
000010  153652 


001034' 

000054' 

000005 

177770 

000000 


000067- 
000001 

000077' 


000002 


025512  116367  000004  155542 


■  SAVE  NUMBER  OF  COFIES 

40$:    m\B  O.MXC(R5-,TEMP2 


;  DISPLAY  OBJECT  TYPE 

10$: 

^0V8 

O.TYP(R3), TEMPI 

ERRPT$ 

0MSG2,MSG0UT 

;  SAVE 

NAME  TO 

DISPLAY 

MOV 

O.NAM(R3),TEMP2 

MOV 

O.NAM+2(R3),TEMP2t2 

•  DISPLAY  ACCESS  LEVEL  INFORMATION 

MOV 

#TEMP1,R1            ; 

MOV 

#ON,RO 

MOVB 

0.rLG(R3),R2 

BIC 

#-C<7>,R2 

CMP8 

#0F$0N,R2 

BEQ 

20$ 

MOV 

#INSPCT,RO 

CMP8 

#0F$INS,R2            ; 

BEQ 

20$ 

MOV 

#OFF,RO 

20$: 

MOVB 

(RO)t,(Rl)*- 

BNE 

20$ 

TSTB 

O.TYP(R5) 

BNE 

30$ 

ERRPT$ 

0MSG3,MSGOUT 

BR 

40$ 

30$: 

E-'?RPTi 

0MSG4,MSG0UT 

PRINT  HEADER? 
BR  IF  NO 
PRINT  HEADER 


SAVE  OBJECT  TYPE 


SAVE  RAD50  OBJECT  NAME 


GET  AREA  TO  STORE  VERIFICATION  STRING 

ASSUME  ACCESS  LEVEL  IS  ON 

GET  FLAGS  BYTE 

CLEAr^  OUT  FLAG  BITS 

IS  IT  ON? 

BR  IF  YES 

ASSUME  INSPECT 

IS  IT  INSPECT? 

BR  IF  -'ES 

MUST  &_  OFF 

STORE   -UCESS   LEVEL 

OBJECT    TYPE   0? 

BR    IF    NO 

DISPLAY  VERIFICATION 

DISPLAY  NAME  AND  VE^^IF  ICAHCM 


SAVE  NUMBER  OF  COPIED 


VDIS  -  VNP  SHOW  COMMANDS 
DISOBJ  -  DISPLAY  OBJECT  INFO 
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C  6 

VDIS  -  VNP  SHOW  COMMANDS       MACRO  V05.03b  Monday  15-Jul-85  12:14  Page  53-1 
DISCIR  -  DISPLAY  CIRCUIT  INFORMATION 


3981  030210 

001424 

BEQ 

50$ 

3982  030212 

105760 

000014 

TSTB 

L.NSTA(RO) 

3983  C50216 

001411 

BEQ 

40$ 

3984  030220 

012704 

000652' 

MOV 

#BR0AD,R4 

3985  030224 

032760 

000400  000000 

BIT 

#LF.BR0,L.FLG(R0) 

3986  050232 

001013 

BNE 

50$ 

3987  030234 

012704 

000567' 

MOV 

#LCNTRL,R4 

3988  030240 

000410 

BR 

50$ 

3989  030242 

012704 

000621' 

40$: 

MOV 

#LTR]B,R4 

3990  030246 

052760 

000020  000000 

BIT 

#LF.MTP,L.FLG(R0) 

3991  050254 

001C02 

BNE 

50$ 

5992  030256 

012704 

000605' 

MOV 

#LP0INT,R4 

3993  030262 

r2425 

50$: 

MOVB 

(R4)+,(R5)t 

3994  C3U264 

3995 

3996 

3997 

3998  050266 

001576 

BNE 

50$ 

:•  GET 

fRlBUTARY 

NUMBER 

012705 

177777 

60$: 

MOV 

#-l,R5 

3999  030272 

032760 

000020  000000 

BIT 

#LF.MTP,L.FL6(R0) 

4000  030500 

001002 

BNE 

70$ 

4001  050502 

4002 

4003 

000167 

000546 

JMP 

230$ 

';    FIND 

DDCMP  LINE  TABLE 

4004 

4005  050306 

012700 

014610 

^■OS: 

MOV 

#*RDCP,RO 

4006  030312 

CALL 

FNDPDV 

4007  030316 

103464 

BCS 

150$ 

4008  030520 

016600 

000012 

MOV 

12(SP),R0 

4009  050524 

016602 

000006 

MOV 

6(SP),R2 

4010  050330 

126001 

000003 

CMPB 

L.DLC(R0),R1 

4011  050334 

001055 

BNE 

130$ 

4012  030556 

032760 

040000  000000 

BIT 

#LF.fiDY,L.FLG(RO) 

4015  050544 

001002 

BNE 

80$ 

4014  050346 

000167 

000456 

JMP 

210$ 

4015  050352 

005067 

OOOOOOG 

80$: 

CLR 

$RBLCK 

4016  050556 

005767 

OOOOOOG 

TST 

.MGMGE 

4017  050562 

100407 

BMI 

90$ 

4018  050564 

022760 

120000  000010 

TMP 

*120000,L.DLS(R0) 

4019  030372 

101003 

BHI 

90$ 

4020  030374 

016067 

000006  OOOOOOG 

MOV 

L.DLM(RO),$RBLCK 

4021  050402 

90$: 

GETAD 

L.DLS(RO),#L.ENA 

4022  C30422 

012704 

00001 2G 

MOV 

#$BFR+L.PLL,R4 

4023  030426 

011405 

100$: 

MOV 

(R4),R5 

4024  C30430 

001417 

BEQ 

130$ 

4025  030452 

110$: 

GETAD 

R5,#S.DLfF 

4C26  030450 

01^704 

OOOOOOG 

MOV 

#$BFR,R4 

4027  030454 

126402 

000035 

CMP8 

S.STLN(R4),R2 

4C23  030460 

001362 

BNE 

100$ 

4029  050462 

116703 

000054G 

120$: 

MOVB 

S.STPNt$BFR,R3 

4030  050466 

000560 

BR 

210$ 

40V 

4032 
4033 
4034  03047U 

;  FIND 

PCL  LINE 

TABLE 

012/00 

062204 

130$: 

MOV 

#'RPCL,R0 

4C35  030474 

CALL 

FNDPDV 

4036  050500 

103465 

BCS 

180$ 

'.037  030502 

016600 

000012 

MOV 

12(SP),R0 

Dp  jp  YF5 

MULTIPOINT  CIRCUIT? 

BR  IF  NO  -  BRANCH 

ASSUME  ETHERNET  DEVICE  ? 

BROADCAST  DEVICE  ? 

IF  YES  -  BRANCH 

IF  NO  -  DDCMP  MASTER 

CONTINUE 

ASSUME    TRIBUTARY 

MULTIPOINT   CIRCUIT? 

Dp  rp  ycc 

ELSE  IT  MUST  BE  POINT-TO-POINT 
STORE  CIRCUIT  TYPE  STRING 


INDICATE  NO  TRIBUTARY 
MULTI-POINT  CIRCUIT? 
BR  IF  YES 
BR  IF  NO  -  SKIP  TRIBUTARY 


GET  DCP  PROCESS  NAME 

GET  PDV  INDEX 

BR  IF  CAN'T  FIND  IT 

RETRIEVE  SLT  ADDRESS 

RETRIEVE  STATION  NUMBER 

IS  THIS  A  DDCMP  LINE? 

BR  IF  NO 

IS  THE  LINE  LOADED? 

BR  IF  YES  -  CONTINUE 

BR  IF  m   -   DON'T  DISPLAY  IT 

ASSUME  LINE  TABLE  IS  NOT  MAPPED 

MAPPED  SYSTEM? 

BR  IF  NO 

IS  THE  LINE  TABLE  MAPPED? 

BR  ir  NO 

get  line  table  bias 

read  in  line  table 

point  to  polling  listhead 

get  next  entry 

br  if  end  of  list 

read  in  tributary  station  'ables 

get  address  of  trib  station  tables 

is  this  the  tributary? 

br  if  no  -  continue  scan 

get  tributary  number 

displm,  message 


GET  PCL  FROCFSS  NAME 
GET  PDV  INDEX 
BR  If  CAN'T  FIND  IT 
RETRIED  SLT  ADDRESS 
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DISMR  -  DISPLAY  CIRCUIT  INFORMATION 


DIS  -  VNP  SHOW  COMMANDS 
FMTCIR  -  FORMAT  CIRCUIT-ID 
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4603 

.SBTT 

L   FMTCIR  -  FORMAT  CIRCUIT-I 

4604 

4605 
4606 
4607 

+ 

FMTCIR  -  FORMAT  A  CIRCUIT-ID 

4608 

4609 

INPUTS: 

4610 

RO  = 

SLT  ADDRESS 

4611 

R1  = 

ADDRESS  OF  PDV 

4612 

R2  = 

TRIRlTARY  NUMBER 

4613 

4614 

OUTPUTS: 

4615 

Tt'MP5 

=  CONTAINS  ASCII  CIRCUIT-ID 

4616 
4617 

ALL  REGISTERS  PRESERVED 

4618 

4619 
4620 
462'  034334 

- 

FMTCIR: 

SAVRG 

<R0,M,R2,R3> 

4622  034344 

005C03 

CLR 

R3 

4623  034346 

032761 

OOOOOOG 

OOOOOOG 

BIT 

*ZE.MUX,2.FLG(R1) 

4624  034354 

001401 

BEO 

10$ 

4625  034356 

005203 

INC 

R3 

4626  034360 

016101 

OOOOOOG 

10$: 

MOV 

Z.NAM(R1),R1 

4627  034364 

012700 

001202' 

MOV 

#TEMP3,R0             ; 

4628  034370 

CALL 

$C5TA 

4629  034374 

124027 

000040 

20$: 

CMPB 

-(RO),#SPACE 

4630  034400 

0017^5 

BEQ 

20$ 

4631  034402 

4632 

4633 

4634 

4635  034404 

005200 

INC 

RO                  ; 

CONTROLLER 

NUMBER 

112720 

000055 

' 

MOVB 

#DASH,tPO)+ 

4636  034410 

C16601 

000006 

MOV 

6(SP),R1             ; 

4657  034414 

116101 

000012 

MCV8 

L.CTL(R1),R1 

4638  034420 

012702 

014012 

MOV 

#«3*4000>:iO.>,R2 

4639  034424 

CALL 

$CBTA 

4640  034430 

005703 

TST 

R3 

4641  034432 

001412 

BEQ 

30$ 

4642 

4643 
4644 
4645  034434 

UNIT 

NUMBER 

112720 

000055 

MOi/8 

*DASH,(R0)t 

4646  054440 

016601 

000006 

MOV 

6(SP),H1 

4647  034444 

116101 

000013 

MOVB 

L.ijNTCRD.RI 

4648  034450 

012702 

014012 

MOV 

#«3*4000>I10.>,R2     ; 

4649  034454 

CALL 

$C8TA 

4650  034460 

4651 

4652 

4653 

4A54  034464 

016601 

000006 

30$: 

MOV 

6(SP),R1 

•  TRIBC 

^ARV 

032761 

000020 

000000 

BIT 

#lF.MTP,L.FLG(R1) 

4.55  034472 

001^14 

BEQ 

4  0'. 

46:6  034474 

105761 

000014 

TSfB 

L.NjiA(RI) 

465/  034500 

001411 

BEQ 

40$ 

4658  C34502 

01660' 

000O02 

MOV 

2tSP),R1 

4659  034506 

002406 

BLT 

40$ 

SAVE  REGISTERS 

ASSUME  NOT  A  MUX  DEVICE 

IS  IT  A  MUX  DEVICE? 

BR  IF  NO 

REMEMBER  IT 

GET  DDM  PROCESS  NAME 

STORAGE  FOR  CIRCUIT-ID 

CONVERT  NAME  TO  ASCII 

DELETE  TRAILING  SPACES 

POINf  PAST  LAST  GOOD  CHARACTER 


INSERT  DELIMITER 

GET  SLT  ADDRESS 

GET  CONTROLLER  NUMBER 

USE  BASE  10.  -  FIELD  WIDTH  3 

CONVERT  TO  ASCII 

IS  THIS  A  MUX  DEVICE? 

BR  IF  NO 


ELSE,  INSERT  DELIMITER 

GET  SLT  ADDRESS 

GET  UNIT  NUMBER 

USE  BASE  10.  -  FIELD  WIDTH  3 

CONVERT  TO  ASCII 

GET  SLT  ADDRSSS 


IS  THIS  CIRCUIT  MULTI-POINT? 

BR  IF  NO 

IS  THIS  A  SLAVE? 

BR  IF  YES 

GET  TRIBUTARY  ADDRESS 

BR  IF  MULTIPOINT  CONTROLLER 


VDlS  -   VNP    SHOW  COMMANDS 
rwiTriD    -    rnoWAT    rTDnirT-ih 
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JDIS  - 

•lUP   SHOW  COMMANDS 

MACRO  VO 

Symbol 

tab'e 

GF$BUG= 

000001 

I. OFF  = 

OOOC,.', 

GRMS' 

021536R 

K$$CNT= 

1775A6 

GRMSc 

021602R 

K$$CSR= 

1775A6 

GRMS3 

021660R 

K$$LDC= 

000000 

GRPBIL 

000750R 

<$$TPS= 

00007A 

GTEXEC 

03A5A2R 

K.CSR 

000002 

GTSTID 

034630R 

K.PRI 

000000 

GtCUG 

000010 

K.VCT 

000001 

GSDTE 

000012 

LACTIV 

C00AA1R 

GSFLG 

00001 A 

LCN'TRL 

000567R 

GSGNAM 

000016 

LDSLP  = 

000000 

G$LE^J 

000015 

LD  ALI= 

000030 

GSLNK 

000000 

LD.CEX= 

00002A 

GtNAM 

000002 

LD.C1R= 

000035 

GSNML 

000015 

LD.LIN= 

000025 

G$$TPP= 

000000 

LD.LOG= 

000031 

G$$T5S--- 

000000 

LD.MOD= 

000037 

G$$TTK=-- 

000000 

LD.NOD= 

000027 

G$SWRD= 

000000 

LD.OBJ= 

000032 

HEXASC 

035540R 

LD.PRO= 

000026 

HF$DLM= 

000002 

LE.NRH= 

000200 

HF$GWY= 

000010 

LE.NRO= 

000001 

HF$HOS= 

OOOOOA 

LE.NSH= 

000002 

HF$X[)r  = 

000020 

LE.NSO= 

000020 

HSCUG 

000010 

LE.RCO= 

OOOOAO 

HSDST 

000012 

LE.SAE^ 

OOOOCA 

H$D29 

00001 A 

LE.STT= 

000010 

H$FLG 

OOjOOO 

I.E.XTU= 

000100 

HSGLEN 

000104 

LF.ACT= 

100000 

HSGLT 

OOOOAA 

LF.BRO= 

OOOAOO 

HSGNAM 

000050 

LF.BW1= 

000007 

H$GNJML  = 

000020 

LF.ENA= 

002000 

HSGPT 

OOO0A6 

LF.LPB= 

001000 

HSHITS 

00003A 

LF.MDC= 

000100 

HSHLEN 

OOOCAA 

LF.HFL- 

OCAOOO 

HSLBDA 

000070 

LF.MIP= 

000020 

HSLBDN 

000072 

LF.PAC= 

000200 

H$LDTE 

000002 

LF.RDY= 

OAOOOO 

H$LEN 

0OO0A2 

LF.REA= 

010000 

HSLOTS 

000032 

LF.SER= 

OOOOAO 

HSNETu/ 

00u02A 

LF.TIM=: 

000010 

mmi  - 

000006 

LF.UNL= 

020000 

H$NPT 

000022 

LF.X2P= 

000000 

H$PTB 

000020 

LIERR1 

015536R 

HSPVC 

000006 

LKNOWN 

000A56R 

HtRDTE 

OOOOOA 

LLAB 

OO06A5R 

H*iRNW 

0OO0A2 

LMSG1 

033732R 

HSSVC 

000036 

LMSG12 

03A16AR 

HSIRB 

0C0016 

LMSG? 

033756R 

H$XA\/L 

000100 

LMSG3 

03A01AR 

HSXBIA 

00007A 

LMSGA 

C3A106R 

H$X?9C 

OOOOAO 

LMS65 

03A13AR 

INSPCT 

000067R 

l,MSG9 

03A156R 

IO.ATT= 

-  »♦«**«  6X 

LN$OFF= 

000001 

10.DET  = 

-  »**»*.  GX 

LNIOM  = 

000000 

i$$RAR= 

-  lOOOOO 

LN$SHU= 

000002 

:$$RD^- 

OCOOOC 

LN.CLO= 

000000 
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LN.DUM= 

LN.LOA= 

LN.L00= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE- 

LN.REF= 

LN.SER= 

LN.STA= 

LM.SUB= 

LN.TRi= 

LOACTV 

LOCON 

L0ERR1 

L0ERR2 

LOFIL 

LOGIN 

LOGTVP 

LOKNWN 

LOMON 

L0MS61 

LCMSG2 

L0MSG3 

LOMSGA 

L0MSG5 

L0MSG6 

L0MSG7 

L0MS3A 

L0MS3X 

L0MS3Y 

LONOEV 

LOSPEC 

LO.ADD 

LO.ADR 

LO.CLS 

LO.CON 

LO.COP 

LO.COS 

LO.CSR 

LO.CTL 

LO.DES 

LO.DTE 

LO.EVT 

LO.GRO 

LO.HOS 

LO.HTM 

LO.INA 

LO.INC 

LO.LDT 

LC.LID 

LO.LIN 

LO.LTM 

LO.MAC 

LO.MDE 

LO.MAM 


00C005 

OOOOOA 

000003 

000003 

000001 

000000 

OOOOOA 

000001 

000002 

000002 

000017 

000360 

000006 

000256R 

0003A0R 

00A552R 

00A576R 

i:O0333R 

O00120R 

001676R 

000275R 

000323R 

00A102R 

004126R 

U0A17AR 

00AA32R 

OOAAAOR 

004A6AR 

0Q4512R 

004412R 

004256R 

004332R 

0C0350R 

00031 3R 

000022 

000052 

000002 

000006 

000010 

000020 

000010 

000032 

000002 

000047 

000004 

000024 

OOOOAO 

000032 

000062 

000060 

000046 

000030 

OOOOOA 

000034 

000022 

000024 

000044 


L0.NE1= 

LO.NNM 

LO.OFL 

LO.ONM 

LO.OUT 

LO.OWN 

LO.PAR 

LO.PRI 

LO.RET 

LO.RPA 

LO.SCR 

LO.SEG 

LO.SKA 

LO.SKN 

LO.SNM 

LO.TPA 

LO.TRB 

LO.TRI 

LO.UNT 

LO.VCT 

LO.VER 

LPOINT 

LP$EIP= 

LP$ENB= 

LP$PCT= 

LP$TMR= 

LP$UP  = 

LP$WTD= 

LP$WTS= 

LR.ACC 

LR.ACO 

LR.ADD 

LR.ALI 

LR.BLK 

LR.CTL 

LR.DES 

LR.HLP 

LR.LIN 

LR.NAM 

LR.PAS 

LR.PRO 

LR.STS 

LR.TRI 

LR.TYP 

LR.UCB 

LR.UIC 

LR.UNT 

LSPEC 

LS$GCiN= 

LS$OFF= 

LSSSIR^ 

LSSUP  = 

LS$UT  -- 

LS.ALI= 

LS.CEX= 

LS.C1R= 

LS.CXO= 


000002 

000022 

000012 

000004 

000056 

000026 

000010 

000012 

000064 

000030 

000016 

000054 

000014 

C00014 

000035 

000020 

000034 

000030 

000033 

000014 

000042 

000605R 

002000 

004000 

001400 

1000O0 

010000 

020000 

040000 

000020 

000052 

000012 

000002 

noOOlO 

000004 

000010 

000002 

000002 

000012 

000041 

000002 

000000 

000006 

000002 

000016 

000020 

000005 

000A72R 

000004 

000000 

000002 

000003 

000001 

000016 

000001 

000033 

010000 


LS.CX5= 

LS.ECH= 

LS.FDX= 

LS.HDX= 

LS.HLP= 

LS.LIN= 

LS.LMC= 

LS.LOG= 

LS.MOD= 

LS.NIOD= 

LS.NTI= 

LS.OBJ= 

LS.OPT= 

LS.PRO= 

LS.TOP= 

LS.TST= 

LS.UNF=: 

LS.XiT-- 

LTRIB 

LX.ALI= 

LX.CEX= 

LX.CIR= 

LX.LIN= 

LX.LOG= 

LX.N0D= 

LX.0BJ= 

LX.PRO= 

LX25 

LSACHN 

LSAPVC 

LSASVC 

LSAUC 

LSCHLS 

LSCHTB 

L$CLEN= 

LSCTEN 

LSCTIM 

LSDTEA 

LSDTEL 

LSGLEN 

LSLEN 

LSLLCH 

LSLNK 

LSMCHN 

LSNETW 

LINIRE 

LSNLRE 

LSNMAC 

LSNMAS 

LSNMST 

LSNNRE 

LSNRBY 

LSNRCA 

lSNRFS 

L$NRPK 

LSNRRE 

LSNRST 


000400 

001000 

004000 

010000 

000012 

000003 

000007 

000020 

000036 

000014 

000013 

000022 

000400 

000002 

002000 

000010 

020000 

000011 

000621R 

000017 

000004 

000034 

000006 

000021 

000015 

000023 

000005 

000641R 

000012 

000014 

000010 

000042 

000034 

000030 

000044 

000032 

00C040 

000020 

000017 

000134 

000122 

C00016 

000000 

000036 

000114 

000072 

000104 

000076 

000074 

000003 

000106 

000046 

000066 

000100 

000056 

000105 

000107 
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SYMBOL    CROSS   REFERENCE  CREf        04.00 


SYMBOL 

VALUE 

REFERENCES 

LO.LID 

000030 

#5-99 

LO.LIN 

OOOOOA 

#5-99 

LO.LTM 

00003A 

#5-99 

LO.MAC 

000022 

#5-99 

LO.MOE 

000024 

#5-99 

LO.NAM 

OO00A4 

#5-99 

LO.NET 

=  000002 

#5-99 

33-2435 

LO.NNM 

000022 

#5-99 

LO.OFL 

000012 

#5-99 

LO.ONM 

000004 

#5-99 

LO.OUT 

00005t 

#5-99 

LO.OWN 

000026 

#5-99 

LO.PAR 

000010 

#5-99 

LO.PRI 

000012 

#5-99 

LO.RET 

000064 

#5-99 

LQ.RPA 

000030 

#5-99 

LD.SCR 

000016 

#5-99 

LO.SEG 

000054 

#5-99 

lO.SKA 

000014 

#5-99 

*12-681 

17-981 

LO.SKN 

000014 

#5-99 

12-675 

LO.SNM 

000035 

#5-99 

LO.TPA 

000020 

#5-99 

L0.TR8 

000034 

#5-99 

lO.TPi 

000030 

#5-99 

LO.UNT 

000033 

#5-99 

LO.VCT 

000014 

#5-99 

LO.VER 

0000i2 

#5-99 

LPOINT 

0O06u5  !' 

#6-215 

53-3992 

55-4432 

LR.ACC 

000020 

#5-99 

LR.ACO 

000052 

#5-99 

LR.ADD 

000012 

#5-99 

26-1537 

26-1552 

lr.al: 

000002 

#5-99 

10-496 

LR.BL>. 

000010 

#5-99 

LR.CTL 

000004 

#5-99 

27-2028 

28-2201 

LR.DES 

000010 

#5-99 

10-508 

LR.HLP 

000002 

#5-99 

LR.LIN 

000002 

#5-99 
28-2194 

5-99 

5-99 

LR.NAM 

00C012 

#5-99 

26-1529 

26-1531 

LR.PAS 

000041 

#5-99 

LR.PRO 

000002 

#5-99 

11-606 

LR.STS 

000000 

#5-99 

39-2883 

59-/.  737 

LR.TRI 

000006 

#5-99 

27-2043 

LR. TYP 

OOC002 

#5-99 

9-416 

LR.UCB 

000016 

#5-99 

10-508 

10-528 

LR.UIC 

000020 

#5-99 

LR.UNT 

000005 

#5-99 

27-2035 

28-2208 

LSPEC 

0004  72  R 

#6-197 

21-1219 

28-2186 

LS.ALf 

-■   000016 

#5-99 

LS.CEX 

--  000001 

#5-99 

LS.HR 

=   000035 

#5-99 

l5.(X0 

--  O^OiOO 

#5-99 

59-4737 

17-984 


26-1554 


5-90  5-99  5-99  5-99  27-2004         27-2021 

26-1533         26-1545         26-1547         26-1549 
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SYMBOL    CROSS   REFERENCE 

CREF       04. 

30 

SYMBOL      VALUE                         REFERENCES 

#26-1 89A 

26-1896 

26-1896 

#26-1896 

#26-1897 

26-1899 

26-1899 

#26-1899 

#26-1900 

26-1902 

26-1902 

#26-1902 

#26-1903 

27-2136 

27-2136 

#27-2136 

#27-2137 

28-2240 

28-2240 

#28-2240 

#28-2241 

29-2280 

29-2280 

#29-2280 

#29-2281 

31-2375 

31-2375 

*31-2375 

#31-2376 

31-2378 

31-2378 

#31-2378 

#31-2379 

31-2381 

31-2381 

#31-2381 

#31-2382 

31-2384 

31-2384 

#31-2384 

#31-2385 

33-2492 

33-2492 

#33-2492 

#33-2493 

33-2A95 

33-2495 

#33-2495 

#33-2496 

33-2498 

33-2498 

#33-2498 

#33-2499 

33-2501 

33-2501 

#33-2501 

#33-2502 

33-2504 

33-2504 

#33-2504 

#33-2505 

33-2507 

33-2507 

#33-2507 

#33-2508 

33-2510 

33-2510 

#33-2510 

#33-2511 

34-2602 

34-2602 

#34-2602 

#34-2603 

34-2607 

34-2607 

#34-2607 

#34-2608 

34-2610 

34-2610 

#34-2610 

#34-2611 

34-2613 

34-2613 

#34-2613 

#34-2614 

34-2616 

34-2616 

#34-2616 

#34-2617 

35-2678 

35-2678 

#35-2678 

#35-2679 

35-2681 

35-2681 

#35-2681 

#35-2682 

35-2684 

35-2684 

#35-2684 

#35-2685 

37-2787 

37-2787 

#37-2787 

#37-2788 

37-2790 

37-2790 

#37-2790 

#37-2791 

37-2793 

37-2793 

#37-2793 

#37-2794 

39-2901 

39-2901 

#39-2901 

#39-2902 

39-2906 

39-2906 

#39-2906 

#39-2907 

40-3070 

40-3070 

#40-3070 

#40-3071 

40-3073 

40-3073 

#40-3073 

#40-3074 

40-3076 

40-3076 

#40-3076 

#40-3077 

40-3079 

40-3079 

#40-3079 

#40-3080 

40-3082 

40-3082 

#40-3082 

#40-3083 

40-3085 

40-3085 

#40-3085 

#40-3086 

40-3088 

40-3088 

#40-3088 

#40-3089 

40-3091 

40-3091 

#40-3091 

#40-3092 

40-3094 

40-3094 

#40-3094 

#40-3095 

40-3097 

40-3097 

#40-3097 

#40-3098 

40-3100 

40-3100 

#40-3100 

#40-3101 

40-3103 

40-3103 

#40-3103 

#40-3104 

40-3106 

40-3106 

#40-3106 

#40-3107 

40-3109 

40-3109 

#40-3109 

#40-3110 

42-3189 

42-3189 

#42-3189 

#42-3190 

42-3194 

42-3194 

#42-3194 

#42-3195 

48-3512 

48-3512 

#48-3512 

#48-3513 

48-3515 

48-3515 

#48-3515 

#48-3516 

48-3518 

48-3518 

#48-3518 

#48-3519 

48-3521 

48-3521 

#48-3521 

#48-3522 

48-3525 

48-3525 

#48-3525 

#48-3526 

48-3528 

48-3528 

#48-3528 

#48-3529 

49-3657 

49-3657 

#49-3657 

#49-3658 

49-3660 

49-3660 

#49-3660 

#49-3661 

49-3663 

49-3663 

#49-3663 

#49-3664 

49-3666 

49-3666 

#49-3666 

#49-3667 

50-3723 

50-3723 

#50-3723 

#50-3724 

50-3726 

50-3726 

#50-3726 

#50-3727 

50-3729 

50-3729 

#50-3729 

#50-3730 

51-3824 

51-3824 

#51-3824 

#51-3825 

51-3827 

51-5827 

#51-3827 

#51-3828 

51-3830 

51-3830 

#51-3830 

#51-3831 

51-3833 

51-3833 

#51-5855 

#51-3834 

51-3836 

51-3836 

#51-3836 

#51-3837 

51-3839 

51-3839 

#51-3839 

#51-5840 

51-3842 

51-3842 

#51-3842 

#51-3843 

51-3845 

51-3845 

#51-3845 

#51-3846 

51-5848 

51-3848 

#51-3848 

#51-3849 

51-3851 

51-3851 

#51-3851 

#51-3852 

52-3916 

52-3916 

#52-3916 

#52-3917 

52-3919 

52-3919 

#52-3919 

#52-3920 

53-4283 

53-4283 

#53-4283 

#53-4284 

53-4286 

53-4286 

#53-4286 

#53-4287 

53-4289 

53-4289 

#53-4289 

#55-4290 

53-4292 

53-4292 

#53-4292 

#53-4293 

53-4295 

53-4295 

#53-4295 

#53-4296 

55-4298 

53-4298 

#53-4298 

#53-4299 

53-4301 

53-4301 

#55-4301 

#53-4302 

53-4304 

55-4304 

#53-4304 

#53-4305 

53-4308 

53-4308 

#53-4308 

#';3-4309 

53-4311 

53-4311 

#55-4511 

#53-4312 

54-4362 

54-4362 

#54-4362 

#54-4363 

54-4365 

54-4365 

#54-4365 

#54-4566 

54-4368 

54-4368 

#54-4368 

#54-4369 

54-4371 

54-4371 

#54-4371 

#54-4372 

55-4529 

55-4529 

#55-4529 

#55-4530 

55-4532 

55-4532 

#55-4532 

#55-4533 

55-4535 

55-4555 

#55-4535 

#55-4536 

55-'.538 

55-4538 

#55-4538 

#55-453? 

55-4541 

55-4541 

#55-4541 

»55-4342 

55-4544 

55-4544 

#55-4544 

#55-4545 

55-4547 

55-4547 

#55-4547 

#55-4548 

$i$            =   034162  R              #6-236 

6-237 

#8-351 

8-353 

#8-355 

8-357 

#8-362 

8-363 

#9-434 

9-435 

#10-547 

10-548 

#10-550 

10-551 

#11-640 

11-641 

#12-760 

12-761 

#12-763 

12-764 

#12-766 

12-767 

#12-769 

12-770 

#12-772 

12-773 

#12-776 

12-777 

#12-779 

12-780 

#12-782 

12-783 

#12-785 

12-786 

#12-788 

12-789 

#12-791 

12-792 

#12-794 

12-795 

#26-1830 

26-1831 

#26-1833 

26-1834 

#26-1856 

26-1837 

#26-1839 

26-1840 

#26-1842 

26-1843 

#26-1845 

26-1846 

#26-1848 

26-1849 

#26-1851 

26-1853 

#26-1855 

26-1857 

#26-1859 

26-1860 

#26-1862 

26-1863 

#?6-1865 

26-1866 

#26-1868 

26-1869 

#26-1871 

26-1872 

#26-1874 

26-1875 

#25-1877 

:6-1878 

#26-1880 

26-1881 

#2o-lot;^ 

26-1887 

#26-1889 

26-1391 

#26-1893 

26-1894 

#26-1896 

26-1897 

#26-1899 

26-1900 

#26-1902 

26-1903 

#27-2136 

27-2137 

#28-2240 

2G-2241 

#29-2280 

29-2281 

#31-2375 

31-2376 

#31-2378 

31-2379 

#31-2381 

31-2382 

#31-2384 
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171 
172 
173 
17A 
175 
176 
177 
178 
179 
130 

181  0002A0 

182  0002^-; 

183  00u250 
18^  00025A 
185  000260 
186 

187 
188 
189 
190 
191 
192 
K-3 
19A  000262 

195  000266 

196  000272 

197  000276 


.SBTTL   DISPATCH  TABLES 


010000  012U^' 

OOOCOA  012536' 

000010  01-7A6' 

000020  014070' 
000000 


PARAMETER  VALIDITY  DISPATCH  TABLE  -  THIS  TABLE  CONTROLS  THE  DISPATCHING 
Of  THE  PROPER  ROUTINE  TO  CHECK  FOR  THE  VALIDITY  OF  AN  INPUT 
PARAMETER  FOR  A  SET  OR  CLEAR  LOGGING  COMMAND 

EACH  ENTRY  HAS  THE  FOLLOWING  FORMAT: 

WORD  1:  BIT  TO  INDICATE  PARAMETER  IS  PRESENT  (0  =  END  OF  TABLE) 
WORD  2:  ADDRESS  OF  VALIDITY  CHECKING  ROUTINE 


PVALID:  .WORD 
.WORD 
.WORD 
.WORD 
.WORD 


OP$EVE,CKEVE 

OP$NAM,CKNAME 

OP$SIN,CKSINK 

OP$NOD,CKNODE 

0 


EVENTS  PARAMETER 
SINK  NAME  PARAMETER 
SINK  NODE  PARAMETER 
NODE  ENTITY  PARAMETER 
END  OF  TABLE 


(00002  0U1A2' 

ClOOOf^  0U240' 

COOOOA  01A666' 
000000 


PARAMETER  CHANGE  DISPATCH  TABLE  -  THIS  TABLE  CONTROLS  THE  DISPATCHING 
OF  THE  PROPER  ROUTINE  TO  CHANGE  A  LOGGING  PARAMETER 

EACH  ENTRY  HAS  THE  FOLLOWING  FORMAT: 

WORD  1:  BIT  TO  INDICATE  PARAMETER  IS  PRESENT  (0  =  END  OF  TABLE) 
WORD  2:  ADDRESS  OF  ROUTINE  TO  CHANGE  PARAMETER 


CHT8LE:  .WORD  OPSLST.CHSTA 

.WORD  OP$EVE,CHFIL 

.WORD  OPSNAM.CHNAM 

.WORD  0 


CHANGE  LOGGING  STATE 

CHANGE  FILTER  MASKS 

CHANGE  LOGGING  SINK  NAME 

END  HF  TABLE 
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$VOWN  -  SET  LINE  OWNER 


681 
682 
683 
68^ 
685 
686 
687 
688 
689 
690 
691 
692 
693 
69A 

695  001510 

696  001510 

697  001  5U 

698  001520 

699  001522 

700  001  52;; 

701  001526 

702  001552 

703  001 53A 
70A   001  SAO 

705  001 5A6 

706  001550 
('07  001556 

708  001560 

709  001 56A 
710 

711 

712 

713  001566 

71A   00157A 

715  001576 

716  001602 

717  001606 

718  001612 

719  00161A 

720  001620 

721  001622 

722  00162A 
723 

72A 

725 

726  001626 

T^7  001632 

728  00163A 

729  0016AO 
750  0C16A2 

731  J016AA 

732  001 6A6 

733  001652 
75A   001660 

735  001662 

736  001666 

737  00167A 


016700  000026G 

105506 
005700 
001 50A 


.SBT1L   $V0WN  -  SET  LINE  OWNER 

♦*-$VOWN  -  SET  LINE  OWNER 

INPUTb: 

$SLTA  =  SLT  ADDRESS 
RQS  =  REQUEST  BLOCK 

OUTPUTS: 

C-eiT  =  SUCCESS/FAILURE 
ALL  REGISTERS  DESTROYED 


$VOUN: 


105515 
016701 
032761 
001A77 
032761 
001073 
r6102 
001020 


052761 
00106A 
016713 
110061 
016701 
C06301 
066701 
005711 
100A65 
OOOAAO 


020267 
101A51 
016702 
006302 
006502 
060102 
062702 
052762 
001052 
116715 
116763 
110062 


OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 


OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG  000001 
OOOOOOG 


MOV 

RQ8+LO.OWN,R0 

CALL 

FNPID 

BCS 

101$ 

TST 

RO 

BED 

101$ 

CALL 

FfJDFR 

BCS 

10A$ 

MOV 

$SLTA,R1 

BIT 

#LF.RDY,L.FLG(R1) 

BEQ 

102$ 

BIT 

*LF.ACT,L.FLG(R1) 

BNE 

102$ 

M0V8 

L.NSTA(R1),R2 

BNE 

10$ 

PT-TO-PT  LINE 

BIT 

#LF.LPB,L.FLG(R1) 

BNc 

102$ 

MOV 

$SLN,(R5) 

Move 

R0,L.OWNR(R1) 

MOV 

$SLN,R1 

ASL 

R1 

ADD 

$LLCTA,R1 

TST 

(R1) 

BMI 

105$ 

BR 

20$ 

MULTIPOINT 

LINE 

$:     CMP 

R2^$TRIB 

BLOS 

10^$ 

MOV 

$TRI8,R2 

ASL 

R2 

ASL 

R2 

ADD 

R1,R2 

ADD 

#L.MPF,R2 

BIT 

*SF.LPB,S.FLG(R2) 

BNE 

102$ 

M0V8 

$SLN,(R5) 

Move 

$TRIB,1(R3l 

Move 

R0,S.0WNR(R2) 

GET  THE  PDV  PROCESS  NAME 

FRV  TO  FIND  THE  PDV  ID 

IF  CS,  NOT  FOUND 

IS  THIS  FOR  AUX  ? 

IF  ED,  YES  ..  ERROR 

FIND  A  FREE  CHANNEL 

IF  CS,  NO  FREE  CHANNELS 

ELSE,  GET  THE  SLT  ADDRESS 

IS  THE  LINE  READY  ? 

IF  EQ,  NO  ..  ERROR 

ELSE,  IS  THE  LINE  ACTIVE  ? 

IF  NE,  YES  ..  ERROR 

ELSE,  GET  THE  NUMBER  OF  TRIBUTARIES 

IF  NE,  LINE  .S  MULTIPOINT 


IS  THIS  LINE  IN  LOOPBACK  ? 

IF  NE  YES 

STORE  SYSTEM  LINE  NUMBER  IN  LLC  TABLE 

SET  NEW  LINE  OWNER 

GET  SLN 

MAKE  IT  A  WORD  OFFSET 

POINT  AT  ENTRY  IN  REV.  MAPPING  TABLE 

IS  THIS  POINTING  TO  A  STATION  TABLE  ? 

IF  MI,  YES  ..  SOMETHING'S  WRONG 

AND  LEAVE 


IS  THE  TRIBUTARY  ON  THIS  LINE  ? 
IF  LOS,  NO  ..  ERROR 

ELSE,  GET  TRIBUTARY  NUMBER 

CONVERT  TO  A  DOUBLE  WORD  INDEX 

POJNT  INTO  SLT 

POINT  TO  STATION  INFO  IN  SLT 

IS  THIS  STATION  IN  LOOPBACK  ? 

IF  NE,  YES 

ELSE,  STORE  SLN  AND  STATION  NUMBER 

AND  SET  NEW  OWNER 
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1?1^ 

003520 

12U 

VIS 

Vi6 

W 

003622 

VIH 

003632 

1219 

003655 

1220 

1221 

1222 

122^ 

122A 

122S 

003660 

122ft 

003660 

020662" 

vv 

003662 

00A23A' 

1228 

00366A 

00A65A' 

1229 

003666 

006130' 

i2-;n 

003670 

006260' 

1211 

003672 

006A10' 

12V 

00367A 

00652A' 

12^1 

003676 

177777 

IPtt 

003700 

00A020' 

121S 

003702 

00A05A' 

}?<h 

00370A 

00A110' 

12W 

003706 

OOAIAA' 

V-iH 

003710 

0OA20O' 

12« 

003712 

000000 

12A0 

12^1 

12',2 

124^ 

0037U 

WA 

0037U 

020662' 

12AS 

003716 

00423A' 

12Aft 

003720 

00A65A' 

12A/ 

003722 

006130' 

12A« 

00372A 

006260' 

12A9 

003726 

000000 

50$: 

RETURN 

•  ERROR 

CONDITIONS 

l01$: 

ERRPTI 

0PT1,$ER0UT 

ERMSGS 

<Invalid  node  option> 

ERBLK$ 

0PT1 

.DSA6L 

LS8 

•  SET  NODE  REQUESTS 

SNODTB: 

.WORD 

$VHST 

.WORD 

$VLIN 

.WORD 

SVREM 

.WORD 

SRPASW 

.WORD 

STPASW 

.WORD 

SVERIF 

.WORD 

SVACP 

.WORD 

-1 

.WORD 

$VSEG 

.WORD 

$VINC 

.WORD 

$VOUT 

.WORD 

$VINA 

.WORD 

SVRET 

.WORD 

0 

;  CLEAR 

NODE  REQUESTS 

CNODTB: 

.WORD 

$VHST 

.WORD 

SVLIN 

.WORD 

$VREM 

.WORD 

SRPASW 

.WORD 

STPASW 

.WORD 

0 

SET  HOST 

SET  NODE  LINE 

SET  NODE  NAME 

SET  RECEIVE  PASSWORD 

SET  TRANSMIT  PASSWORD 

SET  VERIFICATION  STATE 

SET  EXECUTOR  STATE 

NOT  USED  (NEEDED  FOR  POSITION) 

SET  EXECUTOR  SEG  BUF  SIZE 

SET  EXEC  INCOMING  TIMER 

SET  EXEC  OUTGOING  TIMER 

SET  EXEC  INACTIVITY  TIMER 

SET  EXEC  RETRANSMIT  FACTOR 


SET  HOST 

SET  NODE  LINE 

SET  NODE  NAME 

SET  RECEIVE  PASSWORD 

SET  TRANSMIT  PASSWORD 
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175? 
1753 
175A 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1765 
176A 
1765 
1766 
1767 
176» 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 


.SBTTL  SETBIT  -  SET  LOOPBACK  BIT 

•♦-SET8IT-SET  L00P8ACK  BIT 

INPUTS: 

R2  =  CHANNEL  NO. 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 

R2,R3  =  DESTROYED 


00577A 
00577A 
006000 
006002 
006006 
006010 
006016 
006020 
006022 
00602A 
006026 
006032 
0060A0 
006042 


SETBIT: 


103A20 
105762 
00100A 
052762 
CODA  11 
006303 
006303 
06^^332 
0.c:702 
152762 
0002A1 


OOOOOOG 
OOOOOOG  OOOnOOG 


10$: 


0000006 
OOOOOOG  OOOOOOG 


20$: 


CALL 

GTSLT 

BCS 

20$ 

TSTB 

L.NSTA(R2) 

BNE 

10$ 

BIS 

#LF.LP8,L. 

BR 

20$ 

ASL 

R3 

ASL 

R3 

ADD 

R3,R2 

ADD 

*L.MPF,R2 

BISB 

*SF.LPB,S. 

CLC 

FLG(R2) 


FLG(R2> 


GET  SLT  ADDRESS 

IF    CS,    NO   XPT 

IS   THIS    LINE   MULTIPOINT    ? 

IF  NE,  YES 

ELSE,  SET  THE  LOOP  BACK  BIT 

AND  RETURN 

POINT  TO  STATION  INFO  IN  SLI 


AND  SET  THE  LOOPBACK  BIT 
INDICATE  SUCCESS 


RETURN 
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25A^  011202 

SWTCHO 

#$HMeUF 

23A5  011210 

PUTRC 

$DECPT,#D$END 

2346  011230 

SWICMO 

25A7 

23A8 

23A9 

2350  011236 

2351 

2352  011240 

000404 

BR 

15$ 

010346 

10$: 

MOV 

R3,-(SP) 

2353  011242 

010046 

MOV 

RO,-(SP) 

2354  011244 

CALL 

SXLINK 

2355  011250 

012601 

15$: 

MOV 

(SP)+,R1 

2356  011252 

CALL 

$DEPOL 

2357  011256 

000410 

BR 

22$ 

2558 

• 

2359 

;  SET 

REQUEST 

2360 

2361  011260 

032767 

000001  OOOOOOG 

J0$: 

SIT 

*OP$SCO,$OPTON 

2362  011266 

001005 

BNE 

23$^ 

2363  011270 

ERRPT$ 

ERR26,$EROUT 

2364  011300 

000572 

22$: 

BR 

50$ 

2365  011302 

032767 

OOOOOOG  OOOOOOG 

23$: 

BIT 

#VF.ADD,$VflAG 

2366  011310 

001415 

BED 

25$ 

2367  011312 

016701 

00001 OG 

MOV 

RQetLR.DES,R1 

2368  011316 

CALL 

$fNADD 

2369  011322 

103572 

BCS 

103$ 

2370  011324 

012701 

000010G 

MOV 

*RC)etLR.DES,R1 

2371  011330 

012702 

000002G 

MOV 

#$eFR+R.NAM,R2 

2372  011334 

012703 

000006 

MOV 

#6,R3 

2373  011340 

CALL 

MOVE 

2374  011344 

25$: 

CALL 

SfNIALI 

2375  011350 

103402 

BCS 

30$ 

2376  011352 

CALL 

REMALI 

2377  011356 

012701 

000023 

30$: 

MOV 

#A.ACC+3,R1 

2378  011362 

116700 

000020G 

Move 

RQBHR.UICRO 

2379  011366 

060001 

ADD 

RO.RI 

2380  011370 

116700 

000041G 

Move 

RQB+LR.PAS.RO 

2381  011374 

060001 

ADD 

RO.RI 

2382  011376 

116700 

000052G 

Move 

RQB+LR.ACO,R0 

2383  011402 

060001 

ADD 

RO.RI 

2384  011404 

CALL 

$AIPOL 

2385  011410 

103533 

BCS 

102$ 

2386  011412 

010067 

000164' 

MOV 

RO.CURUNM 

2387  011416 

010146 

MOV 

R1,-(SP) 

2388 

2389  011420 

SWTCHi 

#$HMBUF 

2390  011426 

GETRV 

$DECPT,*D$END 

2391  011446 

2392 

2393  011454 

SWTCHI 

012701 

OOOOOOG 

MOV 

#$eFR.R1 

2394  011460 

005021 

CLR 

(Rl)  + 

2395  011462 

012702 

000002G 

MOV 

*RQ8+LR.ALI.R2 

2396  01 1466 

012703 

000006 

MOV 

#6.R3 

2397  CI  1472 

CALL 

MOVE 

2393  011476 

016721 

000016G 

MOV 

ROBtLR.UCB,(Rl)* 

2399  011502 

012702 

OOOOIOG 

MOV 

#RQ8+LR.DES.R2 

2400  011506 

012703 

000006 

MOV 

Ht.Rl 

USE  TEMPORARV  BUFFER 

WRITE  BACK  UPDATED  HOME  BLOCK 

SWITCH  TO  DEFAULT  OITPUT  SUFFER 


AND  BR  TO  DEALLOCATE  IT 

GET  UNMAPPED  ADDR  OF  PREVIOUS  BLOCK 
GET  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 
UNLINK  BLOCK  FROM  LIST 
RETRIEVE  LENGTH  OF  ALIAS  SLOCK 
DEALLOCATE  THE  ALIAS  Bl  XK 
AND  RETURN 


WAS  THE  SCOPE  GIVEN  ? 

IF  NE,  YES  ..  OKAV 

ELSE.  SCOPE  PARAMETER  MISSING 

CONTINUE 

WAS  THE  DESTINATION  GIVEN  AS  ADDRESS 

IF  EQ.  NO  ..  OKAY 

ELSE.  GET  THE  NODE  ADDRESS 

AND  FIND  THE  REMOTE  NODE  BLOCK 

IF  CS,  NODE  NOT  IN  SYSTEM 

GET  OUTPUT  BUFFER 

AND  GET  INPUT  BUFFER 

AND  LENGTH  TO  MOVE 

STORE  NODE  NAME  IN  REQUEST  BLOCK 

TRY  TO  FIND  THE  ALIAS  BLOCK 

IF  CS.  NOT  FOUND  ..  OKAY 

ELSE.  REMOVE  THE  ALIAS 

CALCULATE  LENGTH  OF  ALIAS  BLOCK 

GEf  SIZE  OF  FIELD 

SKIP  TO  NEXT  FIELD 

GET  SIZE  OF  FIELD 

ADD  IN  SIZE 

GET  SIZE  OF  FIELD 

ADD  IN  SIZE  OF  FIELD 
TRY  TO  ALLOCATE  THE  BUFFER 
IF  CS.  ALLOCATION  FAILURE 
SAVE  UNMAPPED  ADDRESS 
SAVE  SIZE  OF  ALIAS 

USE  TEMPORARY  BUFFER 
READ  DECNET  HOME  BlOCK 
RESET  DEFAULT  BUFFER 

GET  ADDRESS  OF  OUTPUT  BUFFER 

SKIP  LINK  POINTER 

GET  ADDRESS  OF  INPUT  BUFFER 

GET  LENGTH  OF  ALIAS  FIELT 

STORE  ALIAS  NAME 

STORE  UCB  ADDRESS 

GET  ADDRESS  OF  INPUT  BUFFER 

GET  LENGTH  OF  DESTINATION  FIELD 


D  15 


VENA  -  VNP  ENABLE/DISABLE  LINES  MACRO  V05.03b  Wednesday  ll-Sep-85  12:06  Page  42-2 


C  16 

VENA  -  VNP  ENABLE/DISABLE   LINES  MACRO  V05.03b  Wednesday   11-Sep-85   12:06 
CKFIL   -   CHEC<    FILE    SINK   NAME 


Page  50-2 


2898  013504 

022702 

000073 

CMP 

i26i 

VALID    TERMINATOR 

2899  01'510 

001025 

BNE 

BR   IF   NO  -  ERROR 

2900  013512 

010167 

000142' 

MOV 

Rl.FILTYP 
106$ 

STORE    FILE    TYPE 

2901   013516 

000407 

BR 

ADN   CHECK   FOR   VERSION  NUMBER 

2902  013520 

010167 

000142' 

90$: 

MOV 

Rl.FILTYP 

SAVE    FILE    TYPE 

2903  013524 

020500 

CMP 

R5,R0 
1l6$ 

END   OF    STRING? 

2904  013526 

101414 

BLQS 

BR    IF    VES 

2905  013530 

122027 

000073 

CMPB 

(R0)+,*'; 

VALID    TERMINATOR? 

2906  013534 

2907 

2908 

001013 

BNF 

120$ 

BR   IF    NO 

;    CHECK 

VERSION 

NUMBER 

2909 

2910  013536 

020500 

100$: 

CMP 

R5,R0 
1l6$ 

END   OF    STRING? 

2911   013540 

101407 

BLOS 

BR    IF    YES 

2912  015542 

CALL 

$C0T8 

CONVERT   NUMBER    TO  OCTAL 

2913  013546 

022701 

077777 

CMP 

#MXVER,R1 

LEGAL    VERSION  NUMBER? 

2914   013552 

103404 

BLO 

120$ 

BR    IF    NO 

2915   013554 

010167 

0001  .4' 

MOV 

R1,FILVER 

SAVE    VERSION  NUMBER 

2916  013560 

000241 

110$: 

CLC 

INDICATE    SUCCESS 

2917  013562 

000401 

BR 

130$ 

AND   EXIT 

2918  013564 

000261 

120$: 

SEC 

INDICATE    FAILURE 

2919  013566 

012605 

130$: 

MOV 

(SP)+,R5 

RESTORE    R5 

2920  013570 

RETURN 
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BLDLIN  -  BUILD   LINE   ENTITY 

1203 
120; 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
12H 
1215 
1216 
1217 

1218  006500  112720     000042 

1219  006504  012701     000472" 

1220  006510  112120 

1221  006512  001376 

1222  006514  105740 

1223  006516  112720     000040 

1224  006522  005001 

1225  006524  156301     000020 

1226  006530  006301 

1227  006532  066701     OOOOOOG 

1228  006536  011101 

1229  006540  005002 

1230  006542  156102       00002 

1231  006546  066702     OOOOOOG 

1232  006552  011202 

1233  006554  010146 

1234  006556  010246 

1235  006560  016201     OOOOOOG 

1236  006564 

1257  006570  122740     000040 

123S  006574  001775 

1239  006576  105720 

1240  006600  112720     000055 

1241  006604  016602     000002 

1242  006610  005001 

1243  006612  156201     000012 

1244  006616  005002 

1245  006620 

1246  006624  011601 

1247  006626  032761 

1248  006634  001412 

1249  006636  112720 

1250  006642  016602 

1251  006646  005001 

1252  00665:  156201 

1253  006654  005002 
125-  006656 
1255 

1256  006662  016602     000002 

1257  006666  105762     000014 

1258  006672  001410 

1259  006674  112720     000056 
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.SBTTL  BLDLIN  -  BUILD  LINE  ENTITY 

h 

BLDLIN  -  BUILD  LJN  ENTITY 

INPUTS: 

R3  -  ADDRESS  OF  EVENT  FILTER  BLOCK 
RO  -  ADDRESS  OF  NEXT  BYTE  IN  MESSAGE 

OUPUTS: 

RO  -  ADDRESS  OF  NEXT  BYTE  IN  MESSAGE 


BLDLIN: 
5$: 


10$: 


OOOOOOG  OOOOOOG 

000055 
000002 

000013 


20$: 


M0V8 

MOV 

M0V8 

BNt 

TSTB 

MOVB 

CLR 

BIS8 

ASL 

ADD 

MOV 

CLR 

BISB 

ADD 

MOV 

MOV 

MOV 

MOV 

CALL 

CMPB 

BEQ 

TST8 

MOVB 

MOV 

CLR 

BISB 

CLR 

CALL 

MOV 

BIT 

BEQ 

MOVB 

MOV 

CLR 

BISB 

CLR 

CALL 

MOV 
TSTB 
BEQ 
MOVB 


#"',(R0)  + 

#LSPEC,R1 

(R1)+,CR0)t 

5$ 

-(RO) 

#'  ,(R0)+ 

R1 

,  .LJN(R3),R1 

R1 

$SLTHA,R1 

(R1),R1 

R2 

L.DDM;R1),R2 

$PDVTA,R2 

CR2),R2 

R1,-(SP) 

R2.-(SP) 

Z.NAM(R2),R1 

$C5TA 

#SPACE,-(RO) 

10$ 

(R0)  + 

#DASH,(R0)t 

2(SP),R2 

R1 

L.CTLCR2),R1 

R2 

$C8DMG 

(SP),R1 

#ZF.MUX,Z.FLG(R1) 

20$ 

#DASH,(R0)t 

2(SP),R2 

R1 

L.UNT(R2),R1 

R2 

$C8DMG 

2CSP),R2 
L.NSTA(R2) 
30$ 
#PERIOD,(RO)+ 


STORE  DELIMITER 

POINT  TO  "LINE"  STRING 

STORE  STRING 

BACK  UP  OVER  NULL 

STORE  BLANK  IN  OUTPUT  LINE 

GET  SLN  FOR  LINE 

FROM  WORD  OFFSET 

POINT  INTO  SYSTEM  LINE  INDEX  TABLE 
GET  POINTER  TO  SYSTEM  LINE  TABLE 
GET  PDV  INDEX  FOR  DDM  PROCESS 

POINT  INTO  PDV  INDEX  TABLE 
AND  GET  ADDRESS  OF  PDV 
SAVE  SLT  ADDRESS 
SAVE  PDV  ADDRESS 
GET  DEVICE  NAME 
CONVERT  IT  TO  ASCII 
DELETE  TRAILING  SPACES 

KEEP  LAST  GOOD  CHARACTER 

PLANT  SEPARATOR 

GET  SLT  ADDRESS 

GET  CONTROLLER  NUMBER 

SUPPRESS  LEADING  ZEROES 

CONVERT  IT  TO  ASCII 

GET  PDV  ADI^RESS 

IS  IT  A  MULTIPLEXOR? 

BR  IF  NO 

STORE  SEPARATOR 

GET  SLT  ADDRESS 

GET  THE  UNIT  NUMBER 

SUPPRESS  ZEROES 
CONVERT  IT  TO  ASCII 

GET  SLT  ADDRESS 
MULTIPOINT  MASTER  LINE? 
BR  IF  NO 
STORE  SEPARATOR 


VDIS  -  VNP  SHOW  COMMANDS 
Rl  ni  IW  -  Run  h  I  INF  FMT  I  TY 
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VDIS   -   VNP   SHOW   COMMANDS 

tDNOD   - 

SHOW  NODE 

1815 

011774 

1816 

1817 

1818 

1819 

012004 

1820 

1821 

012014 

1822 

1823 

012024 

182A 

012032 

1825 

1826 

1827 

1828 

1829 

1830 

012034 

1831 

012054 

1832 

1833 

012064 

1834 

012117 

1835 

1836 

012126 

1837 

012165 

1838 

1839 

012176 

1840 

012240 

18A1 

1842 

012250 

1843 

012251 

IS'.A 

1845 

012254 

1846 

012321 

1847 

1848 

012332 

1849 

012402 

1850 

1851 

012416 

1852 

012475 

1853 

012517 

1854 

1855 

012530 

1856 

012604 

1857 

012635 

1858 

1859 

012646 

1860 

012732 

1861 

1862 

012742 

1863 

013013 

1864 

1865 

013022 

1866 

013036 

1867 

1868 

013044 

1869 

013075 

1870 

1871 

013100 

D  2 

MACRO  V05.03b  Monday  15-Jut-85  12:14  Page  26-7 


VD 
NX 


ERRPT$ 

NMSG15,HSG0UT 

;        AND 

FINALLY 

DISPLAY   "DLX   TYPE 

ERRPT$ 

NMSG16,MSG0UT 

510$: 

ERRPTS 

NMSG4,MSG0UT 

520$: 

DIR$ 
RETURN 

#TIDET 

AND  DISPLAY 

DLX  TYPE 

MAKE  OUTPUT  LOOK  NICE 

DETACH  TERMINAL 


.ENA8L   LC 
DISPLAY  MESSAGES 


ERMSGS 
ERBLK$ 

ERMSGS 
ER8LKS 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 

ERC'Gt 
ERBLKS 

ERMSGS 
ERMSGS 
ERBLK$ 

ERMS6$ 
ERMSGS 
ERBLKS 

ERMSGS 
ER8LK$ 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 

ERMSGS 


<XN!£A  XA  as  of   3!Y> 
NMSG1,<TEMP2,TEMP1> 

cXNExecutor  node  =  XD  (5;a)J!N> 
NMSG2,<TEMP1,TEMP2> 

<XNExecutor  node  =  XD.XD  (!:a)XN> 
NMS2A,<TEMP7, TEMPI, TEMP2> 

<  State  =  %k.    Identification  =  XA> 
NMSG3,<TEMP1,TEMP2> 

<  > 

NMSG4 

<  Host  =  XD  (5!A),  Maximum  links  =  XD> 
NHSG5,<TEMP3,TEMP2, TEMPI > 

<  Host  =  '^D.SID  (J:A),  Maximum  links  -  XD> 
NMS5A,<TEMP7,TEMP3,TFMP2, TEMPI > 


Maximum  circuits  =  5!B,> 


<  Maximum  address  =  SID, 

<  Maximum  cost  =  3iD> 
NMSG6, <TEMP4, TEMPI ,TEMP3> 


<  Maximum  area  =  KD,  Maximum  area  cost 

<  Maximum  area  hops  =  J!D> 
NMSG6A,<TEMP1,TEMP2,TEMP3> 


5!D> 


<  Router  adjacencies 
NMSG6B,<TEMP4,TEMP7> 

<  Maximum  hops   =  %\> . 
NMSG7,<TEMP4,TEMP3> 


XD,   End  ode  adjacencies  =  XD> 


Maximum  visits 


XD> 


<  Type  =  !!A> 
NMSG8,<TEMP8> 

<  Receive  password  =  . 
NMSG9 

<  Transmit  password  = 


VDIS  -  VNP  SHOW  COMMANDS 
SDNOD  -  SHOW  NODE 
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VD 
DM 


VDIS  -  VNP  SHOW  COMMANDS 
NXTRDT  -  Get  next  PDT  block 


2387 
2365 
2^8'; 
2390 
2391 
239? 
239^ 
239A 
239') 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
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016522  005000 

016524  032.-^  000200  OOOOOOG 

016532  001402 

016534  012700  000002G 

016540  012701  000024 

016544  012702  000002 

016550  012703  177772 

016554 

C16560 


.SBTTL  NXTftDT  -  Get  next  RDT  block 


«♦»  NXTRDT  -  Find  next  RDT  block  to  operate  on 

INPUTS: 

$BFR  -  Address  of  next  RDT  descriptor 

SOPTON  -  Options  word 

L0.DES+RQ8  -  Destination  to  look  for 

OUTPUTS: 

Carry  clear: 

$8FR  contains  next  RDT  block 
Carry  set : 

End  of  RDT  list 


NXTRDT: 


10? : 


CLR 

BIT 

BEQ 

MOV 

MOV 

MOV 

MOV 

CALL 

RETURN 


RO 

#0P$DST, SOPTON 

10$ 

#RQB+LO.DES,R0 

#R$LEN,R1 

#R$NAM,R2 

#-6,R3 

FNDBLK 


Assume  no  match  required 

Check  if  specific  destination  set 

Branch  if  none 

Get  address  of  destination  to  match 

Length  of  RDT  block 

Offset  of  DTE  name 

Negated  length  of  DTE  name 

Find  matching  block 


;[TD00n 
;[TD001] 
;[TD00n 
;CTD001] 
.•CTDOOIJ 
;CTD001] 
;CTD001] 
;CTD00n 
.-CTDOOI] 
.•[TDOOl] 
; CTDOOI D 
; CTDOOI] 
;CTD00-'J 
;  CTDOOI] 
;  CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
; CTDOOI : 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
.-CTDOC] 
; CTDOOI] 
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2909 

2910 

2911 

2912 

2915 

29K 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 


022342 
022346 
022364 
022370 
022372 
022376 
022402 
022404 
022406 
022410 
022414 
022416 

022426 
022434 


022436 
022444 
022446 
022452 
022456 
022462 
022464 
022470 
022472 
022502 
022506 
022512 
022514 
C22520 
022522 
022524 
022530 
022532 
022536 
022540 
022544 
022546 
022552 


066700  OOOOOOG 


.SBTTL  DMDST  -  SHOW  MODULE  X2n-SERVER  DESTINATION 

»»•  DMDST  -  SHOW  MODULE  X2n-SERVER  DESTINATION 

INPUTS:  ,  .   ,   . 

RO  -  Index  into  home  block  to  appropriate  listhead 

OUTPUTS: 

Destination  info  displayed  on  user  s  terminal 


103002 
000167 
012702 
005701 
001403 
112022 

105012 


032767 
001535 


122767 
001416 
012700 
012702 
012701 
112022 

105012 

012700 
116701 
060100 
116701 
060100 
C100C3 
116701 
060100 
116701 
001412 
012702 
112022 

105012 


000662 
001034" 


NOTE 

DMDST: 
10$: 

11$: 

12$: 
15$: 


This  entire  routine  is  dependent  on  the  ordering  of  fields 
in  the  destination  block. 


OOOOOOG  OOOOOOG 


ADD 

GETRV 

CALL 

BCC 

JMP 

MOV 

TST 

CEO 

Move 

SOB 

CLRB 

ERRPT$ 

BIT 
BEQ 


$PSIP^,R0 

R0,#2 

NXTDST 

11$ 

90$ 

#TEMP1,R2 

R1 

15$ 

(Re)t,CR2)+ 

R1,12i 

(R2) 

DSMSI.MSGOUT 

*PF.XDF,$PFLAG 
50$ 


Point  to  listhead 

Read  in  destination  listhead 

Get  next  destination  in  list 

Escape  if  end  of  list 

Output  buffer  for  destination  name 

Check  destination  name  length 

Move  destination  to  output 

Create  ASCI2  string 
Display  destinatior.  name 

Check  tor  extended  data  format 
Branch  if  old-format 


Display  node,  accounting  data,  priority  and  object  for  extended  block 


000040  000010G        CMPB  #SPACE,$BFRtD$NOD 

BEQ  34$ 

00001 OG  MOV  #$BFR+D$NOD,R0 

001034'  MOV  #TEMP1,R2 

000006  MOV  #6,fi1 

32$:    MOVB  (R0)  +  ,(R2)*- 

S08  R1,32$ 

CLR8  (R2) 

ERRPT$  DSMS9,MSG0UT 

000032G        34$:    MOV  *$BFR+D$GVBL,R0 

000022G  MOVB  $eFR+D$DSL,R1 

ADD  R1,R0 

000023G  M0V8  $BFR+D$i.UGL,R1 

ADD  R1,R0 

MOV  R0,R3 

000024G  MOVB  $8FR+DtPRL,R1 

ADD  RI.RO 

000025G  Move  $BFR+D$USL ,R1 

BEO  38$ 

001034'  MOV  #TEMP1,R2 

36$:    MOVB  (R0)+,(R2)t 

SOB  R1.36$ 

CLRB  (R2) 


Check  tor  destination  node 
Branch  if  not  present 
Address  of  node  name 
Address  to  receive  node  name 
Length  of  node  name 
Move  node  name 

Make  ASCIZ  string 

Display  node 

Address  start  of  var-'able  data 

Skip  destinatior  field 

Skip  CUG  name  f  ■  ,d 

Save  address  of  remote  task  name 

Skip  task  name  field 

Now  addressing  username  with  RO 

Get  length  of  access  control  username 

Branch  i f  no  username 

Address  output  buffer  for  username 

Move  user  name 

Convert  to  ASCI7  string 


;[TD0013 


;CTD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;CTD001] 
.-CTDOOI] 
;[TD001] 
;CTD0On 
; CTDOOI 3 
;[TD0On 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI ] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI ] 
; CTDOOI] 
;CTD001] 
.•CTDOOI] 
; CTDOOI] 
.CTDOOI] 
;CTD001] 
;  CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
;rTD001] 
; CTDOOI] 
;[TD001] 
;CTD001] 
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VDIS  -  VNP  SHOW  COMMANDS 
DIS08J  -  DISPLAY  OBJECT  INFO 
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3A89 

3i90 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3306 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

353' 


025320  012701     001034' 

025324  012700     000120' 

025330  132763     000100     000003 

025336  001002 

025340  012700     000110' 

025344  112021 

025346  001376 

025350  122763     000001     000004 

025356  001005 

025360 

025370  000404 

025372 

025402 


025404 
025426 

025436 
025453 

025460 
025504 

025512 
025551 


DISPLAY  USER  INFORMATION 

MOV  *TEMP1,R1 

MOV  #L0GIN,R0 

BITS  *0F.RLU,0.FLG(R3) 

BNE  50$ 

MOV  #DEFAUL,R0 

50$:    MOVB  (R0)+,(R1)t 

BNE  50$ 

CMP8  *1,0.MXC(R3) 

BNE  60$ 

ERRPT$  0MSG5,MSGOUT 

BR  70$ 

60$:    ERRPT$  0MSG6,HbG0U' 

70$:    RETURN 

.ENABL  LC 


GET  AREA  TO  STORE  USER  STRING 

ASSUME  LOGIN  UK 

LOGIN  UIC? 

BR  IF  YES 

ELSE  MUST  BE  DEFAULT 

STORE  USER  STRING 

ONLY  ONE  COPY? 

BR  IF  NO 

DISPLAY  SINGLE  COPY  AND  USER 

FINISHED 

DISPLAY  MULTIPLE  COPIES  AND  USER 

FINISHED 


DISPLAY  MESSAGES 


025562 
025615 

025624 
025657 


<XN!(A  JiA  as  of  %y%N> 
0MSG1,<TEMP2,TEMP1> 

<object  =  5:g5;n> 

0MSG2,<TEMP1> 

<       Verification  =  !!A> 
0MSG3,<TEMP1> 

Name  =  5!r,  Verification  =  !!A> 


ERMSG$ 
ERBLK$ 

ERMSG$ 
ERBLK$ 

:rmsg$ 

ERBLK$ 

ERMSG$       -         .Maine    -    ™.  ,     .e.   .  .  . 
ERBLK$     0«1SG4,<TEMP2,2,TEMP1> 


ERMSG$  <   Copies  =  W,  User  =  !!A5!N> 

ERBLK$  0MSG5,<SINGLE,TEMP1> 

ERMSG$  <   Copies  =  XE,  User  =  i!AS(N> 

ERBLK$  0MSG6,<TEMP2,TEMP1> 

.DSA8L  LC 
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4038  030506 

016602 

00"006 

MOV 

6(SP),R2             ; 

4039  030512 

126001 

000003 

CMPB 

L.DLC(R0),R1 

4040  030516 

001056 

BNE 

180$ 

4041  030520 

032760 

040000  000000 

BIT 

#LF.RDY,L.FLGCR0) 

4042  030526 

001452 

BED 

1 80$ 

4043  030530 

005067 

OOOOCOG 

CLR 

$RBLCK 

4044  030534 

005767 

OOOOOOG 

TST 

.MGMGE 

4045  030540 

100407 

SMI 

140$ 

4046  030542 

022760 

120000  000010 

CMP 

#120000,1  .DLS(RO) 

4047  030550 

101003 

BHI 

140$ 

4048  030552 

016067 

000006  OOOOOOG 

MOV 

L.DLM(RO),$RBLC!< 

4049  030560 

140$: 

GETAD 

L.CLS(RO),#TR.LEN 

4050  030600 

012704 

000106G 

MOV 

#$BFR+R.LST+2,R4       ; 

4051  030604 

014405 

150$: 

MOV 

-(fi4),R5 

4052  030606 

001422 

BEQ 

180$ 

4053  030610 

160$: 

GETAD 

R5,#S.LGTH 

4054  030626 

012705 

OOOOOOG 

MOV 

#$eFR,R5 

4055  030632 

005725 

TST 

(R5)t 

4056  030634 

126502 

000005 

CMPB 

S.LSA(R5),R2 

4057  030640 

001402 

BEQ 

1 70$ 

4058  030642 

010504 

MOV 

R5,R4 
156$ 

4059  030644 

000757 

BR 

4060  030646 

116503 

000003 

170$: 

MOVB 

S.PSA(R5),R3          ; 

4061  030652 

4062 

4063 

4064 

4065  030654 

000466 

BR 

210$ 

':    FIND 

DMP  LINE 

TABLE 

012700 

015430 

180$: 

MOV 

#»RDMP,RO            ; 

4066  030660 

CALL 

FNDPDV 

4067  030664 

103473 

BCS 

230$ 

4068  030666 

016600 

000012 

MOV 

12(SP),R0 

4069  030672 

016602 

000006 

MOV 

6(SP),R2 

4070  030676 

126001 

000003 

CMPe 

L.DLC(R0),R1 

4071  030702 

Ou!o70 

BNE 

240$ 

4072  030704 

032760 

040000  000000 

BIT 

#LF.RDY,L.FLG(RO) 

4073  030712 

001446 

BEQ 

210$ 

4074  030714 

005067 

OOOOOOG 

CLR 

$nBLCK 

4075  030720 

005767 

OOOOOOG 

TST 

.MGMGE 

4076  030724 

100407 

BMI 

190$ 

4077  030726 

022760 

120000  000010 

CMP 

#1200C  '.L.DLSCRO) 

4078  030734 

101003 

BHI 

190$ 

4079  030736 

016067 

000006  OOOOOOG 

MOV 

L.DLM(RO),$RBLCK 

4080  030744 

190$: 

GETAD 

L.DLS(RO),#P.LEN 

4081  030764 

012704 

000014G 

MOV 

#$BFR+P.TRIB,R4 

4082  030770 

011405 

200$: 

MOV 

'   \R5 

4083  03077? 

001434 

BEQ 

4084  0307'4 

GETAD 

T.TRLG            ; 

4085  031012 

012704 

OOOOOOG 

MOV 

\R4 

4i;86  031016 

;  26402 

000005 

CMPB 

1.  ,^N(R4),R2 

4087  031022 

001 '1.2 

BNE 

200$ 

4088  031024 

406? 

4090  031030 

116703 

000004 G 

MOVE 

T.TfiPNt$BFR,R3 

020327 

177777 

210$: 

CMP 

R3.#-1 
236$ 

409''  031034 

00U07 

BEO 

4092  031036 

110367 

150140 

N0V9 

R3,TEMP3 

4093  031042 

220$: 

ERRPr$ 

CMSG8,MS&UUT 

4094  031052 

000404 

BR 

240$ 

RETRIEVE  STATION  NUMBER 

IS  THIS  A  PCL  LINE? 

BR  IF  NO 

IS  THE  LINE  LOADED? 

BR  IF  NO  -  DON'T  DISPLAY  IT 

ASSUME  LINE  TABLE  IS  NOT  MAPPED 

MAPPED  SYSTEM? 

BR  IF  NO 

IS  LINE   TABLE  MAPPED? 

BR   IF   NO 

GET  LINE  TABLE  BIAS 

READ  IN  LINE  TABLE 

POINT  TO  STATION  TABLE  lISTHEAD 

GET  NEXT  ENTRY 

BR  IF  END  OF  LIST 

READ  IN  TRIBUTARY  STATION  TABLES 

GET  ADDRESS  OF  STATION  TABLE 

POINT  PAST  LISTHEAD 

IS  THIS  THE  TRIBUTARY? 

BR  IF  YES 

ELSE,  CONTINUE  SCAN 

GET  TRIBUTARY  NUMBER 
AND  PRINT  MESSAGE 


GET  DMP  PROCESS  NAME 

GET  PDV  INDEX 

BR  IF  CAN'T  FIND  IT 

RETRIEVE  SLT  ADDRESS 

RETRIEVE  STATION  NUMBER 

IS  THIS  A  DMP  LINE? 

BR  IF  NO 

IS  THE  LINE  LOADED? 

BR  IF  NO  -  DON'T  DISPLAY  IT 

ASSUME  LINE  TABLE  IS  NOT  MAPPED 

MAPPED  SYSTEM? 

BR  IF  NO 

IS  THE  LINE  TABLE  MAPPED? 

BR  IF  NO 

GET  LINE  TABLE  BIAS 

READ  IN  LINE  T4BLE 

POINT  TO  STATION  LINE  TABLES 

GET  NEXT  ENTRY 

BR  IF  END  OF  LIST 

READ  IN  TRIBUTARY  STATION  TABLES 

GET  ADDRESS  OF  TRIB  STATION  TABLES 

IS  THIS  THE  TRIBUTARY? 

BR  IF  NO  -  CONTINUE  SCAN 

GcT  TRIBUTARY  NUMBER 

WAS  A  TRIB  FOUND? 

BR  IF  NO 

ELSE  GET  TRIBUTARY  NUMBER 

DISPLAY  COST, TYPE  AND  TRIBUTARY 
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VDIS  -  VNP  SHOJ  COMMANDS 
FMTCIR  -  FORMAT  CIRCUIT-ID 
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1660  031510 

1661  C31511 

1662  051520 

1663  031521 
1661  031530 
1665  03151(. 


112720  000056 
012702  011012 

112710  000000 


10$: 


MOVB 

MOV 

CALL 

MOVB 

RESRG 

RETURN 


#PERIOD,(R0)t 
*«3*1000>I10.>,H2 

scerA 

#0,(R0) 
<R3,R2,R1,R0> 


ELSE,  INSERT  DELIMITER 
USE  BASE  10.  -  FIELD  WIDTH  3 
CONVERT  TO  ASCII 
CREATE  ASCIZ  STRING 
RESTORE  REGISTERS 


VDIS  -  VNP  SHOW  COMMANDS       MACRO  V05.03b  Monday 
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VDIS  -  VNP  SHOW  COMMANDS 
Symbol  table 


LlNTbY 

LINTCA 

LSNTrS 

LSNTPr 

LSOMST 

L$PCS 

LSPLS 

LtQCNT 

lSQUEH 

LIQUET 

LSRTRY 

L$SLN 

LSST 

LITCLZ 

LtTIM 

Lt$ASG= 

L$$DRV= 

L$SP11= 

L$$11R= 

L.BABL 

L.BUFU 

L.CHA 

L.CNTL 

L.COCT 

L.CRC 

L.CRS 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DISL 

L.DISR 

L.DLC 

L.DLM 

L.DLS 

L.ENA 

L.FIG 

L.KR8A 

L.LEN  = 

L.LNUM 

u.MPF 

L.NAST 

L.NC'JB 

L.NCUL= 

L.NIP 

I  .NLSE 

L.NMST 

L.NRSE 

L.NSTA 

L.OWNR 

L.PAIC 

L.PAIR 

L.PLD 

L.PLL 

L.SCFW 

L.STA 

L.5TBL 


000052 
000070 
000102 
000062 
000002 
000112 
000110 
000122 
000124 
000130 
000007 
000004 
000005 
000044 
000006 
000000 
000000 
000001 
000000 
000062 
000052 
000034 
000024 
000015 
000030 
000040 
000012 
177776 
0C0002 
000004 
000042 
000044 
000003 

:oooo6 

uOOOlO 
000066 
000000 
000016 
000022 
000046 
000022 
000C65 
000012 
000050 
000010 
000054 
000020 
000053 
000014 
000021 
000017 

0000 ; 6 

0000' 7 
000012 
000056 
000063 
000070 
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L.STRC 

000050 

NMSG10 

013134R 

NSMiiCI 

000036 

OP$DTC= 

000040 

L.Si.>M 

000051 

NMSG11 

013174R 

N$MHC2 

000044 

OP$DUP= 

C00002 

L.STS 

000002 

NMSG12 

013242R 

NSPLD 

000016 

OP$EST= 

000100 

L.ST2 

000003 

NMSG13 

013552R 

NSPLLT 

000030 

OP$EVE= 

010000 

L.TBP 

000004 

NHSG14 

013750R 

N$PRJ 

000076 

OP$FIL= 

000200 

L.TIHC 

000060 

NMSG15 

013770R 

N$R0A1 

000022 

OP$GRP= 

000100 

L.TIHl 

000001 

NMSG16 

014012R 

N$R0a2 

000030 

OP$HOS= 

000001 

L.TIMR 

000000 

NMSG2 

012120R 

NSRTMX 

000014 

OPSHTM^ 

000002 

L.TOR 

000064 

NMSG3 

012242R 

N$RTM1 

000014 

OP$INA= 

004000 

L.UNT 

000013 

NMSG4 

012252R 

N$RTM2 

000015 

OP$INC= 

001000 

L.XSET 

000020 

NMSG5 

012322R 

N$RT1 

000000 

OP$KDS= 

002000 

MATCH 

024762R 

NMSG6 

012520R 

N$RT2 

0000O6 

OP$KDI= 

000400 

HAXID  = 

000020 

NMSG6A 

012636R 

NSSLA 

000016 

OP$KEV= 

001000 

MODTBL 

015672.^: 

NMSG6B 

012734R 

NSSNOD 

000012 

OP$KGR= 

001000 

M0MS1 

015662R 

NMSG7 

013014R 

NSTCTL 

000112 

OP$KNT= 

010000 

MSGOUT 

035606R 

NMSG8 

013040R 

NSTIM 

000004 

OP$KSK= 

002000 

MSKLEN= 

000100 

NMSG9 

013076R 

N$TLC 

000100 

OP$LCT= 

000200 

MSPEC 

0006630 

NMS12A 

013314R 

N$TNC 

000114 

OP$LNE= 

000040 

MXACCT= 

000050 

NMS2A 

012166R 

N$TRC 

000106 

OP$LOC= 

000001 

MXCALL= 

000040 

NMS5A 

012404R 

N$TTC8 

000110 

OP$LST= 

S9S29? 

MXDTEA= 

000010 

NODSAV 

001032R 

N$VC8 

000010 

OP$LTM= 

000001 

MXHEX  = 

000020 

NOINFO 

001022R 

NSVER 

000066 

OP$LVL= 

000010 

MX25AC 

000707R 

NROUT 

000426R 

NSXLEN 

000124 

OP$MAC= 

000010 

MX25PR 

000672R 

NSPEC 

00041 1R 

N$$ACC= 

000001 

0P$MCO= 

000002 

MX25S\/ 

000722R 

NTINAM 

001024R 

N$$BUF= 

000001 

0P$MDE= 

000400 

MX29SV 

000735R 

NXT8LK 

025006R 

N$$LDV= 

000001 

OP$HLI= 

000004 

M$$CRB= 

000124 

NXTC1R 

025050R 

N$$MCP= 

000001 

OP$MON= 

000100 

M$$CRX= 

000000 

NXTDST 

024126R 

N$$MLL= 

000001 

0P$MST= 

000020 

M$$FCS= 

000000 

NXTDTE 

021126R 

N$$M0V= 

000010 

0P$NAM= 

000004 

M$$MGE= 

000000 

NXTGfiP 

021662R 

N$$NCT= 

000001 

OP$NEr= 

004000 

M$$NET= 

000000 

NXTLIN 

025120R 

N$$PEM= 

000001 

OP$NLI= 

000002 

M$$OVR= 

000000 

NXTRDT 

016522R 

0ERR1 

002510R 

OP$NOD= 

000020 

NERR1 

014040R 

N$ACQ 

000000 

OFF 

000077R 

OP$OUT= 

002000 

NF$ACC= 

100000 

NSACTL 

000032 

0F$INS= 

000001 

OP$OWN= 

000020 

NF$8LK= 

000100 

NSADJI 

000072 

OF$LOG= 

000100 

OP$PAR= 

000010 

NF$DM0= 

000010 

N$ADJ2 

000074 

OF$OFF= 

000002 

OP$PRI= 

000010 

NF$EVT= 

040000 

NSCACH 

000062 

OF$ON  = 

000000 

OP$RET= 

010000 

NF$MOU= 

000040 

N$CJR 

000034 

OF$SMr= 

000200 

OP$RPA= 

000010 

NF$RST= 

000002 

N$CRC 

000120 

OF.PRO= 

oooc;o 

OPISCO= 

000001 

NF$SCN= 

000020 

N$DLA 

000020 

OF.RLU= 

0001  CO 

OP$SEG= 

000400 

NF$SHU= 

000004 

N$DLY 

000014 

OF.SMC= 

000200 

OP$SER= 

000400 

NF$TIM= 

000200 

NSELEN 

OC005' 

OKNOWN 

000037R 

OP$SIN= 

000010 

NF.ACC= 

000001 

NJENC 

00004c 

0HSG1 

025430R 

OP$STA= 

000004 

NF.eCP= 

000040 

NSERRC 

000022 

0MSG2 

025454R 

OP$TPA= 

000020 

NF.END= 

000200 

N$FLG 

000005 

0MSG3 

025506R 

0P$TR1= 

000040 

NF.EVT= 

000002 

NSFNC 

000006 

0MSG4 

025552R 

OP$UCS= 

000020 

NF.LLI= 

000004 

NSGENQ 

000052 

0MSG5 

02561 6R 

OP$USE= 

000002 

NF.LV2= 

000100 

N$GTM 

000015 

0MSG6 

025660R 

OP$VEC= 

000040 

NF.SLI= 

000400 

N$HC1 

000052 

ON 

000064R 

OP$VtR= 

000040 

NF.SMC= 

000020 

N$HC2 

000056 

OP$ADD= 

000200 

OP$XAC= 

000001 

NF.SUP= 

000010 

NSHIGH 

000033 

OP$ALL= 

000200 

OP$XPR= 

00C002 

NKNOWN 

000362S 

N$LLT 

000026 

OPSCCS^ 

000004 

0P$X5S= 

000004 

NLMSG1 

030024R 

NSLLTM 

000024 

OP$CIE= 

004000 

0P$X9S= 

C0001 0 

NLMSG2 

030034R 

N$LVC 

000036 

OP$CON= 

000400 

OSPEC 

OOL055R 

NLOOP 

000376R 

N$LV1 

000002 

OP$COP= 

OOCOOl 

O.fLG 

OOCOO? 

NMG13A 

013716R 

N$LV2 

000010 

OP$COS= 

000100 

O.LEN 

000012 

NMSG1 

012056R 

N$M8XQ 

000050 

OP$DST= 

000200 

O.LNK 

000000 

E  8 


VDIS  -  VNP  SHOW  COMMANDS 


MACRO  V05.03b  Monaay  15-Jul-85  12:14  Page  66-4 


VDIS      CREATED  BY  MACRO  ON  15-JUL-85  AT  12:17 
SYMBOL  CROSS  REFERENCE 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

LS.CX5 

=  OC0400 

#5-99 

39-2583 

LS.ECH 

=  001000 

#5-99 

LS.FDX 

=  OC4000 

#5-99 

LS.HDX 

=  010000 

#5-99 

LS.HLP 

=  000012 

#5-99 

LS.LIN 

=  000003 

#5-99 

LS.LMC 

--   000007 

#5-99 

LS.LOG 

=  000C20 

#5-99 

LS.MOD 

=  000036 

#5-99 

LS.NOD 

=  000014 

#5-99 

LS.NTI 

=  000013 

#5-99 

LS.OBJ 

=  000022 

#5-99 

LS.OPT 

=  000400 

#5-99 

L^.PRO 

=  000002 

#5-99 

L  .TOP 

=  002000 

#5-99 

L..TST 

=  000010 

#5-99 

LS.UNF 

=  020000 

#5-99 

LS.XIT 

=  000011 

#5-99 

LTRIB 

000621  R 

#6-216 

53-3989 

55-4419 

LX.ALI 

=  000017 

#5-99 

LX.CEX 

=  000004 

#5-99 

LX.CIR 

=  000034 

#5-99 

LX.LIN 

=  000006 

#5-99 

LX.LOCj 

=  000021 

#5-99 

LX.NOC 

=  000015 

#5-99 

LX.OBJ 

=  000023 

#5-99 

LX.PRO 

=  000005 

#5-99 

LX25 

000641  R 

#6-217 

53-3979 

LSDTEA 

0C0020 

35-2638 

36-2714 

37-2768 

LSDTEL 

000017 

35-2639 

36-2711 

37-2' 59 

LSLEN 

000122 

36-2706 

37-2767 

LSLLCH 

000016 

35-2652 

LSMCHN 

000036 

35-2664 

LSNMST 

000003 

35-2645 

L.COST 

000015 

#5-96 

53-3967 

L.CTL 

000012 

#5-96 

21-1243 

27-2028 

28-2201 

56-4585 

57-4637 

L.CVA 

177776 

#5-96 

L.DD,1 

000002 

#5-96 

21-1230 

55-2660 

47-3426 

52-3904 

L.DDS 

000004 

#5-96 

L.DL. 

0000C3 

#5-96 

46-3394 

53-4011 

53-4039 

53-4070 

55-4427 

L.DLM 

000006 

#5-96 

53-4020 

53-4048 

53-4079 

L.DLb 

000010 

#5-96 

53-4018 

53-4021 

53-4046 

53-4049 

53-4077 

53-4080 

L.ENA 
L.FLG 

000066 
000000 

53-4021 
#5-96 

27-1962 

27--966 

28-2178 

53-3968 

53-3985 

53-3990 

53-3999 

53-4012 

53-4041 

53-4072 

53-4108 

53-4135 

53-<140 

53-4143 

5?-^J62 

53-4166 

53-4170 

53-4 18S 

53-4233 

55-4415 

55-4420 

55-4500 

55-4503 

55-4507 

57-4654 

L.KR9A 

000016 

#5-96 

55-4462 

55-4473 

L.LtN 
1  .MPF 

=  000022 
000022 

#5-96 
#5-96 

27-r 

27-2047 

27-2062 

27-2110 

53-4111 

53-4146 

53-4175 

55-4239 

L.NMS'' 

000020 

#5-96 

55-4,,, 

55-4440 

L.NSTA 

000014 

#5-96 

21-1257 

27-1964 

27-204C 

27-2105 

53-3970 

53-3982 

53-4105 

53-4158 

53-4164 

53-4186 

53-4236 

55-441; 

55-4505 

57-4656 

VDIS 
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VDIS      CREATED  Bv  MACRO  ON  15-JUL-85  AT  12:17 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE  REFERENCES 

31-2385  #33-2492  33-2A93 

#33-250A    33-2505  #33-2507 

34-2608  #3A-2610  34-2611 

#35-2681    35-2682  #35-268. 

37-2794  #39-2901  39-290^' 

#40-3076    40-3077  #40-3079 

40-3089  #40-3091  40-3092 

#40-3103    40-3104  #40-3106 

42-3195  #48-3512  48-3513 

#48-3525    48-3526  #48-3528 

49-3664  #49-3666  49-3667 

#51-3824    51-3825  #51-3827 

51-3837  #51-3839  51-3840 

#51-3851    51-3852  #52-3916 

53-4287  #53-4289  53-4290 

#53-4301    53-4302  #53-4304 

54-4363  #54-4365  54-4366 

#55-4532    55-4533  #55-4535 

55-4545  #55-4547  55-4548 

$$$ARG  =  000000       #6-267     6-267  6-267 
$$$GLB  =  »♦»♦*♦       6-267     6-268 

$$$$    =  034164  R     #6-237  #8-353  #8-357 

#12-764  #12-767  #12-770 

#12-792  #12-795  #26-1831 

#26-1853  #26-1857  #26-1860 

#26-1881  #26-1887  #26-1891 

#29-2281  #31-2376  #31-2379 

#33-25)5  #33-2508  #33-2511 

#35-2682  #35-2685  #37-2788 

#40-3077  #40-3080  #40-3083 

#40-3104  #40-3107  #40-3110 

#4''-3526  #48-3529  #49-3658 

#51-3825  #51-3828  #51-3831 

#51-3852  #52-3917  #52-3920 

#53-4302  #53-4305  #53-4309 

#55-453:  #55-4536  #55-4539 

.MGMGE  :  ..»»..  GX     53-4016    53-h044  53-4075 
.TLGTH  =  ♦.»••♦   GX     60-4778 
.TSKMD  =  ••♦•♦*  GX     60-4778 
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CREF   04.00 

#33-2495 

33-2496 

#33-2498 

33-2499 

#33-2501 

33-2502 

33-2508 

#33-2510 

33-2511 

#34-2602 

34-2603 

#34-2607 

#34-2613 

34-2614 

#34-2616 

34-2617 

#35-2678 

35-2679 

35-.°?5 

#37-2787 

37-2788 

#37-2790 

37-2791 

#37-2793 

#39-2906 

39-2907 

#40-3070 

40-3071 

#40-3073 

40-3074 

40-3080 

#40-3082 

40-3083 

#40-3085 

40-3086 

#40-3088 

#40-3094 

40-3095 

#40-3097 

40-3098 

#40-3100 

40-3101 

40-3107 

#40-3109 

40-3110 

#42-3189 

42-3190 

#42-3194 

#48-3515 

A8-3516 

#48-3518 

48-3519 

#48-3521 

48-3522 

48-3529 

#i9-3657 

49-3658 

#49-3660 

49-3661 

#49-3663 

#50-3723 

50-3724 

#50-3726 

50-3727 

#50-3729 

50-3730 

51-3828 

#51-3830 

51-3831 

#51-3833 

51-3834 

#51-3836 

#51-3842 

51-3843 

#51-3845 

51-3846 

#51-3848 

51-3849 

52-3917 

#52-3919 

52-3920 

#53-4283 

53-4284 

#53-4286 

#53-4292 

53-4293 

#53-4295 

53-4296 

#53-4298 

53-4299 

53-4305 

#53-4308 

53-4309 

#53-4311 

53-4312 

#54-4362 

#54-4368 

54-4369 

#54-4371 

54-4372 

#55-4529 

55-4530 

55-4536 

#55-4538 

55-4539 

#55-4541 

55-4542 

#55-4544 

#6-268 

6-268 

6-268 

#8-363 

#9  ■435 

#10-548 

#10-551 

#11-641 

#12-761 

#12-773 

#12-777 

#12-780 

#12-783 

#12-786 

#12-789 

#26-1834 

#26-' 837 

#26-1840 

#26-1843 

#26-1846 

#26-1849 

#26-1863 

#26-1866 

#26-1869 

#26-1872 

#26-1875 

#26-1878 

#26-1894 

#26-1897 

#26-1900 

#26-1903 

#27-2137 

#28-2241 

#31-2382 

#31-2385 

#33-2493 

#33-2496 

#33-2499 

#33-2502 

#34-2603 

#34-2608 

#34-2611 

#34-2614 

#34-2617 

#35-2679 

#37-2791 

#37-2794 

#39-2902 

#39-2907 

#40-3071 

#40-3074 

#40-3086 

#40-3089 

#40-3092 

#40-3095 

#40-3098 

#40-3101 

#42-3190 

#42-3195 

#48-3513 

#48-3516 

#48-3519 

#48-3522 

#49-3661 

#49-3664 

#49-3667 

#50-3724 

*50-3727 

#50-3730 

#51-3834 

#51-3837 

#51-3840 

#51-3843 

#51-3846 

#51-3849 

#53-4284 

#53-4287 

#53-4290 

#53-4293 

#53-4296 

#53-4299 

#53-4312 

#54-4363 

#54-4366 

#54-4369 

#54-4372 

#55-4530 

#55-4542 

#55-4545 

#55-4548 
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199 

200 

201 

202 

203 

204 

20S 

000006 

206 

000006 

207 

000050 

208 

077777 

209 

000377 

210 

000003 

211 

000740 

.SBTTL   LOCAL  SYMBOL  DEFINITIONS 
LOCAL  SYMBOL  DEFINITIONS 


MXCON 

=  6 

I'lXMON 

=  6 

MXFIL 

=  40. 

MXVER 

^  11171 

MXUNT 

=  377 

MXr'lLN 

=  3 

CUSTEV 

=  ^80. 

MAXIMUM  LENGTH  OF  CONSOLE  NAME  STRING 

MAXIMUM  LENGTH  OF  MONITOR  NAME  STRING 

MAXIMUM  LENGTH  OF  FILE  NAME  STRING 

MAXIMUM  FILE  VERSION  NUMBER 

MAXIMUM  DEVICE  UNIT  NUMBER  VALUE 

MAXIMUM  NUMBER  OF  RAD50  WORDS  FOR  FILE  NAME 

BEGINNING  CLASS  FOR  CUSTOMER  SPECIFIC  EVENTS 
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738  001700 

739  001 70A 

740  001706 

741  001712 

742  001714 

743  001716 

744  001722 

745  001724 

746  001726 

747  001730 

748  001734 
749 

750 
751 

752  001736 

753  001746 

754  001756 

755  001766 

756  001776 


016701 
006301 
066701 
011101 
100030 
016702 
006302 
060201 
010411 
110061 


OOOOOOG 
OOOOOOG 


OOOOOOG 


000001 


20$: 


MOV 

ASL 

ADD 

MOV 

BPL 

MOV 

ASL 

ADD 

MOV 

MOVB 

RETURN 


$SLN,R1 

R1 

SLLCTA.RI 

(R1),r1 

105$ 

$TRI8,R2 

R2 

R2,R1 

h4,(R1) 

RO.KRD 


ERROR  CONDITIONS 


101$ 
102$ 
103$ 
104$ 
105$ 


ERRPT$ 
ERRPT$ 
ERRPT$ 
ERRPT$ 
ERRPT$ 


ERR36,$EROUT 
ERR35,$ER0UT 
ERfi21,$Et<0UT 
ERR37,$ER0UT 
ERR22,$EROUT 


GET  SLN 

MAKE  IT  A  WORD  OFFSET 

POINT  AT  ENTRY  IN  REV.  MAPPING  TABLE 

GET  ADDRESS  OF  ST'TION  MAPPING  TABLE 

IF  PL,  SOMETHING  io  SCREWED  UP 

GET  THE  TRIBUTARY  NUMBER 

MAKE  IT  A  WORD  OFFSET 

AND  POINT  AT  ENTRY 

STORE  CHANNEL  NUMBER 

AND  PDV  INDEX 


PROCESS  NOT  IN  SYSTEM 

LINE  IN  WRONG  STATE 

LINE  NOT  IN  SYSTEM 

NO  FREE  CHANNELS 

SLT  AND  REVERSE  TABLE  MISMATCH 
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032767     OOOOOOG 
OOUU 


026767     00001 ?G 

000A13 

026767  C00012G 

001007 

026767  OOOOIAG 

001003 

026767  00001 6G 


VENA  -  VNP  ENABLE/DISABLE  LINES 
CHKEXE  -  CHECK  IF  EXECUTOR  NODE 


1251 

1252 

1253 

125A 

1255 

1256 

1257 

1258 

125° 

1260 

1261 

1262 

1263  003730 

126A  003730 

1265  003736 

1266 

1267  0037A0 

1268 

1269  003760 

1270  003766 

1271  003770 

1272  003776 

1273  OOAOOO 
127A  0OA0O6 

1275  004010 

1276  004016 
1277 

1278 
1279 
12f0 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 

1290  004020 

1291  004040 

1292  004046 
1293 

1294  004052 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307  004054 


D  13 

MACRO  V05.03b  Wednesday  11-Sep-85  12:06  Page  26 


.SBTTL  CHI^EXE  -  CHECK  IF  EXECUTOR  NODE 

h 

»♦*  -  CHKEXE  -  CHECK  EXECUTOR  NODE 

INPUTS: 

SVFLAG  =  VNP  PROCESSING  FLAGS 

OUTPUTS: 

Z-BIT  =  SUCCESS/FAILURE 


CHKEXE: 


OOOOOOG 


C00014G 

000006G  10$: 

OOOOIOG 

000012G 

20$: 


BIT 
BEQ 


#VF. ADD, SVFLAG 
10$ 


GETRV   $DECPT,#D$END 


;  WAS  NODE  ADDRESS  OR  NAME  GIVEN  ? 
;  IF  EQ,  NODE  NAME  WAS  GIVEN 

;  READ  DECNET  HOME  SLOCK 


CMP  RQ8+LR.ADD,$BFR+D$LNUM  ;  IS  THIS  THE  EXECUTOR  NODE  ADDRESS 

BR  20$  ;  RETURN  Z-BIT 

CMP  RQBtLR.NAM,$BFR+D$LNAM  ;  IS  THIS  THE  EXECUTOR  NODE  NAME  ? 

BNE  20$  ;  IF  NE,  NO 

CMP  RQ8+LR.NAM+2,$BFR+D$LNAMt2  ;  IS  IT  REALLV  THE  EXECUTOR  ? 

BNE  20$  ;  IF  'IE,  NO 

CMP  RQ8+LR.NAM+4,$8FR+D$LNAM+4  ;  LAST  CHANCE 

RETURN 


NSP  SEGMENT  SIZE  MODIFICATION 

INPUTS: 

RQB+LO.SEG  =  SEGMENT  SIZE 

OUTPUTS: 

DECNET  HOME  BLOCK  UPDATED 


$VSEG::    GETRV       $DECPT,#D$El,T 
016767     C00054G  000036G  MOV  L0.SEGtRQ8,SBFR+D$SEG 

PUTRC 

RETURN 


INCOMING  TIMER 

INPUTS: 

RQB+LO.INC  =  INCOMING  TIMER 

OUTPUTS: 

DECNET  HOME  BLOCK  UPDATED 


READ  HOME  BLOCK 
STORE  SEGMENT  SIZE 
WRITE  HOME  BLOCK 


SVINC::  GETRV   $DECPT,#D$END 


READ  HOME  BLOCK 
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1780 

.SBTl 

L  GTSLT  -  FIND 

SLT 

ADDRESS  AND  STATION  NUMBER 

1781 

+ 

1782 

*»-$GTSLT-FIND  SLT  ADDRESS 

AND 

STATION  NUMBER 

1783 
178A 

FIND 

THE  SYSTEM  LINE 

TABLE  ADDRESS  ^^D  STATION  NUMBER  ASS0CIA1ED 

1785 

WITH 

A  GIVEN  PDV  AND 

CHANNEL  #. 

1786 

1787 

INPU 

S: 

i788 

R2  - 

CHANNEL  NUMBER 

1789 

1790 

OUTPUTS: 

1791 

R2  - 

POINTER  TO  SLT 

1792 

R3  - 

STATION  NUMBER 

1793 

- 

179A 

1795  0060A4 

010046 

3TSLT: 

MOV 

ro,-(sp: 

SAVE  RO 

1796  006046 

010146 

MOV 

R1,-(SP) 

SAVE  Rl 

1797  906050 

042702 

177'.00 

8IC 

#*C<377>,R2 

CLEAR  OUT  EXTRANEOUS  BITS  IN  CHANNEL  NUMBER 

1798  006054 

010203 

MOV 

R2,R3 

SAVE  CHANNEL  NUMBER 

1799  006056 

CALL 

CHKXPT 

FIND  XPT'S  PDV  ADDRESS 

1800  006062 

103417 

BCS 

10$ 

IF  CS,  NO  XPT 

1801  006064 

006303 

g 

R3 

FORM  WORD  INDEX  FROM  CHANNEL  NUMBER 

\t"}2   006066 

060003 

R0,R3 

INDEX  INTO  PDV 

1803  006070 

016302 

OOOOOOG 

Z.MAP(R3),R2 

GET  THE  SLN/STATION  # 

1804  006074 

010203 

MOV 

R2,R3 

SAVE  FOR  LATER 

1805  006076 

042702 

177400 

BIC 

#'«C<377>,R2 

ISOLATE  SYSTEM  LINE  # 

1806  006102 

C06302 

ASL 

R2 

FORM  WORD  OFFSET 

1807  006104 

066702 

OOOOOOG 

ADD 

$SLTMA,R2 

POINT  INTO  SYSTEM  LINE  INDEX  TABLE 

1808  006110 

011202 

MOV 

(R2),R2 

GET  SLT  ADDRESS 

1809  006112 

000303 

SWAB 

R3 

GET  STATION  ADDRESS  TO  LOW  BYTE 

1810  006114 

042703 

177400 

BIC 

**C<377>,R3 

ISOLATE  STATION  # 

1811  006120 

000241 

CLC 

INDICATE  SUCCESS 

1812  006122 

012601 

10$: 

MOV 

(SP)+,R1 

RESTORE  Rl 

1813  006124 

012600 

MOV 

(SP)+,RO 

RESOTRE  RO 

1814  006126 

RETURN 
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-   SET/CLEAR   ALIAS 


2401  011512 

2402  011516 

2403  011522 

2404  011524 

2405  011526 

2406  011532 

2407  011536 

2408  011540 

2409  011%2 

2410  Or546 

2411  011552 

2412  011554 

2413  011556 

2414  011562 
2415 

2416 
2417 

2418  011564 

2419  011572 
2420 

2421  011600 

2422  0116C2 

2423  011612 

2424  011626 
2425 

2426  011632 

2427  011640 

2428  011660 
2429 

2430  011666 

2431 

2432 

2433 

2434 

2435 

2436  011670 

2437  011700 

2438  011710 
2439 

2440 
2441 
2442 
2443 
2444 

2445  011720 

2446  011722 

2447  011724 

2448  011726 

2449  011730 

2450  011732 


012702 
112203 
110321 

012702 
112203 
110321 

012702 
112203 
110321 

012601 


016767 
010046 
012667 


000020G 


00004 IG 


000052G 


OOOOOOG  OOOOOOG 


OOOOOOG 


CALL 

MOV 

MOVB 

M0V8 

CALL 

MOV 

MOVB 

MOVB 

CALL 

MOV 

MOVB 

MOVB 

CALL 

MOV 

INSERT  ENTRY 


MOV 
SWTCHO 

MOV 

CEACCS 
PUTAD 
MOV 

SWTCHO 

PUTRC 

SWTCHO 


40$: 


MOVE 

#RQ8tLR.UIC,R2 

(R2)*,R3 

R3,{R1)* 

MOVE 

#RQB+LR.PAS,R2 

(R2)*,R3 

R3,(Rl)t 

MOVE 

#RQ8+LR.AC0,R2 

(R2)+,R3 

R3,(R1)+ 

MOVE 

(SP)^RI 

INTO  ALIAS  LIST 

$HM8UF+D$ANN,$8FR 


R0,-fSP) 

RO 

RO.Rl 

(SP)+,$HMBUF+D$ANN 

#$HM8UF 
$DECPT,#D$END 


50$:    RETURN 


ERROR  CONDITIONS 


101$ 
102$ 
103$ 


ERRPT$ 
ERRPT$ 
ERRPT$ 
.DSABL 


ERR24,$EROUT 
ERR25,$EROUT 
ERR19,$ER0L'T 
LSB 


005703 
00''403 
112221 
005303 
003575 


;    MOVE    SUBROUTINE 

MOVE:        TST 

R3 

BEQ 

20$ 

10$:          MOVB 

(R2)* 

(R1)  + 

DEC 

R3 

BGT 

10$ 

20$: 


RETURN 


STORE  DESTINATION  FIELD 

GET  ADDRESS  OF  INPUT  BUFFER 

GET  LENGTH  OF  UK  FIELD 

STORE  LENGTH  OF  UK  FIELD 

STORE  UK  FIELD 

GET  ADDRESS  OF  INPUT  BUFFER 

GET  LENGTH  OF  PASSWORD  FIELD 

STORE  LENGTH  OF  PASSWORD  FIELD 

STORE  PASSWORD  FIELD 

GET  ADDRESS  OF  INPUT  BUFFER 

GET  LENGTH  OF  ACCOUNT  FIELD 

STORE  LENGTH  OF  ACCOUNT  FIELD 

STORE  ACCOUNT  FIELD 

RESTORE  SIZE  OF  ALIAS  BLOCK 


INSERT  ENTRY  INTO  FRONT  OF  LIST 
USE  DEFAULT  OUTPUT  BUFFER  ($BFR) 


CONVERT  TO  MAPPED  ADDRESS 

WRITE  OUT  ALIAS  BLOCK 

SET  UP  NEW  FIRST  ALIAS  POINTER 

USE  TEMPORARY  BUFFER 

WRITE  BACK  DECNET  HOME  BLOCK 

RESET  DEFAULT  BUFFER 


ALIAS  NOT  IN  SYSTEM 

ALIAS  BLOCK  ALLOCATION  FAILURE 

NODE  NOT  IN  SYSTEM 


ANY  DATA  ? 

IF  EO,  NO 

ELSE,  STORE  BYTE 

ANY  MORE  ? 

IF  GT,  YES 
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2922 
2923 
292A 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
293^ 
2935 
2936 
2737 
2938 
2939 
29^0 
29-11 
29A2 
29^.3 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 


013572 
013576 
013600 
013602 
013604 
013606 
013610 
013612 
013614 
013616 
013620 
013622 
013624 
013626 
013630 
013632 


012700 
005046 
105710 
001406 
005200 
005216 
020116 
103372 
005726 
000404 
012604 
001402 
000241 
000401 
000261 


000035G 


.SBTTL  GETLEN  -  GET  LENGTH  Of  SINK  NAME  STRING 


GETLEN  -  GET  LENGTH  Of  SINK  NAME  STRING 

INPUTS: 

RQ8+L0.SNM  -  SINK  NAME 

Rl        -  MAXIMUM  NUMBER  Of  CHARACTERS  fOR  SINK  NAME 


OUTPUTr 


CARRY 

RU 

R4 


GETLEN:  MOV 


-  SUCCESS/fAILURE 

-  POINTS  TO  BYTE  AfTER  END  Of  SINK  NAME 

-  NUMBER  Of  BYTES  IN  SINK  NAME 


10$: 


20$: 


30$: 
40$: 


CLR 

TST8 

BEQ 

INC 

INC 

CMP 

BHIS 

TST 

BR 

MOV 

BEQ 

CLC 

BR 

SEC 

RETURN 


#RQ8*LO.SNM,R0 

-(SP) 

(RO) 

20$ 

RO 

(SP) 

R1,(SP) 

10§ 

(SP)  + 

30$ 

(SP)+,R4 

30$ 

40$ 


POINT  TO  SINK  NAME 

USE  STACK  AS  COUNTER  fOR  STRING  LENGTH 

END  Of  STRING? 

BR  If  NO 

POINT  TO  NEXT  CHARACTER 

UPDATE  STRING  LENGTH 

VALID  LENGTH  fOR  MONITOR  NAME? 

BR  IF  YES 

ELSE  CLEAN  UP  STACK 

ELSE  INDICATE  ERROR 

GET  NUMBER  Of  CHARACTERS  IN  NAME 

BR  If  ZERO 

INDICATE  SUCCESS 

AND  EXIT 

INDICATE  ERROR 
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1260  006700 

1261  006702 

1262  006706 

1263  006710 
1264 

1265  0067H 

1266  006720 

1267  006724 

1268  006730 

1269  006732 

1270  00673A 


005001 
156301 
005002 


112720 
112720 
112720 
005726 
005726 


000021 


000042 
OOOOAO 
000040 


30$: 


CLR 

R1 

GET  THE  TRIBUTARY  NUMBER 

BiSB 

f.LIN+1(R3),R1 

CLR 

R2 

SUPPRESS  LEADING  ZEROES 

CALL 

SCBDMG 

CONVERT  IT  TO  ASCII 

MOVB 

#"',(RO)t 

STORE  TRAILING  DELIMITER 

M0V8 

*SPACE,(RO)*- 

STORE  SPACES 

MOVB 

#SPACE,(RO)+ 

Tsr 

(SP)  + 

CLEAN  UP  STACK 

TST 

(SP)  + 

RETURN 

VDIS  -  VNP   SHOW  COMMANDS 
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VI 


VDIS  -  VNP  SHOW  COMMANDS 

$DNOD  - 

SHOW  NODE 

1872 

013132 

1873 

1874 

013136 

1875 

013172 

1876 

1877 

013200 

1878 

013240 

1879 

1880 

013250 

1881 

013313 

1882 

1883 

1884 

013324 

1885 

013410 

1886 

013472 

1887 

013550 

1888 

1889 

013570 

1H90 

013660 

,391 

013  :4 

1892 

1893 

013726 

1894 

013747 

1895 

1896 

013752 

1897 

013767 

1898 

1899 

013774 

1900 

014011 

1901 

1902 

014014 

1903 

014036 

1904 

1905 

E  2 
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ERBLKS  NMSG10 

ERMSGI  <   Verification  state  =  XMN> 

ERBLKS  NMSGll,<TtMP2> 

EflSGS  <   Host  =  XO,   Maximum  links  =  XD> 

ERBLKS  NMSG12,<TEMP3,TEMP1> 

ERMSGS  <   Host  =  XO.Xt),   Maximum  links  =  X0> 

ERBLKS  NMS12A,<TEMP7,TEMP3, TEMPI > 

ERMSGS  <   Segment  buffer  size  =  XD, Retransmit  factor  =  XDXN> 

ERMSGS  <   Incoming  time'  =  3!D,     Outgoing  timer  =  5!DJIN> 

ERMSGS  <   Inactivity  timer  =  XD.         Delay  factor  =  XD> 

ERBLKS  NMSGl 3 , <TEMP2 , 7EMP3 , TEMP4 , TEMP5 , TEMP6 . TEMP7> 

ERMSGS  <   Delay  weight  =  XD,      Link  service  threshold  =  5!DXN> 

ERMSGS  -   Input  packet  limiter  =  X\)> 

ERBLKS  NMG13A,<TEMP2,TEMP3,TEMP4> 

ERMSGS  <!(NExecutor  nodei(N> 

ERBLKS  NMSGl 4 

ERMSGS  <   State  =  '  \> 

ERBLKS  NMSG15,<TEMP1> 

ERMSGS  <   Type  =  DLX> 

ERBLKS  NMSG16 

ERMSGS  <Node  not  in  system> 

ERBLKS  NERR1 

.DSABL  LC 


VD 
DM 
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tnriR  -  SHOW  riRCJMT 


MACRO  V05.03b  Monday  15-Jul-85  12:14  Page  27 
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2A13 
24U 
2^15 
2A16 
2A17 
2^18 
2419 
2A20 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 

r448 

2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
?469 


016562 
016562 
016570 
016572 
016576 
016602 

016620 
016622 
016630 
016632 
016636 
016642 
016646 
016652 
016656 
01666C 

016666 

016672 

016674 

016676 

016700 

016704 

016706 

016716 

016722 

016726 

016732 

0167'- 

0167 

01674^ 

016752 

016756 

016760 

016764 

016770 

CI  6772 

016776 

017000 

C17010 

017014 

017016 

017026 

CI  7032 


.SBTTL  DMXACN  -  Display  X25-ACCESS  networks 
***   DMXACN  -  Display  X25-ACCESS  networks 


INPUTS 


SPSIPT  -  Address  of  PSI  homeblock 
$OPTON  -  Command  option  flags 
ROB    -  Request  block 


OUTPUTS 


Information  displayed  on  user's  terminal 


032767 
001552 
016700 
062700 


005000 
032767 
001002 
012700 
012701 
012702 
012703 

103507 
C52767 

012702 
005701 
001403 
112022 

105012 

012701 
012702 
012700 
112022 

105012 

116701 
001414 
012700 
012702 
112022 

105012 

116701 
001404 

116701 
001414 


OOOOOOG  OOOOOOG 

OOOOOOG 
000042 


DMXACN: 


010000  OOOOOOG 

000002G 
000104 
000003 
000002 


000004  162706 
001034' 


10$: 


20$: 


000006 

001034' 

000023G 


000031G 

000032G 
001034' 


000052G 
000065G 


30$: 
35$: 

45$: 


55$: 

60$: 
70$: 


BIT 
BEQ 
MC/ 
ADD 
GETRV 

CLR 

BIT 

BNE 

HOV 

MOV 

MOV 

MOV 

CALL 

BCS 

BIS 

BEQ 

MOVB 

SOB 

CLRB 

ERRPT$ 

MOV 

MOV 

MOV 

MOVB 

SOB 

CLRB 

ERRPT$ 

MOVB 

BEO 

MOV 

MOV 

MOVB 

SOB 

CLRB 

ERRPT$ 

MOVB 

BEQ 

ERRPT$ 

MOv^e 

BEO 


#PF.XGA,$PFLAG 

92$ 

$PSIPT,RO 

#H$RNW,R0 

R0.#2 

RO 

*OP$KNT,«;0?TON 

20$ 

#rqb+lo.^(:t,ro 

#R$NWL,R1 

#R$NUK,R.; 

*R$NML,';3 

FNDBLK 

90$ 

#F.fND, FLAGS 

#TEMP1,R2 

R1 

35$ 

(fiO)+.(R2)+ 

R1,30§ 

(rJ) 
acns1,msg0ut 

«6,R1 

rfTEMP1,R2 

#$8FR+R$NOD,R0 

(fiO)+,(R2)+ 

R1.45$ 

(R2) 

ACNS2,MSG0UT 

$8FR+R$USL,R1 

60$ 

#$8FR+R$USR,R0 

#TEMP1,R2 

(R0)+,(R2)+ 

R1.55$ 

(R2) 

ACNS3,MSG0ljT 

$BFR*R$PAL,R1 

70$ 

ACNS4,MSG0UT 

$8FRtR$ACL,R1 

80$ 


Check  for  host  access  system 

Branch  if  not  host 

Get  address  of  listhead 

Read  in  listhead 

Assume  no  network  specified 

Are  we  looking  for  KNOWN  NETWORKS? 

Branch  if  yes 

Look  for  specified  network 

Length  of  remote  network  block 

Offset  of  network  name 

Offset  of  network  name  length 

Look  for  matching  block 

Branch  if  not  found 

Indicate  block  found 

Copy  network  name  to  message 


Show  network  name 

Copy  node  name  to  message 


Show  node  name 
Get  length  of  user  id 
Branch  i f  no  user  name 
Copy  user  id  to  message 


Show  user  id 

Get  length  of  password 

Branch  i t  no  password 

Display  'password  set'  message 

Get  length  of  account 

Branch  i f  no  account 


;CTD001] 
;[TD00n 
;CTD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
.-[TDOOn 
;CTD001] 
;CTD001] 
;[TD0On 
;CTD001] 
;CTD001] 
.•CTDOOID 
;CTD001] 
;CTD001] 
;tTD001] 
.-CTDOOI] 
;[TD001] 
;[TD001] 
; CTDOOI] 
;lTD001] 
; CTDOOI] 
;  CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
;  CTDOOI] 
;  CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
; CTDOOI 3 
; CTDOOI] 
; CTDOOI] 
;CTD001] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
;CTD001] 
;  CTDOOI] 
;  CTDOOI] 
;  CTDOOI] 
.-CTDOOI] 
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DMDST  -  SHOW  MODULE  X2n-SERVER  DESTINATION 


2966  022554 

2967  022564 

2968  022570 

2969  022572 

2970  022602 
2'>71   022604 

2972  022610 

2973  022612 

2974  022616 

2975  022620 

2976  022624 

2977  022626 

2978  022636 

2979  022640 

2980  022644 

2981  022652 

2982  022660 

2983  022662 

2984  022666 

2985  022672 

2986  022674 

2987  022676 

2988  022702 

2989  022704 

2990  022714 

2991  022716 

2992  022726 
2993 

2994 
2995 

2996  022730 

2997  022734 

2998  022740 

2999  022746 

3000  022754 


116701 
001405 

060100 
116701 
001412 
012702 
112022 

105012 

010004 
005067 
156767 
116767 
001016 
012702 
116701 
001403 
112322 

105012 

000437 

000432 


012704 
005067 
156767 
116767 
001405 


000026G 

000027G 
001034' 


156170 

000002G  156162 
0C0003G  156202 

001062' 
000024G 


ERRPTS  DSMSIO.MSGOUT 

38$:    M0V8  $BFfi+D$PAL,Rl 

BEQ  40$ 

ERRPT$  DSMSn.MSGOUT 

ADD  RI.RO 

40$:  MOVB  $BFRtD$ACL,R1 

BEQ  44$ 

MOV  #TEMP1,R2 

42$:    MOVB  (R0)+,(R21+ 

SOB  R1,42$ 

CLRB  (R2) 

ERRPT$  DSMS12,MSG0UT 

44$:    MOV  R0,R4 

CLR  TEMPI 

BISB  $8FR+D$FRI, TEMPI 

MOVB  $BFR+D$0BJ,TEMP2 

BNE  48$ 

MOV  #TEMP2,R2 

MOVB  $efR+D$PRL,R1 

BEQ  47$ 

46$:    MOVB  (R3)+,(R2)+ 

SOB  R1,46$ 

47$:    CLRB  (R2) 

ERRPT$  DSMS2C,MSG0UT 

BR  55$ 

48$:    ERRPT$  DSMS2B,HSG0UT 

BR  55$ 


Display  username 

Get  length  of  access  password 

Branch  i f  not  set 

Indicate  password  se' 

Step  to  account  fieij 

Get  length  of  account  field 

Branch  i f  no  account 

Move  account  to  output  buffer 


Display  account 

Save  address  of  call  data  field 

Get  priority 

Get  object  number 
Branch  if  object  is  numbered 
Hove  object  name  to  output  buffer 
...  unless  length  is  zero 


Write  object  name  and  priority 
Write  object  number  and  priority 


Display  object  and  priority  for  old-format  block 


000032G 
156074 

000002G  156066 
000003G  156106 


3001 

022756 

3002 

022766 

000412 

3003 

022770 

016767 

000004G 

156064 

52$: 

3004 

022776 

016767 

000006G 

156060 

3005 

023004 

3006 

; 

3007 

;  Displ 

3008 
3009 

023014 

010401 

b$: 

3010 

023016 

116700 

000030G 

3011 

023022 

001416 

3012 

023024 

3013 

023026 

012703 

001034' 

3C-'4 

023032 

3015 

023036 

3016 

023040 

012703 

00^062' 

3017 

023044 

3018 

023050 

3019 

3020 

023060 

116702 

000031G 

58$: 

3021 

023064 

001410 

3022 

025066 

012703 

001034' 

50$:    MOV  *$8FR+D$VBL,R4 

CLR  TEMPI 

BISB  $BFR+D$PRI, TEMPI 

MOVB  $8FR+D$0BJ,TEMP2 

BEQ  52$ 

ERRPT$  DSMS2B,MSG0UT 

BR  55$ 

MOV  $BFR+D$NAM,rEMP2 

MOV  $BFR+D$NAMt2,TEMP2+2 

ERRPT$  DSMS2A,MSG0UT 

Display  call  mask/value  and  DTE 


MOV 

R4,fi1 

MOVB 

D$DArL*-$eFR,RO 

BEQ 

58$ 

SAVRG 

<R0> 

MOV 

*TEMP1,R3 

CALL 

HEXASC 

RESRG 

<R0> 

MOV 

#TEMP2,R3 

CALL 

HEXASC 

ERRPT$ 

DSMS3,MSG0UT 

MOVB 

D$DTELt$BFR,R2 

BEQ 

60$ 

MOV 

#TEMP1,R3 

;  Set  address  of  old-format  call  data 

;  Get  priority 

;  Get  object  number 

;  Branch  if  object  named 

;  Display  priority  and  object  number 

;  Get  RAD50  task  name 

;  Display  priority  and  task  name 


Get  address  of  start  of  call  data 

Get  length  of  call  mask/call  value 

Branch  if  none 

Save  byte  count 

Point  to  temporary  buffer 

Convert  to  asicz  string 

Restore  byte  count 

Point  to  temporary  buffer 

Convert  to  ASCIZ  st:-ing 

Display  call  mask/call  value 

Get  length  of  DTE  address 
Branch  i f  no  DTE  address 
Point  to  temporary  buffer 


;[TD001] 
;CTD001D 
;CTD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;[TD00n 
;CTD001J 
;CTD00n 
.•CTDOOn 
;[TD001] 
;[TD00n 
;CTD001] 
;CTD001] 
;[TD001] 
;[TD0013 
.-LTDOOI] 
.-CTDOOn 
;CT0001] 
;CTD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;CTD001] 
.-CTDOOIj 
;[TD001] 
;CTD001] 
;[TD001] 
;[T0001] 
.-CTDOOI] 
;[TD001] 
;[TD001] 
.-CTDOOI] 
;[T0001] 
.-CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
; CTDOOI] 
.-CTDOOIj 
.-CTDOOI] 
;CTD001] 
; CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
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VD!?  -  7NP  SHOW  COMMANDS 
DISALI  -  DISPLAY  ALIAS  INFO 


3553 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
35A1 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 

3555  025666  005704 

3556  025670  001004 

3557  025672 
3558 

3559 
3560 

3561  025702  012701 

3562  025706  010300 

3563  025710  062700 

3564  000003 
3565 

3566 

3567  025722 

3568  025726 
3569 
3570 
3571 

3572  025736 

3573  025744 

3574  025750 

3575  025752 

3576  025760 

3577  025764 

3578  026004 

3579  026024  016267 

3580  026032  016300 

3581  026036  166200 

3582  026042  016201 

3583  026046 

3584  026052  066200 

3585  026056  0^-2700 

3586  026062  010067 

3587  026066  112767 

3588  026074 
3589 
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.SBTTL  DISALI  -  DISPLAY  ALIAS  INFO 


DISALI  -  DISPLAY  ALIAS  INFORMATION 

INPUTS: 

R3  =  ADDRESS  HF  ALIAS  NAME  BLOCK  .„„„..,„. 

R4  ^  0  IF  HEAULf<  IS  TO  BE  DISPLAYED  ALONG  WITH  ALIAS  NA,  INFORMATION, 

OTHERWISE  DISPLAY  ONLY  ALIAS  NAME  INFORMATION 
IF  HEADER  MESSAGE  IS  TO  BE  DISPLAYED: 

TEMPI  =  SECOND  ASCIZ  STRING  OF  HEADER  MESSAGE 

TEMP2  =  FIRST  ASCIZ  STRING  OF  HEADER  MESSAGE 

OUTPUTS: 

THE  ALIAS  NAME    INFORMATION   IS   DISPLAYED  ON   THE   USER'S    TERMINAL 

RO,   R1,    R2  DESTROYED 

ALL  OTHER  REGISTERS  PRESERVED 


PRINT  HEADER? 
BR   IF   NO 
DISPLAY  HEADER 


001034' 
000002 


112711      000000 


112767 
005763 
001454 


012702     001062' 


\mn     153070 
000010 


000004 
000010 
000002 
000010 


153150 


000006 
177400 
152746 
000000  153111 


DISALI:  TST 

R4 

BNE 

10$ 

ERRPTS 

AMSG1,MSG0UT 

;  DISPLAY  ALIAS 

NAME 

10$:    MOV 

#TEMP1,R1 

MOV 

R3,R0 

ADD 

#A.NAM,RO 

.REPT 

3 

MOV 

(R0)+,(R1)+ 

.ENDR 

30$:    MCV8 

#0,(R1) 

ERRPT$ 

AMSG2,MSG0UT 

;  GET  SCOPE  INFORMATION 

Move 

#-1, TEMPI 

TST 

A.UCB(R3) 

BEQ 

40$ 

SUTCHI 

*TEMP2 

MOV 

#TEMP2,R2 

GETRV 

A.UC8(R3),#U.IEN 

GETRV 

U.DCB(R2),*D.LEN 

MOV 

D.NAMCR2),TEMP3 

MOV 

A.UCB(R3),R0 

SUB 

D.UCB(R2),R0 

MOV 

D.UC8L(R2),R1 

CALL 

$DIV 

ADD 

D.UNIT(R2),R0 

BIC 

#177400, RO 

MOV 

RO, TEMPI 

MOVB 

#0,3+TEMP3 

SWTCHI 

STORAGE  FOR  NAME 

GET  ADDRESS  OF  ALIAS  NAME  BLOCK 

POINT  TO  ALIAS  NAME 

STORE  THE  NAME 

CREATE  ASCIZ  STRING 
DISPLAY  ALIAS  NAME 


ASSUME  SCOPE  IS  GLOBAL 

IS  SCOPE  GLOBAL? 

BR  IF  YES 

USE  TEMP2  AS  TEMP  INPUT  BUFFER 

GET  ADDRESS  OF  TEMP  INPUT  BUFFER 

READ  IN  UCB 

READ  IN  DCB 

SAVE  DEVICE  NAME 

GET  UCB  ADDRESS 

CALCULATE  OFFSET 

GET  LENGTH  OF  UCB 

POINT  TO  CORRECT  UNI i 

STORE  UNIT  NUMBER 
CREATE  ASCIZ  STRING 
$BUFR  IS  INPUT  BUFFER 
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DISCIR  -  DISPLAY  CIRCUIT  INFORMATION 


4095  031054 

230$: 

ERRPT$ 

CMSG9,MSG0UT 

A096 

4097 

4098 

4099 

;•    GET 

CIRCUIT 

OWNER 

4100 

4101    031064 

016600 

000012 

J40$: 

MOV 

12(SP),R0 

4102  031070 

016601 

000010 

MOV 

10(SP),R1 

4103  031074 

016602 

000006 

MOV 

6(SP),R2 

4104  031100 

116005 

000021 

M0V8 

L.NMSTtl(R0),R5 

4105   031104 

105760 

000014 

TSTB 

L.NSTA(RO) 

4106  031110 

001412 

BEQ 

260$ 

4107  031112 

011604 

MOV 

(SP),R4 

4108  031114 

032760 

000400     000000 

BIT 

#LF.8RO,L.FLG(R0) 

4109  031122 

001405 

BEQ 

250$                                          ; 

4110  031124 

010004 

MOV 

R0,R4 

4111   031126 

052704 

000022 

ADD 

#L.MPF,R4 

4112  031132 

116403 

000003 

250$: 

M0V8 

S.NMST+1(R4),R5 

4113  031136 

005703 

260$: 

TST 

R3 

4114  031140 

001431 

BEQ 

290$  ,     ^ 

4115  031142 

012700 

001202- 

MOV 

#TEMP3,R0 

4116  031146 

066703 

OOOOOOG 

ADD 

$PDVTA^P3 

4117  031152 

011303 

MOV 

(R3),R5 

4118  031154 

016301 

OOOOOOG 

MOV 

Z.NAM(R5),R1                          ; 

4119  031160 

CALL 

$C5TA 

4120  031164 

124027 

000040 

CMPB 

-(R0),#SPACE                          ; 

4121    031170 

001004 

BNE 

270$ 

4122  031172 

124027 

000040 

CMPB 

-{R0),#SPACE 

4123  031176 

001001 

BNE 

270$ 

4124  031200 

005300 

DEC 

RO 

4125  031202 

1^2760 

COOOOO     000001 

270$: 

MOVB 

#0,1(R0) 

4126  031210 

016600 

000012 

MOV 

12(SP),R0 

4127  031214 

280$: 

ERRPT$ 

CMSG7,MSG0UT 

4128 

4129 

;•    GET 

CIRCUIT 

STATE 

4130 

4131    031224 

016600 

000012 

590$: 

MOV 

12(SP),R0 

4132  031230 

0^',nC' 

000010 

MOV 

1P(SP),R1 

4133  031234 

012705 

001054' 

MOV 

#rEMP1,R5 

4134   031240 

012704 

000246' 

MOV 

#PCLEAR,R4 

4135  051244 

032760 

040000     000000 

300$: 

BIT 

#LF.RDY,L.FLG(RO) 

4136  031252 

001451 

BEQ 

350$ 

4137  031254 

012704 

000077' 

MOV 

#0FF,R4 

4138  031260 

105760 

000014 

TSTB 

L.NSTA(RO) 

4139  031264 

001005 

BNE 

510$ 

4140  031266 

032760 

002000     000000 

BIT 

#LF.ENA,L.FLG(R0) 

4141   031274 

0C1420 

BEQ 

550$ 

4142  031276 

000415 

BR 

340$ 

4143  031300 

032760 

000400     000000 

310$: 

BIT 

#LF.BRO,L.FLG(R0) 

4144   031306 

001404 

8EQ 

520$ 

4145   031310 

010003 

MOV 

R0,R3 

4146  031312 

062705 

000022 

ADD 

#L.MPF,R3 

4147  031316 

4148 

4149  031320 

000401 

BR 

350$ 

011605 

320$: 

MOV 

(SP),R5 

4150  031522 

152765 

000100     000000 

350$: 

BITS 

#SF.ENA,S.FLG(R5) 

4151   C31350 

C01402 

BEQ 

550$ 

DISPLAY  COST  AND  TYPE 


RESTORE  RO 

RESTORE  R1 

RESTORE  R2 

ASSUME  OWNER  IS  IN  LINE  SLT 

MULTIPOINT  CIRCUIT? 

BR  IF  NO 

GET  MULTIPOINT  FLAG  TABLE  ADDRESS 

ETHERNET  CIRCUIT  ? 

IF  NOT  -  BRANCH 

GET  MULTIPOINT  FLAG  TABLE  ADDRESS 

GET  OWNER  FROM  TRIB  EXTENSIONS 

IS  THERE  AN  OWNER  SET? 

BR  IF  NO 

STORAGE  FOR  CIRCUIT  OWNER 

INDEX  INTO  PDV  TABL5 

GET  PDV  ADDRESS 

GET  OWNER  NAME  IN  RAD50 

CONVERT  IT  TO  ASCII 

DELETE  TRAILING  BLANKS 


CREATE  ASCIZ  STRING 
GET  SLT  ADDRESS 
DISPLAY  CIRCUIT  OWNER 


RESTORE  RO 

RESTORE  R1 

STORAGE  FOR  CIRCUIT  STATE 

ASSUME  IT  IS  CLEARED 

IS  LINE  CLEARED? 

BR  IF  YES 

ASSUME  OFF 

MULTIPOINT  CIRCUIT? 

BR  IF  YES 

IS  STATE  OFF? 

BR  IF  YES 

ELSE  STATE  IS  ON 

BROADCAST  LINE  ? 

IF  NO  -  BRANCH 

COPY  SLT  ADDRESS 

CALCULATE  STATION  TABLE  ADDRESS 

CONTINUE 

GET   MULTIPOINT   STATION   ADDRESS 
IS   Si'ATE   OFF? 
BR    IF    YES 
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GTEXEC  -  GET  EXECUTOR  ADDRESS  AND  NAME 


A667 
^668 
4669 
4670 
4671 
4672 
4675 
4674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 

4682  034542 

4683  034562 

4684  034570 

4685  034574 
4686 

4687  034600 
4688 
4689 
4690 

4691  034612 

4692  034616 

4693  034620 

4694  034626 
4695 

4696 


Page  58 
SBTTL  GTEXEC  -  GET  EXECUTOR  ADDRESS  AND  NAME 


GTEXEC  -  GET  EXECUTOR  ADDRESS  AND  NAME 

INPUTS:  NONE 

OUTPUTS; 

TEMPI  =  EXECUTOR  NODE  ADDRESS  (BINARY) 
TEMP2  =  EXECUTOR  NODE  NAME  (ASCIZ) 


R0,R1  DESTROVED 


016767 
012700 
062700 

012701 
000003 


124127 
001775 
112761 


000014G  144244 

OOOOOOG 

000006 

001062' 


GTEXEC: 


000040 
000000 


10$: 


000001 


GETRV 
MOV 
MOV 
ADD 

MOV 

.REPT 

MOV 

.ENDfi 

CMPB 

8EQ 

MOVB 

RETURN 


$DECPT,*D$END 
$8FR+D$L NUM. TEMPI 
H8FR,R0 
#D$LNAM,R0 

#TEMP2,R1 

3 

{R0)+,(R1)+ 

-(R1),#SPACE 

10$ 

#0,1(R1) 


READ  DECNET  HOME  BLOCK 

GET  EXECUTOR  ADDRESS 

POINT  TO  EXECUTOR  NODE  NAME 


POINT  TO  STORAGE  FOR  EXECUTOR  NAME 
STORE  THE  NAME 
DELETE  BLANK  FILLS 
CREATE  ASCIZ  STRING 
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O.MXC 

O.NAM 

O.TYP 

"ACTIV 

PCLEAR 

PERIOD= 

PERR1 

PfIBLK= 

PF$CLC= 

PF$DLM= 

PF$EIP= 

PF$ENB= 

PF$FAI= 

PF$FM1= 

PF$FM2= 

PF$OFF= 

PF$RM1  = 

PF$RM2= 

PF$RVR= 

PF$STA= 

PF$SVC= 

PFSUP  = 

PF.XDF= 

PF.XGA= 

PKNOWN 

PLIPDV 

PMSGl 

PMSG2 

PMSG3 

PREVNT= 

PR$BED= 

PR$BEU= 

PR$BRD= 

PR$BRU= 

PR$DWN= 

PR$LCC= 

PR$MOP= 

PRSUP  = 

PSPEC 

PS$CHR= 

PS$FAI= 

PS$NTI= 

PS$OFF= 

PSSSTR= 

PSSUP  = 

PS$VER= 

PS$WT  = 

PT$BftO= 

PT$DRT= 

PT$END= 

PTILVl= 

PT$LV2= 

PT$PH3= 

PT$XAR= 

P\/MSG1 

PVMSG2 

Pl'MSG3 


000004 

000006 

000002 

000175R 

000246R 

000056 

003444R 

020000 

010000 

100000 

000002 

000001 

004000 

000100 

000200 

000000 

000020 

000040 

000010 

000004 

040000 

000004 

******  (3x 

*«♦♦*»  GX 

000216R 

001030R 

026650R 

026676R 

026722R 

001205R 

000200 

000100 

000040 

000020 

000002 

000010 

000004 

000001 

000236R 

000016 

000014 

000006 

000000 

000002 

000012 

000010 

00000'. 

000200 

000100 

000004 

000002 

000001 

000010 

000020 

032756R 

033006R 

033044R 


PVMSG4 

033070R 

PXSBLK^ 

000040 

PX$DLM= 

000200 

PX$SVC= 

000100 

P$CHN 

000004 

PSCNT 

000005 

P$CTR 

000034 

PSDRCT 

000015 

PSDRTR 

000036 

P$FLG 

000012 

PSFWD 

000030 

PSICCB 

000046 

PSIPL 

000014 

P$LCD 

000002 

P$LEN 

000052 

P$LST 

000000 

PSNRNI 

000040 

PSOCCB 

000050 

P$PFQ 

000006 

PSPKSZ 

000044 

PSRMXI 

000016 

P$RMX2 

000020 

PSRPRI 

000042 

PSRTIM 

000003 

PSSTAl 

000022 

P$STA2 

000023 

PSTIM 

000010 

PSTSCT 

000026 

PSTSIZ 

000024 

P$TYP 

000001 

P$$P45= 

000000 

P$$WRD= 

000000 

P.ACTC 

000012 

P.CFNC 

000034 

P. CHAR 

000042 

P.CONT 

000067 

P.DEDT 

000100 

P.DELT 

000076 

P. DISC 

000006 

P.DISR 

000004 

P.DVRF 

000047 

P.DVTH 

000046 

P.ECCB 

000064 

P.ENBC 

000011 

P.HDER 

000056 

P.INPQ 

000036 

P.LEN  = 

000154 

P.LERR 

000054 

P. LINE 

000010 

P. MODE 

000060 

P. MODI 

000061 

P.MTER 

000057 

P.OFFS= 

000046 

P.PARM 

000070 

P.PIND 

000066 

P.POLT 

000102 

P.RAOC 

000020 

P.RASQ 

000022 

R$LEN 

000024 

P.RBFC 

000021 

R$LNK 

000000 

P.RERR 

00005? 

RJNAM 

000002 

P.SEL 

177776 

R$NML 

000002 

P. SPEC 

000104 

R$N0D 

000023 

P.STAT 

000002 

R$NWK 

000003 

P. STMT 

000074 

R$NWL 

000104 

P.TBAD 

000062 

R$NXT 

000000 

P.TIMC 

000050 

RSOUN 

000010 

P. TIME 

000001 

R$PAL 

000052 

P.TIMR 

000000 

R$PAS 

000053 

P.TRI8 

000014 

R$USL 

000031 

P.VECT 

177732 

R$USR 

000032 

P.VEC1 

177752 

R$$DER= 

000000 

P.XAQC 

000026 

R$tK11= 

000001 

P.XAUQ 

000030 

R$$SND= 

000000 

P.XBFC 

000027 

R$$11M= 

000000 

QF$ACT= 

000001 

R.ADD 

000010 

QF$ALL= 

000002 

R.CSR 

000056 

QF$KN0= 

000004 

R.FLAG 

000012 

QF$LOO= 

000010 

R.FLG 

000064 

QSACTC 

000004 

R.LEN 

000014 

QSAUC 

000006 

R.LNK 

000000 

Q$CLEN= 

000006 

R.LST 

000104 

QSCTIM 

000000 

R.MAP 

000110 

QSICfiE 

000014 

R.NAM 

000002 

Q$LEN 

000016 

R.OUE 

000062 

QSMXAC 

000012 

R.SLN 

000070 

QSMXVC 

000002 

R.SRV 

000060 

QSTCLZ 

000010 

R.STA 

000066 

Q$$OPT= 

000010 

R.STBL 

000210 

Q.IOAE= 

000012 

SE.IRS= 

004000 

Q.IOEF= 

000006 

SE.NRS= 

002000 

O.IOFN= 

000002 

SE.RBS= 

001000 

Q.IOLU= 

000004 

SE.RBU= 

000400 

Q.IOPL= 

000014 

SE.RCH= 

000001 

Q.IOPR= 

000007 

SE.RDC= 

000002 

Q.IOSB= 

000010 

SE.RRR= 

000004 

RCVLNG= 

000044 

SE.SBS= 

000200 

RF.CTL= 

000003 

SE.SBU= 

000100 

RF.LD1= 

000040 

SE.SDC= 

000020 

RF.LD2= 

000100 

SE.SHC= 

000010 

RF.LOO= 

100000 

SE.SRR= 

000040 

RF.T1M= 

177400 

SF.ACT= 

000200 

RF.TMO= 

000400 

SF.ENA= 

OOQiOO 

RF.UFC= 

000200 

SF.LPB= 

000004 

RF.WTD= 

000020 

SF.MFL= 

000040 

RF.WTM= 

000030 

SF.PAC= 

000020 

RF.WTS= 

000010 

SF.REA= 

000010 

ROUTNG 

000416R 

SF.SER= 

009951 

ROB 

******  GX 

SF.SVC= 

000002 

RX.NXM= 

000020 

SF.UNL= 

000040 

RX.OVR= 

000010 

SHUT 

000103R 

R$ACC 

000064 

SINGLE 

000126R 

R$ACL 

000063 

SLASH  = 

000057 

RSDAL 

000013 

SMSGl 

002100R 

R$DTE 

000014 

SMSG2 

002242R 

SPACE  = 

000040 

SUMARY 

000007R 

SYNERR 

002270R 

$YSFDB= 

*«*♦**  GX 

S$$WRG= 

000000 

S$$YSZ= 

007600 

S.ALF 

000044 

S.BLKC 

000033 

S.COST 

000001 

S.COUB 

000044 

S.C0UL= 

000040 

S.CTL 

000006 

S.DLCF 

000102 

S.ERR 

000010 

S.FLG 

000000 

S.FNCP 

000004 

S.HTNA 

000023 

S.LBE 

000044 

S.LEN 

000004 

S.LGR 

000031 

S.LGTH= 

000050 

S.LIN 

000004 

S.LINK 

177776 

S.LMA 

000026 

S.LMOS 

000030 

S.LMRT 

000027 

S.LMS 

000025 

S.LNK 

000000 

S.LSA 

000005 

S.NCUB 

000000 

S.NCUL= 

000036 

S.NKLR 

000040 

S.NKR 

000037 

S.NKRB 

000052 

S.NKRW 

000045 

S.NKSB 

000051 

S.NKSU 

000046 

S.NMST 

000002 

S.NTD 

000024 

S.OUNR 

000003 

S.PLA 

000010 

S.PLC 

000022 

S.PLL 

000006 

S.PLS 

00001 1 

S.PSA 

000003 

S.RBE 

000042 

S.RCB 

000020 

S.RCV 

000014 

S.RCVB 

000072 

S.RCVC 

000056 

S.RDE 

000034 

S.REPR 

000050 

S.REPS 

000047 

S.RST 

000036 

S.RTEC 

000042 

S.RTY 

000001 

S.SELC 

000066 
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SYMBOL 

■ROSS  REFERENCE 

CREF       04. 

00 

SYMBOL 

VALUE 

REFERENCES 

L.OWNR 

000021 

#5-96 

53-4235 

L.PLL 

000012 

53-4022 

L.UNT 

000013 

#5-96 

21-1252 

27-2035 

28-2208 

56-4595 

57-4647 

MATCH 

02A762  R 

44-3296 

#44-3325 

MAXIO 

=  000020 

#7-310 

27-1954 

27-2007 

27-2096 

34-2549 

38-2827 

41-3144 

MODTBL 

01567?  R 

29-2261 

#29-2286 

MOMSl 

015662  R 

29-2272 

#29-2281 

MSGOIJT 

035606  R 

8-342 

8-343 

12-698 

12-750 

13-839 

14-864 

15-930 

18-1061 

18-1071 

1   1  *J  \J\m^\J  ' 

yj  ^  J  \j\j  \j       '  \ 

19-1170 

26-1456 

26-1470 

26-1476 

26-1556 

26-1569 

26-1594 

26-1600 

26-1643 

26-1646 

26-1658 

26-1688 

26-1695 

26-1700 

26-1710 

26-1735 

26-1749 

26-1754 

26-1766 

26-1769 

26-1781 

26-1797 

26-1810 

26-1815 

26-1819 

26-1821 

29-2272 

31-2342 

31-2358 

31-2361 

31-2368 

31-2370 

33-2449 

33-2456 

33-2464 

33-2467 

33-2475 

33-2477 

33-2484 

33-2486 

34-2574 

34-2581 

34-2589 

34-2597 

35-2642 

35-2665 

35-2671 

35-2673 

37-2754 

37-2773 

37-2780 

37-2782 

39-2896 

40-2936 

40-2951 

40-2966 

40-2969 

40-2977 

40-2989 

40-2991 

40-3001 

40-3005 

40-3018 

40-3024 

40-5046 

40-3053 

40-3056 

40-3063 

40-3065 

42-3183 

48-3454 

48-3459 

48-3482 

48-3484 

48-3501 

48-3504 

49-3557 

49-3568 

49-3645 

49-3648 

50-3696 

50-3702 

50-3714 

51-3756 

51-3783 

51-3788 

51-3793 

51-3796 

51-3801 

51-3806 

51-3811 

51-3814 

52-3877 

52-3908 

53-3952 

53-3960 

53-4093 

53-4095 

53-4127 

53-4224 

53-4227 

53-4271 

53-4273 

54-4336 

54-4352 

54-4353 

54-4355 

55-4398 

55-4405 

55-4454 

55-4456 

55-4492 

55-4517 

55-4519 

#66-5000 

MSKLEN 

=  000100 

#7-305 

19-1134 

MSPEC 

000663  R 

#6-223 

29-2281 

MXACCT 

=  000050 

#7-309 

41-3144 

MXCALL 

=  000040 

#7-308 

41-3140 

41-3144 

MXDTEA 

=  000010 

#7-306 

41-3140 

41-3144 

MXHEX 

=  000020 

#6-260 

MX25AC 

000707  R 

#6-228 

29-2286 

MX25PR 

000672  R 

#6-227 

29-2287 

MX25SV 

000722  R 

#6-229 

29-2288 

MX29SV 

000735  R 

#6-230 

29-2289 

M$$MGE 

=  000000 

5-88 

5-88 

NERR1 

OU040  R 

26-1565 

#26-1903 

NFSACC 

=   100000 

26-1776 

NF.END 

=  000200 

26-1674 

26-1679 

HKNOM 

000362  R 

#6-182 

26-1453 

NLMSG1 

030024  R 

52-3877 

#52-3917 

NLMSC2 

030034   R 

52-3908 

#52-3920 

NLOOP 

00C376  R 

#6-183 

26-1786 

NHG13A 

013716  R 

26-1749 

#26-1891 

NMSG1 

012056  R 

26-1456 

26-1556 

26-1569 

26-1797 

#26-1831 

NMSG10 

013134  R 

26-1769 

#26-1872 

NMSG11 

013174  R 

26-1781 

#26-1875 

NMSG12 

013242  R 

#26-1878 

NMSG13 

013552  fi 

26-1735 

#26-1887 

nm:g'4 

013750  R 

26-1810 

#26-1894 

NMS315 

013770  R 

26-1815 

#26-1897 

NMSG16 

014012  R 

26-1819 

#26-1900 

NMSG2 

0^2120  R 

#26-1834 

NMSG3 

012242  R 

26-1476 

26-1600 

#26-1840 

NMSGi 

012252  R 

26-1821 

#26-1843 

NMSG5 

012322  R 

26-1646 

#26-1846 

VOIS 
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MA.CRO  NAME 

ANBDFS 
ASLS 
ASRS 
CALL 
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CREf   04.00 


CEACCS 
CTRDFS 
CUGDFS 
DCBDFS 
DDCDFS 
DHBDFS 
DIRS 

OMPDFS 
DSTDFS 
DTEDFl 
ECDDBS 


REFERENCES 

#5-57 
#5-59 
#5-57 

8-339 

9-425 

10-535 

12-678 

12-737 

15-907 

18-1061 

19-1168 

23-1349 

26-1475 

26-1562 

26-1613 

26-1695 

26-1763 

26-1815 

27-1985 

27-2099 

28-2220 

31-2330 

33-2430 

34-2527 

35-2635 

37-2743 

39-2850 

40-2951 

40-3018 

42-3171 

46-3390 

49-3578 

51-3793 

53-3952 

53-4080 

53-4258 

55-4404 

56-4587 

59-4747 

66-5002 

#5-58 

#5-59 

#5-59 

#5-58 

#5-58 

#5-60 

#5-58 
26-1823 

#5-59 

#5-59 

#5-59 

#5-60 


5-75 


8-341 

10-455 

10-538 

12-680 

12-742 

15-912 

18-1071 

19-1170 

25-1397 

26-1476 

26-1565 

26-1627 

26-1700 

26-1766 

26-1819 

27-1995 

27-2112 

28-2224 

31-2342 

33-2439 

34-2529 

35-2636 

37-2754 

39-2852 

40-2966 

40-3023 

42-3176 

-,8-3454 

49-3583 

51-3796 

53-3959 

53-408s 

53-4262 

55-4405 

56-4597 

59-4749 

66-5003 

22-1307 

5-76 

5-77 

5-78 

5-79 

5-102 

8-344 

27-2127 

5-80 

5-81 

5-82 

5-83 


8-342 

10-457 

n-571 

12-682 

12-750 

15-921 

19-1095 

21-1236 

25-1407 

26-1484 

26-1569 

26-1630 

26-1706 

26-1769 

26-1821 

27-2003 

27-2121 

28-2234 

31-2347 

33-2449 

34-2534 

35-2641 

37-2756 

39-2857 

40-2969 

40-3024 

42-3179 

48-3459 

49-3645 

51-3801 

53-3960 

53-4093 

53-4271 

55-4447 

57-4628 

60-4778 


9-424 
27-2130 


P-''43 

10-461 

n-573 

12-684 

13-839 

15-928 

19-1099 

21-1245 

25-1408 

26-H87 

26-1574 

26-1643 

26-1710 

26-1775 

27-1923 

27-2014 

27-2131 

29-2258 

31-2352 

33-2456 

34-2539 

35-2642 

37-2766 

39-2864 

40-2977 

40-3046 

42-3-"'0 

48-3482 

49-3648 

51-3806 

53-4006 

53-4095 

53-4273 

55-4454 

57-4639 

60-4785 


9-383 

10-479 

11-593 

12-698 

1'.-864 

15-930 

19-1112 

21-1254 

26-1434 

26-1491 

26-1577 

26-1646 

26-1713 

26-1781 

27-1925 

27-2016 

28-2155 

29-2260 

31-2354 

33-2464 

34-2553 

35-2663 

37-2767 

39-2880 

40-2989 

40-3053 

42-3183 

48-3484 

50-3696 

51-3811 

53-4021 

53-4119 

54-4333 

55-4456 

57-4649 

62-4850 


9-385 

9-400 

9-402 

9-413 

9-419 

10-481 

10-497 

10-510 

10-526 

10-530 

11-609 

11-621 

11-629 

12-664 

12-666 

12-709 

12-714 

12-718 

12-725 

12-731 

15-889 

15-891 

15-895 

15-899 

15-903 

16-954 

17-991 

17-996 

18-1023 

18-1035 

19-1132 

19-1136 

19-1142 

19-1154 

19-1164 

21-1263 

22-1295 

22-1298 

22-1307 

22-1308 

26-1436 

26-1439 

26-1456 

26-1460 

26-1470 

26-1511 

26-1524 

26-1541 

26-1556 

26-1560 

26-1583 

26-1594 

26-1599 

26-1600 

26-1605 

26-1658 

26-1664 

26-1673 

26-1684 

26-1688 

26-1735 

26-1749 

26-1754 

26-1759 

26-1762 

26-1791 

26-1797 

26-1798 

26-1810 

26-1814 

27-1941 

27-1949 

27-1955 

27-1957 

27-1976 

27-2064 

27-2073 

27-2083 

27-2091 

27-2097 

28-2157 

28-2173 

28-2180 

28-2190 

28-2210 

29-2272 

29-2275 

30-2310 

30-2313 

31-2329 

31-2358 

31-2361 

31-2368 

31-2370 

32-2410 

33-2467 

33-2475 

33-2477 

33-2484 

33-2486 

34-2570 

34-2574 

34-2581 

34-2589 

34-2597 

35-2665 

35-2671 

35-2673 

36-2707 

37-2741 

37-2771 

37-2773 

37-2780 

37-2782 

38-2830 

39-2894 

39-2896 

40-2926 

40-2927 

40-2936 

40-2991 

40-3001 

40-3005 

40-3014 

40-3017 

40-3056 

40-3063 

40-3065 

41-3147 

42-3168 

44-3279 

44-3280 

44-3296 

45-3363 

45-3364 

48-3501 

48-3504 

49-3557 

49-3568 

49-3577 

50-3702 

50-3714 

51-3756 

51-3783 

51-3788 

51-3814 

52-3877 

52-3892 

52-3907 

52-3908 

53-4025 

53-4035 

53-4049 

53-4053 

53-4066 

53-4127 

53-4208 

53-4212 

53-4224 

53-4227 

54-4336 

54-4352 

54-4353 

54-4355 

55-4398 

55-4473 

55-4492 

55-4517 

55-4519 

56-4576 

57-4662 

58-4682 

59-4716 

59-4733 

59-4743 

62-4853 

63-4881 

63-4886 

63-4897 

66-5000 

25-1407    37-2766    42-3179    44-3279    45-3363 


9-427 
28-2230 


10-534 
28-2235 


10-537 
45-3228 


11-627 


59-4747 


11-651 


12-752 


26-1564 
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21? 
?U 
215 
216 

217  000300 

218  00033A 

219  0003A0 

220  000370 

221  000374 

222  000A22 

223  000426 

224  000461 

225  000464 

226  000522 

227  000526 

228  000556 

229  000562 

230  000641 

231  000644 

232  000665 

233  000666 

234  000712 

235  000716 

236  000763 

237  000766 

238  001036 

239  001042 

240  001103 

241  001106 

242  001134 

243  001140 

244  001175 

245  001200 

246  001243 

247  001246 

248  001313 

249  001316 

250  001341 

251  001344 

252  001412 

253  001416 

254  001440 

255  001444 

256  001470 

257  001474 

258  001516 

259  001522 

260  001570 

261  001574 

262  001635 

263  001640 

264  001663 

265  001666 

266  001724 

267  001730 

268  001760 

269  001764 
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.SBTTL  ERROR  MESSAGES 

ERROR  CODES 

FRMSGS  <XPT  channel  not  in  data  baS''> 

ER8LK$  ERRI 

ERMSGS  <Line  not  assigned  to  XPT> 

ERSLKS  EfiR2 

ERHSGS  <XPT  process  not  loaded> 

ERBLKS  ERR3 

ERMSGS  <XPT  data  base  not  aUocated> 

ERSLKS  ERR4 

ERHSGS  <XPT  channel  table  inconsistent> 

FRRI K%  ERRS 

ERMSGS  <NETACP  cannot  be  mounted> 

ER6LKS  ERR6 

ERMSGS  <Lines  must  be  loaded  before  they  can  be  enabled> 

ERSLKS  ERR7 

ERMSGS  <Li'ne  not  loaded> 

ERBLKS  ERR77 

ERMSGS  <NETACP  not  installed> 

FRSLKt  ERRS 

ERMSGS  <RSX11M  system  pooL   aUocation   faUure> 

FRRL  K£  ERR9 

ERMSGS  <NETACP  must  be  'fixed'  in  RSX11S  systems> 

ERBLKS  ERRIO 

ERMSGS  <Network  initializer  not  instaUed> 

ERSl-KS  ERR12 

ERMSGS  <PLB  aUocation  failure> 

ERSLKS  ERR13 

ERMSGS  <Network  initializer  not  fixed> 

ERBLKS  ERfil4 

ERMSGS  <Wrong  network  initializer  installed> 

ERBLKS  ERR15 

ERMSGS  <RSX11M  system  pool  aUocation  failure> 

ERBLKS  ERR16 

ERMSGS  <Jnvalid  node  option> 

ERBLKS  ERR17 

ERMSGS  <Object! Remote  block  allocation  failure> 

ERBLKS  ERRl8 

ERMSGS  <Node  not  in  system> 

ERBLKS  ERR19 

ERMSGS  <Obiect  not  in  sy5tem> 

ERBLKS  ERR20 

ERMSGS  <Line  not  in  system> 

ERBLKS  ERR21 

ERMSGS  <SLT  and  reverse  mapping  table  mismatch> 

ERBLKS  ERR22 

ERMSGS  <Access  Verification  not  supported> 

ERBLKS  ERR23 

ERMSGS  <Alias  not  in  system> 

ERBLKS  ERR24 

ERMSGS  <Alias  block  aUocation  failure> 

ERBLKS  ERR25 

ERMSGS  <Parameter  missing,  Scope> 

ERBLKS  ERR26 

ERMSGS  <E»/ent  logging  not  supported> 
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SVCOST    -   SEI   LINE    COST 


758 

.SBTTL 

SVCOST  -  SET  LINE  COST 

759 

;  + 

760 

;  «*-$VCOST  -  SET  LINE  COST 

761 
762 

;  INPUTS: 

763 

SSLTA  = 

SLT  ADDRESS 

76A 

RQB  =  REQUEST  BLOCK 

765 

766 

■  OUTPUTS: 

767 

C-BIT  = 

SUCCESS/FAILURE 

768 

769 

;• 

770 

771  002006 

SVCOST:: 

772  002006 

016700 

OOOOOOG 

MOV 

SSLTA.RO 

GET  THE  SLT  ADDRESS 

773  0C2012 

032760 

OOOOOOG 

OOOOOOG 

BIT 

#LF.RDY,L.FLG(RO) 

IS  THE  LINE  READ/  ? 

774  002020 

001436 

BEQ 

101$ 

IF  EQ,  NO  ..  ERROR 

775  002022 

005001 

CLR 

R1 

INIT  REG 

776  002024 

032760 

OOOOOOG 

OOOOOOG 

BIT 

#LF.8RO,L.FLG(R0) 

ETHERNET  DEVICE  ? 

777  002032 

001003 

BNE 

5$ 

IF  YES  -  BRANCH 

77?,   002034 

116001 

OOOOOOG 

MOVB 

L.NSTA(R0),R1 

ELSE,  GET  THE  NUMBER  OF  TRIBUTARIES 

779  002040 

780 

781 

001010 

BNE 

10$ 

IF  NE,  LINE  IS  MULTIPOINT 

;.  pT-To-PT  LINE 

782 

783  002042 

116760 

000020G 

OOOOOOG 

5$:     M0V8 

RQB+LO.COS,L.C0ST(R0) 

SET  NEW  LINE  COST 

784  002050 

032760 

OOOOOOG 

OOOOOOG 

BIT 

#LF.QR0,L.FLG(R0) 

BROADCAST  LINE  ? 

785  002056 

001011 

BNE 

15$ 

IF  YES  -  BRANCH 

786  002060 

787 

788 

000415 

BR 

20$ 

AND  LEAVE 

;  MULTIPOINT  LINE 

789 

790  002062 

020167 

OOOOOOG 

io$:    CMP 

R1,$TRIB 

ioJ$ 

IS  THE  TRIBUTARY  ON  THIS  LINE  ? 

791  002066 

101417 

BLOS 

IF  LOS,  NO  ..  ERROR 

792  002070 

016701 

OOOOOOG 

MOV 

$TRI8,R1 

ELSE,  GET  TRIBUTARY  NUMBER 

793  002074 

006301 

ASL 

R1 

CONVERT  TO  A  DOUBLE  WORD  INDEX 

794  002076 

006301 

ASL 

R1 

795  002100 

060001 

ADD 

RO.RI 

POJNT  INTO  SLT 

796  002102 

062701 

OOOOOOG 

15$:    ADD 

#L.MPF,R1 

•  POINT  TO  STATION  INFO  IN  SLT 

797  002106 

116761 

000020G 

OOOOOOG 

MOVB 

RQ8+L0.C0S,S.C0ST(R1) 

•  AND  SET  NEW  COST 

798  002114 

20$:    RETURN 

799 

800 
801 
802  002116 

;  ERROR  CONDITIONS 

101$:   ERRPT$ 

ERR35,SER0UT 

•  LINE  IN  WRONG  STATE 

803  002126 

102$:   ERRPTS 

ERR21,$ER0UT 

;  LINE  NOT  IN  SYSTEM 

VENA 
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CHICEXE    -   CHECK    IF    EXECUTOR   NODE 


1308  00407A 

1309  004102 
1310 

1311   OOA106 

1312 

1313 

13U 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324  004110 

1325  004130 

1326  004136 
1327 

1328  004142 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341  00414A 

1342  004164 

1343  004172 
1344 

1345  004176 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358  004200 

1359  004220 

1360  004226 
1361 

1362  004252 

1363 

1364 


116767     000060G  000042G 


MOVB 
PUTRC 

RETUrtN 


L0.INC*RQB,$8FR*D$INCT      ;    STORE   INCOMING   TIMER  VALUE 
;   WRITE   HOME  BLOCK 


OUTGOING    TIMER 

INPUTS: 

RQ8+L0.0UT  =  OUTGOING  TIMER  VALUE 

OUTPUTS: 

DECNET  HOME  BLOCK  UPDATED 


SVOUT::  GETRV   $DECPT,#D$END 
116767  000056G  000043G        M0V8    LO.OUT+RQB,$Bf R+D$OUTT 

PUTRC 

RETURN 


READ  HOME  BLOCK 

STORE  OUTGOING  TIMER  VALUE 

WRITE  HOME  BLOCK 


INACTIVITY  TIMER  VALUE 

INPUTS: 

RQB+LO.INA  =  INACTIVITY  TIMER  VALUE 

OUTPUTS: 

DECNET  HOME  BLOCK  UPDATED 


$VINA::  GETRV   $DECPT,#D$END 
116767  000062G  000044G        MOVB    LO.  INA*-RQB,$BFR+D$INAC 

PUTRC 

RETURN 


RETRANSMIT  FACTOR 

INPUTS: 

RQBtLO.RET  =  RETRANSMIT  FACTOR 

OUTPUTS: 

DECNET  HOME  BLOCK  UPDATED 


SVRET::  GETRV   $DECPT,#D$END 
116767  000064G  000050G        MOVB    LO.RET+RQB,$BFR+D$RETF 

PUTRC 

RETURN 


READ  HOME  BLOCK 

STORE  INACTIVITY  TIMER  VALUE 

WRITE  HOME  BLOCK 


READ  HOME  BLOCK 

STORE  RETRANSMIT  FACTOR 

WRITE  HOME  BLOCK 
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SRPASW  -  SET/CLEAR  RECEIVE  PASSWORD 


1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

18'.5 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 


006130 
006130 
006134 
006136 
006154 
006160 

006176 
006204 


006206 
006212 
006220 
006224 
006230 
006232 
006234 
006236 


006240 
006246 

006252 
006256 


.SBTTL  SRPASW  -  SET/CLEAR  RECEIVE  PASSWORD 

•»*  -  SRPASW  -  SET/CLEAR  RECEIVE  PASSWORD 

INPUTS: 

SCMAND  =  SET/CLEAR 

OUTPUTS: 

APPROPIATE  ACTION  TAKEN 


103450 
016702 


032767 
001415 


012704 
052767 
012705 
012703 
112524 
005303 
001375 
000405 


042767 
005067 


000070G 


OOOOOGG  OOOOOOG 


SRPASW:: 

CALL 

BCS 

GETRV 

MOV 

GETRV 

BIT 
BEQ 

SET  PASSWORD 


0000026 
100000 
000030G 
000010 


OOOOOOG 


10$: 


BIS 

MOV 

MOV 

MOVB 

DEC 

BNE 


CHKXPT 

40$ 

R2,#NSXLEN 

N$VER+2t$BfR,R2 

R2,#18. 

#CM$SET,SCMAND 
20$ 


#V$RCV+$BFR,R4 

#VF$fiCV,V$FLG+$BFR 

#RQ8+L0.RPA,R5 

#8.,R3 

(R5i+,(R4)+ 

R3 


BE  SURE  XPT  IS  LOADED 

IF  CS,  XPT  NOT  LOADED 

READ  IN  POINTERS 

ADDRESS  OF  TRNSMIT/RECEIVE  PASSWORDS 

FLAG  AND  PASSWORDS 

SET  PASSWORD  ? 
NO 


SET  DESTINATION  ADDRESS 

SET  FLAG  INDICATING  VALID  RECEIVE  PASSWORD 

POINT  AT  PASSWORD  SOURCE 

NUMBER  OF  CHARACTERS  TO  MOVE 

MOVE  STRING 


m 


CLEAR  PASSWORD 


100000     OOOOOOG   J0$: 
C00002G 


BIC 
CLR 


#VF$RCV,VSFLG+$BFR 
V$RCV+SBFR 


30$:    PUTRC 
40$:    RETURN 


TILL  DONE 
FINISH  UP 


CLEAR  RECEIVE  FLAG 
FORCE  ILLEGAL  PASSWORD 

REWRITE  DATA  BLOCK 


F  U 
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VALI    -   REMOVE    ALL    OR   KNOWN   ALIASES 


2A52 
2453 
245A 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 


.SBTTL     VALI   -   REMOVE  ALL   OR  KNOWN  ALIASES 

»«-VALl-REMOVE   ALL   OR  KNOWN  ALIASES 

INPUTS: 

$QUAL    =   QUALIFIERS 

OUTPUTS: 

NONE. 


011734  VALI: 

011734  032767     000004     OOOOOOG 

011742  001410 

011744  032767     000001      OOOOOOG 

011752  001004 

011754 


BIT  #QF$KNO,$QUAL 

BEQ  10$ 

BIT  #OP$SCO,iOPTON 

BNE  10$ 

ERRPT$  ERR26,$ER0UT 


011764 

011770     103403 

011772 

011776  000772 

01 2000 


10$: 


20$: 


CALL 

BCS 

CALL 

BR 

RETURN 


$FNALI 
20$ 
REMALI 
10$ 


IS  THIS  FOR  KNOWN  ALIASES  ? 

IF  EQ,  NO  ..  OKAY 

WAS  THE  SCOPE  GIVEN  ? 

IF  NE,  YES  ..  OKAY 

ELSE,  SCOPE  PARAMETER  MISSING 

FIND  THE  NEXT  ALIAS 
IF  CS,  NO  MORE 
AND  REMOVE  THE  ALIAS 
GET  NEXT  ALIAS 


F  15 
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CKMDEV  -  CHECK  FOR  VALID  RSXIIM  DEVICE  NAME 


2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2965 

296A 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

298A 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

299A 

2995 

2996 

2997 

2998 

2999 

3000 

3001 


01363A 
013640 
013642 
013646 
013650 
013654 
013656 
013660 
013662 
013664 
013666 
013672 
013674 
013676 
013702 
013706 
013710 
013714 
013716 
013720 
013722 
013726 
013732 
013734 
013736 
013740 
013742 
013744 


.SBTTL   CKMDEV  -  CHECK  FOR  VALID  RSXIIM  DEVICE  NAME 


CKMDEV  -  CHECK  FOR  VALID  RSXIIM  DEVICE  NAME 

INPU1S: 

RO  -  ADDRESS  OF  ASCII  DEVICE  NAME  STRING 

R4  -  ADDRESS  OF  STORAGE  TO  STORE  DEVICE  NAME  AND  UNIT 

OUTPUTS: 

CARRY  CLEAR: 

RO  -  ADDRESS  OF  NEXT  CHARACTER  IN  STRING 

R4  -  POINTER  TO  END  Of  DEVICE  NAME  AND  UNIT  STORAGE 

CARRY  SET: 

INVALID  RSXIIM  DEVICE  NAME 


012702 
112001 
022701 
103435 
122701 
101032 
■10124 
005302 
003366 
005001 
122027 
001411 
005300 

022702 
001015 
020127 
101012 
010124 
010046 
016400 

012600 
103403 
000241 
000401 
000261 


000002 
000132 
00010' 


000072 


000072 
000377 


177774 


CKMDEV. 

MOV 

#2,R2 

DEVICE  NAME  IS  2  '.SCII  CHARACTERS 

10$: 

HOVB 

(R0)t,R1 

GET  ASCII  CHARACTER 

CMP 

#'Z,R1 

IS  IT  AN  ALPHABETIC? 

6L0 

30$ 

BR  IF  NO 

CMPB 

*'A,R1 

BHJ 

"j$ 

BR  IF  NOT  ALPHABETIC 

M0V8 

ol,(R4)t 

STORE  CHARACTER 

DEC 

R2 

MORE  TO  CHECK? 

BGT 

10$ 

BR  IF  YES 

CLR 

R1 

ASSUME  NO  UNIT  NUMBER  SPECIFED 

CMPB 

(R0)t,#': 

ANY  UNIT  NUMBER  SPECIFIED? 

BEQ 

20$ 

BR  IF  NO 

DEC 

RO 

POINT  TO  UNIT  NUMBER 

CALL 

$COTe 

CONVERT  UNIT  NUMBER  TO  BINARY 

CMP 

#':,R2 

VALID  TERMINATOR? 

BNE 

30$ 

BR  IF  NO 

CMP 

R1,#MXUNT 

LEGAL  UNIT  NUMBER? 

3HI 

30i 

BR  IF  NO 

20$: 

MOV 

R1,(R4). 

STORE  UNIT  NUMBER 

MOV 

RO,-(SP) 

SAVE  RO 

MOV 

-4(R4),R0 

GET  DEVICE  NAME 

CALL 

FNDDCB 

IS  DEVICE  IN  SYSTEM? 

MOV 

(SPH.RO 

RESTORE  RO 

BCS 

40$ 

BR  IF  NO 

CLC 

INDICATE  VALID  DEVICE  NAME 

BR 

40$ 

AND  EXIT 

30$: 

SEC 

INDICATE  INVALID  DEVICE  NAME 

40$: 

RETURN 

F  16 
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VDIS  -  VNP   SHOW  COMMANDS 
BLDNOD  -  BUILD   NODE   ENTITY 


F  1 

MACRO  V05.03b  Monday  15-Jul-35  12;K   -ge  22 


vt 
tc 


1272 

.SBTTL 

BLDNOD  -  BUILD  NODE  ENTIT 

Y 

1273 

127^ 
1275 
1276 
1277 
1278 

+ 

BLDNOD  -  BUILD  NODE  ENTITY 

INPUTS: 

1279 

RO  -  POINTER  TO  NEXT  FREE  BYTE  lA 

OUTPUT  BUFFER 

1280 
1281 
1282 

R3  -  ADDRESS  OF  FILTER  BLOCK 

OUTPUTS: 

1283 

RO  -  POINTER  TO  NEXT  FREE  BYTE  lA 

OUTPUT  BUFFER 

1284 

1285 
1286 
1287  006736 

- 

112720 

000042 

3LDN0D: 

MOVB 

#"',(R0)  + 

STORE  DELIMITER 

1288  0067A2 

012701 

000411' 

MOV 

#NSPEC,R1 

POINT  TO  ENTITY  STRING 

1289  006746 

112120 

5$: 

MOVB 

(R1)+,(R0)t 

STORE  STRING 

1290  006750 

001376 

BNE 

5$ 

1291  006752 

105740 

TSTS 

-(RO) 

BACK  UP  OVER  SPACE 

1292  006754 

112720 

000040 

MOVB 

#'  ,(R0>+ 

STORE  SPACE  IN  OUTPUT  BUFFER 

1293  006760 

016301 

000016 

MOV 

F.ADD(R3),R1 

GET  NODE  ADDRESS 

1294  006764 

005002 

CLR 

R2 

SUPPRESS  LEADING  ZEROES 

1295  006766 

1296 

1297  006772 

CALL 

$C8DMG 

CONVERT  IT  TO  ASCII 

SWTCHl 

#$HM8UF 

SET  UP  INPUT  BUFFER 

1298  007000 

GETRV 

$DECPT,*D$END 

READ  DECNET  HOME  BLOCK 

1299  007020 

1300 

1301  007024 

1302 

1303  007032 

012702 

000004G 

MOV 

#$HMBUF+D$RNN+2,R2 

GET  REMOTE  LIST  ADDRESS 

SWTCHl 

*TEMP4 

USE  TEMPORARY  BUFFER 

011267 

172166 

MOV 

(R2),TEMP4 

SAVE  ADDRESS  OF  NEXT 

1304  007036 

010201 

lOi: 

MOV 

R2,R1 

SAVE  ADDRESS  OF  PREVIOUS 

1305  007040 

016702 

172160 

MOV 

TEMP4,R2 

GET  NEXT  REMOTE  IN  LIST 

1306  007044 

001441 

BEQ 

60$ 

BR  IF  END  OF  LIST 

1307  007046 

CEACC$ 

R2 

CONVERT  TO  MAPPED  ADDRESS 

1308  007056 

20$: 

GETAD 

R2,*R.LEN 

READ  REMOTE  IN  INTERNAL  BUFFER 

1309  007074 

026367 

000016  172132 

CMP 

F.ADD(R3),TEMP4+R.ADD 

IS  THIS  THE  RIGHT  REMOTE? 

1310  007102 

001355 

BNE 

10$ 

BR  IF  NO 

1311  007104 

112720 

000040 

25$: 

MOVB 

#SPACE,(RO)+ 
#'(,(R0)+ 

STORE  SPACE 

1312  007110 

112720 

000050 

MOVB 

STORE  LEFT  PAREN 

1313  007114 

012701 

000006 

MOV 

#6,R1 

MAXIMUM  LENGTH  OF  NODE  NAME 

1314  007120 

012702 

001226' 

MOV 

#TEMP4tR.NAM,R2 

POINT  TO  NODE  NAME 

1315  007124 

112210 

30$: 

MOVB 

(R2)r,(R0) 

STORE  NODE  NAME 

1316  007126 

122027 

OC0040 

CMPB 

(R0)+,#SPACE 

END  OF  NODE  NAME? 

1317  007132 

001403 

BEQ 

40$ 

BR  IF  YES 

1318  007134 

005301 

DEC 

R1 

DECREMENT  COUNT 

1319  007136 

003372 

BGT 

30$ 

BR  IF  MORE  TO  STORE 

1320  007140 

000401 

BR 

50$ 

CONTINUE 

1321  007142 

105740 

40$: 

TSTB 

-(RO) 

BACK  UP  OVER  SPACE 

1322  007144 

112720 

000051 

50$: 

MOVB 

*'),(R0)t 

•  STORE  RIGHT  PAREN 

1323  007150 

60$: 

SWTCHl 

•  RESTORE  INPUT  BUFFER  TO  DEFAULT  ($BFR) 

1324  007156 

112720 

000042 

MOVB 

#"',(RC)<- 

•  STORE  TRAILING  DELIMITER 

1325  007162 

112720 

000040 

MOVB 

*SPACE,(RO)r 

•  STORE  SPACES 

1326  007166 

112720 

000040 

MOVB 

#SPACE,(Rr)+ 

1327  007172 

RETURN 

VDIS  -  VNP    SHOW  COMMANDS 
ricPRFU 
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VDIS  -  VNP  SHOW  COMMANDS 
$OCIR  -  SHOW  CIRCJIIT 

1907 
1908 
1909 
1910 
1911 
1912 
1913 
19K 
1915 
1916 
1917 
1918 
1919 
1920 
1921 

1922  0UOA2 

1923  0140A2 

1924  0U046  103004 

1925  0U050 

1926  0H060  016705 

1927  0K06A  016703 

1928  OU070  012701 

1929  0U074  105767 

1930  0U100  001521 

1931  0U1O2  122767 

1932  0H110  001002 

1933  0U112  000167 
1934 
1935 
1936 

1937  014116  012700 

1938  014122  112021 

1939  014124  001376 

1940  014126  005004 

1941  014130 

1942  01413'.  103036 
1943 
1944 
1945 

1946  014136  016700 

1947  014142  001431 

1948  014144  062700 

1949  014150 

1950  014166  005000 

1951  014170  012701 

1952  014174  032767 

1953  014202  001402 

1954  014204  062701 

1955  014210 

1956  014214  103404 

1957  014216 

1958  014222  005204 

1959  014224  000760 
1960 

1961  014226  C00167 

1962  014232  032760 

1963  014240  0C1003 
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.SBTT'   $DCIR  -  SHOW  CIRCUllT 

SDCIR  -  SHOW  KNOWN  CIRCUITS 
SHOW  ACTIVE  CIRCUITS 
SHOW  CIRCUIT  X 

INPUTS:  NONE 

OUTPUTS:  THE  CIRCUIT  INFORMATION  IS  DISPLAYED  ON  THE  USER'S  TERMINAL 

ALL  REGISTERS  ARE  DESTROYED 


iDCIR: 


OOOOOOG 
OOOOOOG 
001062' 
OOOOOOG 

000004  OOOOOOG 

000560 


CALL 
BCC 
ERRPTS 
10$:    MOV 
MOV 
MOV 
TSTB 
BEQ 
CMPS 
BNE 
J  MP 


SHOW  ACTIVE  CIRCUITS 


000520' 


50$: 
3C$: 


40$: 


MOV 

MOVE 

BNE 

CLR 

CALL 

BCC 


#CACTIV,RO 

(R0)+,(R1)+ 

30$ 

R4 

NXTCIR 

80$ 


OOOOOOG 
000006 


000016 

OOOOOOG  OOOOOOG 

000020 


50$: 


60$: 


000646  >0$: 

000400  OOOCOC  80$: 


DISPLAY  PSI  PERMANENT  CIRCUITS 


MOV  $PSIPT,RO 

BEQ  70$ 

ADD  #H$PVC,RO 

GETRV  R0,#2 

CLR  RO 

MOV  #C$LEN,R1 

BIT  #PF.XDF,$PFLAG 

BEQ  60$ 

ADD  #MAXID,R1 

CALL  FNDSLK 

BCS  70$ 

CALL  DISPVC 

INC  R4 

BR  50$ 

JMP  390$ 

BIT  *LF.8RO,L.FLG(R0) 

BNE  90$ 


DCIR 

VNP  DEBUGGING  BREAK  POINT 

;CTD001] 

CKTYPE 

GET  COMMAND  TYPE 

;CTD001J 

10$ 

BR  IF  SUCCESS 

:**-2 

SYNERR,$ER0UT 

ELSE  SYNTAX  ERROR 

$SLTMA,R5 

GET  ADDRESS  OF  SLT  ADDRESS  TABLE 

$SLTNM,R3 

GET  NUMBER  OF  SLT'S  IN  SYSTEM 

*TEMP2,R1 

STORAGE  FOR  HEADER  MESSAGE 

$QUAL 

SHOW  SPECIFIC  CIRCUIT? 

140$ 

BR  IF  YES 

#qf$k;no,$qual 

SHOW  KNOWN  CIRCUITS? 

20$ 

BR  IF  NO 

300$ 

BR  IF  YES 

must  be  show  active  circuits 
store  the  header  message 

Indicate  header  to  be  displayed 
get  next  system  line  table  in  system 
br  if  found  one 


IS  THIS  A  PSI  SYSTEM? 

BRANCH  IF  NO  -  DONE 

GET  ADDRESS  OF  CIRCUIT  LISTHEAD 

READ  IN  LISTHEAD 

NO  SEARCH  CRITERION  (ALL  CIRCUITS) 

LENGTH  OF  PVC  BLOCK  IN  OLD  FORMAT 

CHECK  FOR  EXTENDED  FORMAT 

IF  NOT  EXTENDED,  THESE  PARAMETERS  OK 

OTHERWISE,  PVC  BLOCK  IS  LONGER 

LOOK  FOR  A  CIRCUIT 

BRANCH  IF  END  OF  LIST 

DISPLAY  PVC  INFO 

UPDATE  HEADER  DISPLAY  FLAG 

GET  NEXT  PVC  NAME  BLOCK 

BR  IF  NO  MORE 

ETHERNET  LINE  ? 

IF  YES  -  DO  NOT  HANDLE  AS  MPT 


CTD001] 
CTD001] 
[TD001] 
CTDOOl] 
CTDOOI] 
[TDOOl] 
[TDOOl] 
CTDOOl] 
[TDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
♦  ♦-10 


VDIS  -  VNP  SHOW  COMMANDS 
tPfIR  -  SHOW  CIRCUIIT 
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VOIS  -  VNP  SHOW  COMMANDS       MACRO  V05.03b  Monday  15-Jul-85 
DMXACN  -  DispLay  X25-ACCESS  networks 


f     3 

12:14     Page  53-1 


2470  017034 

2471  017040 

2472  017044 

2473  017046 

2474  017052 

2475  017054 
2476 

2477  017064 

2478  017074 
2479 

2480  017076 

2481  017104 

2482  017106 

2483  017114 

2484  017116 

2485  017126 

2486  017130 

2487  017140 
2488 

2489 
2490 
2491 

2492  017142 

2493  017157 
2494 

2495  017164 

2496  017201 
2497 

2498  017206 

2499  017223 
2500 

2501  017230 

2502  017250 
2503 

2504  017254 

2505  017274 
2506 

2507  017302 

2508  017344 
2509 

2510  017350 

2511  017351 


012700 
012702 
112022 

105012 


000651 

032767 
001015 
032767 
001005 

000404 


000064G 
001034' 


75$: 


80$: 

000004  162470  90$: 

004000  OOOOOOG 

92$: 

95$: 
100$: 


MOV 

MOV 

MOVB 

S08 

CLR9 

ERRPT$ 

ERRPT$ 
BR 

BIT 

BNE 

BIT 

BNE 

ERRPT$ 

BR 

ERRPT$ 

RETURN 


#$BFRtR$ACr,RO 
#TEMP1,R2 
(R0)+,(R2)+ 
R1.75i 

(r5) 
acns5,msg0ut 

acns7,msg0ut 

10$ 

#F. END, FLAGS 

100$ 

#OP$NET,$0PT0N 

95$ 

NGINFO.MSGOUT 

100$ 

ACNS6,MSG0UT 


Copy  account  to  message 


;  Display  account 

;  Blank  line  after  each  block 

;  Repeat 

;  Check  if  anything  displayed 

;  Branch  if  message  printed 

;  Check  if  specific  network  wonted 

;  branch  if  specific  network 

;  Indicate  no  information 

;  Indicate  network  not  found 


;  Messages 


ERMSG$ 
ERBLKS 

ERMSG$ 

ERBLK$  ACNS2,<TEMP1> 


ERMSG$ 


<  Network  =  XA> 
ACNS1,<TEMP1> 

Node  =  XA> 


User  =  %A> 


ERBLK$  ACNS3,<TEMP1> 


ERMSG$ 
ERBLK$  ACNS4 


ERMS6$ 
ERBLK$ 

ERMSG$ 


Password  set> 


<    Account  =  XA> 
ACNS5,<TEMP1> 


ERBLK$  ACNS6 

ERMSG$  <  > 
ERBLK$  ACNS7 


Remote  network  not  is  system5!N> 


;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[T00013 
;[TD001] 
;[TD001] 
;[TD001D 
.-CTDOOl] 
;CTD001] 
; CTDOOl] 
.■[T00013 
; CTDOOl ] 
; CTDOOl 3 
; CTDOOl ] 
; CTDOOl 3 
.•CTDOOl  3 
; CTDOOl 3 
.-CTDOOl  3 
;  TD0013 
; . TDOOl 3 
; CTDOOl 3 
; CTDOOl 3 
; CTDOOl 3 
; CTDOOl 3 
.-CTDOOl  3 
.-CTDOOl  3 
.-CTDOOl  3 
.-CTDOOl  3 
.-CTDOOl  3 
.-CTDOOl  3 
.-CTDOOl  3 
.-CTDOOl  3 
.-CTDOOl  3 
.-CTDOOl  3 
; CTDOOl 3 
.-CTDOOl  3 
; CTDOOl 3 
.-CTDOOl  3 
;CT00013 
.-  CTDOOl  3 


VDIS  -  VNP  SHOW  COMMANDS 

OMYPR  -  SHOW  MGDlll  F  X25-PROTOCOL 
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VDIS  -  VNP  SHOW  COMMANDS       MACRO  V05.O3b  Monday 
DMDST  -  SHOW  MODULE  X2n-S.RVER  DESTINATION 
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3023  023072 

302A  023076 

3025 

3026 

3027 

302S  023106 

3029  0231 U 

3030  023116 

3031  023122 

3032  023126 

3033  023130 

3054  0231 3A 
3035  023136 
3036 

3037  0231 40 

3038  023146 

3039  025150 

3040  023154 
30',  1 

5042  025160 

5043  025164 

3044  023166 

3045  023172 

3046  025174 
3047 

3048 
5049 

3050  023204 

3051  025212 

3052  023220 

3055  0232:'2 
5054  025252 

3055  023236 

3056  023244 

3057  025254 
5058 

5059  025260 

3060  023266 

3061  025270 
5062  025276 

3063  023300 

3064  025310 

5065  025312 

5066  023322 
3067 

3068 
3069 

5070  025524 

5071  025356 
3072 

5075  025344 
3074  C23404 
3075 

3076  023416 

3077  023454 
3078 

5079  02546'^ 


032767 
001411 
012700 
116701 
060100 
116701 
001425 
000410 

122767 
001416 
012700 
012701 

012702 
112022 

105012 


016767 
026767 
001006 

000167 
016767 

000167 

132767 
001015 
032767 
001005 

000404 


CALL 
ERRPTS 


BCDASC 
DSMS4,MSG0UT 


Display  CUG  name 


OOOOOOG  OOOOOOG  60$: 

000032G 
000022G 

000023G 


000040     000022G  65$: 

000022G 
000006 


001034' 


000016G 
000016G 

177126 
000020G 

177104 

000004 

000200 


68$: 
69$: 


BIT  #PF.XDF,$PFLAG 

BEQ  65$ 

MOV  #$8FR+D$GV8L,R0 

Move  $BFfi+D$r'^L,Rl 

ADD  R1,R0 

MOVB  $8FR+D$CUGL,R1 

BEQ  70$ 

BR  68$ 

CMPB  #SPACE,D$CUGN+$BFR 

BEQ  70$ 

MOV  #$8FR+i;$CUGN,R0 

MOV  *6,R1 

MOV  #TEMP1,R2 

MOVB  (R0)<-,(R2)t 

SOB  Rl,69$ 

CLRB  (R2) 

ERRPT$  DSI*IS5,HSG0UT 


Display  sub^.Jdress   range 

^■OS:  MOV  D$SLO+$BFR, TEMPI 

CMP  D$SL0+$BFR,D$SHIt$8FR 

BNE  80$ 

ERRPT$  DSMS6,MSG0UT 

JMP  10$ 

55M6  80$:    MOV  D$SHH-$BFR,TEHP2 

ERRPT$  DSMS7,MSG0UT 

JMP  10$ 

90$:    BITS  #F.FND, FLAGS 

BNE  110$ 

BIT  #OP$DST,$OPTON 

BNE  100$ 

ERRPT$  NOINFO,MSGOUT 

BR  110$ 

100$:   ERRPT$  DSMS8,MSG0UT 

110$:   RETURN 


155622 
000020G 


156306 
OOOOOOG 


MESSAGES 


ERMSG$  <  Name  =  XA> 
ERBLK$  DSMS1,<TEMP1> 


Convert  to  ASCII  (Rl  already  setup) 
Display  DTE  address 


Check  for  extended  data  format 

Branch  if  not  extended 

Get  start  address  of  variable  data 

Skip  destination  name 

Now  pointing  at  CUG  name 

Get  Length  of  CUG  name 

Branch  i f  no  CUG  name 

Join  common  code  to  display 

Is  there  a  CUG  name? 
Branch  if  no 
Address  CUG  name 
Get  length  of  CUG  name 

Address  output  buffer 
Create  output  string 


Display  CUG  name 


Store  range  beginning 

Range  beginning  =  range  end? 

Branch  if  no 

Display  subaddress  range 

and  continue 

Get  range  end 

Display  subaddress  range 

Continue 

Found  a  destination  block? 

Branch  if  found 

Show  specific  destination? 

Branrh  if  yes 

Oispla)f  NO  INFORMATION  message 

and  exit 

DESTINATION  NOT  FOUND 


Priority  =  %0 ,   Object  =  'm.R> 


ERMSG$  <    Priority  =  %0.   Object  = 

ER8LK$  CSMS2A,<TEMP1 ,TEMP2,TEMP2+2> 

ERMSG$  <    Priority  =  5!D,  Object  =  XO 

ER8LK$  DSMS2B,<TEMP1,TEMP2> 


ERMSG$ 


Priority  =  XD,  Object  ^  i!A> 


New  format  objects 


;CTD001] 
;[TD001] 
;[TD001J 
;CT0C01] 
;CTD001] 
;CTD00n 
;CTD001] 
;CTD001] 
;[TD001] 
;CTD0013 
;[TD0013 
;[TD001] 
;CTD001] 
.-CTDOOn 
.-CTDOOi: 
.-[TDOOl] 
;[TD001] 
;[TD001] 
;CTD00i: 
;[TD001] 
;[TD001] 
;LTD001] 
;CTD001] 
:[TD001] 
;CTD001] 
;[TD0013 
.-CTDOOn 
.-CTDOOl] 
.•CTDOOI] 
;[TD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;I:TD001] 
;[TD001] 
.-CTDOOI] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
; CTDOOI] 
; CTDOOI] 
;**-69 


;  CTDOOI] 
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3590 
3591 

3592  026102 

3593  026106 

3594  026110 
3595 

3596 
3597 

3598  026122 

3599  026126 

3600  026130 
3601 

3602 
3603 

3604  026132 

3605  026134 

3606  026140 

3607  026144 

3608  026146 

3609  026150 

3610  026152 

3611  026154 
5612 

3613 
3614 

3615  026156 

3616  026  1 62 

3617  026164 

3618  026166 

3619  026170 

3620  026174 

3621  026200 

3622  026202 
3623 

3624 
3625 

3626  026204 

3627  026206 

3628  026210 

3629  026214 

3630  026216 

3631  026220 
3632 

3633 
3634 

3635  026222 

3636  026226 
3657  026230 
3638  026234 
3659  02625f 
5640 

5641 
3642 

5645  026244 
3644  026250 
5645  026252 
3646  026262 


012702 
010300 
062700 
000005 


122742 
001775 
005202 


010501 
062701 
112722 
112100 
001403 
112122 
005500 
005575 


112722 
112100 
001407 
060001 
012700 
112722 
005500 
005374 


112100 
001405 
112722 
112122 
005300 
003575 


122742 
001005 
122742 
001775 
112762 


105767 
002005 

000404 


001062' 
000012 

000040 


000020 
000057 


000057 


000005 
000056 


000057 


000057 
000057 
000000 

152564 


GET  DESTINATION  INFORMATION 


iO$: 


50$: 


UK 


60$: 


MOV 

MOV 

ADD 

.REPT 

MOV 

.ENDR 

CMPB 

BEQ 

INC 


MOV 

ADD 

MOVE 

HOVB 

BEQ 

MOVB 

DEC 

BGT 


PASSWORD 


65$: 


70$: 


MOVB 

MOVB 

BEQ 

ADD 

MOV 

MOVB 

DEC 

BGT 


#TEMP2,R2 

R5,R0 

#A.REM,RO 

5 

(R0)  +  ,(R2)<- 

*SPACE,-'R2) 

50$ 

R2 


R5,R1 

#A.ACC,R1 

#SLASH,(R2)t 

(R1)+,R0 

65$ 

(RlJ+,(R2)+ 

RO 

60$ 


*SLASH,(R2)+ 

(R1)+,R0 

80$ 

RO.RI 

*5,R0 

#PERI0D,(R2)+ 

RO 

70$ 


ACCOUNT  NUMBER 


90$: 


MOVB 

BEQ 

MOVB 

MOVB 

DEC 

BGT 


Cfi1)+,R0 

95$ 

#SLASH,(R2)+ 

(R1)+,(R2)+ 

RO 

90$ 


TEMPORARY  BUFFER  FOR  DESTINATION  INFO 
POINT  TO  ALIAS  NAME  BLOCK 
POINT  TO  REMOTE  NODE  NAME 

SAVE  NAME 

DELETE  TRAILING  BLANKS 

POINT  PAST  NON-BLANK 


ADDRESS  OF  ALIAS  NAME  BLOCK 
POINT  TO  DESTINATION  INFO 
INSERT  SEPARATING  CHARACTER 
GET  BYTE  COUNT  FOR  UIC 
CHECK  FOR  PASSWORD 
STORE  UIC 
MORE  TO  COPY? 
BR  IF  YES 


INSERT  SEPARATING  CHARACTER 
GET  BYTE  COUNT  FOR  PASSWORD 
BR  IF  NONE  SPECIFIED 
POINT  PAST  PASSWORD 
INSERT  "..." 
STORE  PASSWORD 
MORE  TO  COPY? 
BR  IF  YES 


GET  BYTE  COUNT  FOR  ACCOUNT  NUMBER 
BR  IF  NO  ACCOUNT  NUMBER 
INSERT  SEPARATING  CHARACTER 
STORE  ACCOUNT  NUMBER 
MORE  TO  COPY? 
BR  IF  YES 


CREATE  ASCIZ  STRING  FOR  DESTINATION  INFORMATION 
§5$: 
97$: 


000001 


CMPB 

BNE 

CMPB 

BEQ 

98$:    MOVB 


#SLASH,-(R2) 
98$ 

#SLASH,-(R2) 

97$ 

#0,1(R2) 


TERMINATING  CHARACTER  A  SLASH? 

CREATE  ASCIZ  STRING 

ANOTHER  SLASH? 

BR  IF  YES 

CREATE  ASCIZ  STRING 


DISPLAY  DESTINATION  INFORMATION 


i00$: 


TSTB 
BGE 

ERRPr$ 
BR 


TEMPI 
110$ 

AMSG5,MSG0UT 
120$ 


WAS  SCOPE  SPECIFIED  AS  GLOBAL? 

BR  IF  NO 

DISPLAY  GLOBAL  SCOPE  AND  DESTINATION 

FINISH  UP 
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052  031332 
4153  031336 
415A  0313A0 
4155 
4156 
4157 
4158 
4159 

4160  031342 

4161  031346 

4162  031352 

4163  031360 

4164  031362 

4165  031366 

4166  031370 

4167  031376 

4168  031400 
4169 

4170  031402 

4171  031410 

4172  031412 

4173  031414 

4174  031420 
4175 

4176  031422 

4177  031424 

4178  031432 

4179  031434 

4180  031440 

4181  031442 
4182 

4183 
4184 
4185 

4186  031444 

4187  031450 

4188  031452 

4189  031460 

4190  031462 

4191  031464 

4192  031466 

4193  031474 

4194  031476 

4195  031502 

4196  031506 

4197  031510 

4198  031512 

4199  031516 

4200  031520 

4201  031522 

4202  031524 

4203  031526 

4204  031530 

4205  031532 

4206  031534 
4207 

4208  031540 


012704 
112425 
001376 


012705 
012704 
032760 
001431 
105760 
001005 
032760 
001420 
000415 

032760 
001404 
010003 
062703 
000401 

011603 
132763 
001402 
012704 
112425 
001376 


105760 
001004 
032760 
000405 
010204 
011605 
032765 
001465 
016705 
166605 
C05305 
006305 
066705 
011504 
100003 
010205 
060405 
006305 
011505 
110504 
052704 
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340$:   MOV 
350$:   MOVB 
BNE 


#0N,R4 
(R4H,(R5)  + 
350$ 


001062' 
000477' 
040000  000000 

000014 

OOOO'.O  000000 


DISPLAY  CIRCUIT  SERVICE  INFO 


000400  000000 
000022 

000001  000000 
000507' 


000014 

001000  000000 

000004  000000 

OOOOOOG 
000004 

OOOOOOG 


100000 


MOV 

MOV 

BIT 

BEQ 

TSTB 

BNE 

BIT 

BEQ 

BR 

BIT 
BED 
MOV 
ADD 
BR 


370$:  MOV 
380$:   BITB 

BEQ 
390$:  MOV 
400$:   MOVB 

BNE 


360$: 


#TEMP2,R5 

#ENA8LE,R4 

#LF.RDY,L.FLG(R0) 

410$ 

L.NSTA(RO) 

360$ 

#LF.SER,L.FLG(R0) 

400$ 

390$ 

#LF.8RO,L.FLG(R0) 

370$ 

R0,R3 

#L.MPF,R3 

380$ 

(SP),R3 

#SF.SER,S.FL6(R3) 

400$ 

#DISABL,R4 

(R4)+,(R5)+ 

400$ 


LOOPBACK  NODE  NAME 


410$:   TSTB 
BNE 
BIT 

Dp 

420$:  MOV 
MOV 
BIT 

430$:  BEQ 
MOV 
SUB 
DEC 
ASL 
ADD 
MOV 
BPL 
MOV 
ADD 
ASL 

440$:   MOV 
MOVB 
BIS 


L.NSTA(RO) 

420$ 

#LF.LPB,L.FLG(RO) 

430$ 

R2,R4 

(SP),R5 

#SF.LPB,S.FLG(R5) 

470$ 

$SLTNM,R5 

4(SP),R5 

R5 

R5 

$LLCTA,R5 

(R5),R4 

440$ 

R2,R5 

R4,R5 

R5 

(R5),R5 

R5,R4 

#160000, R4 


GETRV   $DECPT,#D$END 


ELSE  IT  IS  OFF 
STORE  THE  STATE 


GET  BUFFER  ADDRESS 
ASSUME  SERVICE  ENABLED 
LINE  LOADED  ? 
IF  NO  -  BRANCH 
MULTIPOINT  ? 
IF  YES  -  BRANCH 
SERVICE  DISABLED  ? 
IF  NO  -  BRANCH 
CONTINUE 

BROADCAST  LINE  ? 
IF  NO  -  BRANCH 
COPY  SLT  ADDRESS 
CALCULATE  STATION  ADDRESS 
CONTINUE 

GET  STATION  ADDRESS 

SERVICE  DIABLED  ? 

IF  NO  -  BRANCH 

STORE  DISABLE  STRING  ADDRESS 

COPY  STRING 


MULTIPOINT  CIRCUIT? 

BR  IF  YES 

IS  THERE  A  LOOPBACK  NAME? 

GET  STATION  NUMBER 

GET  MULTIPOINT  FLAG  TABLE  ADDRESS 

IS  THERE  A  LOOPBACK  NAME? 

BR  IF  NO  -  DISPLAY  STATE 

COMPUTE  THE  SYSTEM  LINE  NUMBER 


FIND  CURRENT  PDV  £  CHANNEL  ASSIGNMENT 
COMPUTE  ADOR  IN  THE  REVERSE  CHANNEL 

MAPPING  TABLE  8  GET  CONTENTS 
IF  MI,  ADDR  OF  TRIB  MAPPING  TABLE 
GET  TRIBUTARY  NUMBER 
POINT  INTO  MAPPING  TABLE/2 
FORM  REAL  ADDRESS 
GET  PDV  AND  CHANNEL  NUMBER 
GET  CHANNEL  NUMBER 
INDICATE  CHANNEL  NUMBER 

READ  DECNET  HOME  BLOCK 
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GTSTID  -  GET  NODE  STATE 

AND  IDENTIFICATION 

4698 

.S8TTL 

GTSTID  -  GET  NODE  STATE  AND  IDENTIFICATION 

4699 

4700 
4701 
4702 

+ 

GTSTID  -  GET 

NODE  STATE  AND  IDENTIFICATION 

4703 

4704 

INPUTS:  NONE 

4705 

4706 

OUTPUTS: 

4707 

TEMPI 

=  NODE  STATE  (ASCIZ) 

4708 

TEMP2 

=  NODE  IDENTIFICATION  (ASCIZ) 

4709 

4710 
4711 
4712  034630 

■■ 

3TSTID 

:  SAVRC 

<R5> 

SAVE  R5 

4713  034632 

012701 

001054' 

MOV 

#TEMP1,R1 
*OFF,RO 

STORAGE  FOR  STATE  STRING 

4714  034656 

012700 

000077- 

MOV 

ASSUME  STATE  IS  OFF 

4715  054642 

012702 

001024' 

MOV 

#NTINAM,R2 

GET  NTINIT  NAME  IN  RAD50 

4716  054646 

CALL 

TSKSCH 

GET  TCB  ADDRESS 

4717  034652 

105451 

BCS 

in* 

TASK  NOT  INSTALLED 

4718  034654 

032767 

OOOOOOG 

OOOOOOG 

BIT 

*VF.SS,$VFLAG 

S-SYSTEM  ? 

4719  034662 

001404 

BEO 

5$ 

NO 

4720 
4721 

.IF  NDF 

R$$MPL 

;[MP01] 

4722  034664 

052767 

002000 

000034G 

BIT 

#T2.FXD,T.ST2+$BFR 

IS  TASK  FIXED 

4723  034672 

001421 

BEQ 

10$ 

TASK  NOT  FIXED 

4724 
4725 
4726  034674 

.ENDC 

;[MP01] 

005767 

000012G 

5$: 

TST 

T.RCVL+$BFR 

ANY  PACKETS  QUEUED  ? 

4727  054700 

001416 

BEO 

10$ 

NO  -  STATE  IS  OFF 

4728 
4729 

.IF  DF 

R$$MPL 

;[MP01] 

4730 

GETAD 

#140000, #RCVLNG,T.RCVLt$BFR  ;  READ  IN  SECONDARY  POOL 

; [MPO  •  ' 

4751 

4732 

.IFF 

;  [Ml  .  .  J 

4755  034702 

GETRV 

T.RCVL+$BfR,#RCVLNG 

READ  IN  PACKET 

4754 
4735 
4756 
4757  034722 

.ENDC 

;CMP01] 

052767 

010000 

000006G 

BIT 

#LS.CX0,LR.STS+6+$BFR 

IS  EXECUTOR  STATE  ON  QUEUED? 

4738  054750 

001402 

BEQ 

10$ 

BR  IF  NO 

4759  054732 

012700 

000064' 

MOV 

#ON,R0 

EXECUTOR  STATE  IS  ON 

4740  034736 

112021 

10$: 

M0V8 

(R0)+,(R1)- 

■  STORE  THE  STRING 

4741  034740 

4742 

4743  034742 

001376 

8NE 

10$ 

... 

GETRV 

$DECPT,#D$END 

•  READ  DECNET  HOME  BLOCK 

4744  054762 

012700 

OOOOOOG 

MOV 

#$SFR,RO 

•  GET  NODE  ID  ADDRESS 

4745  054766 

062700 

000020 

ADD 

#D$LID,RO 

■  •  • 

4746  054772 

011001 

MOV 

(R0),R1 

•  GET  UNMAPPED  ADDRESS  OF  NODE 

ID 

4747  054774 

4748 

4749  035004 

CEACC$ 

R1 

;  MAP  TO  NODE  ID  STRING 

GETAD 

R1,#54. 

;  READ  ID  STRING 

4750  035022 

012700 

OOOOOOG 

MOV 

#$BFR,RO 
#TEMP2,R1 

;  GET  BUFFER  ADDRESS 

4751  055026 

012701 

001062' 

MOV 

;  GET  OUTPUT  BUFFER  ADDRESS 

4752 

4753  035032 

012002 

MOV 

(R0)+,R2 

;  GET  CHARACTER  COUNT 

4754  055054 

112021 

20$: 

M0V8 

(R0)+,(R1)* 

;  STORE  THE  IDENTIFCATION  STRING 
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S.SELT 

000053 

S3.NEC= 

000020 

TIDET 

S.STA 

000000 

S3.PPT= 

020000 

TR.ALF 

S.STE 

000002 

53.PTH= 

004000 

TR.DEV 

S.STEC 

000043 

S3.RAL= 

000010 

TR.LEN= 

S.STLG 

000104 

S3.RES= 

010000 

TR.MST 

S.STLN 

000035 

S3.RU8^ 

040000 

TR.PRE 

S.STPN 

000034 

S3.TAB= 

000002 

TR.TLZ 

3.TIHC 

000054 

S3.TME= 

002000 

TSKSCH 

S.TLZ 

000012 

S3.TSY= 

000040 

TS.8LK= 

S.TMO 

000040 

S3.8BC= 

000100 

TS.CKP= 

S.TNRP 

000032 

S4.AB0= 

100000 

TS.CKR= 

S.TTEC 

000041 

S4.ANI= 

000400 

TS.EXE= 

S.WFA 

000016 

S4.AV0= 

001000 

TS.HLD= 

S.XDE 

000036 

S4.BLK= 

002000 

TS.MS6= 

S.XID 

000002 

S4.DEC= 

004000 

TS.NRP= 

S.XMB 

000030 

S4.DL0= 

000100 

TS.OUT= 

S.XMP 

000024 

S4.EDT= 

010000 

TS.RDN= 

S.XMT 

000012 

S4.HFF= 

000020 

TS.RUN= 

S.XMTB 

000076 

S4.HFL= 

000007 

TS.STP= 

S.XMTC 

00C062 

S4.HHT= 

000040 

TX.NXM= 

S1.DEC= 

001000 

S4.HSY= 

000200 

TX.OVR= 

S1.DPR= 

000400 

S4.RGS= 

020000 

TX.TMO= 

S1.DSI= 

004000 

S4.SFC= 

040000 

TY$CHA= 

51.ESC= 

000002 

S4.VFL= 

000010 

TY$EVE= 

S1.IBF= 

002000 

S5.ABP= 

100000 

TY$STA= 

S1.IBY= 

000200 

S5.BCC= 

020000 

TY$SUM= 

31.0BY= 

000100 

S5.DA0= 

040000 

TSFLAG 

S1.'~-TH= 

000010 

S5.HPC= 

000014 

TSLIF 

S1.RES= 

010000 

S5.HP0= 

000020 

TSLJFL 

S'I.RNE  = 

000020 

S5.!TI= 

000100 

TSLIFO 

"  RNF  = 

020000 

S5.0XF= 

000040 

TSLJFS 

•?SP= 

000004 

S5.RP0= 

002000 

T$LIN 

^..RST= 

000001 

S5.SW1= 

000001 

TSLIPS 

S1.TNE= 

040000 

S5.TMM= 

000002 

TSLLD 

S1.TSY= 

000040 

S5.VER= 

010000 

TSLLDC 

S1.USI= 

100000 

S5.X0F= 

000004 

TSLLDL 

S2.BEL= 

020000 

S5.X0N= 

000010 

TSLLDO 

S2.BRQ= 

000020 

S6.EI0= 

000400 

TSLLDS 

S2.CR  = 

002000 

S6.RDI= 

100000 

TSLLEN 

S2.CT0= 

040000 

S6.RLU= 

001000 

TSLOPR 

S2.CTS= 

100000 

TEMPI 

001034R 

TSLTCL 

S2.ELF= 

001000 

TEMP2 

001062R 

TSLTJM 

S2.FLF= 

000400 

TEMP3 

001202R 

rSLTPR 

S2.IRQ= 

000200 

TEMP4 

001224R 

TILTPS 

S2.0BF= 

004000 

TEMP5 

001244R 

TSNAPL 

S2.0RC1= 

000100 

TEMP6 

001554R 

T$NFE 

S2.PCU= 

010000 

TEMP7 

001556R 

TSNLEN 

S2.RCU= 

000001 

TEMPS 

001560R 

TSNNUL 

S2.SRQ= 

000040 

TF.FFE= 

000004 

TSNOPL 

S2.WAL= 

000010 

TF.ROF= 

000001 

TSNRNI 

S2.WRA= 

000006 

TF.RTO= 

000002 

T$NRPL 

S2.WRB= 

000002 

TF.TAE= 

000010 

TSNR'JL 

S3.ACR= 

000001 

TF.TOF= 

000004 

TSNVR 

S5.CTC= 

000004 

TF.TTO= 

000010 

TSRPRI 

S3.FDX= 

000200 

TF.URE= 

000001 

TSSVC 

S3.KE  = 

001000 

TF.USA= 

000002 

T$T5 

S5.MHE= 

000400 

TIATT 

00i616R 

T$T6 

001646R 

000102 

000100 

000210 

000074 

000076 

000072 

035052R 

171700 

000200 

000100 

100000 

002000 

020000 

010000 

000400 

040000 

004000 

001000 

000002 

000001 

000004 

000400 

001000 

002000 

000000 

000044 

000013 

000013 

000013 

000013 

000000 

000006 

000012 

000045 

000012 

000012 

000012 

000046 

000002 

000024 

000026 

000014 

000020 

000004 

000000 

000010 

000002 

000006 

000042 

000005 

000007 

000001 

000040 

000034 

000030 

000032 


T$$KMG= 

000000 

T.TOD 

000070 

T$$MIN= 

000000 

T.TRLG= 

000076 

T.ACT 

000031 

T.TRLN 

000005 

T.ACTL 

000052 

T.TRPN 

000004 

T.ASTL 

000016 

T.UCB 

000026 

T.ATT 

000062 

T.XASQ 

000010 

T.BTTC 

000074 

T.XBTC 

000024 

T.BUF 

000006 

T.XDAT 

000030 

T.CHA 

000032 

T2.AB0= 

000100 

T.CPC8 

000004 

T2.AST= 

100000 

T.CSR 

000022 

T2.CAF= 

000400 

T.DELT 

000056 

T2.CHK= 

020000 

T.DIN 

000044 

T2.CKD=: 

010000 

T.DOUT 

000042 

T2.DST= 

040000 

T.DPRI 

000040 

T2.FXD= 

002000 

T.EFLG 

000022 

T2.HLT= 

000200 

T.ERRC 

000020 

T2.REX= 

001000 

T.IOC 

000003 

T2.SEF= 

004000 

T.ITM 

000001 

T2.SPN= 

000004 

T.LBF 

000046 

T2.STP= 

000020 

T.LBN 

000041 

T2.WFR= 

000001 

T.LDV 

000044 

T3.ACP= 

100000 

T.LNK 

000000 

T3.CAL= 

000100 

r.LTM 

000054 

T3.CLI= 

001000 

T.MXSZ 

000050 

T3.GFL= 

000010 

T.NAM 

000006 

T3.MCR= 

004000 

T.NDM 

000066 

T3.NET= 

000020 

T.OFF 

000066 

T3.NSD= 

000200 

T.PCB 

000046 

T3.PMD--^ 

040000 

T.PIND 

000007 

T3.PRV= 

010000 

T.PRI 

000002 

T3.REM= 

020000 

T.QRAC 

000060 

T3.R0V= 

000040 

T.QRIN 

000062 

T3.RST= 

000400 

T.QRPD 

000064 

T3.SLV= 

002000 

T.OUE 

000024 

T3.SUS= 

000002 

T.QU2  = 

000026 

UC.ALG= 

000200 

T.RBF 

000050 

UC.ATT= 

000010 

T.RBTC 

000020 

IJC.KIL= 

000004 

T.RCVL 

000012 

UC.LGH= 

000003 

T.RDAT 

000034 

UC.NPR= 

000100 

T.RRFL 

000072 

UC.PWF= 

000020 

T.RTM 

000055 

UC.QUE= 

000040 

T.RTY 

000030 

UD.UNS= 

000000 

T.SAST 

000054 

UD.160= 

000004 

T.SEL 

000040 

UD.200= 

000001 

T.SELT 

000052 

UD.556= 

000002 

T.SFNC 

000014 

UD.625= 

000005 

T.SITC 

000072 

UD.8K  = 

000006 

T.SRCT 

000071 

UD.800= 

000003 

T.STAT 

000002 

UM.CLI= 

000036 

T.ST2 

000034 

UM.DSB= 

000200 

T.ST3 

000036 

UM.NBR= 

000400 

T.ICBL 

000030 

UM.OVR= 

000001 

T.TIMC 

000016 

US.ABO= 

000001 

T.TIO 

000057 

US.BSP= 

000002 

T.TKSZ 

000060 

US.BSY= 

000200 

T.TMR 

000000 

US.FOR= 

000040 
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SYMBOL    "ROSS  REFERENCE 


SYMBOL      VALUE 


NHSG6 

NMSG6A 

NMSG6B 

NMSG7 

NMSG8 

NMSG9 

NMS12A 

NMS2A 

NMS5A 

NODSAV 

NOINfO 

NROUT 

NSPEC 

NTINAM 

NXTBLK 

NXTCIR 

NXTDST 

NXTDTE 

NXTGRP 

NXTLIN 

NXTRDT 

NSELEN 

NILVC 

NSTLC 

N$VER 

NSXLEN 

N$$VCT 

0ERR1 

OFF 

OFSINS 

OFSLOG 

OFSOFF 

OF$ON 

OFSSMC 

OF.RLU 

OKNOWN 

0MSG1 

0MSG2 

0MSG3 

OMSG'i 

0MSG5 

0MSG6 

ON 

OPSADD 
OPSAlL 
OPSCCS 
OPSCIE 
OPSCON 
OPSCOP 
OPSCOS 


012520 
012636 
01273A 
0130U 
013040 
013076 
0153H 
012166  R 
012404  R 
001032  R 
001022  R 
000426  R 
000411    R 
001024  R 
025006  R 


025050  R 
024126  R 
021126  R 
021662  R 
025120  R 
016522  R 
000054 
000036 
0001  CO 
000066 
000124 
****** 
002510  R 
000077  R 
000001 
000100 
000002 
000000 
000200 
000100 
000037  R 
025430  R 
025454  R 
025506  R 
025552  R 
025616  R 
025660  R 
000064  R 

000200 
000200 
000004 
004000 
000400 
:  000001 
■  000100 


REFERENCES 

26-1688 
26-1695 
26-1700 
26-1710 
26-1754 
26-1766 
26-1658 
26-1470 
26-1643 

#6-244 

#6-237 

#6-190 

#6-184 

#6-241 
9-400 
26-1791 
27-1941 
40-2927 
35-2636 
37-2743 
28-2173 
31-2330 
26-1630 
26-1631 
53-4259 
26-1763 
26-1762 
22-1307 
9-425 

#6-131 

#5-99 

#5-99 

#5-99 

#5-99 

#5-99 
48-3494 

#6-123 
48-3454 
48-3459 
48-3482 
48-3484 
48-3501 
48-3504 

#6-129 
59-4739 

#5-99 

#5-99 

#5-99 

#5-99 

#5-99 

#5-99 

#5-99 


#26-1853 
#26-1857 
#26-1860 
#26-1863 
#26-1866 
#26-1869 
#26-1881 
26-1594 
#26-1849 

31-2368 

26-1676 

22-1288 

39-2863 

9-413 

36-2707 

27-1995 

#41-3133 

#36-2705 

#38-2816 

28-2190 

#32-2403 


53-4260 

53-4258 
25-1407 
#9-435 
14-861 
48-3475 


48-3472 


9-393 
#48-3513 
#48-3516 
#48-3519 
#48-3522 
#48-3526 
#48-3529 

14-858 


6-273 
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CREF   04.00 


#26-1837 


33-2484 

26-1520 
59-4715 
10-479 
#45-3360 
27-2083 


28-2220 

53-4261 

37-2766 
26-1778 


35-2671 


10-497 

53-4212 

#46-3389 


37-2780    40-3063 


10-526 


12-725 


26-1487    26-1541 


26-1613 


46-3390   #47-3422 


42-3179 
35-2644 


44-3279 
39-2862 


45-3363 
48-3477 


59-4747 
53-4137 


55-4502         59-471', 


26-1774 


12-704 


35-2647 


13-826 


39-2885 


15-883 


48-3469 


50-3708 


53-4152         55-4513 
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F  10 

PAGE  2h 

CREF   04.00 


ERMSGS 


ERRPTS 


FLTDFS 
GETAD 

GETRV 


NKRDFS 

NSFDF$ 


REFERENCES 

#5-56 
12-764 
12-795 
26-1860 
26-1894 
31-2385 
34-2611 
39-2907 
40-3098 
48-3522 
51-3825 
52-3917 
53-4309 
55-4542 

#5-56 
11-640 
12-788 
26-1851 
26-1877 
26-1902 
33-2498 
35-2678 
40-3076 
40-3106 
49-3657 
51-3833 
53-4286 
54-4365 

#5-56 
11-629 
18-1071 
26-1600 
26-1754 
27-2131 
33-2449 
34-2581 
37-2782 
40-3001 
42-3183 
49-3648 
51-3806 
53-4224 
55-4454 

#5-57 

#5-56 
53-4021 

#5-56 
26-1684 
31-2354 
53-4208 

#5-63 

#5-57 


6-:;37 

12-767 

26-1831 

26-1863 

26-1897 

33-2493 

34-2614 

40-3071 

40-3101 

48-3526 

51-3828 

52-3920 

53-4312 

55-4545 

6-236 

12-760 

12-791 

26-1852 

26-1880 

27-2136 

33-2501 

35-2681 

40-3079 

40-3109 

49-3660 

51-3836 

53-4289 

54-4368 

8-341 

12-666 

19-1170 

26-1643 

26-1766 

28-2157 

33-2456 

34-2589 

39-2352 

40-3005 

48-3454 

50-3696 

51-3811 

53-4227 

55-4456 

5-84 

12-731 

53-4025 

10-461 

26-1706 

33-2430 

53-4258 

5-64 

5-85 


8-353 
12-770 
26-1834 
26-1866 
26-1900 
33-2496 
34-2617 
40-3074 
40-3104 
48-3529 
51-3831 
53-4284 
54-4363 
55-4548 
8-351 
12-763 
12-794 
26-1855 
26-1884 
28-2240 
33-2504 
35-2684 
40-3082 
2-3189 
^9-3663 
51-3839 
53-4292 
54-4371 
8-342 
12-680 
26-1436 
26-1646 
26-1769 
28-2234 
33-2464 
34-2597 
39-2896 
40-3018 
48-3459 
50-3702 
51-3814 
53-4271 
55-4492 

22-1308 
53-4049 
18-1023 
26-1713 
34-2553 
55-4473 


8-357 

12-773 

26-1837 

26-1869 

26-1903 

33-2499 

35-2679 

40-3077 

40-3107 

49-3658 

51-3834 

53-4287 

54-4366 

8-352  - 

12-766 

26-1830 

26-1856 

26-1885 

29-2280 

33-2507 

37-2787 

40-3085 

42-3194 

49-3666 

51-3842 

53-4295 

55-4529 

8-343 

12-684 

26-1456 

26-1658 

26-1781 

29-2260 

33-2467 

35-2642 

40-2936 

40-3024 

48-3482 

50-3714 

52-3877 

53-4273 

55-4517 

25-1408 
53-4053 
22-1298 
26-1762 
35-2635 
58-4682 


8-363 

12-777 

26-1840 

26-1872 

27-2137 

33-2502 

35-2682 

40-3080 

40-3110 

49-3661 

51-3837 

53-4290 

54-4369 

8-355 

12-769 

26-1833 

26-1859 

26-1886 

31-2375 

33-2510 

37-2790 

40-3088 

48-3512 

50-3723 

51-3845 

53-4298 

55-4532 

9-385 

12-698 

26-1470 

26-1688 

26-1797 

29-2272 

33-2475 

35-2665 

40-2951 

40-3046 

48-3484 

51-3756 

52-3908 

54-4336 

55-4519 

34-2570 
53-4080 
25-1397 
26-1763 
37-2741 
59-4733 


9-435 

12-780 

26-1843 

26-1875 

28-2241 

33-2505 

35-2685 

40-3083 

42-3190 

49-3664 

51-3840 

53-4293 

54-4372 

8-356 

M-772 

26-1836 

26-1862 

26-1889 

31-2378 

34-2602 

37-2793 

40-3091 

48-3515 

50-3726 

51-3848 

53-4301 

55-4535 

9-425 

12-750 

26-1476 

26-1695 

26-1810 

31-2342 

33-2477 

35-2671 

40-2966 

40-3053 

48-3501 

51-3783 

53-3952 

54-4352 


37-2?o7 
53-4084 
26-1439 
27-1949 
39-2880 
59-4743 


10-548 

12-783 

26-1846 

26-1878 

29-2281 

33-2508 

37-2788 

40-3086 

42-3195 

49-3667 

51-3843 

53-4296 

55-4530 

8-362 

12-776 

26-1839 

26-1865 

26-1890 

31-2381 

34-2607 

39-2901 

40-3094 

48-3518 

50-3729 

51-3851 

53-4304 

55-4538 

10-457 

13-839 

26-1556 

26-1700 

26-1815 

31-2358 

33-2484 

35-2673 

40-2969 

40-3056 

48-3504 

51-3788 

53-3960 

54-4353 


39-2894 
53-4262 
26-1484 
27-2003 
40-2926 
60-4778 


10-551 

12-786 

26-1849 

26-1881 

31-2376 

33-2511 

37-2791 

40-3089 

48-3513 

50-3724 

51-3846 

53-4299 

55-4533 

9-434 

12-779 

26-1842 

26-1868 

26-1893 

31-2384 

34-2610 

39-2906 

40-3097 

48-3521 

51-:824 

52-3916 

53-4308 

55-4541 

10-535 

14-864 

26-1565 

26-1710 

26-1819 

31-2361 

33-2486 

37-2754 

40-2977 

40-3063 

49-3557 

51-3793 

53-4093 

54-4355 


42-3180 
59-4749 
26-1524 
27-2091 
42-3168 
60-4785 


11-641 

12-789 

26-1853 

26-1887 

31-2379 

34-2603 

37-2794 

40-3092 

48-3516 

50-3727 

51-3849 

53-4302 

55-4536 

10-547 

12-782 

26-1845 

26-1871 

26-1896 

33-2492 

34-2613 

40-3070 

40-3100 

48-3525 

51-3827 

52-3919 

53-4311 

55-4544 

10-538 

15-930 

26-1569 

26-1735 

26-1821 

31-2368 

34-2529 

37-2773 

40-2989 

40-3065 

49-3568 

51-3796 

53-4095 

55-4398 


26-1605 
31-2329 
49-3577 
62-4850 


12-761 

12-792 

26-1857 

26-1891 

31-2382 

34-2608 

39-2902 

40-3095 

48-3519 

50-3730 

51-3852 

53-4305 

55-4539 

10-550 

12-785 

26-1848 

26-1874 

26-1899 

33-2495 

34-2616 

40-3073 

40-3103 

48-3528 

51-3830 

53-4283 

54-4362 

55-4547 

11-573 

18-1061 

26-1594 

26-1749 

27-1925 

31-2370 

34-2574 

37-2780 

40-2991 

42-3171 

49-3645 

51-3801 

53-4127 

55-4405 


44-3280        45-3364 


26-1630 
31-2352 
49-3578 
62-4853 
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VENA  -  VNP  ENABLE/DISABLE 
ERROR  MESSAGES 

270  002017 

271  002022 

272  002052 

273  002056 
27^  002106 

275  002112 

276  002K2 

277  002K6 

278  002174 

279  002200 

280  002234 

281  002240 

282  002304 

283  002510 

284  002352 

285  002356 

286  002401 

287  002404 

288  002442 

289  002446 

290  002475 

291  002500 

292  002545 

293  002550 

294  002612 

295  002616 

296  002667 

297  002672 

298  002741 

299  002744 

300  002776 

301  003002 

302  003047 

303  003052 

304  003120 

305  003124 

306  003150 

307  005154 

308  003224 

309  003230 

310  003276 

311  003302 

312  003346 

313  003552 

314  003425 
315 
316  OOOOCO 
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f  11 

12:C 


ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
FRMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 
ERMSGS 
ERBLKS 

.PSECT 


ERR27 

<Event  cannot  be  fUtered> 

ERR28 

<Node  name  already  exists> 

ERR29 

<Obiect  cannot  be  cleared> 

ERR30 

<Line  is  not  multipoint> 

ERR31 

<Invalid  parameter,  Tributary> 

ERfi32 

<Jnualid  parameter.  Multipoint  actii/e> 

ERR33 

<Inualid  parameter.  Multipoint  dead> 

ERR34 

<Line  in  wrong  state> 

ERR35 

<Jn\/alid  parameter  value,   Owner> 

ERR36 

<Operation  failed,  Owner> 

ERR37 

<E\/ent  filter  block  allocation  failure> 

ERR38 

<In\/alid  parameter   i/alue.   Sink  name> 

ERR39 

<Invalid  parameter  value.  Remote  node  name> 

ERR40 

<Invalid  parameter  value.  Sink  node  name> 

ERR41 

<Invalid  parameter  grouping> 

ERR42 

<Parameter  not  applicable,  hello  timer> 

ERR43 

<Parameter  not  applicable,  listen  timer> 

ERfi44 

<X25ACP  not  installed> 

ERR45 

<X25ACP  must  be  'fixed'  in  RSX11S  systems> 

ERR46 

<Adiacency  data  base  allocation  failure> 

ERR47 

<Deallocation  of  unused  POOL..  failed> 

EfiR48 

<Invalid  function  for  RSX-1 IM/M-PLUS  systems) 

ERR49 
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805 
806 
807 
808 
8u9 
810 
811 
812 
813 
8K 
815 
816 
817 
818 
819 

820  002156 

821  002136 

822  002UO 

823  002U4 

824  002U6 

825  002154 

826  002156 

827  002160 

828  00216A 

829  002166 

830  002172 
831 

832  002174 

833  002176 

834  002200 

835  002202 

836  002204 

837  002206 

838  002210 

839  002212 

840  002214 
841 

842  002216 

843  002220 


.SSTTL   FNDFR  -  FIND  A  FREE  CHANNEL 

♦♦-FNDFR-FIND  A  FREE  CHANNEL 

INPUTS; 

RO  =  PDV  INDEX 

OUTPUTS: 

C-8IT  =  SUCCESS/FAILURE 

R3  =  POINTER  TO  AVAILABLE  CHANNEL  IN  PDV 

R4  =  CHANNEL  NUMBER 

R1,R2  =  DESTROYED 


010003 
066703 
011303 
032763 
001416 
005002 
156302 
001412 
062703 
005004 

012346 
006326 
103001 
100005 
005204 
005302 
003371 
000261 
000401 

005743 


FNDFR: 


OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 


10$: 

20$: 
25$: 


30$: 
40$: 


MOV  R0,R3 

ADD  $PDVTA,R3 

MOV  (R3),R3 

BIT  #ZF.LLC,2.FLG(R3) 

BEQ  25$ 

CLR  R2 

BIS8  Z.LLN(R3),R2 

BEQ  25$ 

ADD  #Z.MAP,R3 

CLR  R4 

-(SP) 


MOV 

(R3) 

ASL 

(SP) 

BCC 

2U$ 

BPL 

iO$ 

INC 

R4 

DEC 

R2 

BGT 

10$ 

SEC 

BR 

40$ 

TST 

-(R3 

RETURN 

COPY  PDV  INDEX 

COMPUTE  ADDRESS  Of  THE  PDV 

GET  THE  PDV  ADDRESS 

IS  THIS  PROCESS  AN  LLC  ? 

IF  EQ,  YES  ..  ERROR 

GET  NUMBER  OF  OF  CHANNELS 

Jf'eQ,  NU  CHANNELS  PERIOD 
POINT  TO  CHANNELS 
INITIALIZE  CHANNEL  COUNT 

GET  AN  ENTRY 

IS  IT  FREE  ? 

IF  CC,  NO  ..  KEEP  LOOKING 

IF  PL,  YES  ..  GOOD 

SKIP  TO  NEXT  CHANNEL 

ANY  MORE  CHANNELS  ? 

IF  GT,  YES 

INDICATE  FAILURE 

AND  RETURN 

ACCOUNT  FOR  PREVIOUS  PIP  (CLEAR  C-BIT) 
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1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

137^ 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

138A 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

139i 

1395 

1396 

1397 

1398 

1399 

HOO 

HOI 

U02 

U03 

K04 

U05 

K06 

^07 

U08 

H09 

1410 

U11 

U12 

U13 

KK 

K15 

U16 

1417 

U18 

U19 

1420 

U21 

U22 


004234 
004234 
004240 
004246 


004250 
004254 
004256 
004262 

004266 
004272 
004274 
004300 
004304 
004306 

004310 
004316 
004336 

004344 
004350 
004352 

004360 
004366 
004406 


012701 
032767 
001074 


103002 
000167 
016702 

005767 
100402 
000167 

103001 
000545 


022701 
001022 
016767 


004414  000404 


004416 
004420 
004422 
004426 
004432 
004436 


0C'.4';c 

004444 


.S8TTL  SVLIN  -  SET  L00P8ACK  NODE  BLOCK 

*♦•  -  $VL1N  -  SET  LOOPBACK  NOlE  BLOCK 

INPUTS: 

RQB+LR.NAM  =  NODE  NAME 
RQ8+L0.NAM  =  CHANNEL  NUMBER 

OUTPUTS: 

R0-R2  =  DESTROYED 


00001 2G 
OOOOOOG 


$VLIN:: 


.ENA8L  LSB 


OOOOOOfi 


MOV 
BIT 
BNE 


#RQ8+LR.NAH,R1 
#CM$SET,$CMAND 
5$ 


000362 
00001 OG 

00001 2G 

000324 


CLEAR  REQUEST 

CALL 

BCC 

J  MP 

MOV 


1$: 


3$: 


REMNOD: 


000004G 
OOOOCOG  000004G 


010146 
010046 

012701 

000471 


:u3427 


000014 


2$: 
4$: 

;  S 


TST 

BMI 

JMP 

CALL 

BCC 

BR 

SWTCHl 

GETRV 

SWTCHl 

CMP 
BNE 
MOV 

SWTCHO 

PUTRC 

SWTCHO 

BR 

MOV 

MOV 

CALL 

MOV 

CALL 

BR 


SFNNAM 

1$ 

103$ 

$8FR+R.ADD,R2 

$8FR+R.FLAG 

3$ 

101$ 

CLR8JT 

REMNOD 

30$ 

#$HMBUF 
$DECPT,*D$END 

#$HM8UF+D$RNN+2,R1 

2$ 

$8FR,$HMBUF+D$RNN+2 

#$HMBUF 
$DECPT,#D$END 


4$ 

R1,-(SP) 

RO,-(SP) 

$XLINK 

#R.LEN,R1 

SDEPOL 

30$ 


SET  LOOPBACK  REQUEST 


CALL 
BfS 


$FNNAM 
10$ 


GET  ADDRESS  OF  REMOTE  NODE  NAME 
IS  THIS  A  SET  COMMAND  ? 
IF  NE,  YES 


TRY  TO  FIND  THE  NODE  BLOCK 
IF  SUCCESS  -  BRANCH 
IF  NOT  -  ERROR 
GET  CHANEL  NUMBER 

CHECK  IF  LOOPBACK 

IF  LOOPBACK  -  BRANCH 

IF  PL,  NOT  A  LOOPBACK   ..  ERROR 

CLEAR  LOOPBACK  BIT  IN  SLT 

IF  SUCCESS  -  BRANCH 

IF  CS,  ERROR 

USE  TEMPORARY  BUFFER 
READ  DECNET  HOME  BLOCK 
RESET  DEFAULT  BUFFER 

IS  PREVIOUS  THE  LISTHEAD  ? 

IF  NE,  OKAY 

ELSE,  SET  NEW  NEXT 

USE  TEMPORARY  BUFFER 
WRITE  DECNET  HOME  BLOCK 
RESET  DEFAULT  BUFFER 

AND  DEALLOCATE  BLOCK 

GET  UNMAPPED  ADDR  OF  PREVIOUS  BLOCK 
GET  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 
UNLINK  BLOCK  FROM  LIST 
GET  LENGTH  OF  REMOTE  BLOCK 
DEALLOCATE  THE  REMOTE  BLOCK 
AND  LEAVE 


TRY  TO  FIND  THE  NODE  BLOCK 
IF  CS,  NOT  FOUND 


VENA 
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1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

188A 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 


006260 
006260 
006264 
006266 
006304 
006310 

006326 
006334 

006336 
006342 
006350 
006354 
006360 
006362 
006364 
006366 


006370 
006376 

006402 
006406 


.SBTTL  STPASW  -  SET/CLEAR  TRANSMIT  PASSWORD 

*•♦  -  STPASW  -  SET/CLEAR  TRANSMIT  PASSWORD 

INPUTS: 

SCMAND   =  SET/CLEAR 

OUTPUTS: 

APPROPIATE  ACTION  TAKEN 


103450 
016702 


032767 
001415 

012704 
052767 
012705 
012703 
112524 
005303 
001375 
000405 


042767 

005067 


000070G 


OOOOOOG  OOOOOOG 


000012G 
040000 
000020G 
000010 


040000 
00001 2G 


OOOOOOG 


STPASW: 

CALL 

CHKXPT 

BCS 

40$ 

GETRV 

R2,*N$XLEN 

MOV 

N$VER+2 

H$BfR,R2 

GETRV 

R2,#18. 

BIT 

#CM$SET 

SCMAND 

BEQ 

20$ 

MOV 

*V$XMTt 

tBFR,R4 

BIS 

#VF$XMT 

,V$fLG+$8FR 

MOV 

#RQ8+L0 

TPA,R5 

MOV 

#8.,R3 
(R5W,( 

10$: 

Move 

?4)t 

DEC 

R3 

BNE 

30$ 

gR 

;•  CLEAR 

PASSWORD 

50$: 

BIC 

#Vf$XMT 

.VSFLG+iBFR 

CLR 

VSXMT+$BFR 

30$: 

PUTRC 

40$: 

RETURN 

BE  SURE  XPT  IS  LOADED 

IF  CS,  XPT  NOT  LOADED 

READ  IN  POINTERS 

ADDRESS  OF  TRNSMIT/RECEIVE  PASSWORDS 

FLAG  AND  PASSWORDS 

SET  PASSWORD  ? 
NO 

SET  DESTINATION  ADDRESS 
INDICATE  VALID  TRANSMIT  PASSWORD 
POINT  AT  PASSWORD  SOURCE 
NUMBER  OF  CHARACTERS  TO  MOVE 
MOVE  STRING 

TILL  DONE 
FINISH  UP 


CLEAR  FLAG  BIT 

FORCE  ILLEGAL  PASSWORD 

REWRITE  DATA  BLOCK 
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2^77 
2A78 
2A79 
2^80 
2481 
2^.82 
2483 
2484 
2485 
2486 
2487 
2488 

2489  012002 

2490  012002 

2491  012006 

2492  012012 
2493 

2494  012014 

2495  012022 

2496  012024 

2497  012052 

2498  012034 

2499  012042 

2500  012044 
2501 

2502  012050 

2503  012052 
2504 

2505 
2506 

2507  012052 

2508  012056 

2509  012060 

2510  012062 

2511  012066 

2512  012070 

2513  012074 
2514 

2515  012076 

2516  012100 
2517 

2518 
2519 

2520  012102 

2521  012106 

2522  012110 

2523  012112 

2524  012116 

2525  012120 

2526  012124 
2527 

2528  012126 

2529  012130 

2530  012132 
2531 

2532 
2553 


012700  021274 

103450 

032767  OOOOOOG  OOOOOOG 

001013 

052767  001000  OOOOOOG 

001407 

052767  000040  OOOOOOG 

001403 


.SBTTL     $VLOG  -   PROCESS  LOGGING  REQUEST 

»*-$VLOG-PROCESS  LOGGING  REQU'ST 

INPUTS: 

SOPTON  =  OPTIONS  WORD 

OUTPUTS: 

C-8IT  =  SUCCESS/FAILURE 

$VLOG:: 


012705 
012501 
001410 
050167 
001403 

103416 

005725 
000766 


012705 
012501 
001410 
050167 
001405 

103402 

005725 
000766 


000240' 


OOOOOOG 


MOV 

#*REVL,RO 

GET  EVL'S  PROCESS  NAME 

CALL 

$FPDV 

IS  EVL  IN  SYSTEM? 

BCS 

101$ 

BR  IF  NO  -  EVENT  LOGGING  NOT  SUPPOR 

BIT 

#CM$SET,$CMAND 

CLE  COMMAND  ? 

BNE 

5$ 

IF  NO  -  BRANCH 

BIT 

#OP$KEV,$OPTON 

KNOWN  EVENTS 

BEQ 

5$ 

IF  NO  -  BRANCH 

BIT 

#OP$LNE,$OPTON 

LINE  QUALIFIER  ? 

6E0 

5$ 

IF  NO  -  BRANCH 

CALL 

LINFLT 

CLEAR  EVENTS  SPECIFIED  TO  THIS  LINE 

RETURN 

5$: 

;  CHECK 

FOR  VALID  LOGGING  PARAMETERS 

MOV 

*PVALID,R5 

POINT  TO  PARAMETER  VALIDITY  TABLE 

10$: 

MOV 

(R5)+,Rl 

GET  BIT  TO  CHECK  FOR 

BEQ 

30$ 

BR  F  END  OF  TABLE 

BIT 

R1,$0PT0N 

IS  HIS  PARAMETER  PRESENT? 

BEQ 

20i 

BR  IF  NO 

CALL 

a(R5) 

CHECK  FOR  PARAMETER  VA! IDITY 

BCS 

60$ 

BR  IF  ERROR 

20$: 


TST 
BR 


(R5)  + 
10$ 


OPERATE  LOGGING  PARAMETERS 


000262' 


OOOOOOG 


50$: 
40$: 


MOV 

MOV 

BEQ 

BIT 

BEQ 

CALL 

BCS 


#CHT6LE,R5 

(R5)t,R1 

60$ 

R1,$0PTON 

50$ 

S(R5) 

60$ 


50$: 
60$: 

ERROR  CONDITIONS 


TST 

BR 

RETURN 


(R5)  + 
40$ 


SKIP  OVER  ADDRESS  OF  ROUTINE 
CHECK  NEXT  PARAMETER 


POINT  TO  DISPATCH  TABLE 

GET  BIT  TO  CHECK  FOR 

BR  IF  END  OF  TABLE 

OPERATE  ON  THIS  PARAMETER? 

BR  IF  NO 

CALL  OPERATE  ROUTINE 

BR  IF  FAILURE 

POINT  PAST  ROUTINE 

AND  CHECK  FOR  NEXT  PARAMETER 
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3005 
3004 

.SBTIL 

CKSINK  -  LHbLK  VALIUI ir  U 

3005 
3006 
3007 

+ 

CKSINK  -  CHECK  VALIDITY  OF  SINK  NODE  ID 

3008 

3009 

INPUTS: 

3010 

LO.SKN+ 

RQ8  -  SINK  NODE  ID 

30,1 

SVFLAG 

-  FLAGS  WORD 

3012 

3013 

OUTPUTS: 

3014 

SINKND 

-  SINK  NODE  ADDRESS  IF  VAL 

5015 

CARRY 

-  SUCCESS/FAILURE 

.5016 

3017 
3018 
3019  013746 

m 

KSINK: 

SWTCHI 

#$HM8UF 

3020  013754 

GETRV 

$DECPT,#D$END 

3021  013774 

016746 

000014G 

MOV 

$HMBUF+D$LNUM,-(SP) 

3022  014000 

SWTCHI 

3023 

3024  014006 

012701 

000014G 

MOV 

#RQ8>L0.SKN,R1 

3025  014012 

032767 

OOOOOOG  OOOOOOG 

BIT 

#VF.SKA,$VfLAG 

3026  014020 

001402 

BEQ 

10$ 

3027  014022 

011104 

MOV 

(R1),R4 

3028  014024 

000407 

BR 

20$ 

3029  014026 

0$: 

CALL 

$FNNAM 

3030  014032 

103002 

BCC 

15$ 

3031  014034 

005726 

TST 

(SP)  + 

303?  014036 

000410 

BR 

101$ 

3033  014040 

016704 

000010G 

15$: 

MUi/ 

$8FR+R.ADD,R4 

3034  014044 

022604 

^0$: 

CMP 

(SP)t  R4 

3035  014046 

001402 

BEQ 

30$ 

3036  014050 

010467 

000130' 

MOV 

R4, SINKND 

3037  014054 

000241 

30$: 

CLC 

3038  014056 

3039 

3040 

3041 

3042  014060 

40$: 

RETURN 

;  ERROR 

MESSAGES 

iOU: 

-RRPT$ 

ERR41,$ER0UT 

SET  UP  INPUT  BUFFER 
READ  DECNET  HOME  BLOCK 
STORE  NODE  NUMBER 


POINT  TO  SINK  NODE  ID 

NODE  ADDRESS  SPECIFIED? 

BR  IF  NO 

SAVE  SINK  NODE  ADDRESS 

CONTINUE 

IS  THERE  A  REMOTE  NODE  NAME  BLOCK? 

IF  FOUND  -  BRANCH 

CLEAN  UP  STACK 

BR  IF  NO 

SAVE  SINK  NODE  ADDRESS 

IS  THIS  THE  EXECUTOR  NODE? 

BR  IF  YES 

STORE  SINK  NODE  ADDRESS 

INDICATE  SUCCESS 


G  16 


VENA  -  VNP  ENABLE/DISABLE   LINES  MACRO  V05.03b  Wednesday  11-Sep-85   12:06     Page   54 


VDIS  -  VNP  SHOW 

COMMANDS 

CKPREV 

1329 

1330 

1331 

1332 

1333 

133A 

1335 

1336 

1337 

1338 

1339 

1340 

13A1 

1542 

1343 

1344 

007174 

132767 

1345 

007202 

001411 

1346 

007204 

116701 

1347 

007210 

001403 

1348 

007212 

005002 

1349 

007214 

1350 

00722t 

142767 

1351 

007226 

000002 
171775 


000002 
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.SBTTL  CKPREV 


CKPREV  -  CHECK  TO  jEE  IF  PREVIOUS  EVENT  WAS  SET  AND  IF  IT  WAS,  DISPLAY  IT 

INPUTS: 

FLAGS  -  FLAGS  BYTE  ,  ^^ 

PREVNT  -  VALUE  OF  PREVIOUS  EVENT  TYPE  IF  PREVIOUS  EVENT  TYPE  WAS  SET 

OUTPUTS: 

FLAGS  -  F.PREV  IS  CLEARED 

THE  PREVIOUS  EVENT  VALUE  IS  DISPLAYED  IF  NECESSARY 


WAS  PREVIOUS  EVENT  TYPE  SET 

BR  IF  NO 

GET  EVENT  TYPE  NUMBER  TO  DISPLAY 

BR  IF  FIRST  NUMBER  IN  RANGE 

SUPPRESS  ZEROES 

CONVERT  TO  ASCII 

INDICATE  THIS  EVENT  TYPE  NOT  SET 


V[ 


172372 

CKPREV: 

BITB 

#F.PREV, FLAGS 

BEQ 

20$ 

MOVB 

PREVNT, Rl 

BEQ 

10$ 

CLR 

R2 

CALL 

$CBDMG 

172346 

10$: 

BICB 

#F.PREV, FLAGS 

20$: 


RETURN 
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1964  014242 

116002 

000014 

1965  014246 

001005 

1966  014250 

032760 

002000  000000 

1967  014256 

001724 

1968  014260 

000425 

1969  014262 

1970  014264 

010246 

1971  014266 

005002 

1972  014270 

010005 

1973  014272 

062705 

000022 

1974  014276 

132765 

000100  000000 

1975  014304 

001403 

1976  014306 

1977  014312 

005204 

1978  014314 

062705 

000004 

1979  014320 

005202 

1980  014322 

005316 

1981  014324 

003364 

1982  014326 

005726 

1983  014330 

1984  014332 

000676 

1985  014334 

1986  014340 

005204 

1987  014342 

000672 

1988 

1989 

1990 

1991  014344 

012700 

000557' 

1992  014350 

112021 

1993  014352 

001376 

1994  014354 

005004 

1995  014356 

1996  014362 

103046 

1997 

1998 

1999 

2000  014364 

016700 

OOOOOOG 

2001  014370 

001442 

2002  014372 

062700 

000006 

2003  014376 

2004  014414 

012700 

000002G 

2005  014420 

032767 

OOOOOOG  OOOOOOG 

2006  014436 

001407 

2007  014430 

012701 

000036 

2008  014434 

012702 

000016 

2009  014440 

012703 

000002 

2010  014444 

000406 

2011  014446 

012701 

000016 

2012  014452 

012702 

000002 

2013  014456 

012703 

Mni2 

2014  014462 

2015  014466 

103403 

2016  C14470 

2017  014474 

005204 

2018  014476 

000576 

2019 

2020  014500 

90$: 


100$: 


110$: 


120$: 


130$: 


MOVB  L.NSTA(R0),R2 

BNE  100$ 

BIT  #LF.ENA,L.FLG(RO) 

BED  40$ 

BR  130$ 

SAVRG  <fi5> 

MOV  R2,-(SP) 

CLR  R2 

MOV  R0,R5 

ADD  *L.MPF,R5 

BITS  #SF.ENA,S.FLG(R5) 

BEQ  120$ 

CALL  DiSCJR 

INC  R4 

ADD  #S.LEN,R5 

INC  R2 

DEC  (SP) 

BGT  110$ 

TST  ($P)+ 

RESRG  <R5> 

BR  40$ 

CALL  DISCIR 

INC  R4 

BR  40$ 


SHOW  SPECIFIC  CIRCUIT 


140$: 
150$: 


160$: 


MOV 

MOVB 

BNE 

CLR 

CALL 

BCC 


#CSPEC,RO 

(R0)+,(R1)t 

150$ 

R4 

NXTCIR 

200$ 


;  SHOW  SPECIFIC  PSI  PERMANENT  CIRCUIT 


170$: 


180$: 


190$: 
J0O$: 


MOV 

BEQ 

ADD 

GETRV 

MOV 

BIT 

BEQ 

MOV 

V, 

BR 

MOV 

MOV 

MOV 

CALL 

BCS 

CALL 

INC 

BR 


$PSIPT,RO 

190$ 

#H$PVC,RO 

R0,#2 

#ROB+LR.LIN,RO 

#PF.XDF,$PFLAG 

170$ 

#C$LEN+MAXID,R1 

*C$GNAM,R2 

#C$NML,R3 

180$ 

#C$LEN,R1 

#C$NAM,R2 

*-6.,R3 

FND8LK 

190$ 

DISPVC 

R4 

380$ 


SAVRG   <R5> 


IS  THIS  A  MULTIPOINT  LINE? 

BR  IF  YES 

IS  CIRCUIT  ACTIVE  (POINT  TO  POINT)? 

BR  IF  NO 

ELSE  DISPLAY  CIRCUIT  INFO 

SAVE  R5 

GET  NUMBER  OF  STATIONS 

FIRST  STATION 

GET  SLT  ADDRESS 

POINT  TO  MULTIPOINT  FLAG  TABLE 

IS  THIS  STATION  ACTIVE 

BR  IF  NO 

DISPLAY  CIRCUIT  INFORMATION 

INDICATE  HEADER  NOT  TO  BE  DISPLAYED 

POINT  TO  NEXT  STATION 

NEXT  STATION  NUMBER 

DECREMENT  COUNT  OF  STATIONS 

BR  IF  MORE  TO  DO 

CLCAN  UP  STACK 

RESTORE  R5 

GET  NEXT  CIRCUIT  IN  SYSTEM 

DISPLAY  CIRCUIT  INFORMATION 

INDICATE  HEADER  NOT  TO  BE  DISPLAYED 

GET  NEXT  CIRCUIT  IN  SYSTEM 


GET  STRING  FOR  HEADER  MESSAGE 
STORE  STRING 

INDICATE  HEADER  TO  BE  DISPLAYED 
GET  NEXT  LINE  IN  SYSTEM 
BR  IF  FOUND  ONE 


IS  THIS  A  PSI  SYSTEM? 

BRANCH  IF  NO  -  DONE 

GET  ADDRESS  OF  PVC  LISTHEAD 

READ  IN  PVC  LISTHEAD 

POINT  TO  CIRCUIT  TO  SEEK 

CHECK  FOR  EXTENDED  DATA  FORMAT 

IF  NONE,  USE  OLD  FORMAT 

MAX  SIZE  OF  EXTENDED  PVC  BLOCK 

OFFSET  OF  PVC  NAME  IN  BLOCK 

OFFSET  OF  NAME  LENGTH  IN  BLOCK 

LENGTH  OF  OLD-FORMAT  PVC  BLOCK 
OFFSET  OF  OLD-FORMAT  PVC  NAME 
INDICATE  FIXED  LENGTH  OF  PVC  NAME 
FIND  MATCHING  BLOCK 
BRANCH  IF  NOT  FOUND 
DISPLAY  PVC  INFORMATION 
UPDATE  HEADER  DISPLAY  FLAG 


SAVE  R5 


;CTD001] 
.-CTDOOl] 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
.-[TDOOID 
;[:TD001] 
;CTD001] 
;CTD001] 
;CTD.013 
;[TD001] 
.-CTDOOI] 
;[TD001] 
;[TD001] 
; CTDOOI] 
;«*-16 


VDIS  -  VNP  SHOW  COMMANDS 
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DMXPR  -  SHOW  MODULE  X25-PROTOCOL 


2513 

.SBTTL 

DMXPR  -  SHOW  MODULE  X25-F 

ROTOCOL 

2514 

2515 
2516 
2517 

+ 

DMXPR 

-  SHOW 

MODULE  X25-PROTOCOL 

2518 

2519 

INPUTS: 

2520 
2521 
2522 

RQB  - 

ADDRESS  Of  REQUEST  BLOCK 

OUTPUTS: 

2523 
2524 

INfORMATION  DISPLAYED  ON  USER'S  TERMINAL 

2525 

2526  017354 

012700 

062751 

)MXPR: 

MOV 

#*RPLI,RO 

GET  PLI'S  PROCESS  NAME 

2527  017360 

CALL 

FNDPDV 

LOOK  FOR  PDV 

2528  017364 

103004 

BCC 

10$ 

BR  IF  FOUND  IT 

2529  017366 

2530 

2531  017376 

ERRPT$ 

XPER1,$ER0UT 

DISPLAY  ERROR  MESSAGE 

010067 

161426 

0$: 

MOV 

RO.PLIPDV 

SAVE  PLI'S  PDV  ADDRESS 

2532  017402 

032767 

000440  OOOOOOG 

BIT 

*OP$DTEIOP$KDT,$OPTON 

WAS  DTE  QUALIFIER  SPECIFIED? 

2533  017410 

001404 

BEQ 

20$ 

BR  IF  NO 

2534  017412 

CALL 

DMDTE 

DISPLAY  DTE  INFO 

2535  017416 

000167 

000402 

JMP 

100$ 

AND  EXIT 

CTD001] 

2536 

**-1 

2537  017422 

032767 

001100  OOOOOOG 

?0$: 

BIT 

#0P$GRPI0P$KGR,$0PT0N 

WAS  GROUP  QUALIFIER  SPECIFIED? 

2538  017430 

001404 

BEQ 

30$ 

BR  IF  NO 

2539  017432 

CALL 

DMGRP 

DISPLAY  GROUP  INFO 

2540  017436 

2541 

2542 

000167 

000362 

JMP 

100$ 

AND  EXIT 

CTD001] 

;  DISPLAY  X25- 

PROTOCOL,  NO  QUALIFIERS 

2543 

2544  017442 

010005 

^0$: 

MOV 

R0,R5 

Save  PDV  address 

CTD001] 

2545  017444 

016700 

OOOOOOG 

MOV 

$PSIPT,RO 

Get  PSI  home  block  address 

CTDOOl] 

2546  017450 

032767 

OOOOOOG  OOOOOOG 

BIT 

#PF.XDF,$PFlAG 

Check  for  extended  data  format 

[TD001] 

2547  017456 

001405 

BEQ 

40$ 

Use  old-format  parameters  if  unset 

CTDOOl] 

2548  017460 

062700 

000050 

ADD 

*H$GNAM,RO 

Address  extended  network  name 

CTDOOl] 

2549  017464 

012702 

000020 

MOV 

#MAXID,R2 

Max  length  of  extended  name 

CTDOOl] 

2550  017470 

000404 

BR 

50$ 

CTDOOl] 

2551  017472 

062700 

000024 

40$: 

ADD 

#H$NETW,RO 

Address  old-format  network  name 

CTDOOl] 

2552  017476 

012702 

000006 

MOV 

#6,R2 

Length  of  old-format  network  name 
Read  I'r   twork  name 

CTDOOl] 

2553  017502 

50$: 

GETRV 

R0,R2 

CTDOOl] 

2554  017516 

012700 

001034' 

MOV 

#TEMP1,R0 

Point    temporary  storage 

CTDOOl] 

2555  017522 

012701 

OOOOOOG 

MOV 

#$8FR,R1 

Point  .0  network  name 

CTDOOl] 

2556  017526 

112120 

60$: 

Move 

CR1)  +  ,(n.0)  + 

Store  network  name 

CTDOOl] 

2557  017530 

SOB 

R2,60$ 

CTDOOl] 

2558  017534 

020027 

001034' 

70$: 

CMP 

R0,*TEMP1 
80i 

Remove  trailing  spaces 

CTDOOl] 

2559  017540 

101404 

BLOS 

CTDOOl] 

2560  017542 

124027 

000040 

CMPB 

-(RO),#SPACE 

CTDOOl] 

2561  017546 

001772 

BEQ 

70$ 

CTDOOl] 

2562  017550 

005200 

INC 

RO 

CTDOOl] 

2563  017552 

105020 

80$: 

CLRB 

(R0)  + 

■  Create  asciz  string 

CTDOOl] 

2564 

CTDOOl] 

2565  017554 

016500 

OOOOOOG 

MOV 

7.DAT(R5),R0 

•  GET  LINE  TABLE  ADDRESS 

•  *-10 

2566  017560 

005067 

OOOOOOG 

CLR 

IRBLCK 

■  ASSUME  LINE  TABLE  IS  IN  DSR 

2567  017564 

022700 

120000 

CMP 

#120000, RO 

;  IS  LINE  TABLE  IN  PROCESS  SPACE? 

2568  017570 

101003 

BHI 

90$ 

;  BR  IF  NO 

2569  017572 

016567 

OOOOOOG  OOOOOOG 

MOV 

Z.DSP(R5),$RBLCK 

;  GET  PROCESS  MAPPING  BIAS 

H  3 
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3080 

3081 

3082 

3083 

308/ 

3083 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 


023522 

023532 
023575 

023604 
023620 

023626 
023651 

023656 
023703 

023710 
023740 

023750 
024004 

024010 
024025 

024032 
024047 

024054 
024074 

024100 
024120 


ERBLKS  DSMS2C,<TEMP1,TEMP2> 


ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 


<  Call  mask  =  XA,  Call  value  =  3!A> 
DSMS3,<TEMP1,TEMP2> 

<  DTE  =  M> 
DSMS4,<TEHP1> 

<  Group  name  =  !!A> 
DSMS5,<TEMP1> 

<  Subjddress  =  5;fJ!N> 
0SMS6,<TEMP1> 

<  Subaddress  =  Xf-%nN> 
DSMS7,<TEMP1,TEMP2> 

<  Destination  not  in  s>'ste.'n/!N> 
DSMS8 

<  Node  =  XA> 
DSMS9,<TEMP1> 

<  User  =  ?'>A> 
DSMS10,<TEMP1> 

<  Password  set> 
DSMbll 

<  Account  =  XA> 
DSMS12,<TEMP1> 


Bug  Fix 


;  Extended  fields 


;CTD00i: 
;[TD001] 


;CTD001] 
;**-1 


;CTD001] 
.-CTDOOl] 
;[TD001] 
;[TD001] 
.-CTDOOl] 
;[TD001] 
.-[TDOOl] 
.-tTDOOl] 
.-CTDOOl] 
;  CTDOOl] 
; CTDOOl] 
.•CTDOOl] 
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VDIS  -  VNP  SHOW  COMMANDS 
DISALI  -  DISPLAY  ALIAS  INFO 


36^7 
36A8 
36A9 
3650 
3651 
3652 
3653 
365^ 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
366A 
3665 
3666 
3667 
3668 
3669 


02626A 
02627^ 


026276 
026320 

026330 
026351 

026356 
026^23 

026^30 
026505 
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110$:        ERRPTS     AMSG4,MSG0UT 
120$:        RETURN 

.ENABL     LC 


ERROR  MESSAGES 

ERMSG$  <S;n2A  XA  as  of  XV2N> 
ERBLK$  AMSG1,<TEMP2,TEMP1> 


;  DISPLAY  TERMINAL  SCOPE  AND  DESTINATION 


ERMSG$ 
ERBLKS 


<Alias  name  =  XA5!N> 
AMSG2,<TEMP1> 


ERMSG$  ■-■   Scope  =  Global,  Destination  =  S:AXN> 
ERBLKS  AMSG3,'TEMP2> 


ERMSG$ 
ERBLK$ 


:ope  =  Te'fninat  XA!iB: 
AMSG4, <TEMP3, TEMPI ,TEMP2> 


Destination  =  XA%N> 


.DSA8L  LC 
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DISCIR  -  DISPLAY  CIRCUIT  INFORMATION 


4209  031560 

4210 

4211  031564 

012703 

000004G 

MOV 

#$eFR+D$RNN+2,R3 

STORE  REMOTE  LISTHEAD 

012705 

000014 

MOV 

#R.LEN,R5 

GET  SIZE  OF  REMOTE  NODE  BLOCK 

4212  031570 

450$: 

CALL 

NXTBLK 

GET  NEXT  NODE  NAME  BLOCK 

4213  031574 

103425 

BCS 

470$ 

BR  IF  NOT  THERE  -  DISPLAY  STATE 

4214  031576 

026304 

000010 

CMP 

R.ADD(R3),R4 

IS  THIS  THE  ONE? 

4215  031602 

001372 

BNE 

450$ 

BR  IF  NO 

4216  031604 

012704 

001062" 

MOV 

#TEMP2,R4 

ELSE,  DISPLAY  NAME  AND  STATE 

4217  031610 

062705 

000002 

ADD 

#R.NAM,R3 

POINT  TO  NODE  NAME 

4218 

000003 

.REPT 

3 

4219 

MOV 

.ENDR 

CMPB 

(R3)+,(R4)t 

STORE  THE  NAME 

4220 

4221  031622 

122744 

000040 

460$: 

#SPACE,-(R4) 

DELETE  TRAILING  BLANKS 

4222  031626 

001775 

BEQ 

460$ 

4223  031630 

112764 

000000  000001 

wove 

#0,1(R4) 

CREATE  ASCIZ  STRING 

4224  031636 

ERRPT$ 

CMSG5,MSG0UT 

DISPLAY  LOOPBACK  NODE  NAME  8  STATE 

4225  031646 

4226 

4227  031650 

4228 

4229 

000404 

8R 

480$ 

FINISHED 

470$: 

ERRPTS 

CMSG6,MSG0UT 

DISPLAY  STATE 

;  DISPLAY  HELLO 

AND  LISTEN  TIMERS 

4230 

4231  031660 

016600 

000012 

^80$: 

MOV 

12(SP),R0 

RESTORE  RO 

4232  031664 

016602 

000006 

MOV 

6(SP),R2 

RESTORE  R2 

4233  031670 

052760 

040000  000000 

BIT 

#LF.RDY,L.FLG(R0) 

IS  LINE  LOADED? 

4234  031676 

001507 

BEQ 

540$ 

BR  IF  NO  -  DONE 

4235  031700 

116001 

000021 

M0V8 

L.0WNR(R0),R1 

ASSUME  OWNER  =  LINE  OWNER 

4236  031704 

105760 

000014 

TST8 

L.NSTA(RO) 

MULTIPOINT  L'NE  ? 

4237  031710 

001411 

BEQ 

490$ 

IF  EQ,  NO 

4238  031712 

010001 

MOV 

RO.Rl 

GET  SLT  ADDRESS 

4239  031714 

062701 

000022 

ADD 

#L.MPF,R1 

POINT  TO  STATION  TABLE 

4240  031720 

4241 

4242  031722 

010246 

MOV 

R2,-(SP) 

GET  TRI8  NUMBER 

006316 

ASL 

(SP) 

STATION  TABLES  ARE  4  BYTES 

4243  031724 

006316 

ASL 

(SP) 

4244  031726 

062601 

ADD 

(SP)+,R1 

■  *  • 

4245  031750 

116101 

000003 

HOVB 

S.0UNR(R1),R1 

ELSE,  GET  TRIB  OWNER 

4246  031734 

066701 

OOOOOOG 

490$: 

ADD 

spdvta.ri 
(rd.rI 

POINT  TO  PDV  TABLE  ENTRY 

4247  031740 

011101 

MOV 

GET  THE  PDV  ADDRESS 

4248  031742 

022761 

114224  OOOOOOG 

CMP 

#*RXPT,Z.NAM(R1) 

IS  THE  OWNER  XPT  ? 

4249  031750 

001062 

BNE 

540$ 

IF  NE,  NOTHING  TO  DISPLAY 

4250  031752 

005046 

CLR 

-(SP) 

CLEAR  STACK  FOR  SLN 

4251  031754 

016703 

OOOOOOG 

MOV 

$SLTMA,R5 

GET  ADDRESS  OF  FIRST  SLT 

4252  031760 

022300 

500$: 

CMP 

(R3)+,R0 

IS  THIS  THE  CORRECT  ENTRY? 

4253  031762 

001402 

BEQ 

510$ 

BR  IF  YES 

4254  031764 

005216 

INC 

(SP) 

ELSE  UPDATE  SLN 

4255  031766 

000774 

BR 

500$ 

•  AND  CONTINUE 

4256  031770 

110266 

000001 

510$: 

M0V8 

R2,1(SP) 

•  SET  TRIB  NUMBER  ONTO  HIGH  BYTE 

4257  051774 

012605 

MOV 

(SP)t,R5 

•  RETRIEVE  SLN/STA 

4258  031776 

GETRV 

Z.DAT(R1),#N$XLEN 

•  GET  XPT'S  DATA  BASE 

4259  032016 

016767 

000102G  OOOOOOG 

MOV 

N$TLC+2+$BFR,$RBLCK 
N$TLC*-$BFR,RO 

■  MAP  TO  CIRCUIT  C0UN1RE5 

4260  032024 

016700 

OOOIOOG 

MOV 

;  GET  THE  NUMBER  OF  LINE  COUNTERS 

4261  C32030 

016701 

000104G 

MOV 

N$TLC+4+$BFR,R1 

;  POINT  TO  THE  FIRST 

4262  052034 

520$: 

GETAD 

R1,*T$LLEN 

;  READ  IN  COUNTER  BLOCK 

4263  052052 

005300 

DEC 

RO 

;  AT  END  OF  COUNTERS  ? 

4264  032054 

002420 

BLT 

540$ 

;  IF  LT,  NOTHING  TO  DISPLAY 

4265  032056 

026705 

OOOOOOG 

CMP 

T$LlNt$BFR,R5 

;  ARE  THESE  THE  COUNTERS  ? 
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GTSTID  -  GET  NODE  STATE  AND  IDENTIFICATION 


4755  035036 
475iS  0350mO 

4757  0350A2 

4758  035046 

4759  035050 


005302 
003375 
112711  000000 


DEC 
BGT 

Move 

RESRG 
RETURN 


R2 
20$ 

#0,(R1) 
<R5> 


DECREMENT   COUNT 
BR   IF   MORE   TO  STORE 
CREATE   AN  ASCIZ    STRING 
RESTORE   R5 
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US.FRii;= 
US.KPF= 
US.LAB= 
US.MDE= 
US.MDM= 
US.MNT= 
US.OFL= 
US.PUB= 
US.PUF= 
US.RED= 
US.SHR= 
US.SPU= 
US.UMD= 
US.VV  = 
US.WCK= 
UU.ABO= 
UU.ATN= 
UU.AVN= 
UU.GUS= 
UU.IOS= 
UU.ONL= 
UU.RCT= 
UU.RDY= 
UU.SER= 
UU.SIO= 
UU.SPC= 
U.ACB 
U.ACP  = 
IJ.ADMA 
U.AFLG 
U.ATT 
U.BPKT= 
U.BUF 
U.CBF  = 
U.CLl 
U.CNT 
U.COTQ 
U.CTCB 
U.CTL 
U.CTYP 
U.CWl 
U.CW2 
U.CW3 
J.CW4 
u'.CYL  = 
U.DCB 
,.FCDE=^ 
U.FNUM= 
U.GRP  = 
U.KCSR^ 
U.!(CS6= 


000002 

000001 

000004 

000002 

000020 

000100 

000001 

000004 

000010 

000002 

000001 

000002 

000010 

000001 

000010 

000400 

000100 

000004 

000010 

002000 

000020 

000002 

000200 

000001 

001000 

000040 

000062 

000032 

000066 

000064 

000022 

000044 

000024 

000032 

177772 

000030 

000030 

000026 

000004 

000052 

000010 

000012 

000014 

000016 

000104 

000000 

000042 

000040 

000102 

000032 

000034 


.  ABS.   177776 
055630 
Errors  detected: 


000 
001 
0 


U.LEN  =  000042 
U.LUJC  177774 
U.MEDI=  000040 
U.MLUN=  000050 
U.MUP  177772 
U.OWN  177776 
U.RBNS=  000112 
U.RCTC=  000113 
U.RCTS=  000110 
U.RED  000002 
U.RED2  000034 
U.SCB  000020 
U.SHST^  000076 
U.SHUN=  000074 
U.SPC  =  000036 
U.STS  000005 
U.ST2  000007 
U.SUB  =  000036 
U.TCHP  000042 
U.TCVP  000043 
U.TFLK  000040 
U.TFRQ  000036 
U.TIXL  000060 
U.TLPP  000053 
U.TMTI  000047 
U.TRCK=  000100 
U.TSTA  000026 
U.TST5  000054 
U.TST6  000056 
J.TTAB  000050 
iJ.TTYP  000046 
U.TUX  000024 
U.UHVR=  000107 
U.UIC  000044 
U.UNFL=  000052 
L.UNIT  000006 
U.UNSZ=  000114 
U.UNTI=  000060 
J.USI/R=  000106 
U.UTIL=  000036 
U.VCB  =  000034 
U.VSER=  000120 
U.2MED=  000070 
U2.AT.=  000020 
U2.CRT=  002000 
U2.DH1=  100000 
U2.DJl=  040000 
U2.DZ1=  000100 
U2.ESC=  001000 
U2.HFF=  010000 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 


U2.HLD= 

000040 

VSDWSZ 

000006 

U2.L0G= 

000400 

Y$FLG 

000000 

U2.LWC= 

000001 

Y$LEN 

000020  - 

U2.L3S= 

000004 

YSLMPK 

000017 

U2.L8S= 

010000 

YSMCLR 

000016 

U2.NEC= 

004000 

YSMPSZ 

000004 

U2.PRV= 

000010 

YSHRES 

000015 

U2.RMT= 

020000 

YSMRST 

000014 

U2.R04= 

100000 

YSMUSZ 

000007 

U2.SCS= 

000004 

YSTCAL 

000011 

U2.SLV= 

000200 

YSTCLR 

000013 

U2.VT5= 

000002 

YSTRES 

000012 

U2.7CH= 

010000 

YSTRST 

000010 

U3.0PA= 

100000 

ZF.MUX= 

******  GX 

U3.PAR= 

040000 

ZSACPQ 

000006 

U3.UPC= 

020000 

ZSACTC 

000016 

U4.CR  = 

000100 

Z$CLEN= 

000006 

VF$RCV= 

100000 

ZSCTIM 

000014 

VF$XMT= 

040000 

ZSICRE 

000024 

VF.ADD= 

*»*»♦»  GX 

ZSLEN 

000026 

VF.SKA= 

»***»*  GX 

ZSLLRE 

000025 

VF.SS  = 

******  GX 

ZSMXAC 

000022 

VSFLG 

000000 

ZSTCLZ 

000020 

V$LEN 

000022 

ZSUCB 

000012 

V$RCV 

000002 

ZSWBAT 

000000 

V$XM7 

000012 

ZSWEND 

000004 

VS$CTR= 

001000 

Z.DAT  = 

******  GX 

UC.CNT= 

000400 

Z.DSP  = 

******  GX 

UC.EVE= 

004000 

Z.FLG  = 

******  GX 

WC.TRJ= 

002000 

Z.LLN  = 

******  GX 

WC.UM  = 

001000 

Z.MAP  = 

******  GX 

XPERT 

020062R 

Z.NAM  = 

******  GX 

XPMSl 

020162R 

Z.PCB  = 

******  GX 

XPMS2 

020272R 

$BFR  = 

******  GX 

XPMS3 

020402R 

$CBDM6= 

******  GX 

XPMS4 

020510R 

$CBOMG= 

******  GX 

X$$DBT= 

000000 

SCBTA  = 

******  GX 

X5ER1 

022264R 

$CCBNM= 

******  GX 

X5MS1 

022334R 

$CEACC= 

******  GX 

X9ER1 

024442R 

$CLBUF= 

******  GX 

X9MS1 

024522R 

$C5TA  = 

******  GX 

YF$ADR= 

000100 

$DALI 

002512RG 

YF$D1C= 

000020 

$DCIR 

014042RG 

YF$DIR= 

000040 

$DECPT= 

******  GX 

YF$L00= 

000001 

$DEVHD= 

******  GX 

YF$RES= 

000200 

$DIV  = 

******  GX 

YF$RLR= 

000010 

$DLIN 

015160RG 

YF$RLU= 

000004 

$DLOG 

003446RG 

YF$128= 

000002 

$DMOD 

015540RG 

YSDPSZ 

000002 

$DNOD 

007426RG 

$D08J 

002272RG 

$DPRO 

003164RG 

$DSYS 

001706RG 

$ERMSG= 

******  GX 

$ER0UT= 

******  GX 

$FILHD= 

******  GX 

$FNNAM= 

******  GX 

$GETAD= 

******  GX 

$GETRV= 

******  GX 

$HMBUF= 

******  GX 

$LGC0N= 

******  GX 

$L6FNB= 

******  GX 

$LGMON= 

******  GX 

$LGSTT= 

******  GX 

$LGUIC= 

******  GX 

$LLCTA= 

******  GX 

$MUL  = 

******  GX 

$OBJHD= 

******  GX 

$0PT0N= 

******  GX 

$PDVNM= 

******  GX 

$PDVTA= 

******  GX 

$PFLAG= 

******  GX 

$PSIPT= 

******  GX 

$OUAL  = 

******  GX 

$RADDR= 

******  GX 

$RBLCK= 

******  GX 

$RDBNM= 

******  GX 

$RDBSZ= 

******  GX 

$RDBTH= 

******  GX 

$RS1ZE= 

******  GX 

$SAVAL= 

******  GX 

$SAVRG= 

******  GX 

$SD8NM= 

******  GX 

$SLTMA= 

******  GX 

$SLTNM= 

******  GX 

$TIOUT= 

******  GX 

STYPE  = 

******  GX 

$VFLAG= 

******  GX 

$$ 

177777 

$$LCNT= 

000154  G 

$$LLIN= 

000076  G 

$$$   = 

034162R 

$$$ARG= 

000000 

$$$OST= 

000014 

$$$R  = 

000010 

$$$$  = 

034164R 

.MGMGE= 

******  GX 

.TLGTH= 

******  GX 

.TSKHD= 

******  GX 

..OFF.= 

177732 

'•♦  Assembler  statistics 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


REFERENCES 


OPSDST 

=  000200 

#5-99 

OPSDTE 

=  OOOOAO 

#5-99 

OPSDUP 

=  000002 

#5-99 

OPSEST 

=  000100 

#5-99 

OP$EVE 

=  010000 

#5-99 

OPSFIL 

=  000200 

#5-99 

OPSGRP 

=  000100 

#5-99 

OPSHOS 

=  000001 

#5-99 

OPSHTM 

=  000002 

#5-99 

OPSINA 

=  00^000 

#5-99 

OPSINC 

=  001000 

#5-99 

OPSKDS 

=  002000 

#5-99 

OP$<DT 

=  OOOAOO 

#5-99 

OPSKEV 

=  001000 

#5-99 

OPSKGR 

=  001000 

#5-99 

OPSKNT 

=  010000 

#5-99 

OPSKSK 

=  002000 

#5-99 

OPSLCT 

=  000200 

#5-99 

OPSLNE 

=  000040 

#5-99 

OPSLOC 

=  000001 

#5-99 

OPSLST 

=  000002 

#5-99 

OPSLTM 

=  000001 

#5-99 

OPSLVL 

=  000010 

#5-99 

OPSMAC 

=  000010 

#5-99 

OPSMCO 

=  000002 

#5-99 

OPSMDE 

=  000400 

#5-99 

OPSMLl 

=  000004 

#5-99 

OPSMON 

=  000100 

#5-99 

OPSMST 

=  000020 

#5-99 

OPSNAH 

=  OOOOOA 

#5-99 

OPSNET 

=  004000 

#5-99 

OPSNLI 

=  000002 

#5-99 

OPSNOD 

=  000020 

#5-99 

OPSOUT 

=  002000 

#5-99 

OPSOWN 

=  000020 

#5-99 

OPSPAR 

=  000010 

#5-99 

OPSPRI 

=  000010 

#5-99 

OPSRET 

=  010000 

#5-99 

OP$RPA 

=  000010 

#5-99 

OPSSCO 

=  000001 

#5-99 

OPSSEG 

=  000400 

#5-99 

OPSSER 

^   000400 

#5-99 

OP$SIN 

=  000010 

#5-99 

OPSSTA 

=  000004 

#5-99 

OPSTPA 

=  000020 

#5-99 

OPSTRI 

=  000040 

#5-99 

OPSUCS 

=  000020 

#5-99 

OPSUSE 

=  000002 

#5-99 

OPSVEC 

=  000040 

#5-99 

OPSVER 

=  000040 

#5-99 

OP$XAC 

=  000001 

#5-99 

OPSXPR 

=  000002 

#5-99 

31-2366 
34-2532 


6-274 
34-2537 


39-2854 
34-2532 

34-2537 
30-2305 
12-669 


#5-99 


6-275 

#5-99 
30-2307 


12-667 


29-2286 
29-2287 


32-2404 
35-2669 


12-704 
37-2778 


41-3135 
36-2709 

38-2818 
33-2433 
12-671 
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CREf   04.00 

39-2854    40-3061 

15-885 


42-3173 


42-3173 


17-977 


12-704 

#5-99 
33-2482 


13-822 
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CREF   OA.OO 


MACRO  NAME 

NWCF$ 

QBJDFS 

OFFS 

PCLDF$ 

PHBDFS 

PLBDFS 

PLIDFS 

PVCDFS 

QDPBS 

QIOWS 

RAND 


RDTDFS 
RESRG 

RETURN 


RNBDFS 
RNWDFS 
SAVRG 

SLTDFS 
SOB 

SWTCHI 

TCBDFS 

TMPDFS 

UCBDFS 

VNPDBG 

VNPDFS 

XPDDBS 

X29DF$ 

.ADDRB 

.ADDRW 

.APR 

.BIN 


REFERENCES 

#5-59 

#5-57 

#6-267 

#5-58 

#5-50 

#5-60 

#5-59 

#5-60 

#6-267 

#5-58 

#10-^61 

#25-1397 

#26-1605 

#26-1762 

#31-2329 

#3A-2570 

#39-2894 

#45-3364 

#53-4049 

#53-4258 

#59-4743 

#62-4853 

#5-60 

#5-56 
53-4274 
8-345 
18-1073 
28-2231 
37-2783 
44-3335 
54-4356 
64-4949 

#5-57 

#5-72 

#5-56 
53-3949 

#5-57 
31-2338 
40-2964 

#5-56 
25-1412 

#5-58 

#5-88 

#5-58 

#5-73 

#5-56 

#5-63 

#5-60 

#5-88 

#5-88 

#5-88 

#5-S8 


5-86 
5-87 
#6-268 
5-88 
5-89 
5-90 
5-91 
5-92 
6-267 
6-267 
10-461 
25-1397 
26-1605 
26-1762 
31-2329 
34-2570 
39-2894 
45-3364 
53-4049 
53-4258 
59-4743 
62-4853 
5-93 
27-1983 
55-4520 
9-428 
19-1171 
29-2276 
38-2834 
45-3367 
55-4521 
65-4984 
5-94 
5-95 
27-1969 
55-4395 
5-96 
33-2447 
40-2975 
10-460 
26-1761 
5-97 
5-88 
5-98 
2^-1922 
5-99 
5-100 
5-101 


#6-268 
6-268 
#12-731 
#25-1408 
#26-1630 
#26-1763 
#31-2352 
#35-2635 
#40-2926 
#49-3577 
#53-4053 
#53-4262 
#59-4749 


27-2055 

56-4600 

10-540 

20-1201 

30-2311 

39-2897 

46-3401 

56-4601 

66-5004 


27-2020 
56-4569 

33-2454 
40-2987 
10-462 
31-2350 


29-2257 


6-268 

12-731 

25-1408 

26-1630 

26-1763 

31-2352 

35-2635 

40-2926 

49-3577 

53-4053 

53-4262 

59-4749 


27-2119 

57-4664 

11-633 

21-1270 

30-2314 

40-3066 

47-3429 

57-4665 


27-2107 
57-4621 

33-2462 
40-3044 
18-1022 
31-2357 


#18-1023 
#26-1439 
#26-1684 
#27-1949 
#31-2354 
#37-2741 
#42-3168 
#49-3578 
#53-4080 
#55-4473 
#60-4778 


29-2-^^3 

59-^ 

12-? 

22-1j^ 

31-23? 

41-3151 

48-3506 

58-4694 


29-2271 
59-4712 

33-2473 
54-4350 
18-1024 
49-3575 


18-1023 
26-1439 
26-1684 
27-1949 
31-2354 
37-2741 
42-3168 
49-3578 
53-4080 
55-4473 
60-4778 


3t>-'«88 
63  1 
i:-  il 
23-i351 
-3-2411 
42-3185 
49-36'^i 
59-/ 


39-'860 
63-',871 

34-2557 

22-1297 
49-3588 


#22-1298 
#26-1484 
#26-1706 
#27-2003 
#33-2430 
#37-2767 
#42-3180 
#53-4021 
#53-4084 
#58-4682 
#60-4785 


14-865 

24-1379 

33-2487 

43-3233 

50-3716 

60-4790 


40-3012 

36-2720 
22-1301 


22-1298 
26-1484 
26-1706 
27-2003 
33-2430 
37-2767 
42-3180 
53-4021 
53-4084 
58-4682 
60-4785 


#22-1308 
#26-1524 
#26-1713 
#27-2091 
#34-2553 
#39-2880 
#44-3280 
#53-4025 
#53-4208 
#59-4733 
#62-4850 


15-931 

25-1414 

34-2598 

44-3310 

51-3817 

61-4829 


46-3389 

37-2747 
22-1323 


16-956 

26-1824 

35-2674 

44-3313 

52-3909 

62-4856 


50-3693 

40-2934 
25-1396 


22-1308 
26-1524 
26-1713 
27-2091 
34-2553 
39-2880 
44-3280 
53-4025 
53-4208 
59-4733 
62-4850 


40-3015         46-3400         50-3715         51-3816 


17-1000 
27-2128 
36-2723 
44-3333 
53-4275 
63-4912 


51-3752 

40-2949 
25-1400 
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VENA  -  VNP  ENABLE/DISABLE  LINES 
ERROR  MESSAGES 


318 
319 
320 
321 
322 
523 
32A 

325  000000 

326  000002 
000010 

327 

328  000012 

329  OOOOU 
000022 
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••-EVENT  CLASS/TYPE  VALIDITY  TABLE 

THE  TABLE  IS  ORGANIZED  AS  FOLLOWS: 

.WORD   CLASS         ;  CLASS  CODE  TO  MATCH  ON 
.WORD  M,M,M,M        ;  COMPLEMENT  OF  VALID  EVENT  MASKS  FOR  CLASS 


330 
331  00002A 
532  000026 
000034 
555 

354  000056 

355  000040 
000046 

556 

537  000050 

558  000052 

000060 
539 

540  00006? 
341  000064 

000072 
542 

545  000074 
544  000076 

000104 
545 

546  000106 
347  000110 

000116 
348 

349  000120 

350  000122 
000130 

551 

552  000152 

555  000134 
000142 

554 

355  000144 

556  000146 
000154 

357 

558  000156 

559  C00160 
000166 

360 
561 


000170 


562  000172 


000000 
1 76000 
177777 

000002 
177774 
177777 

000005 
177770 
M7777 

000004 
000000 
\77777 

000005 
000000 
\77777 

000006 
177700 
\77777 

000100 
177771 
177777 

000104 
157777 
\77777 

000105 
177776 
177777 

000155 
177776 
\77777 

000156 
^77^7h 
^77777 

000540 
177760 
177777 

000541 
176576 


177777  177777 


\77777     ^77777 


177777     177777 


177770  177777 


177776  177777 


177777     177777 


\77777     177777 


177777     177777 


177760  177777 


177777     177777 


177777  177777 


177777     177777 


177777     177777 


fvTVAL:  .WORD   CL$MAN/100 


EVENT  CLASS  0  -  NETWORK  MANAGEMENT  EVENTS 


.WORD  ''C<1777>."C<0>,*C<0>,*C<0> 


.WORD  CL$SES/100      ;  EVENT  CLASS  2  -  SESSION  CONTROL  EVENTS 

.WORD  *t<5>,*C<0>/C<0>,*C<0> 

.WORD  CL$ECL/100      ;  EVENT  CLASS  3  -  ECL  EVENTS 

.WORD  ''C<7>,»C<0>/C<0>,*C<0> 


.WORD   CL$TRN/100      ;  EVENT  CLASS  4 
.WORD  '>C<177777>,*C<7>,»C<0>,''C<0> 


TRANSPORT  EVENTS 


.WORD  CL$DLL/100      ;  EVENT  CLASS  5  -  DATA  LINK  EVENTS 

.WORD  *C<177777>,*C<1>,*C<0>,*C<0> 

.WORD  CL$PLL/100      ;  EVENT  CLASS  6  -  PHYSICAL  LINK  LAYER 

.WORD  *C<77>,*C<0>,*C<0>,*C<0> 

.WORD  CL$R0U/100     ;  EVENT  CLASS  64.  -  ROUTING-  RSX  SPECIFIC 

.WORD  *C<6>,*C<0>,'C<0>,''C<0> 

.WORD  CL$LDN/100      ;  EVENT  CLASS  68.  -  LINE  DOWN  (RSX  SPECIFIC) 

.WORD  ''C<40000>,*C<0>,*C<0>,*C<0> 

.WORD  CL$ASZ/100     ;  EVENT  CLASS  69.  -  ASCIZ  STRING  (RSX  SPECIFIC) 

.WORD  •C<1>,*C<17>,*C<0>,*C<0> 

.WORD  CL$X2S/100     ;  EVENT  CLASS  93.  -  X.25  SERVER 

.WORD  *C<1>,"C<0>,"C<0>,*C<0> 

.WORD  CL$XL3/100     ;  EVENT  CLASS  94.  -  X.25  LEVEL  3 

.WORD  »C<1>,*C<0>,*C<0>,*C<0> 

.WORD  CL$PLH/100      ;  EVENT  CLASS  224.  -  PLUTO  SPECIFIC  HRDW  EVENT 

.WORD  *C<17>,'C<0>,*C<0>,*C<0> 


.WORD   CL$PAZ/100     ;  EVENT  CLASS  225. 
.WORD  •C<1401>,'C<0>,*C<0>,*C<0> 


PLUTO  SPECIFIC  ASCII  EVENT 
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845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 

857  002222 

858  002222 

859  002224 

860  002226 

861  002230 

862  002234 

863  002240 

864  002242 

865  002244 

866  002250 

867  002252 

868  002254 

869  002  56 

870  002260 

871  002262 

872  002264 

873  002270 

874  002272 

875  002274 

876  002276 

877  002300 

878  002302 


.SBTIL  fNPID  -  FIND  A  PROCESS  PDV  INDEX 

♦♦-FNPID-FIND  A  PROCESS'S  =DV  INDEX 

INPUTS: 

RO  =  PDV  PROCESS  NAME  TO  LOOK  FOR 

OUTPUTS: 

C-8IT    =    SUCCESS/FAILURE 


010146 
01^246 
010346 
016701 
016703 
001406 
012102 
020062 
001404 
005303 
003372 
000261 
000405 
005741 
166701 
010100 
000241 
012603 
012602 
012601 


OOOOOOG 
OOOOOOG 


OOOOOOG 


OOOOOOG 


FNPID: 


10$: 


15$: 
20$: 


50$: 


MOV 

MOV 

MOV 

MOV 

MOV 

BEQ 

MOV 

CMP 

BEQ 

DEC 

BGT 

SEC 

BR 

TST 

SUB 

MOV 

CLC 

MOV 

MOV 

MOV 

RETURN 


R1,-(SP) 

R2,-(SP) 

R3,-(SP) 

$PDVTA,R1 

$PDVNM,R3 

15$ 

(R1)+,R2 

R0,Z.NAM(R2) 

20i 

R3 

10$ 

30$ 
-(R1) 
$PDVTA,R1 
R1,R0 

(SP)+,R3 
(SP)+,R2 
(SP)+,R1 


SAVE  R1 

SAVE  R2 

SAVE  R3 

GET  ADDRESS  OF  PDV  INDEX  TABLE 

GET  NUMBER  OF  PDV  ENTRIES 

IF  EQ,  NONE  ??? 

GET  NEXT  PDV  ENTRY 

IS  THIS  THE  PROCESS  WE  WANT  ? 

IF  EQ,  YES 

ELSE,  ARE  THERE  ANY  MORE  PDV'S  ? 

IF  GT,  YES 

ELSE,  INDICATE  FAILURE 

AND  RETURN 

BACK  UP  INDEX  TABLE  POINTER 

CALCULATE  PDV  INDEX 

RETURN  PDV  INDEX  IN  ADVERTISED  PLACE 

INDICATE  SUCCESS 

RESTORE  REGISTERS 
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U25 

U2A 

H25 

K26 

K27 

U28 

U29 

1A30 

U31 

H32 

U53 

1434 

U35 

1A36 

K37 

U38 

U39 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 


004446 
004452 
004456 
004462 
004464 
004470 
004472 
004500 
004506 
004512 
004516 
004522 


004524 
004530 
004534 
004536 
004542 
004546 
004550 
004554 
004560 
004564 
004570 
004572 
004574 
004576 
004602 
004610 


004616 
004622 


004624 
004634 
004644 


012700  OOOOOOG 

016002  000010 

005760  000012 
100060 

103454 

016760  000044G  000010 

052760  100000  000012 

016002  000010 

000437 


016702  000044G 

103432 

012701  000014 

103432 

010067  000164' 

012"01  OOOOOOG 

062701  000002 

012702  000012G 
012221 

012221 

012221 

162701     000010 

016761      000044G  000010 

052761     100000     000012 


LOOPBACK   NODE   ALREADY   EXISTS 


000167     000350 


MOV 

#$BFR,RO 

MCV 

R.ADD(R0),R2         ; 

TST 

R.FLAG(RO) 

BPL 

101$ 

CALL 

clrbit 

BCS 

30$                 ; 

MOV 

RQB+LO.NAM,R.ADD(RO) 

BIS 

#RF.LOO,R.FLAG(R0) 

PUTAD 

MOV 

R.ADD(R0>,R2 

CALL 

SETBIT               ; 

BR 

30$ 

■  CREATE  NEW  LOOPBACK  ENTRY 

10$:    MOV 

RQ8+L0.NAM,R2 

CALL 

SETBIT 

BCS 

30$ 

MOV 

#R.LEN,R1 

CALL 

$ALPOL 

BCS 

102$ 

MOV 

RO.CURUNM 

MOV 

#$aFR,Rl 

ADD 

#R.NAM,R1 

MOV 

#RQB+LR.NAM,R2 

MOV 

(R2)t,(R1)+ 

MOV 

(R2)+,(R1)+ 

MOV 

(R2)+,(R1)+ 

SUB 

#R.NAM+6,R1 

MOV 

RQB+L0.NAM,R.ADD(R1) 

BIS 

#RF.L00,R.FLAG(R1) 

;  INSERT  ENTRY 

INTO  REMOTE  LIST 

JMP 

REMINS 

30$:    RETURN 

;  ERROR  CONDITIONS 

1015.   ERRPT$ 

ERR17,$ER0UT 

102$:   ERRFT$ 

ERR18,$ER0UT 

103$:   ERRPT$ 

ERR19,$ER0UT 

.DSABL  LS8 


POINT  TO  I/O  BUFFER 

GET  CHANEL  NUMBER 

CHECK  IF  LOOPBACK 

IF  PL,  NOT  A  LOOPBACK  ..  ERROR 

ELSE,  CLEAR  LOOPBACK  BIT 

IF    CS      ERROR 

STORE 'new  CHANNEL   NUMBER 

SET   LOOPBACK  BIT 

RE-WRITE   REMOTE   BLOCK 

an   NEW  CHANNEL   NUMBER 

AND   SET   LOOPBACK  BIT 

AND   LEAVE 


GET  CHANNEL  NUMBER 

AND  SET  LOOPBACK  BIT 

IF  CS,  ERROR 

GET  LENGTH  OF  REMOTE  BLOCK 

TRY  TO  ALLOCATE  A  REMOTE  BLOCK 

IF  CS,  ALLOCATE  FAILURE 

SAVE  UNMAPPED  ADDRESS 

ELSE,  POINT  TO  I/O  BUFFER 

POINT  TO  NAME  FIELD 

POINT  TO  INPUT  NAME 

STORE  NAME  IN  REMOTE  BLOCK 


POINT  TO  START  OF  BLOCK  AGAIN 
STORE  CHANNEL  NO. 
SET  LOOPBACK 


INSERT  ENTRY  INTO  REMOTE  LIST 


INVALID  NODE  OPTION 

REMOTE  BLOCK  ALLOCATION  FAILURE 

NODE  NOT  IN  SYSTEM 


H  13 


VENA  -  VNP  ENABLE/DISABLE  LINES  MACRO  V05.03b  Wednesday  11-Sep-85  12:06  Page  28 


G  U 

VENA  -  VNP  ENABLE/DISABLE  LINES  MACRO  V05.03b  Wednesday  11-Sep-85  12:06  Page  38 
SVERlf  -  SET  VERiriCATION  STATE 


1894 
1895 
1896 
1897 
1898 
1899 
19O0 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
19U 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
192^; 
1925 
1926 


.SBTTL  SVERIF  -  SET  VERIFICATION  STAT:? 

\*»  -  SVERIF  -  SET  VERIFICATION  STATE  ON/OFF 

INPUTS: 

RQBtLO.VER  =  VERIFICATION  STATE  (0=0FF/1=0N) 

OUTPUTS: 

VERIFICATION  STATE  IS  SET 
C-8IT  =  SUCCESS/FAILURE 


006'.10 
006A10 
006AU 
006A20 
006422 
006430 
006442 
006450 
006452 
006460 
006466 
006470 
006476 
006502 


006504 
006514 


012700     051516 


SVERIF: 


103431 
016767 

032767 
001421 
052767 
032767 
001003 
042767 


OOOOOOC  OOOOOOG 
000001  000014G 


100000 
000001 


000014G 
000042G 


100000  000014G 


10$: 


MOV 

CALL 

BCS 

MOV 

GETRV 

BIT 

BEQ 

BIS 

BIT 

BNE 

BIC 

PUTRC 

RETURN 


#"NS,RO 

FNDDCB 

101$ 

$BFRtD.UCB,$RADDR 

,#U.CW3t2 

#NF.ACC,$BFR+U.CW3 

102$ 

*NF$ACC,$BFR+U.CW3 

#l,RQBtLO.VER 

loi 

#NF$ACC,$BFR+U.CW3 


NAME 


ERROR  CONDITIONS 


101$: 
102$: 


ERRPT$  ERR3,SER0UT 
ERRPTS  ERR23,$ER0UT 


GET  NETWORK  DEVICE 

FIND  THE  DCS 

IF    CS,    NOT   THERE    ..    ERROR 

GET  ADDRESS   OF   UCB 

READ    IN   THE   UCB 

IS  ACCESS  VERIFICATION  SUPPORTED  ? 

IF  EQ,  NO  ..  ERROR 

ASSUME  ACCESS  VERIFICATION  WANTED 

DO  WE  WANT  VERIFICATION  ? 

IF  NE,  YES  ..  OKAY 

ELSE,  NO  VERIFICATION 

REWRITE  THE  UCB 


XPT  PROCESS  NOT  LOADED 

ACCESS  VERIFICATION  NOT  SUPPORTED 


VENA 
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$VLOG  -   PROCESS   LOGGING   REQUEST 

253A  012n4  1011:        ERRPrS     ERR?7,$ER0UT  ;    EVENT   LOGGING  NOT   SUPPORTED 

2535 

2536 
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30U 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 


.5BTTL  CKNODE  -  CHECK  VALIDITY  OF  NODE  ENTITY  ID 


CKNODE  -  CHECK  VALIDITY  Of  NODE  ENTITY  ID 

I^"^UTS.■ 

LO.NNM*RQB  -  NODE  ID 
SVFLAG     -  FLAGS  WORD 

OUTPUTS: 

REMOTE  -  REMOTE  NODE  ADDRESS  IF  VALID 
CARRY  -  SUCCESS/FAILURE 


014070 
014074 
014102 
014104 
014110 
014112 
014116 
014120 
014126 
014130 


014132 


012701 
032767 
001403 
011167 
000406 

103405 
016767 
000241 


000022G 
OOOOOOG  OOOOOOG 

000132' 


00001 OG  000132' 


CKNODE: 

MOV 

#RQ8+L0.NNM,R1 

BIT 

#Vf .EAD,$VFLAG 

BED 

10$ 

MOV 

(R1), REMOTE 

BR 

20$ 

10$: 

CALL 

SFNNAM 

BCS 

101$ 

MOV 

$BFR+R. ADD, REMOTE 

20$: 

CLC 

30$: 

RETURN 

■  ERROR 

MESSAGES 

101$: 

ERRPT$ 

ERR40,$ER0UT 

POINT  TO  NODE  ID 

NODE  ADDRESS  SPECIFIED? 

BR  IF  NO 

SAVE  NODE  ADDRESS 

CONTINUE 

IS  THERE  A  REMOTE  NODE  NAME  BLOCK? 

BR  IF  NO 

SAVE  NODE  ADDRESS 

INDICATE  SUCCESS 


ILLEGAL  REMOTE  NODE  PARAMETER 


H  16 
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VDIS  -  VNP  SHOW  COMMANDS 
CH<BIT  -  CHECK  TO  SEE  IF  BIT 


1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 

1366  007230 

1367  007234 

1368  007240 

1369  007244 

1370  007246 

1371  007250 

1372  007252 

1373  007254 

1374  007260 

1375  007262 

1376  007264 

1377  007266 

1378  007272 

1379  007274 


H  1 

MACRO  V05.03b  Monday  15-JuI-85  12:14  Page  24 
IS  ON 

.SBTTL  CHKBIT  -  CHECK  TO  SEE  IF  BIT  IS  ON 

CHKBIT  -  CHECK  TO  SEE  IF  SPECIFIED  BIT  IS  ON 

INPUTS: 

BITNUM  -  BIT  NUMBER  TO  CHECK 

OUTPUTS: 

CONDITION  CODE  AS  DEFINED  FOR  BITS  INSTRUCTION 


012702  000001 

116701   171744 

042701  177770 

001403 

006302 

005301 

003375 

116701  171724 

006201 

006201 

006201 

062701   001034" 

130211 


CHKBIT: 


10$: 


20$: 


MOV 

M0V8 

BIC 

BEQ 

ASL 

DEC 

BGT 

M0V8 

ASR 

ASR 

ASR 

ADD 

BITS 

RETURN 


#1,R2 

BITNUM, Rl 

#177776, R1 

20$ 

R2 

Rl 

10$ 

BITNUM, Rl 

Rl 

Rl 

Rl 

#EVTMSK,R1 

R2,(R1) 


GET  A  CHECK  BIT  IN  POSITION  0 

GET  BIT  NUMBER 

MAKE  IT  A  SHIFT  COUNT 

BR  IF  BIT  POSITION  0 

SHIFT  CHECK  BIT  LEFT 

DECREMENT  SHIFT  COUNT 

BR  IF  MORE  TO  SHIFT 

GET  BIT  N.'iBER 

DIVIDE  BY  8  TO  GET  BYTE  INDEX 


GET  ADDRESS  OF  EVENT  MASKS 
CHECK  BIT 


VDIS  -  VNP  SHOW  COMMANDS 
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VDIS  -   VNP   SHOW  COMMANDS 
$DC1R   -   SHOW  CIRCUIIT 
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2021 

2022 

2025 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 


014502 
014510 


014512 
014520 
014522 
014530 


014532 
014540 
014542 
014550 


014552 
014556 
014560 
014566 
014570 
014572 
014574 
014576 
014602 
014606 
014610 
014612 
014616 
014620 
014622 
014624 
014626 


014630 
014632 
014634 
014640 
014642 
014646 
014650 
014652 
014656 
014660 
014662 

014664 
014666 
014672 
014674 


026167  OOOOOOG  000002G 
001045 


CMP 
BNE 


Z.NAM{R1),LR.LIN+RQ9 
250$ 


032767 
001004 
126067 
001035 


032767 
001004 
126067 
001025 


116002 
001443 
032767 
001020 
010246 
005002 
010005 
062705 
126702 
001426 
005202 
062705 
005316 
003370 
005726 

000653 


010246 
010005 
062705 
005002 

005204 
005202 
062705 
005316 
003370 
000757 

005726 

005204 
000755 


000400  OOOOOOG 

000012  000004G 

001000  OOOOOOG 

000013  000005G 

000014 

002000  OOOOOOG 


MATCH  ON  CONTROLLER  NUMBER 

BIT  #WC.CNT,$OUAL 

BNE  210$ 

CMPB  L.CTL(RO),LR.CTL+RQB 

BNE  250$ 

MATCH  ON  UNIT  NUMBER 

JlO$:   BIT  #WC.UNT,$QUAL 

BNE  220$ 

CMP8  L.UNT(RO),LR.UNT+RQB 

BNE  250$ 

MATCH  ON  TRI8UTARV  NUMBER 


^20$: 


000022 
000006G 


000004 


230$: 


240$: 
250$: 


M0V8 

BEQ 

BIT 

BNE 

MOV 

CLR 

MOV 

ADD 

CMPB 

BEQ 

INC 

ADD 

DEC 

BGT 

TST 

RESRG 

BR 


L.NSTA(R0),R2 

290$ 

#WC.TRI,$QUAL 

260$ 

R2,-(SP) 

R2 

R0,R5 

#L.MPF,R5 

Lfi.TRI+RQB,R2 

280$ 

R2 

#S.LEN,R5 

(SP) 

230$ 

(SP)t 

<R5> 

160$ 


FOUND  A  MATCH  -  WILD  CARD  TRIBUTARY 


000022 


000004 


^60$: 


270$: 


MOV 

MOV 

ADD 

CLR 

CALL 

INC 

INC 

ADD 

DEC 

BGT 

BR 


R5 


R2,-(SP) 

R0,R5 

#L.MPF 

R2 

DISCIR 

R4 

R2 

#S.LEN,R5 

(SP) 

270$ 

240$ 


IS  THIS  A  MATCH? 
BR  IF  NO 


WILD  CARD  CONTROLLER? 
BR  IF  YES,  MATCH 
IS  THIS  A  MATCH? 
BR  IF  NO 


WILD  CARD  UNIT? 
BR  IF  YES,  MATCH 
IS  THIS  A  MATCH? 
BR  IF  NO 


IS  THIS  A  MULTIPOINT  LINE? 

BR  IF  NO 

WILD  CARD  TRIBUTARY? 

BR  IF  YES,  MATCH 

USE  STACK  FOR  COUNTER 

TRIBUTARY  NUMBER 

GET  SLT  ADDRESS 

POINT  TO  MULTIPOINT  FLAG  TABLE 

IS  THIS  A  MATCH? 

BR  IF  YES 

INCREMENT  STATION  NUMBER 

POINT  TO  NEXT  TRIBUTARY 

DECREMENT  NUMBER  OF  STATIONS 

BR  IF  NO 

CLEAN  UP  STACK 

RESTORE  R5 

NO  MATCH,  TRY  NEXT  LINE 


GET  NUMBER  OF  STATIONS 

GET  SLT  ADDRESS 

POINT  TO  MULTIPOINT  FLAG  TABLE 

FIRST  TRIBUTARY 

DISPLAY  STATION  INFORMATION 

INDICATE  HEADER  NOT  TO  BE  DISPLAYED 

INCREMENT  STATION  NUMBER 

POINT  TO  NEXT  TRIBUTARY 

DECREMENT  NUMBER  OF  STATIONS 

BR  IF  NO 

CLEAN  UP  STACK  AND  CONTINUE  SEARCH 


vc 
w 


280$: 

TST 

(SP)  + 

;  CLEAN  UP 

STACK 

290$: 

CALL 

DISCIR 

;  DISPLAY 

CIRCUIT 

NFORMATION 

INC 

R4 

;  INDICATE 

HEADER 

0 

BE 

DISPLAYED 

BR 

250$ 

;  CONTINUE 

SCAN 

;  SHOW 

KNOWN 

CIRCUITS 

VDIS  -  VNP  SHOW  COMMANDS 
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2570  017600 

2571  017616 

2572  017624 

2573  017630 

2574  017636 
2575 

2576  0176A6 

2577  017654 

2578  017660 

2579  017666 

2580  017672 

2581  017700 
2582 

2583  017710 

2584  017714 

2585  017722 

2586  017726 

2587  017734 

2588  017740 

2589  017746 
2590 

2591  017756 

2592  017762 

2593  017770 

2594  017774 

2595  020002 

2596  020006 

2597  020014 

2598  020024 
2599 

2600 
2601 

2602  020026 

2603  020060 
2604 

2605 
2606 

2607  02006^^ 

2608  020161 
2609 

2610  020172 

2611  020271 
2612 

2613  020302 

2614  020401 
2615 

2616  020412 

2617  020506 


016767 
005067 
156767 


016767 
005067 
156767 
005067 
156767 


005067 
156767 
005067 
156767 
005067 
156767 


005067 
156767 
005067 
156767 
005067 
156767 


000002G 

161352 

000006G 


000004G 
161202 
000007G 
161310 
00001 6G 


161120 
00001 5G 
161134 
00001 4G 
161242 
00001 1G 


161052 
00001 3G 
161066 
00001 2G 
161174 
000010G 


161236 
161344 

161160 
161174 
161302 

161112 
161126 
161234 

161044 
161060 
161166 


90$: 


100$ 
ERRORS 


GETAD 

MOV 

CLR 

8ISB 

ERRPT$ 

MOV 

CLR 

BiSB 

CLR 

BISB 

ERRPT$ 

CLR 

BISB 

CLR 

BISB 

CLR 

BISB 

ERRPT$ 

CLR 

BISB 

CLR 

BISB 

CLR 

BISB 

ERRPT$ 

RETURN 


RO,#Y$LEN 

Y$DPSZt$BFR,TEMP2 

TEMP3 

Y$DUSZ+$BFR,TEHP3 

XPMS1,MSG0UT 

Y$MPSZt$BFR, TEMPI 

TEMP2 

Y$MWSZ<-$BFR,TEMP2 

TEMP3 

Y$MCLR+$BFR,TEMP3 

XPMS2,MSG0UT 

TEMPI 

Y$MRES+$BFR, TEMPI 

TEMP2 

Y$MfiST+$BFR,TEMP2 

T-MP3 

r$TCAL+$BFR,TEMP3 

XPMS3,MSG0UT 

TEMPI 

Y$TCLR+$BFR, TEMPI 

TEMP2 

Y$TRES+$BFR,TEMP2 

TEMP3 

Y$TRST+$BFR,TEMP3 

XPMS4,HSC0UT 


READ  IN  LINE  TABLE 
GET  DEFAULT  DATA 
GET  DEFAULT  WINDOW 

DISPLAY  INFO  TO  TERMINAL 

GET  MAXIMUM  DATA 
GET  MAXIMUM  WINDOW 

GET  MAXIMUM  CLEARS 

DISPLAY  INFO  TO  TERMINAL 

GET  MAXIMUM  RESETS 

GET  MAXIMUM  RESTARTS 

GET  CALL  TIMER 

DisPLAY  INFO  TO  TERMINAL 

GET  CLEAR  TIMER 

GET  RESET  TIMER 

GET  RESTART  TIMER 

DisPLAY  INFO  TO  TERMINAL 


ERMSG$ 
ERBLK$ 


<  PLI  procf^s  not  in  system> 
XPERl 


DISPLAY  MESSAGES 


ERMSG$ 
ERBLK$ 

ERMSG$ 
ER8LK$ 

ERMSG$ 
ERBLK$ 

ERMSG$ 
ER8LK$ 


<  Network  name  =  XA,  Default  data  =  XD,  Default  nindow  =  5!D> 
XPMSl , <TEMP1 , TEMP2, TEMP3> 

<  Maximum  data  =  XD,  Maximum  window  =  XD,  Maximum  clears  =  %t» 
XPMS2,<TEMP1 ,TEMP2,TEMP3> 

<  Maximum  resets  =  XD,  Maximum  restarts  =  XD 
XPMS3,<TEMP1 ,TEMP2,TEMP3> 


<    Clear  fimer  =  XD,  Reset  timer 
XPMS4,<TEMP1,TFMP2,TEMP3> 


XD, 


Call    timer   =  XD> 
Restart   timer   =  XDXN> 


VDIS  -  VNP   SHOW  COMMANDS 
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NXTDST  -  Get  next  destination  block 


311? 
3113 
311A 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
312A 
5125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 


024126 
024126 
024130 
024136 
024140 
024144 
024152 
024154 
024160 
024164 
024170 
024172 
024176 
024202 
024206 
024212 
024214 
024222 
024224 


.SBTTL  NXTDST  -  Get  next  destination  block 


***  NXTDST  -  Get  next  destination  block 

INPUTS: 

$BFR  -  Address  of  next  destination  descriptor 

SOPTON  -  Options  word 

L0.DES+RQ8  -  Destination  name  to  look  for 

OUTPUTS: 

CARRY  CLEAR: 

$BFR  contains  next  destination  block 
RO  -  address  of  destination  name 
R1  -  length  of  destination  name 
CARRY  SET: 

End  of  destination  blocks 


Registers  destroyta 


005000 
032767 
001002 
012700 
032767 
001007 
012701 
012702 
012703 
000406 
012701 
012702 
012703 

103404 
152767 
000241 


NXTDST: 


002000     OOOOOOG 

000002G 

OOOOOOG  OOOOOOG  10$: 

000102 
000010 
177772 


000232 
000032 
000022 


000004  155352 


20$: 


30$: 


99$: 


CLR 

BIT 

BNE 

MOV 

BIT 

BNE 

MOV 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

CALL 

BCS 

BiSB 

CLC 

RETURN 


RO 

#OP$KDS,$OPTON 

10$ 

#RQB+LO.DES,R0 

#PF.XDF,$PFLAG 

20$ 

#D$FLENtMXCALL 

#D$DST,R2 

#-6,R3 

30$ 

#D$6LEN+MXCALL 

#D$GVBL,R2 

#D$DSL,R3 

FNDBLK 

99$ 

#F.FND, FLAGS 


Presume  no  specific  destination 
Is  known  destinations  specified? 
If  so,  continue 

Else  look  for  specific  destination 
Check  for  extended  data  format 
Branch  if  extended 
MXDTEA.RI  ;  Max  length  of  old  format  block 
;  Offset  of  destination  name 
;  Dest  name  is  fixed,  6  characters 

*MXDTEAtMXACCT+<3*MAXID>,R1  ;  new  max  length 
Offset  of  destination  name 
Offset  of  destination  name  length 
Find  matching  block 
Branch  if  not  found 
Signal  destination  found 
Signal  block  found 


.•CTDOOI] 
;**-2 


;CTD001] 
;[T0001J 
;[TD001] 
;CTD001] 
;[TD001] 
.-CTDOOn 
;**-6 


;[TD0013 
.-CTDOOID 
;CTD00i: 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTP001] 
;  L'TDUOI  ] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;rTD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;[TD001] 
.-CTDOOn 
;[TD001] 
.-CTDOOI] 
;[TD001] 
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DISPRO  -  DISPLAY  PROCESS  INFORMATION 


3671 

3672 

3673 

3674 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 


.SBTTL  DISPRO  -  DISPLAY  PROCESS  INFORMATION 


DISPRO  -  DISPLAY  PROCESS  INFORMATION 

INPUTS: 

R2  =  ADDRESS  OF  PROCESS  DESCRIPTOR  VECTOR  (PDV) 

R1  =  0  IF  HEADER  IS  TO  BE  DISPLAYED  ALONG  WITH  PROCESS  INFORMATION, 
OTHERWISE  DISPLAY  ONLY  PROCESS  INFORMATION 

IF  HEADER  MESSAGE  IS  TO  BE  DISPLAYED: 

TEMPI  =  SECOND  ASCIZ  STRING  OF  HEADER  MESSAGE 
TEMP2  =  FIRST  ASCIZ  STRING  OF  HEADER  MESSAGE 

OUTPUTS: 

THE  PROCESS  INFORMATION  IS  DISPLAYED  ON  THE  USER'S  TERMINAL 

R3,R5  DESTROYED 

ALL  OTHER  REGISTERS  PRESERVED 


026516 

026522  005701 

026524  001005 

026526 

026536     011602 


026540     016267     OOOOOOG   152434 

026546 

026556     011602 


026560  012705     001062' 

026564  012703     000064' 

026570  005762     OOOOOOG 

026574  001002 

026576  012703     000246' 

026602  112325 

026604  001376 

026606 

026616 

026622 


C26624 
026646 

026656 
02667<. 


DISPRO:    SAVRG 
TST 
BNE 

ERRPTS 
MOV 


<R1,R2> 

R1 

10$ 

PMSG1,MSG0UT 

(SP),R2 


DISPLAY  PROCESS  NAME 


10$: 


MOV 

ERRPT$ 

MOV 


Z.NAM(R2),TEMP3 

PMSG2,MSG0UT 

(SP),R2 


DISPLAY  PROCESS  STATE 


20$: 


MOV 

MOV 

TST 

BNE 

MOV 

M0V8 

BNE 

ERRPT$ 

RESRG 

RETURN 


*TEMP2,R5 

#0N,R3 

Z.PC8(R2) 

20$ 

#PCLtAR,R3 

(R3)+,(R5)+ 

20$ 

PMSG3,MSG0UT 

<R2,R1> 


SAVE  R1  AND  R2 
PRINT  HEADER? 
BR  IF  NO 
DISPLAY  HEADER 
RESTORE  R2 


MOVE  NAME  TO  OUTPUT  AREA 
DISPLAY  PROCESS  NAME 
RESTORE  R2 


STORAGE  FOR  STATE  STRING 

ASSUME  STATE  IS  ON 

IS  PROCESS  STATE  ON? 

BR  IF  YES 

ELSE  IT  IS  CLEAR 

STORE  THE  STATE  STRING 

DisPLAY  THE  PROCESS  STATE 
RESTORE  R2  AND  R1 
FINISHED 


.ENABL  LC 


DISPLAY  MESSAGES 


ERMSG$ 
ERBLK$ 


<'MXA  XA  as  of  3!YXN> 
PMSG1,<TEMP2,TEMP1> 


ERMSG$     <Process   =  !!RJ:N> 
ER8LK$     PMSG2,<1EMP3> 
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DISCIR  -  DISPLAY  CIRCUIT 
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^266 

4267 

'i268 

^,269 

A270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 


032062  001403 

032064  062701  000046 

032070  000761 

032072  016767  0000306  146734 

032100  016767  000032G  146754 

032106 

032116 
032126 
032142 


032144 
032166 

032176 
032216 

032224 
032272 

032392 
032343 

032352 
032405 

032414 
032431 

032436 
032505 

032516 
032545 


032554 
032570 

032576 
052577 


530$: 


540$: 


BEQ 

ADD 

BR 

MOV 

MOV 


530$ 

#T$LLEN,R1 
520$ 

T$T5t$8FR, TEMPI 
T$T6t$BFR,TEMP2 


ERRPT$  CMSG4,MSG0UT 


ERRPT$ 

RESRG 

RETURN 


CMSG12,MSG0UT 
<R5,R4,R3,R2,R1,R0> 


IF  EQ,  YES  -  READ  THEM 

ELSE,  POINT  TO  NEXT  COUNTERS 

AND  KEEP  LOOKING 

GET  HELLO  TIMER 

GET  LISTEN  TIMER 

DISPLAY  HELLO  AND  LISTEN  TIMER 

MAKE  OUTPUT  LOOK  NICE 


.ENA8L  LC 


DISPLAY  MESSAGES 


ERMSG$ 
EReLK$ 

ERMSG$ 
ER8LK$ 

ERMSG$ 
ERBLK$ 

ERMSG$ 
ER8LK$ 

ERMSG$ 
ERBLK$ 

ERMSGS 
ER8LK$ 

ERMS6$ 
ER6LK$ 

ERMSG$ 
ER8LK$ 


<XNJ;A  XA  as  of  XYXN> 
CMSG1,<TEMP2,TEMP1> 

<5:NCircuit  =  j;Ai!N> 
CMSG2,<TEMP3> 

<   Hello  timer  =  %\), 
CMSG4,<TEMP1,TEMP2> 


<   State  =  5!A,  Loopback  Name  =  !£A> 
CMSG5,<TEMP1,TEMP2> 


Listen  timer 


%D> 


<  State  =  XA,  Service 
CMSG6,<TEMP1,TEMP2> 

<  Owner  =  %A> 
CMSG7,<TEMP3> 


%A> 


<   Cost  =  5iE,  Tyi 
CMSG8,<TEMP1,TEMP, 


<   Cost  =  XE 
CMSG9,<TEMP1,TEMI 


M^! 


le  =  XA, 
>,TEMP3> 

)e  =  XA> 


Tributary  =  5!B> 


ERMSG$  <   Cost  =  %E> 

ERBLK$  CMSG11,<TEMP1> 

ERMSGS  <  > 

ERBLK$  CMSG12 

.DSABL  LC 
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4761 
4762 
4763 
4764 
4765 
4766 
4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
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TCB'S  fOR  SPECIFIED  TASK 


035052 
035072 
035076 

035102 
035110 
035112 
035114 
035120 
035124 
035126 
035134 
035136 


.SBTTL   TSKSCH  -  SEARCH  TCB'S  FOR  SPECIFIED  TASK 


TSKSCH  -  SEARCH  TCB'S  FOR  SPECIFIED  TASK 

INPUTS: 

R2  -  POINTER  TO  RAC50  TASK  NAME 

OUTPUTS: 

SRADDR  -  ADDRESS  OF  TCB 
$BFR    -  IMAGE  OF  TCB 

R5  DESTROYED 


TSKSCH: 


012705  OOOOOOG 
011565  000030 

016567  000030  OOOOOOG  10$: 

000261 

001411 

021265  000006 

001366 

026265  000002  000010 

001362 

30$: 


GETRV   .TSKHD,.TLGTH 

MOV     #$8FR,R5 

MOV     (R5),T.TCBL(R5) 


MOV 

SEC 

BEQ 

GETRV 

CMP 

BNE 

CMP 

BNE 

RETURN 


T.TC8L(R5),$RADDR 

30$ 

(R2),T.NAM(R5; 
10$ 

2(R2),T.NAMt2(R5) 
10$  ; 


READ  IN  LISTHEAD 
POINT  AT  BUFFER  BASE 
INITIALIZE  FOR  LOOP 

;  SET  TCB  ADDRESS 

ASSUME  ERROR 

NULL  TASK  (  END  OF  LIST  ) 

READ  IN  TCB 

MUST  MATCH  BOTH 

;  HALVES  OF  NAME 
C-BIT  IS  CLEAR 
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Symbol   table 

Work     file     reads:  280 

Work      ti le  writes :  264 

Size  of  work   file:  A5156  Words     (   177  Pages) 

Size  of   core  pool:  17608  Words      (   67  Pages) 

Operating     system:  RSX-11M/PLUS 

DB2:V0?s!nA;[°32J3A]VDI5/CR/-SP=De2:[1  j:RSXMCM.SML/ML,[150J10]NErLIB/ML,C130J0]RSXMCM/PA:1  J132J0DV^ 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


0P$X5S 

0P$X9S 

OSPEC 

O.FLG 

O.LEN 

O.MXC 

O.NAM 

O.TYP 

PACT  IV 

PCLEAR 

PERIOD 

PERR1 

PF.XDF 

PF.XGA 

P<NQWN 

PLIPDV 

PMSGl 

PMSG2 

PMSG3 

PREVNT 

PSPEC 

PVMSG1 

PVMSG2 

PVMSG3 

PVMSG4 

P.LEN 

P.TRIB 

QFSACT 

QFSALL 

OFSKNO 

QFSLOO 

QSCTIM 

Q$LEN 

QSMXVC 

Q.IOFN 

RCVLNG 

RF.LOO 

ROUTNG 

ROB 


RX.NXM 

RX.OVR 

RSACC 

RSACL 

RSDAL 

R$DTE 

RSLEN 

RSNAM 

R$NML 

R$NOD 


00000^ 

000010 

000055  R 

000003 

000012 

OOOOOA 

000006 

000002 

000175  R 

000246  R 

000056 

003A44 


=   ****** 


000216 

001030 

026650  R 

026676  R 

026722  R 

001205  R 

000236  R 

032756  R 

033006  R 

033044  R 

033070  R 

000154 

000014 

000001 

000002 

000004 

000010 

000000 

000016 

000002 

000002 

000044 

100000 

000416 


GX 
GX 


GX 


=  000020 
=  000010 
000064 
000063 
000013 
000014 
000024 
000002 
000002 
000023 
000003 


REFERENCES 

#5-99 

*5-99 

#6-124 
48-3470 
9-387 
48-3488 
48-3463 
9-416 

#6-155 

#6-162 

#7-302 
11-629 
27-1952 
33-2426 

#6-156 

#6-243 
50-3696 
50-3702 
50-3714 

#7-318 

#6-157 
54-4336 
54-4352 
54-4353 
54-4355 
53-4080 
53-4081 

#5-99 

#5-99 

#5-99 

#5-99 
42-3181 
42-3180 
42-3182 
6-267 

#7-307 

#5-94 

#6-189 
9-415 
27-2004 
33-2435 

#5-88 

#5-88 
33-2470 
33-2468 
31-2344 
31-2345 
32-2407 
31-2334 
33-2438 
33-2452 
33-2437 


6-268 
39-2880 

26-1671 
10-495 
27-2021 
36-2711 


32-2408 
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55-4499 
49-3620 


57-4660 


34-2546         38-2821 


29-2288 
29-2289 
9-410 
48-3494 

48-3499 
48-3464 
48-3458 
11-584 
50-3711 
19-1133 
#11-641 
27-2005 

11-614 
»34-2531 
#50-3724 
#50-3727 
#50-3730 
♦  19-1145 

11-599 
#54-4363 
#54-4366 
#54-4369 
#54-4372 


12-691 

10-470  11-579  27-1931         28-2163 

26-1447 


48-3480 

53-4134 
21-1259 

27-2094 


35-2654 


40-2938 


40-3028        41-3138         54-4341 


♦19-1152       ♦19-1161         23-1346 


13-830 


59-4733 


10-525 

27-2028 

36-2713 


11-602 

27-2035 

36-2715 


12-675 

27-2048 

38-2820 


♦12-681 
28-2194 
41-3137 


17-981 
28-2201 


17-984 
28-2208 


26-1526 
32-2406 


VDIS 
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VOIS 

CREATED  BY  MACRO  ON  15 

-JUL-85  AT  12:17 

MACRO  CROSS 

REFERENCE 

MACRO  NAME 

REFERENCES 

.CNB 

#5-88 

.CNW 

#5-88 

.CORE 

#5-88 

.CSR 

#5-88 

5-88 

5-88 

.CTIM 

#5-88 

.DPRB 

#5-88 

.DPRW 

#5-88 

.DVCHA 

#5-88 

5-88 

.INT 

#5-88 

5-88 

5-88 

.INT1 

#5-88 

.INT2 

#5-88 

.INT3 

#5-88 

.LFLHO 

#5-88 

.LIBR 

#5-88 

.LINKS 

#5-88 

.LSTHD 

#5-88 

5-88 

.LTAB 

#5-88 

.MPLHD 

#5-88 

5-88 

.MXPTB 

#5-88 

.PECHA 

#5-88 

.POOL 

#5-88 

.PRI 

#5-88 

5-88 

5-88 

.SCOM 

#5-88 

.SECSR 

#5-88 

.SLNB 

#5-88 

5-88 

.SLNW 

#5-88 

5-88 

.STNB 

#5-88 

5-88 

.STNW 

#5-88 

.TIME 

#5-88 

.UNB 

#5-88 

5-88 

.UNW 

#5-88 

.VFY 

#5-88 

.X2CHB 

#5-88 

.X2CHW 

#5-88 

.X3CHB 

#5-88 

.X3CHW 

#5-88 
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ERROR  MESSAGES 


000200  177777 
363 

36A  000202  0003« 

365   000204  177776     177^77     \nm 

000212  177777 
366 

367  0002K  000350  ,     , 

368  000216  OOOOOO     177777     177777 
00022A  177777 

369 

370  000226  000351 

371  000230  OOOOOO  OOOOOO  ymii 

000236  177777 
372 
373 

37A  000020 
375 

376  0002A0  177777 


.WORD  CL$PRT/100     ;  EVENT  CLASS  226.  -  PLUTO  SPECIFIC  ROUTER  EVENT 

.WORD  '■C<1>,*C<0>,''C<0>,"C<0> 

.WORD  CL$SGE/100     ;  EVENT  CLASS  232.  SNA  specific  -  General  gateway  Events 

.WORD  •C<177777>,*C<0>,*C<0>,*C<0> 

.WORD  CL$SSE/100     :  EVENT  CLASS  233.  SNA  specific  -  gateway  Server  Events 

.WORD  •C<177777>,*C<177777>,«C<0>,*C<0> 


EVTVSZ=<.-EVTVAL>/12 
.WORD   -1 


END   OF    TABLE 
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880 
881 
882 
883 
88^ 
885 
886 
887 
888 
859 
390 
891 
892 
893 
894 
895 
896 
897 
898 

899  00230^. 

900  002304 

901  002306 

902  002310 

903  002310 

904  002314 

905  002320 

906  002326 

907  002330 

908  002334 

909  002340 

910  002342 

911  002350 

912  002352 

913  002356 

914  002362 

915  002366 

916  002370 

917  002374 

918  002376 

919  00240-. 

920  002422 

921  002424 

922  002426 

923  002432 

924  002436 

925  002440 
926 

927  002442 

928  002460 

929  002^66 

930  002470 

931  002472 

932  002474 

933  002476 

934  002500 

935  002502 
93t 


005046 
000402 

012746 
016700 
032760 
001466 
116002 
066702 
011202 
022762 
001051 
016001 
005067 
005767 
100406 
022701 
101003 
■^16067 

005726 
001424 
012702 
062702 
011202 
001426 


126767 
001363 
000244 
000402 
005726 
000264 
000241 


.S8TTL 
.SBTTL 


FNDLIN  -  FIND  THE  DDCMP  LINE  TABLE  FOR  A  LINE 
FNDTRI  -  FIND  THE  TRIBUTARY  TABLE  FOR  A  LINE 


**-FNDLIN-FIND  THE  DDCMP  LINE  TABLE  FOR  A  LINE 
»»-FNDTRI-FIND  THE  DDCMP  TRIBUTARY  TABLE  FOR  A  LINE 

THIS  ROUTINE  IS  CALLED  TO  FIND  THE  DDCMP  LINE/TRIBUTARY  TABLE  FOR  A  LINE. 

INPUTS: 

$SLTA  =  SLT  ADDRESS 
$TRIB  =  TRIBUTARY  NUMBEf) 

OUTPUTS: 

C-BIT  =  ERROR  INDICATOR 

Z-8IT  =  SEARCH  SUCCESS/FAILURE  INDICATOR 

R0-R2  =  DESTROYED 


000001 
OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 

014610  0000006 

OOOOOOG 
OOOOOOG 
OOOOOOG 

120000 

OOOOOOG  OOOOOOG 


FNDLIN; 

FNDTRI: 
5$: 


OOOOOOG 
000012 


10$: 


20$: 


0OOO35G  OOOOOOG 


30$ 
40$ 
50$ 


.ENABL  LSB 


CLR 
BR 

MOV 

MOV 

BIT 

BEQ 

MOVB 

ADD 

MOV 

CMP 

BNE 

MOV 

CLR 

TST 

BMI 

CMP 

BHI 

MOV 

GETAD 

TST 

BEQ 

MOV 

ADD 

MOV 

BEQ 

GETAD 

CMPB 

BNE 

CLZ 

BR 

TST 

SEZ 

CLC 

RETURN 


RO) 


,(<2 


-(SP) 
5$ 

#1,-(SP) 

$SLTA,RO 

*LF.RDY,L 

101$ 

L.DLC(RO) 

$PDVTA,R2 

CR2),r5 

#*RDCP,Z.NAM(R2) 

30$ 

L.DLS(R0),R1 

$ReLCK 

.MGMGE 

10$ 

#120000, Rl 

10$ 

L.DLM(RO),$RBLCK 

R1,#L.PLL+4 

(SP)  + 

40$ 

#$8FR,R2 

*L.PLL,R2 

(R2),R2 

102$ 

R2,#S.DLCF+2 

$6FR+S.STLN,$TRIE 

20$ 

50$ 
(SP)  + 


INDICATE  THAT  A  LINE  TABLE  IS  NEEDED 
AND  CONTINUE 

INDICATE  THE  TRIBUTARY  TABLE  IS  NlEDED 

GET  SLT  ADDRESS 

IS  THIS  LINE  READY  ? 

IF  EQ,  NOT  READY 

ELSE,  GET  DLC  PDV  INDEX 

POINT  INTO  PDV  MAPPING  TABLE 

POINT  TO  PDV 

IS  THIS  THE  DDCMP  PROCESS  '' 

IF  NE,  NO  ..  SKIP  IT 

GET  THE  DCP  VIRTUAL  ADDRESS 

ASSUME  UNMAPPED  SYSTEM  OR  OSR  ALLOC. 

IS  THIS  A  MAPPED  SYSTEM  ? 

IF  MI,  NO  ..  UNMAPPED 

ELSE,  IS  THE  LINE  TABLE   'iPPED  ? 

IF  HI,  NO 

ELSE,  MAP  TO  THE  DCP  LINE  TABLE 

READ  IN  THE  DCP  LINE  TABLE 

DO  WE  WANT  THE  TRIBUTARY  TABLE  ? 

IF  EQ,  NO  ..  LEAVE  NOW 

POINT  TO  I/O  BUFFER 

POINT  TO  THE  POLLING  LISTHEAD 

GET  THE  NEXT  ENTRY 

IF  EQ,  NOT  HERE  -  ?? 

ASSUME  $RBLCK  ALREADY  SET  UP 

READ  IN  THE  TRIBUTARY  INFO 

IS  THIS  THE  TRIBUTARY  ? 

IF  NE,  NO  ..  KEEP  LOOKING 

ELSE,  INDICATE  SUCCESS 

AND  RETURN 

POP  STACK 

INDICATE  FAILURE 

INDICATE  NO  ERROR  DETECTED 


UFNA 
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Page  28 


K71 

U72 

H73 

1^74 

U75 

K76 

U77 

U78 

U79 

H80 

U81 

U82 

U85 

H8A 

U85 

K86 

'487 

K88 

H89 

U90 

K91 

H92 

U93 

U94 

U95 

H96 

H97 

K98 

K99 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 


004654 
004654 
004662 


004664 
004672 
004674 
004700 
004704 
004706 
004712 
004714 
004720 
004724 
004730 


032767 
001023 


032767 
001012 
012701 

103422 
005767 
100437 
000167 
016701 

000765 


004732 
004740 
004742 
004746 
004752 
004754 
004760 

004762 
004766 
004772 
004776 
005000 
005002 
005004 
005010 
005012 
005014 


005016 
005020 
005024 


.SB1TL  $VREM  -  SET  REMOTE  NODE  BLOCK 

»•»  -  $VREM  -  SET  REMOTE  NODE  BLOCK 

INPUTS: 

RQ6+LR.ADD  =  NODE  ADDRESS/NAME 
RQB+LO.NAM  =  NODE  NAME 

OUTPUTS: 

R0-R2  =  DESTROYED 


OOOOOOG  OOOOOOG 


OOOOOOG  OOOOOOG 


$VREM: 


.ENABL      LS8 


BIT 
BNE 


#CM$SET,$CMAND 
5$ 


00001 2G 


00001 2G 

177370 
000012G 


1$ 


3$: 


CLEAR  REQUEST 

BIT 

#VF.ADD,$VFLAG 

BNE 

3$ 

MOV 

#RQ8+LR.NAM,R1 

CALL 

SFNNAM 

:     BCS 

6$ 

TST 

SBFR+R.FLAG 

BMI 

15$ 

JMP 

REMNOD 

MOV 

RQB+LR.ADD,R1 

CALL 

SFNADD 

BR 

1$ 

SET  REQUEST 

032767 
001026 
012701 

103420 
005767 
100415 

012700 
062700 
012701 
012120 
012120 
012120 

000533 
000551 
000560 


005002 
012701 


OOOOOOG  OOOOOOG  5$: 
000012G 

6$: 


00001 2G 


OOOOOOG 

000002 

000044G 


10$: 


15$: 
18$: 


BIT 

BNE 

MOV 

CALL 

BCS 

TST 

BMI 

MOV 

ADD 

MOV 

MOV 

MOV 

MOV 

PUTAD 

BR 

BR 

BR 


#VF.ADD,$VFLAG 

20$ 

#RQ8+LR.NAM,R1 

$FNNAM 

18$ 

$BFR+R.FLAG 

18$ 

*$8FR,R0 

#R.NAM,RO 

#RQ8+L0.NAM,R1 

(R1)+,(R0)t 
,(RO)t 
,(RO)t 


(R1)+, 
(R1)+, 


40$ 

101$ 

103$ 


000044G 


IS  THIS  A  SET  COMMAND 
IF  NE,  YES 


UAS  THE  NODE  ADDRESS  GIVEN 

IF  NE,  YES 

GET  ADDRESS  OF  NODE  NAME 

TRY  TO  FIND  THE  NODE  BLOCK 

IF  CS,  NOT  FOUND  ..  ERROR 

IS  THIS  A  REMOTE  ? 

IF  MI,  NO  ..  ERROR 

ELSE,  REMOVE  NODE  ENTRY 

GET  NODE  ADDRESS 

TRY  TO  FIND  THE  NODE  BLOCK 

AND  CONTINUE 


WAS  THE  NODE  ADDRESS  GIVEN  ? 

IF  NE,  YES 

GET  ADDRESS  OF  REMOTE  NODE  NAME 

TRY  TO  FIND  THE  NODE  BLOCK 

IF  CS,  NOT  FOUND  ..  ERROR 

IS  THIS  A  REMOTE  BLOCK  ? 

IF  MI,  NO  ..  ERROR 

POINT  AT  I/O  BUFFER 
POINT  TO  NAME  FIELD 
POINT  TO  NEW  NODE  NAME 
STORE  NEW  NODE  NAME 


RE-WRITE  REMOTE  BLOCK 

AND  LEAVE 

CONTINUE 

CONTINUE 


;  REMOTE  NODE 

ADDRESS  WAS  GIVEN 

J0$: 

CLR 

R2 

;  INITIALIZE 

DUPLICATE 

ENTRY 

FLAG 

MOV 

#RQ8+L0 

NAM,R1 

;  SEE 

IF 

DUPLICATE 

NUDE 

NAME 

CALL 

$FNNAM 
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032767  OOOOOOC  OOOOOOG 

001032 

103002 


032767  OOOOOOG 
001002 
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1928 

1929 

1930 

1931 

1932 

1933 

193A 

1935 

1936 

1937 

1938 

1939 

19^0 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 


H  K 

MACRO  V05.03b  Wednesday  11-Sep-85  12:06  Page  39 

.SBTTL  $VACP  -  MOUNT/DISMOUNT  THE  ACP 

♦♦-$VACP-  MOUNT/DISMOUNT  ACP 

INPUTS: 

SVFLAG  =  TRANSITORY  FLAGS 

OUTPUTS: 

ACP  IS  MOUNTED/DISMOUNTED  OR  ERROR  CONDITION  IS  REPORTED 


006524 
006524 

006532 
006534 
006540 
006542 

006546 
006554 
006556 

006562 
006566 
006572 
006576 
006600 

006604 

006604 
006612 


006614 

006620 
006624 
006630 
006632 
006636 

006636 
006644 


006646 


006652 
C06656 


$VACP: 


OOOOOOG  2$: 


010167  000072' 

012700  000000' 

103002 

000167  000536 


3$: 


BIT  *VF.PEM!Vf.DLX, SVFLAG 

BNE  5$ 

CALL  CHKXPT 

BCC  2$ 

CALLR  100$ 

BIT  #VF.SS, SVFLAG 

BNE  3$ 

CALLR  112$ 

MOV  Rl.PDVX 

MOV  #ACPNAM,RO 

CALL  TSKSCH 

BCC  4$ 

JMP  103$ 


4$: 


032767     002000 
001002 


012700     000014' 

103002 

000167     000540 


032767     002000 
001002 


000034G 


.IF  NDF 
BIT 
BNE 
.ENDC 


CALLR   105$ 


R$$MPL 

*T2.FXD,T.ST2+$8FR 

5$ 


5$: 


12$: 


000034G 


MOV 
CALL 
BCC 
JMP 

.IF  NDF 
BIT 
BNE 
.ENDC 


#NT]11S,R0 
TSKSCH 
12$ 
107$ 

R$$MPL 

#T2. FXD,T.ST2+SBFR 

15$ 


IC 


016705     OOOOOOG 
012701      000044 


CALLR 
QUEUE    SEND   DATA   W  NTINIT 


15$: 


MOV 
MOV 


006662  032767  OOOOOOC  OOOOOOG 


CHECK  IF  MOUN 
BIT 


$RADDR,R5 
*36.,r1 

t  or  dismount 
#vf.on:vf.dlx,$vflag 


IS  THIS  A  protocol  EMULATOR  COMMAND 

OR  DLX  ONLY  ? 
IF  NE,  YES  ..  SKIP  XPT  CHECK 
CHECK  XPT  CONTEXT 
BR  IF  OK 


S-SYSTEM  ? 

IF  YES  -  BRANCH 

ELSE  ERROR 

SAVE  PDV  INDEX 

POINT  AT  RAD50  ACP  NAME 

GET  TCB  ;DDRESS 

BR  IF  FOUND  IT 

TASK  NOT  IN  SYSTEM  ! 


IS  TASK  FIXED 
BR  IF  YES 


ELSE   ERROR 


;[MP01] 
;[MP01] 


ASSUME  IIS 

GET  TCB  ADDRESS 

BR  IF  FOUND  IT 

ELSE  TASK  NOT  INSTALLED 


IS  TASK  FIXED 
BR  IF  YES 


;CMP01] 
;CMP01] 


;  ELSE  ERROR 


TCB  ADDRESS 

SIZE  OF  SEND  DATA  I/O  PACKET 


MOUNT,  OR  DLX  ONLY  PASS  TO  STRT  TIMERS 
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2538 

2539 

25AO 

25^1 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 


012144 
012146 
012154 
012156 
012162 
012170 
012172 
012174 
012200 
012204 
012206 
012210 
012214 


000241 
032767 
001017 
012702 
032767 
001407 
010200 
012701 
112720 
005301 
003374 


.SBTTL     CKEVE   -   CHECK   FOR  VALID  EVENT   PARAMETER 


CKEVE   -   CHECK   FOR  VALID  EVENT  PARAMETER 

INPUTS: 

SOPTON  -  OPTIONS  WORD 

$QUAL  -  COMMAND  QUALIFIER  WORD 

RQS+LO.CLS  -  EVENT  CLASS 

RQStLO.EVT  -  EVENT  FILTER  MASK 

OUTPUTS: 

CARRY  CLEAR: 

VALID  EVENT  FILTER  MASK 
CARRY  SET: 

INVALID  EVENT  FILTER  MASK 


001000  OOOOOOG 


CKEVE: 


000004G 
004000 


000010 
000377 


OOOOOOG 


10$: 


20$: 
30$: 


CLC 

BIT 

BNE 

MOV 

BIT 

BEO 

MOV 

MOV 

M0V8 

DEC 

BGT 

CALL 

RETURN 


*0P$KEV,$0PT0N 

30$ 

*RQBtL0.EVT,R2 

#WC.EVE,$QUAL 

20$ 

R2,R0 

#8.,R1 

#37?,(R0)t 

Rl 

10$ 

PROEVT 


ASSUME  SUCCESS 

IS  THIS  FOR  KNOWN  EVENTS? 

BR  IF  YES  -  VALID  FILTER  MASK 

POINT  TO  EVENT  MASK 

IS  THIS  FOR  WILD  CARD  EVENTS? 

BR  IF  NO 

RETRIEVE  POINTER  TO  EVENT  MASK 

EVENT  MASK  IS  8.  BYTES 

ELSE  SET  UP  MASK  FOR  WILD  CARD  EVENTS 

MORE  TO  STORE? 

BR  IF  YES 

PROCESS  EVENT  MASK 


LINFLT  -  CLEAR  LINE  SPECIFIED  EVENTS 

INPUTS: 

$FILHD  -  FILTER  BLOCK  LISTHEAD 


012216 
012222 
012230 
012236 
012242 
012246 
C12252 

012254 

012256 
012266 
0123C-; 


012700  OOOOOOG 

011067  OOOOOOG 

016700  OOOOOOG 
001001 


1$ 


OUTPUTS: 

LINE  EVENTS  CLEARED 

NFLT: 

CALL 

SWTCHO 

SWTCHl 

$SAVAL 

MOV 

#$FILHD,RO 

MOV 

(RO),$BFR 

: 

MOV 

$6FR,R0 

BNE 

2$ 

SAVE  REG": 
RESET  BUFFERS 

GET  FILTER  BLOCK  LISTHEAD 
GET  FIRST  BLOCK 
GET  FIRST  BLOCK  AGAIN 
IF  MORE  -  BRANCH 


2$- 


016767  000002G  OOOOOOG 


RETURN 

CEACCS  RO.RI 

GETAD  R1,#F.LEN 

MOV  F.CLSt$BFR,$RSIZE 


MAP  TO  FILTER  BLOCK 
READ  FILTER  BLOCK 
;  SET  UP  LENGTH 


V/PMA  -  \/M 
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3075 

.S8TTL 

CHSTA  -  CHANGE 

LOGGINC 

STATE 

3076 

3077 
3078 
3079 

+ 

CHSTA 

-  CHANGE  LOGGING  STATE 

3080 

3081 

INPUTS: 

3082 

RQ8  -  REQUST  BLOCK  FOR 

SET  LOGGING  COMMAND 

3083 

3084 

OUTPUTS: 

3085 

SPECIHED  LOGGING  STATE 

IS  CHANGED 

3086 

3087 

- 

3088 

3089  014142 

012702 

000007 

CHSTA: 

MOV 

#FF.C0N1FF.FIL! 

FF.MON 

R2  ;  ASSUME  KNOWN  LOGGING 

3090  014146 

032767 

000004 

OOOOOOG 

BIT 

#Qf$KNO,$QUAL 

;  IS  THIS  FOR  KNOWN  LOGGING? 

3091  014154 

001016 

BNE 

10$ 

;  BR  IF  YES 

3092  014156 

012702 

000001 

MOV 

*fF.C0N,R2 

;  ASSUME  LOGGING  CONSOLE 

3093  014162 

032767 

000400 

OOOOOOG 

BIT 

#0P$C0N,$0PT0N 

;  IS  THIS  FOR  THE  LOGGING  CONSOLE? 

3094  014170 

001010 

BNE 

10$ 

;  BR  IF  VES 

3095  014172 

012702 

000002 

MOV 

#FF.FIL,R2 

;  ASSUME  LOGGING  FILE 

3096  014176 

032767 

000200 

OOOOOOG 

BIT 

#0P$FIL,$0PT0N 

;  IS  THIS  FOR  LOGGING  FILE? 

3097  014204 

001002 

BNE 

10$ 

••  BR  IF  NO 

3098  014206 
3099 

3100  014212 

012702 

000004 

MOV 

#FF.M0N,R2 

;  ELSE  MUST  BE  LOGGING  MONITOR 

032767 

OOOOOOG 

OOOOOOG 

10$: 

BIT 

#VF.ON,$VFLAG 

;  SET  STATE  ON? 

3101  014220 

001403 

6EQ 

20$ 

;  BR  IF  NO 

3102  014222 

050267 

OOOOOOG 

BIS 

R2,$LGSTT 

;  SET  LOGGING  STATE  ON 

3103  014226 

000402 

BR 

30$ 

;  AND  CONTINUE 

3104  014230 

3105 

3106  014234 

040267 

OOOOOOG 

20$: 

8IC 

R2,$LGSTT 

;  SET  LOGGING  STATE  OFF 

000241 

30$: 

CLC 

;  BE  SURE  CARRY  IS  CLEAR 

3107  014236 

RETURN 
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1381 

.SBTTL 

FNDADD  -  FIND  REMOTE  NODE 

BY  ADDRESS 

1382 

1383 
138A 
1385 

+ 

FNDADD  -  FIND 

REMOTE  NODE  BY  ADDRESS 

1386 

1387 

INPUTS: 

1388 

Rl  -  NODE  ADDRESS 

1389 

1390 

OUTPUTS: 

1391 

C-8IT  - 

SUCCESS/FAILURE 

1392 

RO  -  ADDRESS  OF  REMOTE  BLOCK  IF  FOUND 

1393 

Rl  -  PRESERVED 

139A 

1395 

. 

1396  007276 

"NDADD: 

SWTCHI 

#$HMeUF 

SET  UP  INPUT  BUFFER  BUFFER 

1397  007304 

GETRV 

$DECPT,#D$END 

READ  DECNET  HOME  BLOCK 

1398  007324 

012700 

000004G 

MOV 

#$HM8UF+D$RNN+2,R0 

STORE  REMOTE  LISTHEAD 

1399 

UOO  007330 

SWTCHI 

#TEMP1 

USE  TEMPI  FOR  BUFFER 

1401  007336 

011067 

171472 

MOV 

(fiO), TEMPI 

GET  FIRST  IN  LIST 

1402  007342 

010146 

MOV 

R1,-(SP) 

SAVE  NODE  ADDRESS  ON  STACK 

1403  007344 

010001 

10$: 

MOV 

RO.Rl 

SAVE  ADDRESS  OF  PREVIOUS 

1404  C07346 

016700 

171462 

MOV 

TEMPI, RO 

GET  NEXT  REMOTE  IN  LIST 

1405  007352 

000261 

SEC 

ASSUME  FAILURE 

1406  007354 

001417 

BEQ 

30$ 

IF  EQ,  DONE 

1407  007356 

CEACCS 

RO 

CONVERT  TO  MAPPED  ADDRESS 

1408  007366 

20$: 

GETAD 

RO,#R.LEN 

READ  REMOTE  INTO  BUFFER 

1409  007404 

021667 

171434 

CMP 

(SP),TEMPUR.ADD 

IS  THIS  THE  RIGHT  REMOTE? 

1410  007410 

001355 

BNE 

10$ 

BR  IF  NO 

1411  007412 

000241 

CLC 

"412  007414 

30$: 

SWTCHI 

RETURN  TO  DEFAULT  BUFFER 

.-,13  007422 

012601 

MOV 

(SP)+,R1 

RESTORE  Rl 

1414  007424 

RETURN 
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D( 


2078 

2079 

2080 

2081 

2082 

2083 

208^ 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

209A 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

21K 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

212A 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

21 3i 


0U676 
0U702 
0U704 
0K706 
0U710 
0U71A 


0U716 
0U722 
0U72A 
0U730 
014746 
014750 
014754 
014762 
014764 
014770 
014774 
014776 
015002 
015004 

015006 
015012 
015014 
015020 
015022 
015024 
015026 
015030 
015034 
015036 
015042 
015044 
015046 
015052 
015054 
015056 
015060 
015062 
015064 
015070 
015072 
015074 
015076 

015100 
015106 

015110 
015116 


012700 
112021 
001376 
005004 

103034 


016700 
001466 
062700 

005000 
012701 
032767 
001402 
062701 

103441 

005204 
000760 

032710 
001024 
116002 
001421 

010246 
010005 
062705 
005002 

005204 
005202 
062705 
020216 
001370 
005726 

000712 

005204 
000706 
005704 
001404 


000540' 


^00$:   MOV 

310$:   MOVB 

BNE 

CLR 

320$:    CALL 

BCC 


*CKN0UN,R0 

(RO)+,(Rl)t 

310$ 

R4 

NXTCIR 

350$ 


OOOOOOG 
000006 


000016 
OOOOOOG 

000020 


000400 
000014 

000022 

000004 


DISPLAY  KNOWN  PSI  PERMANENT  CIRCUITS 


330$: 


OOOOOOG 


340$: 


MOV 

BEQ 

ADD 

GETRV 

CLR 

MOV 

BIT 

SEQ 

ADD 

CALL 

BCS 

CALL 

INC 

BR 

^50$:   BIT 
BNE 
MOVB 
BEQ 
SAVRG 
MOV 
MOV 
ADD 
CLR 
CALL 
INC 
INC 
ADD 
CMP 
BNE 
TST 
RESPG 
BR 
CALL 
INC 
BR 
TST 
BEO 


360$: 


370$: 


380$: 


$PSIPT,R0 

390$ 

#H$PVC,RO 

R0,#2 

RO 

#C$LEN,R1 

#PF.XDF,$PFLAG 

340$ 

#MA)(iD,Rl 

FNDBLK 

390$ 

DISPVC 

R4 

330$ 

#LF.BRO,(R0) 

370$ 

L.NSTA(R0),R2 

370$ 

<R5> 

R2,-(SP) 

R0,R5 

#L.MPF,R5 

R2 

DISCIR 

R4 

R2 

#S.LEN,R5 

R2,(SP) 

366$ 

(SP)  + 

<R5> 

320$ 

DISCIR 

R4 

320$ 

R4 

400$ 


390$:   DIR$  #T!DET 
RETURN 

400$:   DIR$  #riDET 

ERRPT$  CIERR1,$ER0UT 


ERROR  MESSAGES 


GET  STRING  FOR  HEADER  MESSAGE 
STORE  STRING 

INDICATE  HEADER  TO  BE  DISPLAYED 
GET  NEXT  LINE  IN  SYSTEM 
BR  IF  END  OF  TABLE 


IS  THIS  A  PSI  SYSTEM? 

BRANCH  IF  NO  -  DONE 

ADDRESS  PVC  LISTHEAD 

READ  PVC  LISTHEAD 

INDICATE  NO  MATCH  CRITERIA 

LENGTH  OF  OLD-FORMAT  PVC  BLOCK 

CHECK  FOR  EXTENDED  DATA  FORMAT 

IF  NONE,  THESE  PARAMETERS  SUFFICE 

OTHERWISE  PVC  BLOCK  MAY  BE  LONGER 

FIND  NEXT  PVC 

BRANCH  IF  END  OF  LIST 

DISPLAY  PVi  INFO 

UPDATE  HE/  >   DISPLAY  FLAG 

GET  NEXT  f  C  NAME  BLOCK 

ETHERNET  CIRCUIT  ? 

IF  YES  -  BRANCH 

MULTIPOINT  LINE? 

BR  IF  NO 

SAVE  R5 

USE  STACK  AS  COUNTER 

GET  SLT  ADDRESS 

POINT  TO  MULTIPOINT  FLAGS  TABlE 

STATION  NUMBER 

DISPLAY  TRIBUTARY  INFORMATION 

INDICATE  HEADER  NOT  TO  BE  DISPLACED 

NEXT  STATION  NUMBER 

POINT  TO  NEXT  STATION 

ALL  STATIONS  DISPLAYED? 

BR  IF  NO 

CLEAR  SiACK 

RESTORE  R5 

GET  NEXT  LINE 

DISPLAY  CIRCUIT  INFORMATION 

INDICATE  HEADER  NOT  TO  BE  DISPLAYED 

GET  NEXT  LINE 

WAS  THE  SPECIFIED  LINE  FOUND? 

BR  IF  NO 

DETACH  TERMINAL 
FINISHED 

DETACH  TERMINAL 
LINE  NOT  IN  SYSTEM 


CTD001] 
CTDOOn 
CTDOOn 
CTD001] 
CTDOOn 
[TDOOn 
CTDOOl] 
[TD001] 
CTDOOl D 
[TDOOn 
CTDOOl] 
CTDOOl] 
'.TD001] 
lTDOOI] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 


;**-10 
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DMDTE  -  SHOW  MODULE  X25-PR0TOCOL  DIES 


2619 

.SBTTL 

DMDTE  -  SHOW  MODULE  X25-F 

ROTOCOL  DTES 

2620 

2621 
2622 
2623 

+ 

DMDTE 

-  SHOW 

MODULE  X25-PROTOCOL  WITH  DTE  QUALIFIER 

2624 
2625 

INPUTS: 

2626 

$OPTON 

-  OPTIONS  WORD 

2627 

LO.DTE+ 

ROB  -  SPECIFIED  DTE  ADDRESS 

2628 
2629 

OUTPUTS: 

2630 
2631 
2632 

DTE  INFORMATION  DISPLAYED  ON  USEf 

'S  TERMINAL 

_ 

2633  020520 

016700 

OOOOOOG 

)MDTE: 

MOV 

$PSIPT,RO 

POINT  TO  PSI  HOME  BLOCK 

2634  020524 

062700 

000002 

ADD 

#H$LDTE,RO 

POINT  TO  DTE  LISTHEAD 

2635  020530 

GETRV 

R0,*2 

READ  IN  LISTHEAD 

2636  020546 

0$: 

CALL 

NXTDTE 

GET  NEXT  DTE  BLOCK  TO  OPERATE  ON 

2637  020552 

103463 

BCS 

40$ 

BR  IF  DONE 

2638  020554 

012701 

000020G 

MOV 

#$eFR+L$DTEA,R1 

POINT  TO  DTE  ADDRESS 

2639  020560 

116702 

00001 7G 

Move 

$BFR+L$DTEL,R2 

GET  NUMBER  OF  DIGITS  IN  ADDRESS 

2640  020564 

012703 

001034' 

MOV 

#TEMP1,R3 

POINT  TO  OUTPUT  BUFFER 

2641  020570 

CALL 

BCDASC 

CONVERT  TO  ASCIZ 

2642  020574 

2643 

2644  020604 

ERRPTS 

DTHSI.MSGOUT 

DISPLAY  DTE  ADDRESS 

012700 

000077- 

MOV 

#OFF,R0 

ASSUME  DTE  STATE  IS  OFF 

2645  020610 

122767 

000001  000003G 

CMPB 

#LN$OFF,L$NMST+$BFR 

IS  DTE  STATE  OFF? 

2646  020616 

001402 

BEQ 

20$ 

BR  IF  YES 

2647  020620 

012700 

000064' 

MOV 

#ON,R0 

ELSE  STATE  MUST  BE  ON 

2648  020624 

012701 

001034' 

20$: 

MOV 

#TEMP1,R1 

POINT  TO  STORAGE  OF  STATE  STRING 

2649  020630 

112021 

30$: 

MOVB 

CR0)t,(R1)+ 

STORE  ASCIZ  STRING 

2650  020632 

2651 

2652  020634 

001376 

BNE 

30$ 

... 

116700 

00001 6G 

MOVB 

L$LLCH+$BFR,RO 

GET  CHANNEL  NUMBER 

2653  020640 

006300 

ASL 

RO 

CONVERT  TO  WORD  INDEX 

2654  020642 

016701 

160162 

MOV 

PLIPDV.RI 

GET  PLI'S  PDV  ADDRESS 

2655  020646 

060100 

ADD 

R1,fiO 

POINT  AT  CHANNEL  IN  PDV 

2656  020650 

116000 

OOOOOOG 

MOVB 

Z.MAP(RO),RO 

GET  SLN  &  TRIBUTARY 

2657  020654 

006300 

ASL 

RO 

CONVERT  TO  WORD  INDEX 

2658  020656 

066700 

0000006 

ADD 

$SLTMA,RO 
(R0),r6 

POINT  AT  SLT  ADDRESS 

2659  020662 

011000 

MOV 

POINT  AT  SLT 

2660  020664 

116001 

000002 

MOVB 

L.DDM(R0),R1 

GET  DDM  PDV  INDEX 

2661  020670 

066701 

OOOOOOG 

ADD 

$PDVTA,R1 
(R1),r1 

POINT  AT  PDV  ADDRESS 

2662  020674 

011101 

MOV 

POINT  AT  DDM  PDV 

2663  020676 

CALL 

FMTLIN 

FORMAT  THE  LINE  ID 

2664  020702 

016767 

000036G  160152 

MOV 

L$MCHN+$BFR,TEMP2 

GET  MAXIMUM  CHANNELS 

2665  020710 

ERRPT$ 

DTMS2,MSG0UT 

DISPLAY  INFO  TO  USER'S  TERMINAL 

2666  020720 

000712 

BR 

10$ 

LOOK  FOR  NEXT  BLOCK 

2667  020722 

132767 

000004  160644 

40$: 

BITB 

#F.FND, FLAGS 

WAS  A  DTE  FOUND? 

2668  020730 

001015 

BNE 

60$ 

■  BR  IF  YES 

2669  020732 

032767 

000040  OOOOOOG 

BIT 

#0PSDTE,$0PT0N 

•  SHOW  A  SPECIFIC  DTE? 

2670  020740 

001005 

BNE 

50$ 

•  BR  IF  YES 

2671  020742 

ERRPT$ 

NOINFO.MSGOUT 

•  DISPLAY  NO  INFORMATION  MESSAGE 

2672  020752 

000404 

BR 

60$ 

■  AND  EXIT 

2673  020754 

50$: 

ERRPTS 

DTI«IS3,MSG0UT 

•  DTE  NOT  IN  SYSTEM 

2674  020764 

60$: 

RETURN 

2675 

; 
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3153 
31 5A 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
31 6A 
3165 

3166  024226  016700 

3167  024232  062700 

3168  024236 

3169  024254  005767 

3170  024260  001004 

3171  024262 
3172 

3173  024272  032767 

3174  024300  001405 

3175  024302  012700 

3176  024306 

3177  024312     000426 
3178 

3179  024314 

3180  024326 

3181  024344     016767 

3182  024352     016767 

3183  024360 
3184 

3185  024370 
3186 
3187 
3188 

3189  024372 

3190  024440 
3191 

3192 
3193 

3194  024444 

3195  024521 
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.SBTTL  DMX9S  -  SHOW  MODULE  X29-SERVER 

DMX9S  -  SHOW  MODULE  X29-SERVER 

INPUTS: 

RQB  -  ADDRESS  OF  REQUEST  BLOCK 

OUTPUTS: 

INFORMATION  DISPLAYED   ON  USER'S   TERMINAL 


DMX9S: 


002200  OOOOOOG  10$: 
000014 


OOOOOOG  154462 
000002G  154502 


20$: 


30$: 


MOV 

ADD 

GETRV 

TST 

BNE 

ERRPT$ 

BIT 

BEQ 

MOV 

CALL 

BR 

CEACC$ 

GETAD 

MOV 

MOV 

ERRPTS 

RETURN 


$PSIPT,RO 

i('H$X29C,R0 

R0,#2 

$BFR 

10$ 

X9ER1,$ER0UT 

#0P$DST!0P$KDS,$0PT0N 

20$ 

#H$D29,R0 

DMDST 

30$ 

$BFR,R0 
RO,*Q$LEN 
Q$CTIM+$BFR, TEMPI 
Q$MXVC+$BFR,TEMP2 
X9MS1,MSG0UT 


ERRORS 


ERMSG$ 
ERBLK$ 


MESSAGES 


ERMSG$ 
ERBLK$ 


GET  POINTER  TO  PSI  HOME  BLOCK 

POINT  TO  X29  DESCRIPTOR 

READ  IN  DESCRIPTOR 

IS  X29  IN  SYSTEM? 

BR  IF  YES 

ELSE  DISPLAY  ERROR  MESSAGE 

DESTINATION  QUALIFER  SPECIFIED? 

BR  IF  NO 

POINT  TO  OFFSET  INTO  HOME  BLOCK 

DISPLAY  DESTINATION  INFO 

AND  EXIT 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  X29  DESCRIPTOR 

GET  COUNTER  TIMER  VALUE 

GET  MAXIMUM  CIRCUITS 

DISPLAY  COUNTER  TIMER,  MAX  CIRCUITS 


<    X29  Descriptor  block  not  in  system> 
X9ER1 


<    Counter  timer  = 
X9MS1,<TEMP1,TEMP2> 


XF ,  Mdximum  circuits  =  XF> 
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DISPRO  -  DISPLAY  PROCESS  INFORMATION 

■7  7  00 

3729  026702  ERMSGS  <   State  =  XAiiN> 

3730  026721  ER8LK$  PMSG3,<TEMP2> 
3731 
3732  .DSA8L  LC 
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DISPVC  -  DISPLAY  PVC  CIRCUIT  INFORMATION 


A316 

A317 

^3^8 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

UV2 


032602 
032606 
032610 
032612 


032622 
032626 
032634 
032636 
032642 
032646 
032650 
032654 
032660 
032662 
032664 
032670 
032672 
032702 
032712 
032720 
032730 


032732 
032754 

032764 
033004 

033012 
033043 

033046 
033067 


005704 
001004 


012702 
032767 
001005 
012700 
012701 
000405 
012700 
116701 
001403 
112022 

105012 


.SBTTL  DISPVC  -  DISPLAV  PVC  CIRCUIT  INFORMATION 


«**  DISPVC  -  DISPLAY  PVC  CIRCUIT  INFORMATION 

INPUTS: 

$BFR  CONTAINS  PVC  NAME  BLOCK  ^,„  , 

IF  R4  =  0,  PRINT  HEADER  INFORMATION  ALONG  WITH  CIRCUIT  INFORMATION 
ELSE,  PRINT  ONLY  CIRCUIT  INFORMATION 

OUTPUTS: 

CIRCUIT  INFORMATION  IS  DISPLAYED  ON  USER'S  TERMINAL 

ALL  REGISTERS  ARE  PRESERVED 

6JSPVC:  CALL  SSAVAL 

TST  R4 

BNE  10$ 

ERRPTS  PVMSG1,MSG0UT 


SAVE  ALL  REGISTERS 
DISPLAY  HEADER? 
BRANCH  IF  NO 
ELSE  DISPLAY  HEADER 


001202' 
OOOOOOG  OOOOOOG 

000002G 
000006 


DISPLAY  CIRCUIT  NAME 


10$: 


00001 6G 
000002G 


12$: 

20$: 
22$: 


016767  000010G  146114 


MOV 

BIT 

BNE 

MOV 

MOV 

BR 

MOV 

MOVB 

BEQ 

MOVB 

SOB 

CLR8 

ERRPT$ 

ERRPT$ 

MOV 

ERRPT$ 

RETURN 


#TEMP3 

#PF.)(D 

12$ 

#$BFR+ 

#6.R1 

20i 

#$BFR+ 

$8FR+C 

22$ 

(R0)+, 

R1,20§ 

(R2) 

PVMSG2 

PVMSG3 

C$LCN+ 

PVMSG4 


-R2 
F,$PFLAG 

C$NAM,RO 


CSGNAM.RO 
$NML,R1 

(R2)<- 


MSGOUT 
.MSGOUT 
$BFR, TEMPI 

MSGOUT 


POINT  TO  TEMPORARY  STORAGE 
CHECK  FOR  EXTENDED  DATA  FORMAT 
BRANCH  IF  EXTENDED 
GET  ADDRESS  OF  CIRCUIT  NAME 
LENGTH  OF  CIRCUIT  NAME 

GET  ADDRESS  OF  EXTENDED  CIRCUIT  NAME 

GET  LENGTH  OF  CIRCUIT  NAME 

BRANCH  IF  NAME  EMPTY 

MOVE  CIRCUIT  NAME  TO  TEMP  BUFFER 

TERMINATE  STRING 
DISPLAY  CIRCUIT  NAME 
DISPLAY  STATE  AND  TYPE 
GET  CHANNEL  NUMBER 
DISPLAY  CHANNEL  NUMBER 


DISPLAY  MESSAGES 


ER«SG$  <!!NSiA  3!A  AS  OF  !!YS:n> 

ERBLK$  PVMSG1,<TEMP2,TEMP1> 

ERMSG$  <XNCIRCUIT  =  XA/(N> 

EReLK$  PVMSG2,<TEMP3> 


ERMSG$ 
ER6LK$ 


<   STATE 
PVMSG3 


ON,    TYPE   =  X25> 


ERMSG$      <       CHANNEL   =  i!F/iN> 
ERBLK$     PVMSG4,<TEMP1> 


;CTD001] 
:**-3 


;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;CTD001D 
;CTD001] 
;CTD001] 
.-CTDOOn 
;CTD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;CTD001] 
.-CTDGOI] 
;[TD001] 
.-CTDOOl] 
;CTD001] 
.-CTDGOI] 
;[TD001] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
.•CTDOOl] 
.■CTDOOl] 
; CTDOOl] 
; CTDOOl] 
.■CTDOOl] 
.•CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
.■♦♦-39 


; CTDOOl] 
;[TD001] 
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4792 
4793 
479A 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4815  035140 

4814  035142 

4815  035146 

4816  035152 

4817  035154 

4818  035156 

4819  035160 

4820  035164 

4821  035166 

4822  035170 

4823  035172 

4824  035174 

4825  035176 

4826  035200 

4827  035202 

4828  035206 

4829  035210 
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.SBTTL  FNDPDV  -  FIND  PDV  ADDRESS 

FNDPDV  -  FIND  PDV  ADDRESS 

INPUTS: 

RO  =  RAD50  PROCESS  NAME 

OUTPUTS: 

CARRY  CLEAR: 

RO  =  PDV  ADDRESS  OF  PROCESS 
R1  =  PDV  INDEX 


010046 

016701  OOOOOOG 

016702  OOOOOOG 
001407 

012100 

001403 

026016  OOOOOOG 

001403 

005302 

003371 

000261 

005226 

006016 

005741 

166701  OOOOOOG 

006316 


CARRY 

SET: 

PROCESS  NOT  FOUND 

R2  DESTROYED 

FNDPDV. 

MOV 

RO,-(SP) 

MOV 

$PDVTA,R1 

MOV 

$PDVNM,R2 

BEQ 

30$ 

10$: 

MOV 

(R1)+,R0 

BEQ 

20$ 

15$: 

CMP 

Z.NAM(RO),( 

BEQ 

40$ 

20$: 

DEC 

R2 

BGT 

10$ 

30$: 

SEC 

40$: 

INC 

(SP)  + 

ROR 

(SP) 

TST 

-{RD 

SUB 

$PDVTA,R1 

ASL 

(SP) 

(SP) 


SAVE  NAME  TO  LOOK  FOR 

GET  PDV  TABLE  ADDRESS 

GET  NUMBER  OF  PDV'S 

BR  IF  NONE 

GET  PDV  ADDRESS 

IF  ZERO,  SKIP  IT 

DOES  THE  NAME  MATCH? 

BR  IF  YES  (C-BIT  CLEAR) 

DECREMENT  COUNT 

BR  IF  MORE  TO  CHECK 

INDICATE  FAILURE 

CLEAN  UP  STACK 

SAVE  C-BIT 

CALCULATE  PDV  INDEX 

RESTORE  CARRY 


RETURN 
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VDIS       CREATED  BV  MACRO  ON  15-JUL-85  AT  12:17 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


AALL 

ACMSl 

ACMS2A 

ACMS2B 

ACMS3 

ACNSl 

ACNS2 

ACNS3 

ACNSA 

ACNS5 

ACNS6 

ACNS? 

AERR1 

AERR2 

AKNOWN 

AMSGl 

AMSG2 

AMSG3 

AMSGA 

ARAMSK 

ASPEC 

A.ACC 

A.LNK 

A.NAM 

A.  PUD 

A. REM 

A.UCB 

BCDASC 

BF.TRC 

BITNUM 

BLDLIN 

BLDMSK 

BLDNOD 

BROAD 

CACTIV 

CHARAC 

CHKBIT 

CHKSNK 

CIERR1 

CKNOWN 

CKPREV 

CKTYPE 

CKTYP1 

CMSGl 

CMSG11 

CMSG12 

CMSG2 

CMSG4 

CMSG5 

CMSG6 


000135  R 
016320  R 
016574  R 
0164A4  R 
016520  R 
017160  R 
017202  R 
017224  R 
017252  R 
017276  R 
017346  R 
017352  R 
003126  R 
003162  R 
000151  R 
026322 
026352 
026424 


026506  R 

=  ****** 

000167  R 
000020 
000000 
000002 
000010 
000012 
000010 
035464  R 
=  000004 
=  001204  R 


006500  R 
006366  R 
006736  R 
000652  R 
000520  R 
000017  R 
007230  R 
005236  R 
015156  R 
000540 
007174 
024544 
024530 
032170 
032572 
032600 
032220 
032274 
032344 
032406 


GX 


REFERENCES 

#6-148 
31-2342 
31-2358 
31-2361 
31-2370 
33-2449 
33-2456 
33-2464 
33-2467 
33-2475 
33-2486 
33-2477 
10-535 
10-538 

#6-149 
49-3557 
49-3568 
49-3645 
49-3648 
18-1049 
51-3771 

#6-150 

#5-75 

#5-75 

#5-75 

#5-75 

#5-75 

#5-75 
31-2347 

#5-88 

#7-317 
24-1373 
19-1095 
19-1112 
19-1099 

#6-219 

#6-208 

#6-118 
19-1136 
12-737 
27-2131 

#6-209 
19-1164 
8-339 
12-682 
53-3952 

#53-4309 
53-4273 
53-3960 
53-4271 
53-4224 
53-4227 


10-475 
#31-2376 
#31-2379 
#31-2382 
#31-2385 
#33-2493 
#33-2496 
#33-2499 
#33-2502 
#33-2505 
#33-2508 
#33-2511 
#10-548 
#10-551 

10-521 
#49-3658 
#49-3661 
#49-3664 
#49-3667 

18-1050 

10-491 
49-3605 

10-500 

49-3594 

10-508 

35-2641 

7-318 

#21-1218 

#20-1189 

#22-1287 

53-3984 

27-1937 

43-3223 

#24-1366 

#17-977 

#27-2137 

27-2079 

19-1168 

9-383 

#43-3216 

#53-4284 

#53-4312 
#53-4287 
#55-4290 
#55-4293 
#53-4296 
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CREF   04.00 


26-1462 


49-5563 


10-528 
57-2771 

♦19-1125 


55-4417 


#23-1344 
10-455 


26-1463    26-1586 


49-5573 
40-5025 

19-1154 


49-5577 
#64-4952 

19-1140 


26-1587 


49-3580 
64-4947 

19-1151 


26-1654         26-1635 


51-3770 


19-1161        •19-1165 


24-1367 


11-571 


26-1454         27-1925 


28-2155 


29-2258   #43-3220 
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VDIS      CREATED  BY  MACRO  ON  15-JUL-85  AT  12:17 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 

R$NWL 

RSOWN 

R$PAL 

R$USL 

RSUSR 

R$$MPL 

R.ADD 

R.C5R 

R.FLAG 

R.FLG 

R.LEN 

R.LNK 

R.LST 

R.MAP 

R.NAM 


R.QUE 

R.SLN 

R.SRV 

R.STA 

R.STBL 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SHUT 

SINGLE 

SLASH 

SMSG1 

SMSG2 

SPACE 


SUMARY 
SYNERR 

SYSFOB 


S.COST 
5.CTL 


REFERENCES 


000104 

33-2436 

000010 

31-2348 

000052 

33-2465 

000031 

33-2457 

000032 

33-2459 

****** 

5-62 

000010 

#5-94 

53-4214 

000056 

#5-88 

000012 

#5-94 

000064 

#5-88 

000014 

#5-94 

000000 

#5-94 

000104 

#5-88 

000110 

#5-88 

000002 

#5-94 

51-3762 

000062 

#5-88 

000070 

#5-88 

000060 

#5-88 

000066 

#5-88 

000210 

#5-88 

000200 

#5-96 

000100 

#5-96 

000004 

#5-96 

000040 

#5-96 

000020 

#5-96 

000010 

#5-96 

000001 

#5-96 

000002 

#5-96 

000040 

#5-96 

000103  R 

#6-132 

000126  R 

#6-143 

000057 

#7-303 

002100  R 

8-542 

002242  R 

8-343 

000040 

#7-299 

31-2339 

53-4122 

000007  R 

#6-117 

002270  R 

3-3 '1 

29-2260 

»♦•«»•  GX 

*10-460 

♦22-130S 

*26-1524 

♦27-1949 

*34-2553 

»42-3180 

•53-4049 

•59-4733 

000001 

#5-96 

000006 

#5-88 

31-2352 


39-2869 
12-681 


26-1489 

22-1308 

53-4050 

18-1038 
51-3763 


27-1974 
53-4192 


53-4177 


48-3526 
49-3606 

#8-353 

#8-357 
21-1237 
34-2560 
53-4221 
43-3220 

#8-363 

•10-461 
•22-1323 
•26-1605 
•27-2003 
•34-2570 
•44-3280 
•53-4053 
•59-4743 
53-3973 


I     9 

PAGE   14 

CREF       04.00 


39-2876 
22-1309 

55-4466 
25-1409 

59-4721 
26-1552 

59-4729 
26-1615 

51-5760 

26-1558 

26-1793 

25-1408 

26-1441 

26-1513 

53-4211 

18-1039 
51-3764 

18-1040 
52-3882 

22-1314 
52-3883 

26-1545 
52-5884 

26-1547 
55-4217 

55-4150 


49-5615 


21-1266 
57-2750 
55-4448 

9-585 

•10-462 

•25-1396 

•26-1630 

•27-2091 

•55-2655 

•45-5564 

♦55-4080 

•59-4749 


51-5769         52-3893 


26-1549         26-1617 


55-4511 


49-5628 


49-3655         49-3657 


21-1267 

22-1511 

22-1516 

22-1525 

22-1326 

40-2943 

40-5057 

49-5598 

51-5765 

52-5885 

55-4450 

56-4577 

57-4629 

58-4691 

10-457 

•18-1022 
•25-1597 
♦26-1684 
•51-2329 
•37-2741 
♦49-3575 
♦55-4084 
♦60-4778 


11-575 

•18-1025 
•25-1400 
♦26-1706 
♦51-2550 
♦57-2767 
•49-5577 
•55-4208 
♦62-4850 


12-684 

♦18-1024 
•25-1408 
•  26-1713 
•51-2552 
♦39-2880 
♦49-5578 
♦53-4258 
•62-4853 


26-1456         27-1925 


•22-1297 
♦25-1412 
♦26-1761 
♦31-2554 
♦59-2894 
♦49-5588 
•53-4262 


•22-1298 
•26-1459 
•26-1762 
•31-2357 
•40-2926 
•53-4021 
•55-4473 


26-1622 
53-4120 


28-2157 

♦22-1301 
♦26-1484 
♦26-1763 
•33-2450 
•42-3168 
♦53-4025 
♦58-4682 
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♦,FILE'<1D»«VENA 


vv 

vv 

EEEEEEEEEE 

NN 

NN 

AAAAAA 

vv 

vv 

EEEEEEEEEE 

NN 

NN 

AAAAAA 

vv 

vv 

EE 

NN 

NN 

AA      AA 

vv 

vv 

EE 

NN 

NN 

AA      AA 

vv 

vv 

EE 

NNNN 

NN 

AA      AA 

vv 

vv 

EE 

NNNN 

NN 

AA      AA 

vv 

vv 

EEEEEEEE 

NN 

m    m 

AA      AA 

vv 

vv 

EEEEEEEE 

NN 

m    NN 

AA      AA 

vv 

vv 

EE 

NN 

NNNN 

AAAAAAAAAA 

vv 

vv 

EE 

NN 

NNNN 

AAAAAAAAAA 

vv 

vv 

EE 

NN 

NN 

AA      AA 

vv 

vv 

EE 

NN 

NN 

AA      AA 

vv 

EEEEEEEEEE 

NN 

NN 

AA      AA 

vv 

EEEEEEEEEE 

NN 

NN 

AA      AA 

LL 

ssssssss 

rTTTT 

TTTTT 

LL 

ssssssss 

TTTTT 

TTTTT 

LL 

ss 

I 

-L 

ss 

1 

LL 

ss 

T 

-L 

ss 

r 

LL 

ssssss 

T 

LL 

ssssss 

T 

LL 

ss 

LL 

ss 

LL 

ss 

T 

LL 

ss 

T 

LLLLLLLLLL 

ssssssss 

T 

LLLLLLLUL 

ssssssss 

T 
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SVENA   -   ENABLE/DISABLE   LINE 
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378 
379 
380 
381 
382 
383 
38A 
385 
386 
387 
388 
389 
390 
391 
392 

393  0002A2 

394  000250 
395 

396  000250 

397  000250 
398 

399  00025'i 

400  000260 

401  000264 

402  000270 

403  000272 
404 

405  000276 

406  000302 

407  000306 

408  000312 

409  000314 
410 

411  000320 

412  000322 

413  000326 

414  000330 

415  000336 

416  000340 

417  000344 

418  000346 

419  000352 

420  000356 

421  000360 

422  000362 

423  000366 

424  000370 

425  000374 

426  000376 

427  000404 

428  000406 

429  000414 

430  000416 

431  000420 

432  000424 

433  000430 

434  000434 


052767 


.SBTTL 

**♦  -  $VENA  - 

INPU1S: 

SSLTA 

$SLN 

$TRIB 


$VENA  -  ENABLE/DISABLE  LINE 
ENABLE/DISABLE  LINE 


-  SYSTEM  LINE  TABLE  ADDRESS 

-  SYSTEM  LINE  NUMBER  (NON  -  DLX  ONLY  SYSTEMS) 

-  TRIBUTARY  NUMBER 


OUTPUTS: 

XPT  DATA  BASE  UPDATED  IF  NON-  DLX  ONLY  SYSTEM 
C-8IT  SUCCESS/FAILURE 


000001  000126'  $VSER: 
$VENA: 


105067 
012700 

103402 
110167 

105067 
012700 

103402 
110167 

005005 

103004 
052767 
000466 
016704 
006304 
066704 
032714 
001404 
011404 
066704 
006304 
126401 
001411 
126467 
001443 
126467 
001172 
000436 
111467 
062700 
016746 
006316 


000125' 
015370 


000125' 

000124' 
074361 


000124' 


10$: 


20$: 


OOOOOOG  OOOOOOG 

OOOOOOG  30$: 

OOOOOOG 
100000 

OOOOOOG 

000001         40$: 
000001  000124' 
000001  000125' 


000070' 
OOOOOOG 
000070' 


50$: 


BIS 

.MCALL 
VNPBPT 
CALL 

CLR8 

MOV 

CALL 

BCS 

M0V8 

CLRB 

MOV 

CALL 

BCS 

M0V8 

CLR 

CALL 

BCC 

BIS 

BR 

MOV 

ASL 

ADD 

BIT 

BEQ 

MOV 

ADD 

ASL 

CMPB 

BEQ 

CMPB 

BEQ 

CMPB 

BNE 

BR 

M0V8 

ADD 

MOV 

ASL 


#SER,SERFLG 

VNPBPT 

VENA 

$SAVAL 

DLXPX 

#»RDLX,RO 

$FPDV 

10$ 

R1, DLXPX 

SNAPX 

#*RSNA,RO 

$FPDV 

20$ 

R1, SNAPX 

R5 

CHOPT 

30$ 

#VF.DLX,$VFLAG 

60$ 

$SLN,R4 

R4 

$LLCTA,R4 

#100006,  (R4) 

40$ 

(R4),R4 

$TRIB,R4 

R4 

1(R4),R1 

50$ 

1(R4), SNAPX 

60$ 

1(R4), DLXPX 

190$ 

60$ 

(R4),CHAN 

*Z.MAP,RO 

CHAN,-(SP) 

(SP) 


SET  CIRCUIT  SERVICE  FLAG 


SAVE  REGISTERS 

ASSUME  DLX  NOT  IN  SYSTEM 

GET  DLX  PROCESS  NAME  IN  RAD50 

LOOK  FOR  DLX  PDV 

BR  IF  DLX  NOT  IN  SYSTEM 

SAVE  DLX  PDV  INDEX 

ASSUME  SNA  NOT  IN  SYSTEM 

GET  PROCESS  NAME 

LOOK  FOR  SNA  PDV 

BR  IF  SNA  NOT  IN  SYSTEM 

SAVE  SNA  PDV  INDEX 

ZERO  =>  "DON'T  REWRITE  DESCRIPTOR" 
IS  XPT  CONTEXT  CORRECT  ? 
IF  CS,  YES 

SET  TEMP  VFLAG  BIT  FOR  DLX  ONLY  SYSTEM 
SKIP  XPT  STUFF 
GET  SYSTEM  LINE  NUMBER 
FORM  WORD  INDEX 

INDEX  INTO  REVERSE  MAPPING  TABLE 
MULTIPOINT  LINE  ? 
IF  EQ,  NO  ..  OKAY 
GET  ADDRESS/2  OF  STATION  TABLE 
POINT  TO  STATION  IN  TABLE 
CONVERT  TO  REAL  ADDRESS 
IS  THIS  SYSTEM  LINE  ASSIGNED  TO  XPT  ? 
BR  IF  YES 

IS  THIS  LINE  ASSIGNED  TO  SNA  ? 
BR  IF  YES 

IS  THIS  LINE  OWNED  BY  DLX? 
BR  IF  NO  —  ERROR 
GO  SET  LINE  ON 
STORE  CHANNEL  NUMBER 
FORM  ADDRESS  OF  XPT  CHANNEL  TABLE 
TURN  CHANNEL 
NUMBER  INTO 


J   11 


VENA  -  VNP  ENABLE/DISABLE   LINES  MACRO  V05.03b  Wednesday   11-Sep-85   12:06     Page   11-1 


VENA  -  VNP  ENABLE/DISABLE  LINES  MACRO  V05.03b  Wednesday  K- 
FNDTR!  -  FIND  THE  TRIBUTARY  TABLE  FOR  A  LINE 
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937 
938 

939  00250A  005726 
9A0  002506 
941  002516 
9A2 


ERROR  CONDITIONS 


l01$: 
102$: 


TST 

ERRPTS 
ERRPTS 
.DSABL 


(SP)t 

ERR35,$EROUT 
ERR21,$ER0UT 
LS8 


CLEAv  UP  STACK 
LINE  IN  WRONG  STATE 
LINE  NOT  IN  SYSTEM 
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1528  005030 

103401 

BCS 

25$ 

1529  005032 

010002 

MOV 

R0,R2 

1530  005034 

016701 

000012G 

25$: 

MOV 

RQBtLR.ADD.RI 

1531  005040 

CALL 

$FNADD 

1532  005044 

103016 

BCC 

27$ 

1533  005046 

005702 

TST 

R2                 ; 

1534  005050 

001421 

BEQ 

28$                ; 

1535  005052 

012701 

000044G 

MOV 

*RQ8tL0.NAM,R1 

1536  005056 

CALL 

$FNNAM 

1537  005062 

103001 

BCC 

26$ 

1538  005064 

000004 

JOT 

1539  005066 

016767 

00001 2G  00001 OG 

26$: 

MOV 

RQa+LR.ADD,$BFR+R.ADD   ; 

1540  005074 

PUTAD 

1541  005100 

1542 

1543 

000477 

BR 

40$                 • 

•  MATCH 

ON  NODE 

ADDRESS 

1544 

1545  005102 

005702 

J7$: 

TST 

R2 

1546  005104 

001726 

BEQ 

10$ 

1547  005106 

020002 

CMP 

R0,R2                ; 

1548  005110 

001126 

BNE 

104$ 

1549  005112 

1550 

1551 

000472 

BR 

40$ 

;•  CREATE  NEW  REMOTE  NODE  ENTRY 

1552 

1553  005114 

012701 

000014 

J8$: 

MOV 

#R.LEN,R1 

1554  005120 

CALL 

$ALP0L 

1555  005124 

103510 

BCS 

102$ 

1556  005126 

010067 

000164' 

MOV 

RO.CURUNM 

1557  005132 

012701 

OOOOOOG 

MOV 

*$6FR,R1 

1558  005136 

062701 

000002 

ADD 

#R.NAM,R1 

1559  005142 

012702 

000044G 

MOV 

#RQe+L0.NAM,R2         ; 

1560  005146 

012221 

MOV 

(R2)  +  ,(R1)<- 

1561  005150 

012221 

MOV 

(R2)+,(R1)+ 

1562  005152 

012221 

MOV 

(R2)+,(R1)+ 

1563  005154 

162701 

000010 

SUB 

*R.NAM+6,R1 

1564  005160 

016761 

000012G  000010 

MOV 

RQ8+LR.ADD,R.ADD(R1) 

'565  005166 

1566 

1567 

1568 

1569  005172 

005061 

000012 

CLR 

R.FLAGCRl) 

;  INSERT  ENTRY 

INTO  REMOTE  LIST 

REMINS 

CEACC$ 

R0,R1 

1570  005202 

PUTAD 

R1,#R.LEN            ; 

1571 

1572  005220 

SWTCH] 

#$HM6UF 

1573  005226 

GETRV 

$DECPT,*D$END 

1574  005246 

1575 

1576  005254 

SWTCHI 

016701 

00001 OG 

MOV 

$BFR+R.ADD,R1 

1577  005260 

012702 

000004G 

MOV 

#$HMaUFtD$RNN+2,R2 

157S  005264 

CALL 

FINREM 

1579  005270 

012702 

000004G 

35$: 

MOV 

#$HMeUFtD$RNN+2,R2 

1580  005274 

CALL 

QINS 

1581  005300 

40$: 

1582  005300 

SWTCHO 

*$HM8UF 

1583  005306 

PUTRC 

$DECPT,*D$FND 

1584  005326 

SWTCHO 

IF  CS,  NO  ..  OKAY 

ELSE,  SAVE  NODE  BLOCK  ADDRESS 

GET  THE  NODE  ADDRESS 

TRY  TO  FIND  THE  REMOTE  BLOCK 

IF  CC,  FOUND  IT 

WAS  THERE  A  MATCH  ON  THE  NODE  NAME 

IF  EQ,  NO  ..  CREATE  NEW  BLOCK 

ELSE,  GET  NODE  NAME  STRING 

AND  FIND  THAT  BLOCK  AGAIN 

IF  CC,  OKAY 

ELSE,  I  DUNNO 

AND  STORE  NODE  ADDRESS 

RE-WRITE  THE  NODE  BLOCK 

ELSE,  NO  CHANGE 


WAS  THERE  A  MATCH  ON  THE  NODE  NAME 

IF  EQ,  NO  ..  OKAY 

ELSE,  BLOCKS  MUST  BE  THE  SAME 

IF  NE,  NO  ..  ERROR 

ELSE,  LEAVE 


GET  LENGTH  OF  REMOTE  BLOCK 
TRY  TO  ALLOCATE  A  REMOTE  BLOCK 
IF  CS,  ALLOCATION  FAILURE 
SAVE  UNMAPPED  ADDRESS 
ELSE,  POINT  TO  I/O  BUFFER 
POINT  TO  NAME  FIELD 
POINT  TO  INPUT  NAME 
STORE  NAME  IN  REMOTE  BLOCK 


POINT  TO  START  OF  B!  OCK  AGAIN 
STORE  NODE  ADDRESS 
INITIALIZE  FLAGS  WORD 


CONVERT  TO  MAPPED  ADDRESS 
WRITE  OUT  REMOTE 

USE  TEMP  BUFFER 

READ  DECNET  HOME  BLOCK 

RESET  DEFAULT  BUFFER 

GET  SEARCH  KEY 

POINT  TO  LISTHEAD 

FIND  PLACE  FOR  REMOTE  BLOCK 

POINT  TO  LISTHEAD 

AND  INSERT  ENTRY  INTO  LIST 

USE  TEMP  BUFFER 

WRITE  DECNET  HOME  BLOCK 

RESET  TEMP  BUFFER 
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$VACP  -  MOUNT/DISMOUNT  THE  ACP 


1985 

006670 

001002 

BNE 

8$ 

1986 

006672 

CALLR 

30$  ^ 

1987 

006676 

8$: 

CALL 

$ALL15 

1988 

006702 

105002 

BCC 

16$ 

1989 

006704 

000167 

000542 

JMP 

109$ 

1990 

006710 

16$: 

GETRV 

R5,.TLGTH 

1991 

006726 

005767 

00001 2G 

TST 

T.RCVL+$BFR 

1992 

006752 

001426 

BEQ 

17$ 

1995 

006734 

GETRV 

T.RCVL  +  $flFR,#56. 

199^ 

006754 

052767 

010000 

000006G 

BIT 

#LS.CX0,LR.STS+6+ 

$BFR 

1995 

006762 

001402 

BEQ 

161$ 

1996 

006764 

000167 

000476 

JMP 

110$ 

1997 

006770 

052767 

010000 

000006G 

161$: 

BIS 

*LS.CX0,LR.STSt6t 

$BFR 

1998 

006776 

PUTRC 

1999 

G07002 

CALL 

$DEA16 

2000 

007006 

000461 

BR 

25$ 

2001 

007010 

010067 

000012G 

17$: 

MOV 

R0,T.RCVL+$BFR 

2002 

007014 

010067 

000014G 

MOV 

R0,T.RCVLt2+$BFR 

2003 

007020 

PUTRC 

200A 

2005 

007024 

005067 

OOOOOOG 

CLR 

$8FR 

2006 

007050 

012767 

151574 

000002G 

MOV 

#-R...,$BFR+2 

2007 

007056 

012767 

105700 

000004G 

MOV 

**RVNP,$BFR+4 

2008 

007044 

012767 

010001 

000006G 

MOV 

#LS.CEXILS.CXO,LP 

.STS+6 

2009 

007052 

042767 

020000 

000006G 

BIC 

#LS.UNF,LR.STS+6-i 

$BFR 

2010 

007060 

052767 

OOOOOOG 

OOOOOOG 

BIT 

#VF.FIX,$VFLAG 

2011 

007066 

001005 

BNE 

20$ 

2012 

007070 

052767 

020000 

000006G 

BIS 

*LS.UNF,LR.STS+6i 

$BFR 

2013 

007076 

016767 

OOOOOOG 

000040G 

20$: 

MOV 

..CO0,$BFR+52. 
#401  jBFRt34. 

20U 

007104 

012767 

000401 

000042G 

MOV 

2015 

007112 

PUTRC 

RO.RI 

2016 

007126 

012704 

000001 

MOV 

#TICKS,R4 

2017 

007152 

CALL 

RUN 

2018 

007156 

105002 

BCC 

24$ 

2019 

007140 

000167 

000206 

JMP 

104$ 

2020 
2021 
2022 

007144 

24$: 

SUTCHO 

007152 

25$: 

CALL 

ALPL8 

2023 

007156 

103465 

BCS 

46$ 

202A 

007160 

052767 

OOOOOOG 

OOOOOOG 

BIS 

#VF.ACP,$VFLAG 

2025 

2026 
2027 
?028 

;  STORE 

BIAS  OF 

AVAILABLE  TEMPORARY  STO 

2029 
2030 
2031 

;  NTINIT  TO  USE 

FOR  MANIPULATING 

HOST  A 

007166 

032767 

OOOOOOG 

OOOOOOG 

^5$: 

BIT 

#VF.SS,$VFLAG 

2032 

007174 

001461 

BEQ 

100$ 

2033 

007176 

016767 

OOOOOOG 

OOOOOOG 

MOV 

$RD8LH,$BFR 

2034 

007204 

016767 

000002G 

000002G 

MOV 

$RD8LH+2,$BFR+2 
#140070, tBFR+2 

2035 

007212 

022767 

140070 

000002G 

47$: 

CMP 

2036 

007220 

002015 

BGE 

48$ 

2037 

007222 

016704 

000002G 

MOV 

$BFR+2,R4 

2058 

007226 

016767 

OOOOOOG 

OOOOOOG 

MOV 

$BFR,$RBLCK 

2039 

2040 

007254 

GETAD 

R4.#4 
47i 

2041 

007252 

000757 

BR 

IF  YES  -  BRANCH 

IF  EQ,  NO  -  MUST  BE  DISMOUNT 

GET  I/O  PACKET 

BR  IF  SUCCESS 

ELSE  NODE  POOL  EMPTY 

REREAD  TCB 

ANY  PACKETS  QUEUED  ? 

BR  IF  NO 

READ  IN  PACKET 

IS  SET  EXE  STATE  ON  ALREADY  QUEUED? 

BR  IF  NO 

ELSE  NOTHING  TO  DO 

ELSE  SET  SET  EXE  STATE  ON  ALSO 

REWRITE  PACKET 

DEALLOCATE  PACKET 

AND  CONTINUE 

POINT  LISHEAD  AT  FIRST  PACKET 

REWRITE  NTINIT  TCB  ADDRESS 

CLEAR  LINK  WORD  IN  PACKET 
LOAD  RAD50  NAME 
...VNP 
iBFR  ;  '  SET  STA  LOC  ON'  ->  'SET  CEX' 
ASSUME  NTINIT  IS  TO  REMAIN  FIXED 
IS  NTINIT  TO  REMAIN  FIXED  ? 
YES 

SET  FLAG  THAT  UNFIXES  NTINIT 
ERRORS  GO  TO  COO: 
C1,1] 

REWRITE  NODE  TO  POOL 
NUMBER  OF  TICKS 
RUN  NTINIT 
IF  SUCCESS  -  BRANCH 
NO  NODES  IN  POOL 
POINT  BACK  AT  DEFAULT  BUFFER 

ALLOCATE  PLB  DATA  BASE 

IF  CS,  FAILED  TO  ALLOCATE  PLB'S 

INDICATE  SUCCESS 


IS  THIS  AN  IIS  SYSTEM? 

BR  IF  NO 

GET  BIAS  FOR  RDB'S 

GET  VIRTUAL  OFFSET 

CHECK  FOR  AVAILABLE  SPACE 

IF  O.K.  -  BRANCH 

GET  VIRTUAL  OFFSET 

GET  APR  BIAS 

READ  4  POINTER  BYTES  OF  NEXT  RDB 
CONTINUE 
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2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
260A 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
261A 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 


012312     0^2767     177700     GOOOOOG 


012320 
012326 
012330 

01233'!, 
012342 
01234^; 
012350 
012552 
012356 
012362 

01236^. 
012370 

012374 
012400 
012402 
012404 
012406 
012410 
012412 

012414 
012420 


022767  000016  OOOOOOG 
001402 


032767  000010  000014G  5$: 

001741 

116746  000034G 

000316 

116716  OOOOOOG 

026726  000020G 

001331 

012702  000004G 

012703  000030G 


012746  000004 

011213 

005123 

005022 

005316 

001373 

005726 


000712 


10$: 


BIC 

CMP 
BEQ 
GETAD 

BIT 

BEQ 

M0V8 

SWA8 

M0V8 

CMP 

BNE 

MOV 
MOV 

MOV 
MOV 
COM 
CLR 
DEC 
BNE 
TST 

PUTAD 
BR 


#*C<Ff  .MSIC>,$RSIZE 


#f  .LEN,$RS!ZE 
5$ 


IS  IT  THE  CORRECT  LENGTH 

IF  VES  -  BRANCH 

IF  NO  -  READ  ENTIRE  FILTER  BLOCK 


#FF.LIN,F.FLGt$BFR  ;  IS  THIS  BLOCK  SPECIFIED  BV  LINE 

1$  ;  IF  NO  BRANCH 

LO.TRB+ROB,-(SP)  ;  COPY  TRIB  NUMBER 

(SP)  ;  FLIP  BYTES 

$SLN,(SP)       ;  COPY  SYSTEM  LINE  NUMBER 

F.LIN+$BFR,(SP)+  ;  MATCH  ON  LINE  7 

1$ 


#F.EVT*-$BFR,R2 
#F.CEV+$BFR,R3 

*4,-(SP) 
(rJ),(R3) 
(R3)  + 
(R2)  + 
(SP) 
10$ 
(SP)  + 


1$ 


GET  ADDRESS  OF  EVENT  MASK 
GET  CLEAR  EVENT  MASK  ADDRESS 

MOVE  FOUR  WORDS 

SET  UP  CLEAR  MASK 

COMPLEMENT  MASK 

CLE  KNO  EVE 

COUNT  ONE  MORE  MASK  SETUP 

IF  MORE  -  BRANCH 

CLEAN  STACK 

UPDATE  FILTER  BLOCK 
CONTINUE 
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3109 

3110 

3111 

3112 

3113 

31U 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

5122 

3123 

31 2A 

3125 

3126 

3127 

3128 

3129 

3130 

5131 

3152 

5133 

3154 

5155 

5136 

5157 

5158 

5139 

51A0 

5141 

3142 

5145 

5144 

5145 

3146 

3147 

5148 

5149 

5150 

3151 

5152 

5155 


014240 
014242 
014246 
014254 
014256 
014262 
014264 
014270 
014272 
014274 
014500 
014506 
014510 
014514 
014516 
014520 
014354 
014540 


014564 
014572 
014576 
014404 
014406 
014414 
014416 
014420 


.SBTTL      CHFIL    -   CHANGE   EVENT   FILTERS 

CHFIL   -   CHANGE   EVENT   FILTERS 

INPUTS: 

RQ8  -  REQUEST  BLOCK  FOR  SET/CLEAR  LOGGING  COMMAND 

OUTPUTS: 

THE   EVENT   FILTERS   ARE   UPDATED 
R5    IS  PRESERVED 


010546 

052767 
001411 
012705 
005005 
040367 
012505 
001451 
050567 
052767 
001426 
012704 
012402 
002455 

010267 
012701 
000004 


CHFIL: 
000004  OOOOOOG 
000250' 
000120'       20$: 


000120' 

001000     OOOOOOG   50$: 


000000' 


000002G 
000004G 


40$: 


016767     000002G  000074'    50$: 

052767     001000     OOOOOOG 

001345 

052767  000004  OOOOOOG  60$: 

001523 

012605  70$: 


MOV  R5,-(SP) 

CALL  STQUAL 

BIT  #QF$KN0,$QUAL 

BEQ  50$ 

MOV  #SNKTyP,R5 

CLR  R5 

BIC  R5,EVQUAL 

MOV  (R5;+,R5 

BEQ  70$ 

BIS  R5,EVQUAL 

BIT  *0P$KEV,$0PT0N 

BEQ  50$ 

MOV  REVIVAL, R4 

MOV  (R4)+,R2 

BLT  60$ 

ASL$  6,R2 

MOV  R2,RQB*L0.CLS 

MOV  #RQ8tL0.EVT,R1 

.REPT  4 

MOV  (R4)+,(R1) 

COM  (R1)+ 

.ENDR 

MOV  RQB+LO.CLS, CLASS 

CALL  FILPRO 

BIT  #OP$KEV,$OPTON 

8NE  40$ 

BIT  #QF$KNO,$QUAL 

BNE  20$ 

MOV  (SP)t,R5 

RETURN 


SAVE  R5 

SET  UP  QUALIFIER  FLAGS  WORD 

IS  THIS  FOR  KNOWN  LOGGING? 

BR  IF  NO 

POINT  TO  SINK  TYPE  TABLE 

NO  BITS  TO  CLEAR 

CLEAR  BIT  FOR  PROCESSED  SINK  TYPE 

GET  NEXT  SINK  TYPE  BIT 

BR  IF  END  OF  TABLE 

SET  SINK  TYPE  FLAG  TO  OPERATE  ON 

IS  THIS  FOR  KNOWN  EVENTS? 

BR  IF  NO 

POINT  TO  EVENT  VALIDITY  TABLE 

STORE  EVENT  CLASS 

BR  IF  END  OF  TABLE 

MOVE  EVENT  CL^SS  TO  BITS  6-15 

STORE  EVENT  CLASS 

POINT  TO  EVENT  MASKS 

STORE  EVENT  MASKS 

TABLE  IS  COMPLEMENT  OF  VALID  MASKS 

SAVE  EVENT  CLASS 

PROCESS  FILTER  MASKS 

IS  THIS  FOR  KNOWN  EVENTS? 

BR  IF  YES 

IS  THIS  FOR  KNOWN  LOGGING? 

BR  IF  YES 

RESTORE  R5 
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VDr,   -  VNP   SHOW  COMMANDS 
$D'<OD  -   SHOW  NODE 

U16 
U17 
H18 
K19 
1420 
U21 
K22 
K23 
U24 
K25 
1426 
1427 
1428 
1429 
1430 
1431 
1432 

1433  007426 

1434  007426 

1435  007432  103004 

1436  007434 

1437  0074A4  012701 
1438 

1439  007450 

1440  007470  012703 
U41  007474  012705 

1442  007500  005767 

1443  007504  001535 

1444  007506  005713 

1445  007510  001002 

1446  007512  000167 

1447  007516  022767 

1448  007524  001002 

1449  007526  000167 
1450 
1451 
1452 

1453  007532  012700 

1454  007536  112021 

1455  007540  001376 

1456  007542 
1457 

14.;8 

1459 

1460  007552 

1461  007  56  016701 

1462  007562  042767 

1463  007570  042701 
1464 

1465        000012 
1466 
1467 

1468  007620  010167 
1469 

1470  007624 
1471 
'472 


J  1 

MACRO  V05.03b  Monday  15-Jul-85  12:14  Page  26 


.SBTTL  SDNOD  -  SHOW  NODE 

SDNOD  -  SHOW  KNOWN  NODES 

SHOW  LOOP  NODES 

SHOW  NODE  X 

SHOW  EXECUTOR 

INPUTS:  NONE 

OUTPUTS:  THE  NODE  INFORMATION  IS  DISPLAYED  ON  THE  USER'S  TERMINAL 

ALL  REGISTERS  ARE  DESTROYED 


SDNOD:: 


CALL 

CKTYPE 

BCC 

10$ 

ERRPTS 

3YNERR,$ER0UT 

001062' 

10S: 

MOV 

#TEMP2,R1 

GETRV 

SDECPT,#DSEND 

000004 G 

MOV 

#$BFR+D$RNN+2,R3 

000014 

MOV 

#R.LEN,R5 

OOOOOOG 

TST 

$QUAL 

BEQ 

130$ 

TST 

(R3) 

g... 

20$ 

002306 

JMP 

520$ 

000010 

OOOOOOG  20$: 

CMP 

#QF$LOO,$QUAL 

BNE 

30$ 

002146 

JMP 

450$ 

;  SHOW 

KNOWN  NODES 

000362' 

^0$: 

MOV 

#NKNOWN,RO 

40$: 

MOVS 

(R0)  +  ,(R1)*- 

BNE     40$ 

ERRPT$  NMSGI.MSGOUT 

DISPLAY  EXECUTOH  ADDRESS  AND  NAME 


171252 

OOOOOOG   171244 
OOOOOOC 


171732 


CALL 
MOV 
BIC 
BIC 

.REPT 
ASR 

.ENDM 
MOV 


GTEXEC 
TEMPI, Rl 
#ARAMSK, TEMPI 
#*CARAMSK,R1 

10. 

Rl 


R1,TEMP7 
ERRPTS  NMS2A,MSG0UT 


GET  COMMAND  TYPE 

BR  IF  SUCCESS 

ELSE  SYNTAX  ERROR 

POINT  TO  STORAGE  FOR  HEADER 

READ  DECNET  HOME  BLOCK 

STORE  REMOTE  LISTHEAD 

GET  LENGTH  OF  REMOTE  NODE  BLOCK 

SHOW  SPECIFIC  NODE? 

Dp  jc  ypc 

ANY  NODES  IN  SYSTEM? 

BR  IF  YES 

ELSE   FINISHED 

SHOW  LOOP    iODES? 

BR    'F    NO 

EL5L  SHC  ..OOP  NODES 


MUST  BE  SHOW  KNOWN  NODES 
STORE  THE  STRING 


DISPLAY  THE  HEADER 


GET  EXECUTOR  ADDRESS  ,AND  NAME 
COPY  EXECUTOR  ADDRESS 
STRIP  AREA  BITS 
GET  AREA  NUMBER 


CONVERT  TO  AREA 
STORE  AREA  FOR  OUTPUT 
PRINT  EXECUTOR  NODE. ADDRESS 
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VDIS  -  VNP  SHOW  COMMANDS 
SDCIR  -  SHOW  CIRCUIIT 

2155 

2136  015126 

2137  01515A 
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ERMSGS  <   CIRCUIT  NOT  IN  SySTEM> 
ER8LK$  CIERR1 
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DMDTE  -  SHOW  MODULE  X25-PROTOCOL  DIES 

2676  ;  MESSAGES 

2678  020766  '      ERMSGS  <  DTE  =  XA> 

2679  020777  ERBLKS  DTMS1 ,<TEMP1> 

Tib  A 

2681  021004  ERMSGS  <    State  =  i!A,  Maximum  channels  =  XD,  Line  =  5:A3!N> 

2682  021066  ERBLKS  DTMS2,<TEMP1 ,TEMP2, TEMP3> 

p£  07 

2684  021100  ERMSGS  <  DTE  not  in  system> 

2685  021 '22  ERBLKS  DTMS3 
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VOIS  -  VNP  SHOW  COMMANDS 
CKTYPE  -  CHECK  TYPE 

3197 

5198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

32U 

3215 

3215  02A530  012700 

5217  024534  022767 

3218  02A542  001415 

3219 

3220  024544  012700 

3221  024550  005767 

3222  024554  001410 
5223  024556  012700 

3224  024562  022767 

3225  024570  001402 
5226  024572  000261 

3227  024574  000410 

3228  024576 
5229  024604  012701 

3230  024610  112021 

3231  024612  001376 
i232  024614  000241 
3233  024616 
5234 
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.SBTTL  CKTYPE  -  CHECK  TYPE 

CKTYPE  -  GET  THE  TYPE  Of  COMMAND  AND  STORE  IT  IN  THE  DISPLAY  STRING 

INPUTS:  NONE 

OUTPUTS: 

CARRY  CLEAR: 

TEMPI  CONTAINS  THE  COMMAND  TYPE  STRING 
CARRY  SET: 

SYNTAX  ERROR 

RO,  Rl  DESTROYED 


000000'        CKTYP1 
001000  OOOOOOG 


.ENABL  LS8 

MOV  #EVENT,RO 

CMP  #TY$EVE,$TYPE 

BED  10$ 


000007' 
OOOOOOG 

000017' 
000400 


CKTYPE: 


OOOOOOG 


001034' 


10$: 
20$: 


30$: 


MOV 

#SUMARv,RO 

TST 

$TYPE 

BEQ 

10$ 

MOV 

#CHARAC,RO 

CMP 

#TY$CHA,$TYPE 

BEQ 

10$ 

SEC 

BR 

30$ 

DIR$ 

#TIATT 

MOV 

#TEMP1,R1 

MOVB 

(R0H,(R1)  + 

BNE 

20$ 

CLC 

RETURN 

.DSABL 

LSB 

ASSUME  EVENTS  TO  BE  DISPLAYED 
DISPLAY  EVENTS? 
BR  IF  YES 

ASSUME  SUMMARY  TO  BE  DISPLAYED 

DISPLAY  SUMMARY? 

BR  IF  YES 

ASSUME  CHARACTERISTICS  TO  BE  DISPLAYED 

DISPLAY  CHARACTERISICS? 

BR  IF  YES 

ELSE  SYNTAX  ERROR 

AND  EXIT 

ATTACH  TERMINAL 

GET  ADDRESS  OF  STRING  TO  BE  DISPLAYED 

STORE  IT 
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VDIS  -  VNP  SHOW  COMMANDS 

DISNOD  -  DISPLAY  NODE  INFORMATION 
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373A 

.SBTTL 

DISNOD  -  DISPLAY  NODE  INF 

ORMATION 

3735 

3736 
3737 
3738 

+ 

DISNOD  -  DISPLAY  NODE  INFORMATION 

3739 

37^0 

INPUTS: 

3741 

R3  =  POINTER  TO  REMOTE  NODE  BLOCK 

3742 

R4  =  0 

IF  HEADER  IS  TO  BE  PRINTEC 

ALONG  WITH  NODE  INFORMATION 

3743 
3744 
3745 

ELSE,  ONLY  NODE  INFORMATION 

IS  PRINTED 

OUTPUTS: 

3746 
3747 
3748 

NODE  INFORMATION  IS  DISPLAYED  ON 

USER'S  TERMINAL 

ALL  REGISTERS  ARE  PRESERVED 

3749 

3750 
3751 
3752  026726 

- 

)ISNOD: 

SAVRG 

<R1,R2> 

SAVE  R1 

3753  026732 

005704 

TST 

R4 

DISPLAY  HEADER? 

3754  026734 

001006 

8NE 

10$ 

BR  IF  NO 

3755  026736 

012701 

001034' 

MOV 

#TEMP1,R1 

STORAGE  FOR  COLUMN  HEADER  STRING 

3756  026742 

3757 

3758 

3759 

3760  026752 

ERRPT$ 

DNMSGI.MSGOUT 

DISPLAY  COLUMN  HEADER 

;  DISPLAY  NODE 

INFORMATION 

016367 

000010 

152222 

10$: 

MOV 

R.ADD(R3),TEMP3 

SAVE  NODE  ADDRESS 

3761  026760 

012701 

001034' 

MOV 

#TEMP1,R1 

STORAGE  FOR  NODE  NAME 

3762  026764 

016321 

000002 

MOV 

R.NAM(R3),(R1)+ 
R.NAM+2(R3),(R1)+ 

STORE  THE  NAME 

3763  026770 

016321 

000004 

MOV 

3764  026774 

016321 

000006 

MOV 

R.NAM+4(R3),(R1)+ 

.  >  • 

3765  027000 

122741 

000040 

20$: 

CMPS 

#SPACE,-(R1) 

STRIP  OFF  TRAILING  BLANKS 

3766  027004 

001775 

BEQ 

20$ 

3767  027006 

3768 

3769  027014 

112761 

OOOOOO 

000001 

MOVB 

tfO.KRl) 

CREATE  ASCIZ  STRING 

016367 

000010 

152532 

MOV 

R.ADD(R3),TEMP6 

GET  NODE  ADDRESS 

3770  027022 

042767 

OOOOOOG 

152152 

BIC 

#ARAMSK,TEMP3 

MASK  OUT  AREA  BITS 

3771  027030 

042767 

OOOOOOC 

152516 

BIC 

*"CARAMSK,TEMP6 

MASK  OUT  NODE  ADDRESS  BITS 

3772  027036 

000241 

CLC 

CLEAR  C-8IT  FOR  DIVIDE 

3773 

3774 

000012 

.REPT 

10. 

5('75 

ROR 

TEMP6 

DIVIDE  BY  1024. 

3776 
3777 
3778  027110 

.ENDM 

022767 

000012 

152436 

30$: 

CMP 

#10.,TEMP6 

TWO  DIGITS  ? 

3779  027116 

3780 

3781  027120 

003440 

BLE 

70$ 

IF  YES  -  BRANCH 

026727 

152056 

000012 

CMP 

TEMP3,*10. 

•  IS  ADDRESS  ONE  DIGIT 

3782  027126 

002005 

BGE 

40$ 

IF  NO  -  BRANCH 

3783  027130 

ERRPT$ 

DNMSG8,MSG0UT 

PRINT  AREA. ADDRESS 

3784  0271 AO 

3785 

3786  027142 

000466 

BR 

110$ 

CONTINUE 

026727 

152034 

000144 

40$: 

CMP 

TEMP3,#100. 

■  IS  ADDRESS  TWO  DIGITS 

3787  027150 

002005 

BGE 

50$ 

;  IF  NO  -  BRANCH 

3788  027152 

ERRPT$ 

DNMSG9,MSG0UT 

•  PRINT  AREA. ADDRESS 

3789  027162 

000455 

BR 

110$ 

;  CONTINUE 

3790 
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DISPVC  -  DISPLAY  PVC  CIRCUIT  INFORMATION 

4375  ;[:tD001] 
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VDIS  -  VNP  SHOW  COMMANDS 
FNDUCB  -  GET  UCB  OF  NS:  DEVICE 


4831 
4832 
4833 
483A 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 

4847  035212  016767 

4848  035220  016767 

4849  035226  001422 

4850  035230 

4851  035242  026727 

4852  035250  001363 

4853  035252 

4854  035272  000401 

4855  035274  000261 

4856  035276 
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.SBTTL      FNDUCB  -  GET   UCB  OF    NS;    DEVICE 

FNDUCB  -   GET   UCB  OF    NS;    DEVICE 

INPUTS; 

NONE 

OUTPUTS:  ,  ^ 

CARRY  CLEAR  -  $BFR  CONTAINS  UCB  OF  NS:  DEVICE 

CARRY  SET  -  NS:  DEVICE  NOT  IN  SYSTEM 


OOOOOOG  OOOOOOG  FNDUCB; 
OOOOOOG  OOOOOOG  10$: 


000004G  051516 


20$: 


30$: 
40$: 


MOV 

MOV 

BEQ 

GETRV 

CMP 

BNE 

GETRV 

BR 

SEC 

RETURN 


$DEVHD,$BFR 

$8FR,$RADDR 

30$ 

,*D.LEN 

$BFR+D.NAM,#"NS 

10$ 

$8FR+D.UCB,#U.LEN 

40$ 


GET  DEVICE  TABLE  LISTHEAD 

GET  NEXT  DCS  IN  LIST 

BR  IF  NOT  END  OF  LIST 

READ  IN  DCB 

IS  THIS  THE  NS:  DEVICE? 

BR  IF  NO 

READ  IN  THE  NS:  UCB 

FINISHED 

NS;  DEVICE  NOT  IN  SYSTEM 
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VDIS      CREATED  BV  MACRO  ON  15-JUL-85  AT  12:17 
SYMBOL  CROSS  REFERENCE 
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CREF   0^.00 


SYMBOL  VALUE 


CHSG7 

CMSG8 

CM5G9 

COMMA 

CSPEC 

CUNDEC 

CVTDEV 

CVTHEX 

CSGNAM 

CSLCN 

C$LEN 

CSNAM 

CSNML 

DASH 

DEFAUL 

DF.CRC 

DF.FOC 

DF.RAN 

DF.UNK 

DISABL 

DISALI 

DISCIR 

d:slin 

DISLQO 

DISNOD 

DISOBJ 

DISPRO 

DISPVC 

DLOEVT 

DLONAM 

DLOSNK 

DLOSTA 

DLOTYP 

DMDST 

DMDTE 

DMGRP 

DMXAC 

DMXACD 

DMXACN 

DMXPR 

DMX5S 

DMX9S 

DNMSGl 

DNMSG2 

DNMSG3 

DNMSG4 

DNMSG5 

DNMSG6 

0NMSG7 

DNMSG8 

DNMSG9 

DNMS10 


032432  R 
032506  R 
032546  R 
00005A 
000557  R 
035300  R 
00521A  R 
001575  R 
000016 
000010 
000016 
000002 
000002 
000055 
000110  R 
000010 
000020 
000040 
000100 
000507  R 
025666  R 
0300A2  R 
033074  R 
027630  R 
026726  R 
025144  R 
026516 
032602 
005700 
004756 
005360 
004716 
004600 
022342 
020520 
021226 
015724 
015760  ., 
016562  R 
017354  R 
021762  R 
024226  R 
027352  R 
027366  R 
027406  R 
027432  R 
027456  R 
027502  R 
027524  R 
027552 
027576 


027620  R 


REFERENCES 

53-4127 
53-4093 
53-4095 

#7-300 

#6-210 
37-2756 
15-895 

#6-259 
27-2008 
54-4354 
27-1951 
27-2012 
27-2009 

#7-301 

#6-137 

#5-88 

#5-88 

#5-88 

#5-88 

#6-203 
10-481 
27-1976 
28-2180 
26-1511 
26-1491 
9-402 
11-593 
27-1957 
12-742 
12-718 
17-991 
12-714 
12-709 
39-2857 
34-2534 
34-2539 
29-2286 
30-2310 
30-2313 
29-2287 
29-2288 
29-2289 
51-3756 

#51-3828 
51-3811 
51-3793 
51-3806 
51-3801 
51-3814 
51-5783 
51-3788 
51-3796 


#53-4299 
#53-4302 
#53-4305 

19-1150 

27-1991 
#63-4871 

15-899 

6-260 

54-4346 

27-2007 
54-4343 
54-4347 
19-1158 
48-3496 


53-4179 

10-510 

27-1985 

28-2210 

26-1560 

26-1562 

9-419 

11-609 

27-2016 

#19-1088 

#15-882 

17-996 

#14-857 

#13-820 

#40-2925 

#35-2633 

#37-2739 

#30-2305 

#31-2326 

#33-2425 

#34-2526 

#39-2849 

#42-3166 

#51-3825 

#51-3831 
#51-3834 
#51-3837 
#51-3840 
#51-3843 
#51-3846 
#51-3849 
#51-3852 


#16-950 
65-4976 


27-2011 


19-1160 


10-530 
27-2064 
28-2224 
26-1798 
#51-3752 
#48-3452 
11-621 
27-2099 


#18-1015 


42-3176 


65-4979 


27-2093 


21-1240 


#49-3555 

27-2073 

#55-4395 

#52-3875 


#50-3693 
#54-4333 


21-1249    56-4583 


56-4593 


57-4635 


57-4645 


27-2112 


27-2121   #53-3949 
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SYMBOL  CROSS  REFERENCE 
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CREf   OA.OO 


SYMBOL  VALUE 


S.DLCF 

S.ERR 

S.FLG 

S.LBE 

S.LEN 

S.LGTH 

S.LIN 

S.LINK 

S.LSA 

S.NMST 

S.OWNR 

S.PSA 

S.RBE 

S.RCB 

S.RCV 

S.RDE 

S.RTY 

S.STA 

S.STLN 

S.STPN 

S.TLZ 

S.TMO 

S.XDE 

S.XID 

S.XMB 

S.XMP 

TEMPI 


TEMP2 


000102 
000010 
000000 
000044 
000004 
=  000050 
000004 
177776 
000005 
000002 
000003 
000003 
000042 
000020 
000014 
000034 
000001 
000000 
000035 
000034 
000012 
000040 
000036 
000002 
000030 
000024 
001034  R 


001062  R 


REFERENCES 


53-4025 

#5-88 

#5-96 

27-1974 

53-4150 

53-4177 

53-4192 

55-4511 

#5-88 

#5-96 

27-1978 

27-2051 

27-2067 

27-2115 

#5-88 

53-4053 

#5-88 

#5-88 

5-88 

#5-88 

53-4056 

#5-96 

53-4112 

#5-96 

53-4245 

#5-88 

53-4060 

#5-88 

#5-88 

#5-88 

#5-88 

#5-88 

#5-88 

53-4027 

53-4029 

#5-88 

#5-88 

#5-88 

#5-88 

#5-83 

#5-88 

#6-249 

7-314 

8-353 

12-761 

12-764 

12-767 

12-770 

12-773 

12-777 

12-786 

13-836 

14-857 

18-1037 

♦18-1048 

♦18-1050 

25-1400 

♦25-1401 

25-1404 

25-1409 

26-1461 

♦26-1462 

26-1585 

♦26-1586 

♦26-1625 

♦26-1631 

♦26-1665 

♦26-1666 

♦26-1667 

♦26-1690 

26-1831 

26-1834 

26-1837 

26-1840 

26-1846 

26-1849 

26-1853 

26-1857 

26-1878 

26-1881 

26-1897 

29-2281 

31-2335 

31-2346 

31-2376 

31-2379 

31-2382 

33-2443 

33-2451 

33-2460 

33-2471 

33-2493 

1^-?^^^ 

33-2499 

33-2505 

34-2554 

34-2558 

♦34-2576 

♦34-2583 

♦34-2584 

♦34-2591 

♦34-2592 

34-2608 

34-2611 

34-2614 

34-2617 

35-2640 

35-2648 

35-2679 

35-2682 

37-2745 

37-2748 

37-2770 

37-2788 

37-2791 

♦39-2895 

39-2907 

40-2930 

40-2946 

40-2962 

40-2973 

♦40-2979 

*40-2980 

♦40-2997 

♦40-2998 

40-3013 

40-3022 

40-3042 

♦40-3050 

40-3071 

40-3074 

40-3077 

40-3080 

40-3083 

40-3086 

40-3089 

40-3092 

40-3095 

40-3101 

40-3104 

40-3110 

♦42-3181 

42-3195 

43-3229 

♦48-3458 

48-3468 

48-3492 

48-3513 

48-3516 

48-3519 

48-3522 

48-3526 

48-3529 

49-3561 

♦49-3572 

♦49-3586 

49-3643 

49-3658 

49-3661 

49-3667 

50-3724 

51-3755 

51-3761 

51-3828 

51-3831 

51-3834 

51-3837 

51-3840 

51-3843 

51-3846 

51-3849 

51-3852 

52-3881 

52-3920 

♦53-3974 

53-4133 

♦53-4269 

53-4284 

53-4290 

53-4293 

53-4296 

53-4302 

53-4305 

53-4309 

♦54-4354 

54-4363 

54-4372 

♦55-4477 

55-4498 

55-4530 

55-4539 

55-4542 

♦58-4683 

59-4713 

#6-250 

9-386 

10-458 

11-576 

12-685 

12-761 

12-767 

12-770 

12-773 

12-777 

12-780 

12-789 

15-882 

18-1016 

♦18-1046 

19-1092 

26-1437 

26-1480 

26-1510 

♦26-1604 

26-1618 

♦26-1692 

♦26-1714 

♦26-1716 

♦26-1717 

♦26-1743 

♦26-1744 

26-1773 

26-1831 

26-1834 

26-1837 

26-1840 

26-1846 

26-1849 

26-1857 

26-1875 

26-1887 

26-1891 

27-1928 

28-2160 

29-2268 

29-2281 

31-2350 

31-2351 

♦34-2571 

♦34-2577 

♦34-2578 

♦34-2585 

♦34-2586 

♦34-2593 

♦34-2594 

34-2608 

34-2611 

34-2614 

34-2617 

♦35-2664 

35-2682 

♦37-2757 

37-2760 

37-2791 

59-2861 

39-2907 

♦40-2981 

40-2983 

♦40-2999 

♦40-3003 

♦40-3004 

40-3016 

♦40-3055 

40-3074 

40-3074 

40-3077 

40-3080 

40-3083 

40-3095 

♦42-3182 

42-3195 

♦48-3463 

♦48-3464 

•48-3488 

48-3513 
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VENA  -  VNP  ENAQlE/DISABLE  LINES  MACRO  V05.03b  Wednesday  11-Sep-85  12:06 

Table  ot  contents 

5-  53  MACRO  CALLS 

6-  113  LOCAL  DATA 

7-  171  DISPATCH  TABLES 

8-  199  LOCAL  SYMBOL  DEFINITIONS 

9-  213  ERROR  MESSAGES 

11-  378  SVENA  -  ENABLE/DISABLE  LINE 

12-  525  SER8IT  -  SET/CLE  CIRCUIT  SERVICE  BIT 

13-  575  $VTAD  -  SET  TRIBUTARY  STATION  ADDRESS 
1A-  617  SVACT  -  SET  ACTIVE  POLLING  RATE 

15-  649  SVDEA  -  SET  DEAD  POLLING  RATE 

16-  681  SVOUN  -  SET  LINE  OWNER 

17-  758  SVCOST  -  SET  LINE  COST 

18-  805  FNDFR  -  FIND  A  FREE  CHANNEL 

19-  845  FNPID  -  FIND  A  PROCESS  PDV  INDEX 

20-  880  FNDLIN  -  FIND  THE  DDCMP  LINE  TABLE  FOR  A  LINE 

20-  881  FNDTRI  -  FIND  THE  TRIBUTARY  TABLE  FOR  A  LINE 

21-  944  FNDPCL  -  FIND  THE  PCL  TRIBUTARY  TABLE  FOR  A  LINE 

22-  998  FNDDMP  -  FIND  THE  DMP  TRIBUTARY  ^ASLE  FOR  A  LINE 

23-  1051  ENALIN  -  ENABLE  A  LINE 

24-  1084  DSBLIN  -  DISABLE  A  LINE 

26-  1251  CHKEXE  -  CHECK  IF  EXECUTOR  NODE 

27-  1366  SVLIN  -  SET  LOOPBACK  NODE  BLOCK 

28-  1471  SVREM  -  SET  REMOTE  NODE  BLOCK 

29-  1598  FIND  PLACE  TO  INSERT  OBJECT  BLOCK 
50-  1627  FIND  PLACE  FOR  A  REMOTE  NODE  BLOCK 

31-  1658  QUICK  -  FAST  REMOTE  NODE  PROCESSING 

32-  1691  QINS  -  INSERT  ENTRY  INTO  QUEUE 

33-  1724  CLRBIT  -  CLEAR  LOOPBACK  BIT 

34-  1752  SETBIT  -  SET  LOOPBACK  BIT 

35-  1780  GTSLT  -  FIND  SLT  ADDRESS  AND  STATION  NUMBER 

36-  1816  SRPASW  -  SET/CLEAR  RECEIVE  PASSWORD 

37-  1856  STPASW  -  SET/CLEAR  TRANSMIT  PASSWORD 

38-  1894  SVERIF  -  SET  VERIFICATION  STATE 

39-  1928  $VACP  -  MOUNT/DISMOUNT  THE  ACP 

40-  2073  SSMOD  -  MOUNT/DISMOUNT  THE  X25ACP 

41-  2183  SVOBJ  -  SET/CLEAR  OBJECT  BLOCK 

42-  2287  $VALI  -  SET/CLEAR  ALIAS 

43-  2452  VALI  -  REMOVE  ALL  OR  KNOWN  ALIASES 

44-  2477  $VLOG  -  PROCESS  LOGGING  REQUEST 

45-  2538  CKEVE  -  CHECK  FOR  VALID  EVENT  PARAMETER 

46-  2624  PROEVT  -  PROCESS  EVENT  MASK  FROM  REQUEST  BLOCK 

47-  2666  CKNAME  -  CHECK  FOR  VALID  SINK  NAiME 

48-  2715  CKMON  -  CHECK  MONITOR  SINK  NAML 

49-  2752  CKCON  -  CHECK  CONSOLE  NAME  FOR  VALIDITY 

50-  2784  CKFIL  -  CHECK  FILE  SINK  NAME 

51-  2922  GETLEN  -  GET  LENGTH  OF  SINK  NAME  STRING 

52-  2955    CKMDEV  -  CHECK  FOR  VALID  RSX11M  DEVICE  NAME 

53-  3003    CKSINK  -  CHECK  VALIDITY  OF  SINK  NODE  ID 

54-  50iA    CKNODE  -  CHECK  VALIDITY  OF  NODE  ENTITY  ID 

55-  3075    CHSTA  -  CHANGE  LOGGING  STATE 

56-  3109    CHFIL  -  CHANGE  EVENT  FILTERS 

57-  3155    FILPRO  -  PROCESS  FILTER  MASKS 

58-  3230    CHNAM  -  CHANGE  LOGGING  SINK  NAME 

59-  3291    SETFIL  -  CREATE  FILTER  BLOCK 

60-  3355    FINFLT  -  FIND  PLACE  TO  INSERT  FILTER  BLOCK 

61-  3406    FNDFIL  -  FIND  FILTER  BLOCK 

62-  3462    FILOPR  -  OPERATE  ON  FILTER  CONTROL  BLOCK 
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435  000^.36 
A36  0004A0 
A37  000444 
438 

439  000446 

440  000452 

441  000456 

442  000460 

443  000500 

444  000506 

445  000510 
446 

447  000514 

448  000520 

449  000526 
450 

451  000530 

452  000536 
453 

454  000540 

455  000546 

456  000550 

457  000552 
458 

459  000554 

460  000560 

461  000562 

462  000566 

463  000570 

464  000572 

465  000574 

466  000576 

467  000600 

468  000604 
469 

470  000610 

471  000616 
472 

473 

474  000620 

475  00';626 
476 

477 
478 

479  000630 

480  000636 
481 

482  000640 

483  000644 

484  000646 

485  000654 

486  000656 

487  000660 

488  000666 

489  000670 

490  000674 
491 


062600 
121067 
001162 

012700 

103563 

132767 
001147 
012705 

016701 
032767 
001004 

032761 
001537 

032761 
001402 
005000 
000412 

116102 
001413 
016700 
005302 
020002 
101135 
006300 
006300 
066700 
062700 

032767 
001051 


032767 
001423 


032767 
001014 

105761 
001005 
032761 
001040 
000404 
132760 
001033 

000424 


OOOOOOG 
017704 

000040     000005G 

177777 

OOOOOOG       60$: 
000001  000126' 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  70$: 

OOOOOOG        80$: 
OOOOOOG 


OOOOOOG       90$: 
OOOOOOG 

000001  000126'  100$: 


OOOOOOG  OOOOOOG 


ADD 

(SP)t,RO 
(RO),$SLN 

CMPB 

BNE 

200$ 

MOV 

#»RECL,RO 

CALL 

$FPDV 

BCS 

210$ 

GETRV 

Z.DAT(RO),*N$E 
#NF$MOU,N$FLG+ 

BITS 

BNE 

210$ 

MOV 

#-l,R5 

MOV 

$SLTA,R1 

BIT 

#SER,SERFLG 

BNE 

70$ 

BIT 

#LF.RDY,L.FLG( 

BEQ 

220$ 

BIT 

#LF.eRO,L.FLG( 

BEQ 

80$ 

CLR 

RO 

BR 

90$ 

M0V8 

L.NSTA(R1),R2 

BEO 

100$ 

MOV 

$TRI8,R0 

DEC 

R2 

CMP 

R0.fi2 

BHI 

246$ 

ASL 

RO 

ASL 

RO 

ADD 

$SLTA,RO 

ADD 

#L.MPF,RO 

BIT 

#SER,SERFLG 

BNE 

150$ 

BIT 

*VF.0N,$VFLAG 

BEQ 

130$ 

OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  110$: 
120$: 


ENABLE  LINE 

BIT 
BNE 


TST8 

BNE 

BIT 

BNE 

BR 

BIT8 

BNE 

CALL 

BR 


A  WORD  INDEX 
;  XPT  CHANNEL  TABLE  CONSISTENT  ? 
;  IF  NE,  NO 

;  Find  ECL  PDV        ,     .  .   „.  . 

;  "  RET:  RO=PDV  addr,  R1=PDV  indx,  R2=destroyed 

;  If  CS,  not  found  -  Report  as  "ACP  not  loaded 
LEN  ;  Read  in  ECL  data  base 
$8FR  ;  ACP  SHOULD  NOT  BE  LOADED 

;  ACP  LOADED  ??? 

;  NONZERO  =>  "REWRITE  DESCRIPTOR" 

;  ADDRESS  OF  SLT 

;  SERVICE  ENA/DISA  ? 

;  IF  VES  -  BRANCH  (LINE  NEED  NOT  BE  LOADED) 

R1)  ;  IS  LINE  READY  ? 
;  LINE  NOT  READY  I 

Rl)  ;  ETHERNET  LINE  ? 
IF  NOT  -  BRANCH 

IF  YES  -  ENABLE  ONLY  FIRST  CIRCUIT 
CONTINUE 

GET  NUMBER  OF  TRIBS 
BR  IF  NOT  MULTIPOINT 
GET  TRIBUTARY  WE  WANT  'ON' 
GET  TRIBUTARY  COUNT  -  1 
DOES  THE  TRIBUTARY  EXIST  ? 
IF  HI,  NO  ..  ERROR 
ELSE,  GET  WORD  OFFSET 

POINT  TO  TRIBUTARY  INFO. 


IS  THIS  SET  CIR  SERVICE 

IF  YES  -  BRANCH 

IF  NO  -  SET  CIR  STA 

ENABLING  ? 
NO,  DISABLING 


#VF.DLX,$VFLAG 
120$ 

L.NSTA(Rl)      ; 

110$  ; 

*LF.ENA,L.FLG(R1) 

170$ 

120$         ; 

#SF.ENA,S.FLG(R0) 

170$ 

ENALIN 

160$ 


DLX  ONLY  SYSTEM  ? 
BR  IF  YES 

MULTIPOINT  LINE? 

BR  IF  YES 

;  IS  CIRCUIT  ON? 

IF  EQ,  YES 

ELSE  TURN  CIRCUIT  ON 

;  IS  CIRCUIT  ON? 

BR  IF  YES 

ELSE,  ENABLE  THE  LINE 

AND  CONTINUE 
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94A 
9^,5 
9A6 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 

961  002526 

962  002526 

963  002532 

964  002540 

965  002542 

966  002546 

967  002552 

968  002554 

969  002562 

970  002564 

971  002570 

972  002574 

973  002600 

974  002602 

975  002606 

976  002610 

977  002616 

978  002634 

979  002640 

980  002644 

981  002646 
982 

983  002650 

984  002652 

985  002670 

986  002676 

987  002700 

988  002702 

989  002704 

990  002706 

991  002710 
992 

993 
994 

995  002712 

996  C02722 


.SBTTL  FNDPCL  -  FIND  THE  PCL  TRIBUTARr  TABLE  FOR  A  LINE 

♦♦-FNDPCL-FIND  THE  PCL  TRIBUTARY  TABLE  FOR  A  LINE 

THIS  ROUTINE  IS  CALLED  TO  FIND  THE  PCL  TRIBUTARY  TABLE  FOR  A  LINE. 

INPUTS: 

$SLTA  =  SLT  ADDRESS 
$TR18  =  TRIBUTARY  ADDRESS 

OUTPUTS: 

C-BIT  =  ERROR  INDICATOR 

Z-8IT  =  SEARCH  SUCCESS/FAILURE  INDICATOR 

R0-R2  =  DESTROYED 


016700 
032760 
001464 
116002 
066702 
011202 
022762 
001050 
016001 
005067 
005767 
100406 
022701 
101003 
016067 

012702 
062702 
014202 
001425 

005722 

126767 
001362 
000244 
000401 
000264 
000241 


OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 

062204  OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

120000 

OOOOOOG  OOOOOOG 


FNDPCL: 


OOOOOOG 
000106 


101: 
20$: 


000005G  OOOOOOG 


30$: 
40$: 


MOV 

BIT 

BEQ 

MOVB 

ADD 

MOV 

CMP 

BNE 

MOV 

CLR 

TST 

1^ 

BHl 

MOV 

GETAD 

MOV 

ADD 

MOV 

BEQ 

TST 

GETAD 

CMP8 

BNE 

CLZ 

BR 

SEZ 

CLC 

RETURN 


$SLTA,RO 

#LF.RDY,L.FLG(RO) 

101$ 

L.DLC{R0),R2 

$PDVTA,R2 

{R2),R2 

**RPCL,Z.NAM(R2) 

30$ 

L.DLS(R0),R1 

SfiBLCK 

.MGMGE 

10$ 

#120000, R1 

10$ 

L.DLM(RO),$RBLCK 

R1,#R.LST+4 

#$8FR,R2 

#R.LST+2,R2 

-(R2),R2 

102$ 

(R2)  + 

R2,*S.LBE+2 
$8FR+S.LSA,$TRIB 
20$ 

40$ 


ERROR  CONDITIONS 


101$: 
102$: 


ERRPT$ 
ERRPT$ 


ERR35,$EROUT 
ERR21,$ER0UT 


GET  SLT  ADDRESS 

IS  THIS  LINE  READY  ? 

IF  EQ,  NO  ..  ERROR 

ELSE,  GET  THE  DLC  PDV  INDEX 

POINT  INTO  THE  PDV  MAPPING  TABLE 

POINT  TO  THE  PDV 

IS  THIS  THE  PCL  ? 

IF  NE,  NO  ..  ERROR 

GET  THE  PCL  VIRTUAL  ADDRESS 

ASSUME  UNMAPPED  SYSTEM  OR  DSR  ALLOC. 

IS  THIS  A  MAPPED  SYSTEM  ? 

IF  Ml,  NO 

ELSE,  IS  THE  LINE  TABLE  MAPPED  ? 

IF  HI,  NO 

ELSE,  MAP  TO  THE  PCL  PROCESS 

AND  READ  IN  THE  PCL  DATA  BASE 

POINT  TO  1/0  BUFFER 

POINT  TO  THE  STATION  TABLE  LISTHEAD 

GET  THE  NEXT  ENTRY 

IF  EQ,  NOT  HERE  -  ?? 

ASSUME  $RBLCK  ALREADY  SET  UP 

SKIP  STATION  LINK  WORD 

READ  IN  THE  STATION  TABLE 

IS  THIS  THE  TRIBUTARY  ? 

IF  NE,  NO  ..  KEEP  LOOKING 

INDICATE  SUCCESS 

AND  RETURN 

INDICATE  ERROR 

INDICKATE  NO  ERROR  DETECTED 


LINE  IN  WRONG  STATE 
LINE  NOT  IN  SYSTEM 
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1585 

1586  0053?4 

1587 

1588 

1589 

1590 

1591  005336 

1592  0053A6 
1595  005356 
159'.  005366 
1595 

1596 


RETURN 


ERROR  CONDITIONS 


1oi$ 

102$ 
103$ 

loa 


ERRPT$ 
ERRPT$ 
ERRPT$ 
ERRPT$ 


ERR17,$ER0UT 
ERR18,$ER0UT 
ERR19,$EP0UT 
ERR29,$ER0UT 


INVALID  NODE  OPTION 

REMOTE  BLOCK  ALLOCATION  FAILURE 

NODE  NOT  IN  SVSTEM 

NODE  NAME  ALREADY  EXISTS 


.DSABL  LS3 
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2042 
2043 
2044 
2045 
2045 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 


007254  062767 

007262 

007302  016767 

007310 

007330  000403 

007332  000460 


007334 

007340 

007342 

007352 

007366 

007376  010100 

007400 

007404  103406 

007406 

007422 

007436 

007452 

007466 

007472 

007474 

OO'^SOO 

007514 


000001  OOOOOOG  48$ 
OOOOOOG  OOOOOOG 


48$: 

ADD 

#1,$BFR 

PUTRC 

#2, #2 

MOV 

$BFR,$RBLCIC 

PUTAD 

#140000, #2 

BR 

100$ 

46$: 

BR 

111$ 

;  DISMOUNT  REQUEST 

^0$: 

CALL 

DISMNT 

100$: 

RETURN 

103$: 

ERRPT$ 

ERR8,$ER0UT 

104$: 

ERRPT$ 

ERR9,$ER0UT, FATAL 

105$: 

ERRPT$ 

ERR10,$EROUT 

107$: 

MOV 

R1,R0 

CALL 

TSKSCH 

BCS 

1077$ 

ERRPT$ 

ERR15,$ER0UT 

FATAL 

1077$: 

ERRPT$ 

ERR12,$ER0UT 

FATAL 

108$: 

ERRPT$ 

ERR14,$ER0UT 

FATAL 

109$: 

ERRPT$ 

ERR16,$ER0UT 

FATAL 

110$: 

CALL 
RETURN 

$DEA16 

111$: 

CALL 

DISMNT 

ERRPTS 

ERR13,$ER0UT 

FATAL 

112$: 

ERRPT$ 

ERR49,$ER0UT 

POINT  TO  NEXT  BLOCK 

WRITE  TO  LOCATION  2 

MAP  TO  RDB 

WRITE  TO  RDB  FOR  DOUBLE  CHECK 

AND  RETURN 

BRANCH  AGAIN 


DISMOUNT  THE  ACP 


ACP  NOT  IN  SYSTEM 

POOL  EMPTY 

ACP  MUST  BE  FIXED  IN  FOR  RSX11S  SYSTEM 

GET  OTHER  NTlNIT  NAME 

IS  IT  INSTALLED  ? 

NO 

WRONG  NTINIT  INSTALLED 

NTINIT  NOT  INSTALLED 

ACP  NOT  FIXED 

RSX   POOL   EMPTY 

DEALLOCATE   NODE 

DEALLOCATE   EVERYTHING 

CANNOT   ALLOCATE    PLB  DATA  BASE 

EXEC    STA  ON  ONLY    FOR    11-S 


i/FMi  -   wMP   FMARi  F/ni  i;aRi  F    I  IMP<;  MATRn  VOS.n3h   ulprinpsdas 
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262A 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

263A 

2635 

2636 

2637 

2638 

2639 

26A0 

26A1 

26A2 

26A3 

26AA 

26A5 

26A6 

26A7 

26A8 

26A9 

2650 

2651 

2652 

2653 

265A 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

266A 


012A22 
012A2A 
012A30 
012A3A 
O12AA0 
01245A 
012A60 
012A62 
012A6A 
012A66 
012A72 
012A7A 
012A76 
012500 
012502 
01250A 
012510 
012512 
0125U 
012516 
012520 
012522 


01252A 
012526 


.SSTTL     PROEVT   -  PROCESS  EVENT  MASK   FROM  REQUEST  BLOCK 
PROEVT   -  PROCESS   EVENT   MASK   FROM  REQUEST   BLOCK 
INPUTS: 


R2 
RQB+LO.CLS 


ADDRESS  OF   EVENT  MASK 
EVENT   CLASS 


OUTPUTS: 

C-BIT  -  SUCCESS/FAILURE 
R0,R1,R2,R3  DESTROYED 


0105A6 

012700  000000' 
012703  000020 
016705  000002G 

020527  0007AO 
103016 
022005 
001007 

012701  OOOOOA 
032022 
001007 
005301 
003374 
000405 

062700  000010 
005303 
003363 
000403 
012605 

000241 


005726 


PROEVT:  MOV 
MOV 


10$: 


20$: 


30$: 


40$: 
50$: 

60$: 


MOV 

MOV 

ASR$ 

CMP 

BHIS 

CMP 

BNE 

MOV 

BIT 

BNE 

DEC 

BGT 

BR 

ADD 

DEC 

BGT 

BR 

MOV 

CLC 

RETURN 


R5,-(SP) 

#EVTVAL,RO 

*EVTVSZ,R3 

RQ8+L0.CLS,R5 

6,R5 

R5,#CUSTEV 

50i 

(R0)+,R5 

30$ 

#4,R1 

(fiOJ+,(R2)t 

40$ 

R1 

20$ 

50$ 

*10,R0 

R3 

10$ 

101$ 

(SP)+,R5 


ERROR  MESSAGES 


101$: 


TST 
ERRPT$ 


(SP)  + 
ERR28,$ER0UT 


SAVE  R5 

POINT  TO  VALIDITY  TABLE 

AND  #  OF  ENTRIES  TO  SCAN 
GET  EVENT  CLASS 
MOVE  CLASS  TO  START  AT  BIT  0 
IS  THIS  A  CUSTOMER  SPECIFIC  EVENT? 
BR  IF  YES  -  NO  .NEl:D  TO  FILTER  IT 
MATCH  ON  THIS  CLASS? 
IF  NE,  NO 

PERFORM  CHECK  ON  4  WORDS 
ANY  INVALID  BITS  PRESENT? 
IF  NE,  INVALID  BITS  PRESENT 
CHECK  ALL  4  WORDS 

BR  IF  OK 

POINT  TO  NEXT  ENTRY  IN  TABLE 

SCAN  ALL  OF  TABLE 

FaIlED  to  find  match  IN  TABLE 
CLEAN  UP  STACK 
INDICATE  SUCCESS 


CLEAN  UP  STACK 

EVENT  CANNOT  BE  FILTERED 


JCMA     _     WMD     CMADI   C/rirCADl    P 
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3155 

.SBTTL 

FILPRO  -  PROCESS   FILTER  M 

3156 

3157 
3158 
3159 

+ 

FILPRO   -  PROCESS    FILTER  MASKS 

3160 

3161 

INPUTS: 

3162 

EVQUAl 

-   FILTER   CONTROL    FLAGS 

3163 

31 6A 

OUTPUTS: 

3165 

EVENT 

FILTER  BLOCK    IS   OPERATED   ON 

3166 

R3-R5 

PRESERVED 

3167 

3168 
3169 
3170  0K422 

- 

004567 

OOOOOOG 

■ILPRO: 

JSR 

R5,$SAVRG 

3171   OUii.26 

016746 

000120' 

MOV 

EVQUAL, -(SP) 

3172  0U^32 

042767 

000030     000120' 

BU 

#<FF.LINIFF.ADD>, EVQUAL    ; 

3173  OUA-iO 

CALL 

FNDFIL 

3174  01AA4A 

012667 

000120' 

MOV 

(SP)+, EVQUAL 

3175   0UA50 

010002 

MOV 

R0,R2 

3176  0UA52 

001411 

BEO 

''* 

3177  0UA5A 

012703 

000004G 

MOV 

#$eFR+F.SEV,R3 

3178  0UA60 

012704 

000076' 

MOV 

#TMPMSK,R4 

3179  01AA6A 

012705 

000010 

MOV 

*10,R5 
(R35  +  ,(R4)*- 

3180  0UA70 

112324 

5$: 

M0V8 

3181   0UA72 

005305 

DEC 

R5 

3182  01A474 

003375 

BGT 

5$ 

3183  0UA76 

7$: 

CALL 

FNDFJL 

318'.  014502 

103055 

BCC 

40$ 

3185  0K50A 

032767 

OOOOOOG  OOOOOOG 

BIT 

#CM$SET,$CMAND 

3186  014512 

001032 

BNE 

10$ 

3187  014514 

032767 

000060     OOOOOOG 

BIT 

#0P$N0DI0P$LNE,$0PT0N 

3188  014522 

001454 

BEQ 

50$ 

3189  014524 

005702 

TST 

R2 

3190  014526 

3191 

3192  014530 

001452 

BEQ 

50$ 

032767 

000040     OOOOOOG 

BIT 

#0P$LNE,$0PT0N                       ; 

3193  014536 

001407 

BEQ 

8$                      ^                    ; 

3194  014540 

012705 

000004G 

MOV 

#RQBtL0.EVT,R5 

3195   014544 

005025 

CLR 

(R5)  + 

3196  014546 

005025 

CLR 

(R5)  + 

3197  014550 

005025 

CLR 

(R5)  + 

3198  014552 

005025 

CLR 

(R5)  + 

3199  014554 

RETURN 

3200 
3201 
3202  014556 

012703 

000076' 

8$: 

MOV 

#TMPMSK,R3 

3203  014562 

012705 

000106' 

MOV 

#GmSK,R5 

5204  014566 

CALL 

SAVCOM 

3205  014572 

012703 

000106' 

MOV 

#GMASK,R3 

3206  014576 

000406 

BR 

20$ 

3207 

3208  014600 

005702 

10$: 

TST 

R2 

3209  014602 

001411 

BEQ 

30$ 

3210  014604 

020002 

CMP 

R0,R2 
30i 

3211   014606 

001407 

BEQ 

SAVE  R3-R5 

SAVE  FILTER  CONTROL  FLAGS 

CLEAR  QUALIFIER  BITS 

LOOK  FOR  GLOBAL  FILTER  BLOCK 

RESTORE  QUALIFIER  BITS 

SAVE  ADDRESS  OF  GLOBAL  FILTER  BLOCK 

BR  If  NOT  FOUND 

POINT  TO  FILTER  MASKS 

POINT  TO  TEMPORARV  STORAGE  AREA 

GET  LENGTH  OF  FILTER  MASKS 

SAVE  FILTER  MASKS 

MORE  TO  SAVE? 

BR  IF  YES 

TRY  TO  FIND  EXISTING  FILTER  BLOCK 

BR  IF  FOUND  ONE 

SET  COMMAND? 

BR  IF  YES 

ANY  QUALIFIERS? 

BR  IF  NO  -  NOTHING  TO  DO 

DOES  A  GLOBAL  FILTER  BLOCK  EXIST? 

FINISHED  IF  NO  GLOBAL  FILTER  BLOCK 

CLE  EVE  LIN  xxx  ? 

IF  NO  -  BRANCH 

GET  ADDRESS  OF  FILTER  MASK 

CLEAR  ALL  EVENTS 


POINT  TO  GLOBAL  FILTER  MASKS 

GET  AREA  TO  STORE  COMPLEMENTED  MASKS 

SAVE  COMPELEMENT  Of  GLOBAL  FILTERS 

POINT  TO  COMPLEMENTED  GLOBAL  MASKS 

CONTINUE 

WAS  GLOBAL  FILTER  BLOCK  FOUND? 
BR  IF  NO 

OPERATE  ON  GLOBAL  FILTER  BLOCK? 
BR  IF  YES 


CM  ADI  C  /r\  t  C  ADl  C 
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K  16 


012701  001052' 

005046 

00500A 


012703  000004G 


103A16 

005763  000012 
100404 


VDIS  -  VNP  SHOW  COMMANDS 
SDNOD  -  SHOW  NODE 


1473 
1474 

1475  007634 

1476  007640 
1477 

1478 
1479 

1480  007650 

1481  007654 

1482  007656 
1483 

1484  007660 

1485  007700 
1486 

1487  007704 

1488  007710 

1489  007712 

1490  007716 

1491  007720 

1492  007724 

1493  007726 
1494 

1495 
1496 

1497  0C7730 

1498  007732 

1499  007734 

1500  007736 

1501  007740 

1502  007742 

1503  007744 
1504 

1505 
1506 

1507  007746 

1508  007750 

1509  007752 

1510  007754 

1511  007760 

1512  007764 

1513  007766 

1514  007772 

1515  CO7774 

1516  007776 
1517 

1518 
1519 

1520  010000 

1521  010004 

1522  010006 
1523 

1524  010010 

1525  010030 

1526  010035 

1527  010042 

1528  010050 

1529  010052 
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DISPLAY   STATE   AND    IDENTIFICATION 


60$: 


CALL 
ERRPTS 


GTSTID 
NMSG3,MSG0UT 


005204 
000766 


010302 
010500 
112221 
005300 
003375 
005216 
0n0757 


012605 
001534 
005004 
012703  001062' 

005204 

062703  000014 

005305 

003371 

000521 


012700     000411' 

112021 

001376 


DISPLAY  REMOTE  NODES 

^■OS:    MOV  #TEMP2,R1 

CLR  -(SPJ 

CLR  R4 

GETRV  $DECPT,#D$END 

MOV  #$8FR+D$RNNt2,R3 

80$:    CALL  NXTBLK 

BCS  110$ 

TST  R.FLAG(R3) 

BMI  90$ 

CALL  DISNOD 

INC  R4 

er  80$ 


;  GET  STATE  AND  IDENTIFICATION 

;  DISPLAY  THE  STATE  AND  IDENTIFICATION 


POINT  TO  TEMP  AREA  FOR  LOOPBACK  NODES 
COUNT  FOR  NUMBER  OF  LOOPBACK  NODES 
INDICATE  HEADER  TO  BE  DISPLAYED 

READ  DECNET  HOME  BLOCK 
STORE  REMOTE  LISTHEAD 

GET  NEXT  REMOTE  NODE  BLOCK  IN  LIST 

BR  IF  AT  END  OF  LIST 

IS  THIS  A  LOOPBACK  NODE? 

BR  IF  YES 

DISPLAY  THE  NODE  INFORMATION 

DON'T  DISPLAY  HEADER  ANY  MORE 

GET  NEXT  ONE  IN  LIST 


FOUND  A  LOOPP»CK  NODE  -  SAVE  REMOTE  NODE  BLOCK  TO  DISPLAY  LATER 


§0$: 
100$: 


MOV 

MOV 

MOVS 

DEC 

BGT 

INC 

BR 


R3,R2 
R5,R0 

(r5)+, 

RO 

100$ 
(SPJ 
80$ 


(R1)t 


DISPLAY  LOOPBACK  NODES  IF  ANY 


)10$: 


120$: 


MOV 

BEQ 

CLR 

MOV 

CALL 

INC 

ADD 

DEC 

BGT 

BR 


(SP)+,R5 

200$ 

R4 

#TEMP2,R3 

DISLOC 

R4 

#R.LEN,R3 

R5 

120$ 

200$ 


POINT  TO  REMOTE  NODE  BLOCK 

NUMBER  OF  BYTES  TO  COPY 

SAVE  REMOTE  NODE  BLOCK 

DECREMENT  COUNT 

BR  IF  MORE  TO  COPY 

INCREMENT  COUNT 

GET  NEXT  ONE  IN  LIST 


GET  COUNT  OF  LOOPBACK  NODES 

BR  IF  NONE  TO  DISPLAY 

INDICATE  HEADER  TO  BE  PRINTED 

POINT  TO  REMOTE  NODE  BLOCK 

DISPLAY  LOOP  NODE  INFORMATION 

INDICATE  HEADER  NOT  TO  BE  PRINTED 

POINT  TO  NEXT  BLOCK 

DECREMENT  COUNT 

BR  IF  MORE  TO  DISPLAY 

FINISHED 


SHOW  SPECIFIC  NODE 


016767  000014G   171166 

012702  OOOOOOG 

032767  OOOOOOG  OOOOOOG 

001015 

026267  000012     000006G 


l30$:       ilOV 
140$:       MOVB 
BNE 

GETRV 

MOV 

MOV 

BIT 

BNE 

CMP 


#NSPEC,RO 

(R0)t,(R1)+ 

140$ 

$DECPT,#D$END 

$8Ffi+D$LNUM,TEMP4 

#R38,R2 

#VF.ADD,$VFLAG 

150$ 

I R.NAM(R2),$BFR+D$LNAM 


SHOW  SPECIFIC  NODE 
STORE  STRING 


READ  DECNET  HOME  BLOCK 

STORE  EXECUTOR  ADDRESS 

POINT  TO  INPUT  PARAMETER  BLOCK 

DID  USER  SPECIFY  A  NODE  ADDRESS? 

BR  IF  YES 

IS  THIS  THE  EXECUTOR  NODE? 


VDi:  -  VNP  SHOW  COMMANDS 
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VDIS   -  VNP   SHOW   COMMANDS 
SDLIN   -   SHOW  LINE 

2139 
2140 
21A1 
2U2 
2H3 
21A4 
2145 
2U6 
2U7 
2U8 
21A9 
2150 
2151 
2152 
2153 
2154 

2155  015160 

2156  015164     103004 

2157  015166 

2158  015176     016705 

2159  015202     016703 

2160  015206     012701 

2161  015212     105767 

2162  015216     001434 

2163  015220     122767 

2164  015226     001002 

2165  015230  000167 
2166 
2167 
2168 

2169  015234  012700 

2170  015240  112021 

2171  015242  001376 

2172  015244  005004 

2173  015246 

2174  015252  103002 

2175  015254  000167 

2176  015260  026127 

2177  015266  001767 

2178  015270  032760 

2179  015276  001763 

2180  015300 

2181  015304  005204 

2182  015306  000757 
2183 
2184 
2185 

2186  015310  012700 

2187  015314  112021 

2188  015316  001376 

2189  015320  005004 

2190  015322 

2191  015326  103454 

2192  015330  026127 

2193  015336  001771 

2194  015340  026167 

2195  015346  001365 
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.SBT1L  SDLIN  -  SHOW  LINE 


$DL1N  -  SHOW  KNOWN  LINES 
SHOW  ACTIVE  LINES 
SHOW  LINE  X 


INPUTS:  NONE 

OUTPUTS:  THE  LINE  INFORMATION  IS  DISPLAYED  ON  THE  USER'S  TERMINAL 
ALL  REGISTERS  ARE  DESTROYED 


$DLIN::  CALL 


OOOOOOG 
OOOOOOG 
001062' 
OOOOOOG 

000004  OOOOOOG 

000164 


10$: 


BCC 

ERRPTS 

MOV 

MOV 

MOV 

TSTS 

BEQ 

CMPB 

BNE 

JMP 


CKTYPE 

10$ 

SYNERR,$EROUT 

$SLTMA,R5 

$SLTNM,R3 

#TEMP2,R1 

$QUAL 

70$ 

#QF$KNO,$OUAL 

20$ 

160$ 


SHOW  ACTIVE  LINES 


000441'        50$: 
30$: 


40$: 

000204 

OOOOOOG  '"M55  50$: 


002000  0^ 


000472' 


60$: 


MOV  #LACTIV,RO 

M0V8  (R0)+,(R1)+ 

BNE  30$ 

CLR  R4 

CALL  NXTLIN 

BCC  50$ 

JMP  190$ 

CMP  Z.NAMCRD.^'RDLM 

3EQ  40$ 

BIT  #LF.ENA,L.FLG(RO) 

BEQ  40$ 

CALL  DISLIN 

INC  R4 

BR  40$ 


SHOW  SPECIFIC  LINE 


^0$: 
80$: 

90$: 


OOOOOOG  015355 
OOOOOOG  000002G 


MOV  #LSPEC,RO 

Move  (R0)t,(R1)* 

BNE  80$ 

CLR  R4 

CALL  NXTLIN 

BCS  187$ 

CMP  Z.NAM(R1),**RDLM 

BEQ  90$ 

CMP  Z.NAM(Rl),LR.LINtRQB 

BNE  90$ 


GET  COMMAND  TYPE 

BR  IF  SUCCESS 

ELSE  SYNTAX  ERROR 

GET  ADDRESS  OF  SLT  ADDRESS  TABLE 

GET  NUMBER  OF  SLT'S  IN  SYSTEM 

STORAGE  FOR  HEADER  MESSAGE 

SHOW  SPECIFIC  LINE? 

BR  IF  YES 

SHOW  KNOWN  LINES 

BR  IF  NO 

BR  IF  YES 


must  be  show  active  lines 
store  the  header  message 

Indicate  header  to  be  displayed 

GET  NEXT  system  LINE  TABLE  IN  SYSTEM 

BR  IF  FOUND  ONE 

BR  IF  NO  MORE 

IS  THIS  DLM? 

BR  IF  YES  -  NOT  REALLY  A  LINE 

IS  LINE  ACTIVE? 

BR  IF  NO 

DISPLAY  LINE  INFORMATION 

INDICATE  HEADER  NOT  TO  BE  DISPLAYED 

GET  NEXT  LINE  IN  SYSTEM 


get  string  for  header  message 
store  string 

Indicate  header  to  be  displayed 

GET  next  line  IN  SYSTEM 
BR  IF  NO  MORE 
IS  THIS  DLM? 

IF  YES  -  NOT  REALLY  A  LINE 


BR 

IS  THIS  A  MATCH? 

BR  IF  NO 


VDIS  -  VNP  SHOW  COMMANDS 
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VDIS  -  VNP  SHOW  COMMANDS 
NXTDTE  -  GET  NEXT  DTE  BLOCK 


2687 
2688 
2689 
2690 
2691 
2692 
2693 
269^ 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
270A 

2705  021126  012703 

2706  021132  012705 

2707  021136 

2708  021U2     103A30 

2709  021 UA     032767 

2710  021152     001020 

2711  021 15A     126767 

2712  021162     001365 

2713  021164     012700 
27U   021170     012701 

2715  021174     016702 

2716  021200     006202 

2717  021202     005502 

2718  021204     122021 

2719  021206     001353 

2720  021210 

2721  021214     152767 

2722  021222     000241 

2723  021224 
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OOOOOOG 
000122 


000400  OOOOOOG 
00001 7G  000046G 


.SBTTL  NXTDTE  -  GET  NEXT  DTE  BLOCK 


NXTDTE  -  FIND  NEXT  DTE  BLOCK  TO  OPERATE  ON 

INPUTS: 

$BFk  -  ADDRESS  OF  NEXT  DTE  DESCRIPTOR 

SOPTON  -  OPTIONS  WORD 

LO.DTE+RQB  -  DTE  ADDRESS  TO  LOOK  FOR 

OUTPUTS: 

CARRY  CLEAR: 

$8FR  CONTAINS  NEXT  DTE  BLOCK 
CARRY  SET: 

END  OF  DTE  DESCRIPTOR  LIST 


000047G 
000020G 
000046G 


000004  160352 


NXTDTE: 

MOV 

#$8FR,R3 

MOV 

#L$LEN,R5 

10$: 

CALL 

NXT8LK 

BCS 

40$ 

BIT 

#OP$KDT,$OPTON 

BNE 

30$ 

CMPB 

L$DTEL+$BFR,LO.LDT+RQB 

BNE 

10$ 

MOV 

#LO.DTEtRQB,R0 

MOV 

#L$DTEA+$BFR,R1 

MOV 

L0.LDT+RQB,R2 

ASR 

R2 

ADC 

R2 

20$: 

CMPB 

(R0)+,(R1)+ 

BNE 

10$ 

SOB 

R2,20$ 

30$: 

BIS8 
CLC 

#F.FND, FLAGS 

40$: 

RETURN 

GET  ADDRESS  OF  POINTER  TO  NEXT  DTE 

GET  LENGTH  OF  DTE  DESCRIPTOR 

READ  IN  NEXT  BLOCK 

BR  IF  END  OF  LIST 

KNOWN  DTES  SPECIFIED? 

BR  IF  YES  -  HAVE  A  MATCH 

SAME  LENGTH? 

BR  IF  NO  -  TRY  AGAIN 

POINT  TO  SPECIFIED  DTE  ADDRESS 

POINT  TO  DTE  ADDRESS  IN  DESCRIPTOR 

GET  NUMBER  OF  DIGITS  IN  ADDRESS 

MAKE  IT  A  BYTE  COUNT 

DO'WE  HAVE  A  MATCH? 
BR  IF  NO  -  TRY  AGAIN 

INDICATE  FOUND  ONE 
INDICATE  SUCCESS 


VDIS  -  VNP  SHOW  COMMANDS 
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FNDBLK  -  Find  next  block  meeting  giuen  criteria 


3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3283 

3289 

3290 

3291 

5292 


024620 
024620 
024624 
024630 
024632 
024642 
024656 
034660 
024662 
024664 
024666 
024670 
024672 
024674 
024700 
024702 
024704 
024706 


.SBTTL  FND8LK  -  Find  next  block  meeting  giuen  criteria 
**•  FND8LK  -  Find  next  block  meeting  given  criteria 


INPUTS 


RO 


R1 
R2 

R3 


$BFR 


-  Address  of  buffer  containing  field  to  be  matched. 
Suffer  contains  one-byte  pre-count  followed  by  data. 
If  RO  is  zero,  the  next  block  in  sequence  is  returned. 

-  Length  of  each  block  to  be  read  in  search. 

-  Offset  in  block  of  field  to  be  matched  against  buffer 
(not  used  if  no  matching  required) 

-  Offset  in  block  of  one-byte  count  of  bytes  in  field 
to  be  matched  (R3  >=0);  negated  length  of  field  in 
block  (R3  <  0) 

-  The  first  word  of  $8FR  contains  a  pointer  to  the 
first  block  to  be  considered. 


OUTPUTS 

If  carry  clear: 

%Bfvt 

RO 

R1 
If  carry  set: 

No  block  found 


Contains  the  first  matching  block 
Address  of  matched  field  in  buffer 
Actual  length  of  matched  field  in  buffer 


NOTE 


004567  OOOOOOG 
016705  OOOOOOG 
001452 


005700 

001423 

005703 

100005 

010505 

005405 

000404 

116305  OOOOOOG 

120510 

001350 

010346 

010003 


FNDBLK: 
5$: 


10$: 


20$: 


Registers  R2-R5  preserved 

The  rather  contorted  parameters  are  necessary  to  take  account 
both  of  old-format  and  extended  PSI  data  structures. 

R5  is  used  as  follows: 

If  R5  is  positive,  the  count  at  this  offset  in  the  block  must 

match  the  count  in  the  buffer  addressed  by  RO  and  all  (R3)  characters 

at  offset  (R2)  must  match  (R3)  characters  at  address  (RO+1). 

If  R3  is  negative,  the  count  in  the  match  buffer  is  ignored, 

and  (-r3)  characters  are  checked  for  a  match  regardless  of  the 

count  at  address  (RO) . 


Save  registers  R2-R5 

Get  head-of-chain  address 

If  zero,  then  end-of-chain 

Map  to  head-of-chain 

Read  in  required  length  of  data 

Check  if  match  required 

If  zero,  any  block  will  do 

Check  whether  Length  explicit 

If  positive,  length  to  be  determined 

Length  specified  by  caller 

Make  length  positive 

Get  length  from  data  block 

Length  must  equal  match  string  length 

If  not  same,  must  find  another  block 

Save  R5 

Get  address  of  data  in  match  string 


JSR 

R5,$SAVRG 

MOV 

$8FR,R5 

8EQ 

99$ 

CEACC$ 

R5 

GETAD 

R5,R1 

TST 

RO 

BEQ 

50$ 

TST 

R5 

BPL 

10$ 

MOV 

R3,R5 

NEG 

R5 

BR 

20$ 

MOVB 

$BFR(R3),R5 

CMPB 

R5,(R0) 

BNE 

5$ 

MOV 

R5,-(SP) 

MOV 

R0,R5 

;[TD001J 
.•CTDOOIJ 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;CTD0013 
;[TD0013 
;CTD00i:i 
;[TD001] 
;CTD001] 
;[TD001D 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD0013 
;CTD0013 
;CTD001] 
;[TD001] 
;[TD0Oi: 
;CTD0013 
;[TD001] 
;CTD001] 
;[TD001] 
;CTD001D 
;[TD00n 
;[TD001] 
;CTD001] 
;[TD001] 
.•[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[:TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
.-CTDOOI] 
.-CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
;  CTDOOI] 
.•CTDOOI] 
;CTD001] 
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VDIS  -  VNP   SHOW   COMMANDS 
DISNOD   -  DISPLAY   NODE    INFORMATI 


MACRO  V05.03b  Monday   15 
ON 


3791  02716A 

3792  027172 

3793  027174 

3794  027204 
3795 

3796  027206 

3797  027216 
3798 

3799  027220 

3800  027226 

3801  027230 

3802  027240 
3803 

3804  027242 

3805  027250 

3806  027252 

3807  027262 
3808 

3809  027264 

3810  027272 

3811  027274 

3812  027304 
3813 

3814  027306 
3815 

3816  027316 

3817  027322 
3818 

3819 
3820 
3821 
3822 
3823 

3824  027324 

3825  027351 
3826 

3827  027354 

3828  027364 
3829 

3830  027374 

3831  027405 
3832 

3833  027416 

3834  027430 
'835 

3836  027442 

3837  C27454 
3838 

3839  027466 

3840  027501 
3841 

3842  027512 

3843  027522 
3844 

3845  027534 

3846  027550 
3847 


026727  152012 
002005 

000444 


000437 

026727  151756 
002005 

000426 

026727     151734 
002005 

000415 

026727  151712 
002005 

000404 


001750  50$: 


000012 


60$: 
70$: 


000144  80$: 

001750  90$: 

100$: 
110$: 


CMP 
B6E 

ERRPr$ 
BR 

ERRPT$ 
BR 

CMP 
BGE 

ERRPT$ 
BR 

CMP 
BGE 

ERRPT$ 
BR 

CMP 
BGE 

ERRPT$ 
BR 
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TEMP3,#1000. 
60$ 

DNMSG4,MSG0UT 
110$ 

DNMS10,MSG0UT 
110$ 

TEMP3,#10. 
80$ 

DNMSG6,MSG0UT 
110$ 

TEMP3,*100. 
90$ 

DNMSG5,MSG0UT 
110$ 


TEMP3,*1000. 
100$ 

DNMSG3,MSG0UT 
110$ 


ERRPT$  DNMSG7,MSG0UT 

RESRG  <R2,R1> 
RETURN 

.ENABL  LC 


IS  ADDRESS  THREE  DIGITS 
IF  NO  -  BRANCH 
PRINT  AREA. ADDRESS 
CONTINUE 

PRINT  AREA. ADDRESS 
CONTINUE 

IS  ADDRESS  ONE  DIGIT  ? 
IF  NO  -  BRANCH 
PRINT  AREA. ADDRESS 
CONTINUE 

IS  ADDRESS  TWO  DIGITS  ? 
IF  NO  -  BRANCH 
PRINT  AREA. ADDRESS 
CONTINUE 

IS  ADDRESS  THREE  DIGITS 
IF  NO  -  BRANCH 
PRINT  AREA. ADDRESS 
CONTINUE 

PRINT  AREA. ADDRESS 

RESTORE  R1 


DISPLAY  MESSAGES 

ERMSG$  <i!NRemote%NNode  Name/(N> 

ERBLK$  DNMSG1 

ERMSG$  <   XD  %A> 

ER8LK$  DNMSG2,<TEMP3,TEMP1> 

ERMSG$  <XD.3!D  5!A> 

ERBLK$  DNMSG3,<TEMP6,TEMP3, TEMPI  > 

ERMSG$  <  XO.XD     !!A> 

ERBLK$  DNMSG4 , <TEMP6, TEMP3 , TEMPI > 

ERMSG$  <XD.J;D   !!A> 

ER8LK$  DNMSG5,<TEMP6,TEMP3, TEMPI > 

ERMSG$  <XO.XD         %^> 

EReLK$  DNMSG6,<TEHP6,TEMP3, TEMPI  > 

ERMSG$  <!!D.5!D  %^> 

ERBLK$  DNMSG7,<TEMP6,rEMP3, TEMPI > 

ERMSG$  <  XD.XO         %A> 

ER8LK$  0NMSG8,<TEMP6,TEMP3, TEMPI  > 
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VOIS  -  VNP  SHOW  COMMAMOS 

DISLIN  -  DISPLAY  LINE  INFORMATION 


4375 
4376 
4377 
4378 
4379 
4380 
4381 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 

4395  033074 

4396  033110  005704 

4397  033112  001010 

4398  033114 

4399  033124  016600 

4400  033130  016601 
4401 

4402 
4403 

4404  033134 

4405  033140 

4406  033150  016600 

4407  033154  016601 
4408 

4409 
4410 

4411  033160  012705 

4412  033164  012704 

4413  033170  105760 

4414  033174  001407 

4415  033176  032760 

4416  033204  001436 

4417  033206  012704 

4418  033212  000433 

4419  033214  012704 

4420  033220  032760 

4421  033226  001025 

4422  033230  012704 

4423  033234  026127 

4424  033242  001417 

4425  033244  026127 

4426  033252  001413 

4427  033254  116001 

4428  033260  066701 

4429  033264  011101 

4430  033266  026127 

4431  033274  C01402 
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.SSTTL  DISLIN  -  DISPLAY  LINE  INFORMATION 


DISLIN  -  DISPLAY  LINE  INFORMATION 

INPUTS: 

RO  =  LINE'S  SLT  ADDRESS 
R1  =  LINE'S  DDM  PDV  ADDRESS 
R3  =  NUMBER  OF  SLT'S  REMAING  TO  SCAN 

R4  =  0  PRINT  HEADER  INFORMATION  ALONG  WITH  LINE  INFORMATION 
ELSE,  PRINT  ONLY  LINE  INFORMATION 

OUTPUTS: 

LINE  INFORMATION  IS  DISPLAYED  ON  USER'S  TERMINAL 

ALL  REGISTERS  ARE  PRESERVED 


000012 
000010 


000012 
000010 


001062' 
000567' 
000014 

000400 

000652' 

000621' 
000020 


00064  5' 
OOOOOOG  043340 

OOOOOOG  043341 

000003 
OOOOOOG 

OOOOOOG  045452 


DISLIN:  SAVRG 
TST 
BNE 

ERRPTS 
MOV 
MOV 


<R0,R1,R2,R3,R4,R5> 

R4 

10$ 

LMSGI.MSGOUT 

12(SP),R0 

10(SP),R1 


DISPLAY  LINE-ID 


10$: 


CALL 
ERRPT$ 
MOV 
MOV 


FMTLIN 

LMSG2,MSG0UT 
12(SP),R0 
10(SP),R1 


000000 


000000 


GET  LINE  TYPE 

MOV  #TEMP2,R5 

MOV  #LCNTRL,R4 

TSTB  L.NSTA(RO) 

BEQ  15$ 

BIT  #LF.8RO,L.FLG(R0) 

BEQ  20$ 

MOV  *BR0AD,R4 

BR  20$ 

15$:    MOV  #LTRIB,R4 

BIT  #LF.MTP,L.FLG(R0) 

BNE  20$ 

MOV  *LLAB,R4 

CMP  Z.NAM(R1),#*RKMX 

BEQ  20$ 

CMP  Z.NAM(R1),#*RKMY 

BEQ  20$ 

MOVB  L.DLC(R0),R1 

ADD  $PDVTA,R1 

MOV  {R1),R1 

CMP  Z.NAMCRI ),#*RLAB 

BEQ  20$ 


SAVE  R0-R5 

DISPLAY  HEADER? 

BR  IF  NO 

DISPLAY  HEADER  MESSAGE 

RESTORE  RO 

RESTORE  R1 


CREATE  THE  LINE-ID 
DISPLAY  THE  LINE-ID 
RESTORE  RO 
RESTORE  R1 


STORAGE  FOR  LINE  TYPE 

ASSUME  IT  IS  CONTROLLER 

MULTIPOINT  LINE? 

IF  NO  -  BRANCH 

ETHERNET  DEVICE  ? 

IF  NOT  -  BRANCH 

IF  YES  -  SET  UP  TYPE  DISPLAY 

CONTINUE 

ASSUME  TRIBUTARY 

MULTIPOINT  LINE? 

BR  IF  YES 

ASSUME  X25 

IS  THIS  A  KMX  LINE? 

BR  IF  YES 

IS  THIS  A  KMY  LINE? 

BR  IF  YES 

GET  DLC'S  PDV 

INDEX  INTO  VECTOR  TABLE 

GET  PDV  ADDRESS 

IS  IT  LAPB? 

BR  IF  YES 
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CUNDEC  -  CONVERT  CUG  NUMBER  TO  DECIMAL 


4858 
4859 

.SBUL 

CUNDtL  -  LUNVtKI  LUU  NUHt 

tK  lU  UtLlHAL 

4860 
4861 
4862 

+ 

CUNDEC  -  CONVERT  CUG  NUMBER  TO  DECIMAL 

4863 

4864 

INPUTS: 

4865 

$8FR  - 

LOCAL  COPY  OF  CUG  BLOCK 

4866 

4867 

OUTPUTS: 

4868 

TEMP4  - 

CONTAINS  DECIMAL  CUG  NUMBER 

4869 

4870 

4871  035300 

:UNDEC:  SAVRG 

<R0,R1,R2> 
G$CUGt$BFR,R2 

SAVE  R0,R1,R2 

4872  035306 

016702 

00001 OG 

MOV 

GET  CUG  NUMBER 

4873  035312 

010200 

MOV 

R2,R0 

GET  CUG  NUMBER 

4874  035314 

042700 

177417 

BK 

#*C<360>,R0 

ISOLATE  FIRST  DIGIT 

4875  035320 

006200 

ASR 

RO 

4876  035322 

006200 

ASR 

RO 

4877  035324 

006200 

ASR 

RO 

4878  035326 

4879 

4880  035330 

006200 

ASR 

RO 

012701 

001750 

MOV 

#1000. ,R1 

UNIT  IS  THOUSANDS 

4881  035334 

CALL 

$MUL 

GET  BINARY  VALUE 

4882  035340 

010167 

143660 

MOV 

R1,TEMP4 

STORE  THOUSANDS  DIGIT 

4883  035344 

010200 

MOV 

R2,fi0 

GET  CUG  NUMBER 

4884  035346 

042700 

177760 

BK 

#*C<17>,R0 
#100. ,Rl 

ISOLATE  SECOND  DIGIT 

4885  035352 

012701 

000144 

MOV 

UNIT  IS  HUNDREDS 

4886  035356 

CALL 

$MUL 

GET  BINARY  VALUE 

4887  035362 

060167 

143636 

ADD 

R1,TEMP4 

UPDATE  BINARY  VALUE 

4888  035366 

010200 

MOV 

R2,R0 

GET  CUG  NUMBER 

4889  035370 

000300 

SWAB 

RO 

MOVE  DIGIT  TO  LOW  BYTE 

4890  035372 

042700 

177417 

BIC 

#"C<360>,R0 

ISOLATE  THIRD  DIGIT 

4891  035376 

006200 

ASR 

RO 

4892  035400 

006200 

ASfi 

"8 

4893  035402 

006200 

ASR 

RQ 

4894  035404 

4895 

4896  035406 

006200 

ASR 

RO 

... 

012701 

000012 

MOV 

#10.,R1 

UNIT  IS  TENS 

4897  035412 

CALL 

$MUL 

GET  BINARY  VALUE 

4898  035<.16 

060167 

143602 

ADD 

R1,TEMP4 

STORE  TENS  DIGIT 

4899  035422 

010200 

BIC 

R2,R0 

GET  CUG  NUMBER 

4900  035424 

042700 

170377 

#*C<7400>,RO 

ISOLATE  FOURTH  DIGIT 

4901  035430 

006200 

ASR 

RO 

■   .  .  . 

4902  035432 

006200 

6i5 

RO 

4903  035434 

006200 

ASR 

RO 

4904  035436 

006200 

6l5 

S9 

'   .  .  . 

4905  035440 

006200 

4i 

88 

... 

4906  035442 

006200 

ASR 

S8 

;  .  ■  • 

4907  035444 

006200 

ASR 

"8 

;  ... 

4908  035446 

4909 

4910  035450 

006200 

ASR 

RO 

;  ... 

060067 

145550 

ADD 

R0,TEMP4 
<R2,R1,R0> 

;  STORE  ONES  DIGIT 

4911  035454 

RESRG 

;  RESTORE  REGISTERS 

4912  035462 

RETURN 

VDIS  -  VNP  SHOW  COMMANDS 
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SYMBOL  CROSS  REFERENCE 


K  8 

PAGE  3 

CREF   04.00 


SYMBOL  VALUE 


DSMSl 

DSMSIO 

0SMS11 

DSMS12 

DSMS2A 

DSMS2B 

DSMS2C 

DSMS3 

DSMSA 

DSMS5 

DSMS6 

DSM57 

DSMS8 

DSMS9 

DTM51 

DTMS2 

DTMS3 

DSACL 

DSAMXC 

DSAMXH 

D$ANN 

DSCUGL 

DSCUGN 

DSDATL 

DSOELF 

DSDELW 

D$DSL 

DSDST 

DSDTEL 

OSEND 

DSFLEN 

OSGLEN 

DSGVBL 

DSHOST 

DSINAC 

DSINCT 

0$IPL 

D$LID 

DSL NAM 

OSLNUM 

DSLST 

D$MAXC 

DSMAXH 

DSMAXV 

D$NA 

DSNAM 

OSNBEA 

DSNBRA 

D$NN 

DSNOD 

OSOBJ 


025340  R 
024050  R 
024076  R 
024122  R 
023406  R 
023456  R 
023524  R 
023576  R 
023622  R 
023652  R 
023704  R 
023742  R 
024006  R 
024026  R 
021000  R 
021070  R 
021124  R 
000027 
000072 
000074 
000000 
000023 
000022 
000030 
000045 
000046 
000022 
000010 
000031 
000104 

000052 
000032 
000032 
000022 
000044 
000042 
000051 
000020 
000006 
000014 
000047 
000064 
000066 
000070 
000062 
000004 
000056 
000054 
000060 
000010 
000005 


REFERENCES 

40-2956 

40-2966 

40-2969 

40-2977 

40-5005 

40-2991 

40-2989 

40-3018 

40-3024 

40-5046 

40-5055 

40-3056 

40-5065 

40-2951 

55-2642 

55-2665 

55-2675 

40-2971 

26-1692 

26-1693 

10-464 

40-2955 

40-5057 

40-5010 

26-1727 

26-1758 

40-2955 

41-5141 

40-5020 

10-461 

26-1706 

41-5140 

41-5144 

40-2952 

18-1026 

26-1725 

26-1721 

26-1748 

59-4745 

18-1051 

18-1027 

26-1746 

26-1685 

26-1707 

26-1708 

26-1690 

40-5005 

26-1698 

26-1697 

26-1686 

40-2943 

40-2981 


#40-3071 
#40-3104 
#40-5107 
#40-5110 
#40-5074 
40-5001 
#40-3030 
#40-3085 
#40-5086 
#40-5089 
#40-5092 
#40-5095 
#40-5098 
#40-3101 
#55-2679 
#55-2682 
#55-2685 


40-5055 
40-5059 


40-5051 


18-1023 
26-1713 


40-5050 
26-1606 


40-2945 
40-2999 


#40-3077 


41-3146 


22-1298 
55-4208 


41-5145 
26-1607 


25-1597 
58-4682 


26-1459 
59-4745 


26-1484 


26-1524 


26-1605    26-1684 


18-1052    18-1055    26-1529   26-1551    26-1555    26-1610    58-4685 
18-1050    26-1525    26-1537   26-1607    58-4683 


40-3004 


VDIS 


CREATED  BY     MACRO     ON  15-JUL-85  AT   12:17 


PAGE  4 


L     8 


VDIS 
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SYMBOL    CROSS  REFERENCE 

CREF        04. 

00 

SYMBOL 

.ALUE 

REFERENCES 

48-3522 

48-3529 

49-3575 

49-3576 

49-3592 

49-3658 

49-3664 

49-3667 

50-3707 

50-3724 

50-3730 

53-3978 

53-4160 

53-4216 

♦53-4270 

53-4284 

53-4290 

53-4293 

53-4296 

53-4302 

53-4305 

54-4363 

55-4411 

♦55-4482 

55-4530 

55-4536 

55-4539 

55-4545 

58-4687 

59-4751 

TEMP? 

001202  R 

#6-251 

7-317 

•12-708 

17-988 

♦17-990 

17-993 

♦17-995 

18-1017 

18-1052 

\^  V     1     I—   V   l_           14 

*26-1606 

26-1633 

♦26-1634 

♦26-1685 

•26-1693 

♦26-1708 

•26-1718 

♦26-1719 

♦  26-1745 

♦26-1746 

26-1846 

26-1849 

26-1853 

26-1857 

26-1863 

26-1878 

26-1881 

26-1887 

26-1891 

•31-2^55 

♦31-2356 

31-2379 

•34-2572 

♦34-2573 

•34-2579 

♦34-2580 

♦34-2587 

*34-2588 

•34-2595 

•34-2596 

34-2608 

34-2611 

34-2614 

34-2617 

35-2682 

•49-3579 

*49-3587 

49-3667 

♦50-3701 

50-3727 

♦51-3760 

♦51-3770 

51-3781 

51-3786 

51-3791 

51-3799 

51-3804 

51-3809 

51-3828 

51-3831 

51-3834 

51-3837 

51-3840 

51-3843 

51-3846 

51-3849 

51-3852 

52-3920 

♦53-4092 

53-4115 

53-4287 

53-4299 

53-4302 

54-4340 

54-4366 

55-4443 

♦55-4491 

55-4533 

55-4536 

55-4539 

56-4575 

57-4627 

TEMP4 

001 22A   R 

#6-252 

22-1301 

♦22-1303 

22-1305 

22-1309 

22-1314 

•26-1525 

26-1554 

♦26-1686 

•26-1697 

•26-1707 

♦26-1720 

♦26-1721 

♦26-1747 

♦26-1748 

26-1853 

26-1860 

26-1863 

26-1887 

26-1891 

♦31-2353 

31-2379 

37-2791 

♦63-4882 

♦63-4887 

♦63-4898 

♦63-4910 

TEMP5 

001244  R 

#6-253 

•26-1722 

♦26-1723 

26-1887 

TEMP6 

001554   R 

#6-254 

•26-1724 

♦26-1725 

26-1887 

♦51-3769 

•51-3771 

♦51-3776 

♦51-3776 

♦51-3776 

•51-3776 

•51-3776 

♦51-3776 

♦51-3776 

♦51-3776 

•51-3776 

♦51-3776 

51-3778 

51-3831 

51-3834 

51-3837 

51-3840 

51-3843 

51-3846 

51-3849 

51-3852 

TEMP7 

001556  R 

#6-255 

12-770 

12-773 

♦18-1059 

♦18-1069 

♦26-1468 

♦26-1592 

♦26-1642 

♦26-1655 

•26-1698 

♦26-1733 

♦26-1734 

26-1837 

26-1849 

26-1860 

26-1881 

26-1887 

TEMPS 

001560  R 

#6-256 

26-1672 

26-1866 

TF.fFE 

=  000004 

#5-88 

TF.ROF 

=  000001 

#5-88 

TF.RTO 

=  000002 

#5-88 

TF.TAE 

=  000010 

#5-88 

TF.TOF 

=  000004 

#5-88 

TF.TTO 

=  000010 

#5-88 

TF.URE 

=  000001 

#5-88 

TF.USA 

=  000002 

#5-88 

TIATT 

001616  R 

#6-267 

43-3228 

TIDET 

001646  R 

#6-268 

8-344 

9-424 

9-427 

10-534 

10-537 

11-627 

11-631 

12-752 

26-1564 

26-1823 

27-2127 

27-2130 

28-2230 

28-2233 

TR.ALF 

000102 

#5-88 

TR.DEV 

000100 

#5-88 

TR.LEN 

=  000210 

#5-88 

53-4049 

TR.MST 

000074 

#5-88 

TR.PRE 

000076 

#5-88 

TR.TLZ 

000072 

#5-88 

TStCSCH 

035052  R 

39-2864 

59-4716 

#60-4778 

TX.NXM 

=  000002 

#5-88 

TX.OVR 

=  000001 

#5-88 

TX.TMO 

=  000004 

#5-88 

TYSCHA 

=  000400 

#5-99 

43-3224 

TVSEVE 

=  001000 

#5-99 

43-3217 

TYSSTA 

=  002000 

#5-99 

TY$SUM 

=  000000 

#5-99 

TJFLAG 

000044 

#5-76 

TSLIF 

000013 

#5-76 

TSLIFl 

000013 

#5-76 

TSLIFO 

000013 

#5-76 

VDIS 
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VENA  -  VNP  ENABLE/DISABLE  LINES  MACRO  V05.03b  Wednesday  11-Sep-85  12:06 
SVENA  -  ENABLE/DISABLE  LINE 


A92 
494 

;  DISABLE  LINE 

000676 

032767 

OOOOOOG 

OOOOOOG 

130$: 

BIT 

#VF.DLX,$VFLAG  ; 

49S 

000704 

001013 

BNE 

140$          ; 
#LF.ENA,L.FLG(R1) 

A9(S 

000706 

032761 

OOOOOOG 

OOOOOOG 

BIT 

497 

000714 

001420 

BEQ 

1 70$ 

49R 

000716 

105761 

OOOOOOG 

TSTB 

L.NSTA(RI) 

499 

000722 

001404 

BEQ 

140$          ; 
*Sf.ENA,S.FLG(R05 

sno 

000724 

132760 

OOOOOOG 

OOOOOOG 

BITB 

sni 

000732 

001411 

BEQ 

1 70$ 

sn? 

000734 

140$ 

CALL 

DS8LIN 

503 
504 
505 

000740 

000402 

BR 

160$ 

000742 

150$ 

CALL 

SER8IT 

5U6 
507 

000746 

005705 

160$ 

TST 

R5 

508 
509 

510 

000750 
000752 
000756 

001402 

BEQ 

PUTRC 

BIC 

170$ 

042767 

OOOOOOG 

OOOOOOG 

170$ 

#VF.DLX,$VFLAG  ; 

511 

000764 

RETURN 

b^^ 

5  13 
514 

000766 

180$ 

ERRPT$ 

ERR1,$ER0UT, FATAL 

515 

001002 

190$ 

ERRPT$ 

ERR2,$ER0UT     ; 

516 

001012 

200$ 

ERRPT$ 

ERRS, $EROUT, FATAL 

517 

001026 

210$ 

ERRPT$ 

ERR6,$ER0UT 

518 

001036 

032767 

OOOOOOG 

OOOOOOG 

220$ 

BIT 

*VF.ON,$VFLAG 

519 

001044 

001404 

BEQ 

230$ 

5?n 

001046 

ERRPT$ 

ERR7^$ER0UT 
ERR77,$ER0UT 

5?1 

001056 

2i()$ 

ERRPT$ 

522 

001066 

240$ 

ERRPT$ 

ERR21,$ER0UT 

Page  11-2 


DLX  ONLY  SYSTEM  ? 

BR  IF  YES 

;  IS  CIRCUIT  ALREADY  OFF? 

IF  EQ,  YES 

MULTIPOINT  LINE? 

BR  IF  NO 

;  IS  CIRCUIT  ALREADY  OFF? 

BR  IF  YES 

ELSE,  DISABLE  THE  LINE 

CONTINUE 

SET/CLE  SERVICE  BIT 


REWRITE  DESCRIPTOR? 
IF  EQ  THEN  NO 
REWRITE  DESCRIPTOR 
CLEAR  DLX  ONLY  BIT 


NO  LONGER  NEEDED 


;  CHANNEL  NOT  IN  XPT'S  DATA  BASE 

LINE  NOT  ASSIGNED  TO  XPT 

;  CHANNEL  TABLE  INCONSISTENT  WITH  REVTAB 

ACP  LOADED 

TURNING  LINE  ON  ? 

NO 

LINE  NOT  LOADED 

TRIB  DOES  NOT  EXIST 


L  11 

UFNA  -  VNP  ENABLE/DISABLE  LINES  MACRO  V05.03b  Wednesday  ll-3ep-85  12:06  Page  12 


K  12 

VENA  -  VNP  ENABLE/DISABLE  LINES  MACRO  V05.03b  Wednesday  11-Sep-85  12:06 
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998 
999 
1000 
1001 
100^ 
10C3 
100^ 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
lOU 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
102^4 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
103A 
1035 
1036 
1037 
1038 
1039 
lOAO 
10A1 
1042 
1043 
104A 
10A5 
1046 
1047 
1048 
1049 


002732 
002732 
002736 
002744 
002746 
002752 
002756 
002760 
002766 
002770 
002774 
003000 
003004 
003006 
003012 
003014 
003022 
003040 
003044 
003050 
003052 

003054 
003072 
003100 
003102 
003104 
003106 
003110 
003112 


003114 
003124 


.SBT1L  FNDDMP  -  FIND  THE  DHP  TRIBUTARY  TABLE  FOR  A  LINE 

'♦♦-FNDDMP-FIND  THE  DMP  TRIBUTARY  TABLE  FOR  A  LINE 

THIS  ROUTINE  IS  CALLED  TO  FIND  THE  DMP  TRIBUTARY  TABLE  FOR  A  LINE. 

INPUTS: 

$SLTA  =   SLT  ADDRESS 
$TRIB   =   TRIBUTARY   ADDRESS 

OUTPUTS: 

C-8IT  =  ERROR  INDICATOR 

Z-SIT  =  SEARCH  SUCCESS/FAILURE  INDICATOR 

R0-R2  =  DESTROYED 


016700 
032760 
001463 
116002 
066702 
011202 
022762 
001047 
016001 
005067 
005767 
100406 
022701 
101003 
016067 

012702 
062702 
011202 
001424 


126767 
001363 
000244 
000401 
000264 
000241 


OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 

015430  OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

120000 

OOOOOOG  OOOOOOG 

OOOOOOG 
000014 


FNDDMP: 


10$: 
20$: 


000005G  OOOOOOG 


30$: 
40$: 


MOV 

BIT 

BEQ 

M0V8 

ADD 

MOV 

CMP 

BNE 

MOV 

CLR 

TST 

BMl 

CMP 

BHl 

MOV 

GETAD 

MOV 

ADD 

MOV 

BEQ 

GETAD 

CMP8 

BNE 

CLZ 

BR 

SEZ 

CLC 

RETURN 


$SLTA,RO 

#LF.RDY,L.FLG(RO) 

101$ 

L.DLC(R0),R2 

$PDVTA,R2 

(R2),R2 

#»RDMP,Z.NAM(R2) 

30$ 

L.DLS(R0),R1 

$R8LCK 

.MGMGE 

10$ 

#120000, Rl 

10$ 

L.DLM(RO),$RBLCK 

R1,*P.LEN 

#$8FR,R2 

#P.TR1B,R2 

(R2),R2 

102$ 

R2,#T.TRLG 

$BFR+T.TRLN,$TRI8 

20$ 

40$ 


ERROR  CONDITIONS 


101$: 
102$: 


ERRPT$ 
ERRPT$ 


ERR35,$EROUT 
ERR21,$ER0UT 


GET  SLT  ADDRESS 

IS  THIS  LINE  READY  ? 

IF  EQ,  NO  ..  ERROR 

ELSE,  GET  THE  DLC  PDV  INDEX 

POINT  INTO  THE  PDV  MAPPING  TABLE 

POINT  TO  THE  PDV 

IS  THIS  THE  DMP? 

IF  NE,  NO  ..  ERROR 

GET  THE  PCL  VIRTUAL  ADDRESS 

ASSUME  UNMAPPED  SYSTEM  OR  DSR  ALLOC. 

IS  THIS  A  MAPPED  SYSTEM  ? 

IF  MI,  NO 

ELSE,  IS  THE  LINE  TABLE  MAPPED  ? 

IF  HI,  NO 

ELSE,  MAP  TO  THE  PCL  PROCESS 

AND  READ  IN  THE  DMP  DATA  BASE 

POINT  TO  I/O  BUFFER 

POINT  TO  THE  STATION  TABLE  LISTHEAD 

GET  THE  NEXT  ENTRY 

IF  EQ,  NOT  HERE  -  ?? 

ASSUME  $RBLCK  ALREADY  SET  UP 

READ  IN  THE  STATION  TABLE 

IS  THIS  THE  TRIBUTARY  ? 

IF  NE,  NO  ..  KEEP  LOOKING 

INDICATE  SUCCESS 

AND  RETURN 

INDICATE  ERROR 

INDICICATE  NO  ERROR  DETECTED 


LINE  IN  WRONG  STATE 
LINE  NOT  IN  SYSTEM 
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VENA  -  VNP  ENABLE/DISABLE  LINES 

MACRO  VC 

FIND  PLACE  TO  INSERT  OBJECT  BLOCK 

1598 

1599 

1600 

1601 

1602 

1603 

160A 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

005376 

1612 

005376 

012702 

OOOOOOG 

1613 

005402 

011267 

OOOOOOG 

16U 

005406 

010146 

1615 

005410 

010267 

000164' 

1616 

005414 

016767 

000164' 

000166' 

1617 

005422 

016767 

OOOOOOG 

000164' 

1618 

005430 

001417 

1619 

005432 

1620 

005444 

1621 

005462 

121667 

000002G 

1622 

005466 

101352 

1623 

005470 

016701 

000166' 

162A 

005474 

005726 

1625 

005476 

,03b  Wednesday  11-Sep-85  12:06  Page  29 

.SBTTL  FIND  PLACE  TO  INSERT  OBJECT  BLOCK 

»*•  -  FIN08J  -  FIND  PLACE  TO  INSERT  OBJECT 

INPUTS: 

Rl  =  OBJECT  TYPE  NUMBER  TO  BE  INSERTED 

OUTPUTS: 

RO  =  PRESERVED 

Rl  =  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 

R2  =  DESTROVED 


FINOBJ: 


10$: 


20$: 


30$: 


MOV 

#$08JHD,R2 

MOV 

(R2),$BFR 

MOV 

R1,-(SP) 

MOV 

R2,CURUNM 

MOV 

CURUNM,PRVUNM 

MOV 

$BFR,CURUNM 

BEQ 

30$ 

CEACC$ 

CUfiUNM,R2 

GETAD 

R2,#0.LEN 

CMPB 

(SP),$BFRtO.TYP 

BHJ 

10$ 

MOV 

PRVUNM.RI 

TST 

(SP)  + 

GET  START  OF  OBJECTS  LIST 

GET  FIRST  OBJECT  IN  LIST 

SAVE  OBJECT  NUMBER  ON  STACK 

INITIALIZE  CURRENT  UNMAPPED  ADDRESS 

SAVE  UNMAPPED  ADDRESS  OF  PREVIOUS 

GET  NEXT  OBJECT  IN  LIST 

IF  EQ,  NO  MORE 

CONVERT  TO  MAPPED  ADDRESS 

READ  OBJECT  IN  INTERNAL  BUFFER 

DOES  OBJECT  GO  HERE  ? 

IF  HI,  NO 

RETRIEVE  UNMAPPED  ADDRESS  OF  PREVIOUS 

CLEAN  UP  STACK 


RETURN 
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2073 
2074 
2075 

.SBTTL  $SMOD  -  MOUNT/DISMOUNT  TF 
»*-$SMOD-  MOUNT/DISMOUNT  THE  X25ACP 

E  X25ACP 

2076 
2077 
2078 
2079 

INPUTS: 

IVFLAG 

--  TRANSITORY  FLAGS 

2080 
2081 

OUTPUTS: 

X25ACP 

IS  MOUNTED/DISMOUNTED  OR  ERROR  CONDIIION  IS  REPORTED 

2082 
2083 

2084  007524 

2085  007524 

2086  007530 

2087  007534 

2088  007536 
2089 

2090  007540 

2091  007546 

2092  0O755G 
2093 

2094  007560 
2095 

2096  007562 

2097  007566 

2098  007572 

2099  007576 

012700 
103001 

055430 

$SMOD:: 

MOV 
CALL 
BCC 
RETURN 

#'>RNW,RO 

$FPDV 

1$ 

GET  NWS  PROCESS  NAME 
IS  IT  IN  SYSTEM? 
BR  IF  YES 

032767 
001005 

OOOOOOG 

OOOOOOG 

$: 

BIT 
BNE 
ERRPT$ 

#VF.SS,$VfLAG 

5$ 

ERR49,$ER0UT 

S-SYSTEM  ? 

IF  YES  -  BRANCH 

NO  MOD  X25-S  STA  ON  FOR  M/M* 

;[MP01] 
;[MP01D 

RETURN 

010167 
012700 

103566 

000072- 
000004' 

)$: 

MOV 
MOV 
CALL 
BCS 

RI.PDVX 
*X25NAM,R0 
TSKSCH 
103$ 

SAVE  PDV  INDEX 

POINT  AT  RAD50  ACP  NAME 

GET  TCB  ADDRESS 

TASK  NOT  IN  SYSTEM  ! 

2100 
2101 

2102  007600 

2103  007606 
2104 

2105 

2106  007610 

2107  007614 

2108  007620 

2109  007626 

2110  007630 

2111  007632 

2112  007634 

2113  007636 

2114  007642 

2115  007644 

2116  007652 
2117 

2118  007654 

2119  007662 
2120 

2121 
2122 
2123 

2124  007664 

2125  007670 
2126 

2127 
2128 
2129  007674 

032767 
001574 

002000 

000034G 

.IF  NDF 
BIT 
BEQ 
.ENDC 

R$$MPL 

#T2.FXD,T.ST2+$BFR 

105$ 

ACP  FIXED  IN  MEMORY  ? 
IF  EQ,  NO 

.■CMP01] 
.-CMPOI] 

012700 
012701 
032767 
001003 
010046 
010100 
012601 

103562 
032767 
001404 

032767 
001572 

000014' 
000010' 
OOOOOOG 

OOOOOOG 
002000 

OOOOOOG 

OOOOOOG 
000034G 

10$: 

MOV 

MOV 

BIT 

BNE 

MOV 

MOV 

MOV 

CALL 

BCS 

BIT 

BEQ 

.IF  NDF 

BIT 

BEQ 

.ENDC 

#NTI11S,R0 

#NTINAM,R1 

#VF.SS,$VFLAG 

10$ 

R0,-(SP) 

R1,R0 

(SP)+,R1 

TSKSCH 

107$ 

#VF.SS,$VFLAG 

15$ 

R$$MPL 

*T2.FXD,T.ST2+$BFR 

108$ 

ASSUME  IIS 

PRESET  FOR  ERROR 

IS  THIS  AN  S-SYSTEM  ? 

YES 

SWAP  NAMES 

GEt  TCB  ADDRESS 

■  TASK  NOT  INSTALLED 
S-SYSTEM  ? 

•  IF  NOT  -  BRANCH 

■  IS  TASK  FIXED 

•  TASK  NOT  FIXED 

;[MPOn 
; CMPOI] 

;  QUEUE 

SEND  DATA  ^0  NTINIT 

016705 
012701 

OOOOOOG 
000044 

15$: 

MOV 
MOV 

$RADDR,R5 
#36.,r1 

;  TCB  ADDRESS 

;  SIZE  OF  SEND  DATA  I/O  PACKET 

;■  CHECK 

IF  MOUNT  OR  DISMOUNT 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#VF.0N,$VfLA6 

;  MOUNT  PASS  TO  STRT  TIMERS 

v/MD     CMADl   C/hTCADi    P      I    IMFQ     MAfRn     \lOK     O^h     UpHnPQrl;:i\ 
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2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 

2681 

2682 

2683 

268A 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

269A 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

270A 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 


012536 
012536 
01254A 
0125A6 
012552 
012554 
012556 
012560 
012566 
012570 
012574 
012600 
012602 
012604 
012606 
012614 
012616 
012622 
012624 
012626 
012634 
012636 
012642 
012644 
012646 
012652 
012654 


C12656 
012666 


032767 
001005 
105767 
000241 
001437 
000443 
032767 
001037 
012701 
012702 
105021 
005302 
003375 
032767 
001404 

103014 
000414 
032767 
001404 

103004 
000404 

103401 


.S8TTL  CKNAME  -  CHECK  FOR  VALID  SINK  NAME 


CKNAME  -  CHECK  FOR  VALID  SINK  NAME 

INPUTS: 

SCMAND     -  COMMAND  TVPE 

SOPrON     -  OPTIONS  WORD 

$QUAL      -  COMMAND  QUALIFIER  WORD 

RQS+LO.SNM  -  ASCII  SINK  NAME 

OUTPUTS: 

CARRY  SUCCESS/FAILURE 


CKNAME : 


OOOOOOG  OOOOOOG 
000035G 

000004     OOOOOOG  10$ 


000134' 
000064 


20$ 
30$ 


000100     OOOOOOG 


000400  OOOOOOG  40$: 


50$: 
60$: 


ERRORS 


101$: 
102$: 


BIT 

#CM$SET,$CMAND 

BNE 

10$ 

TST8 

RQBHO.SNM 

CLC 

BEQ 

60$ 

BR 

102$ 

BIT 

#QF$KN0,$QUAL 

BNE 

102$ 

MOV 

#F]LNAM,R1 

MOV 

#M)(F]L+MXC0N+MXM0N,R2 

CLR8 

(R1)  + 

DEC 

R2 

BGT 

30$ 

BIT 

*0P$M0N,$0PT0N 

BEQ 

40$ 

CALL 

CKMON 

8CC 

60$ 

BR 

101$ 

BIT 

#0P$C0N,$OPT0N 

BEQ 

50$ 

CALL 

CKCON 

BCC 

60$ 

BR 

101$ 

CALL 

CKFIL 

BCS 

101$ 

RETURN 

ERRPT$ 

ERR39,$?R0UT 

ERRPT$ 

ERR42,$ER0UT 

IS  THIS  A  SET  COMMAND? 

BR  IF  YES 

WAS  A  NAME  SPECIFIED? 

ASSUME  NO  NAME  SPECIFIED 

BR  IF  NO  -  OK 

CI  cc  FRROR 

IS  THIS  FOR  KNOWN  LOGGING? 

BR  IF  YES  -  ERROR 

POINT  TO  SINK  NAME  STORAGE 

GET  MAXIMUM  LENGTH  OF  SINK  NAME 

INITIALIZE  SINK  NAME 

MORE  TO  INITIALIZE? 

BR  IF  YES 

IS  THIS  FOR  LOGGING  MONITOR? 

BR  IF  NO 

CHECK  FOR  VALID  MONITOR  NAME 

ANU  EXIT  OF  SUCCESSFUL 

ELSE  BAD  SINK  NAME 

IS  THIS  FOR  LOGGING  CONSOLE? 

BR  IF  NO 

CHECK  FOR  VALID  CONSOLE  NAME 

AND  EXIT  IF  SUCCESSFUL 

ELSE  BAD  SINK  NAME 

ELSE  MUST  BE  LOGGING  FILE 

BR  IF  INVALID  SINK  NAME 


INVALID  SINK  NAME 

INVALID  PARAMETER  GROUPING 


unD    CMftDi  c  /^^:c^□l  c     i    r\iCC    MATDn    \/n^    n7K    1.10H 
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3?1? 
W15 
32U 
3215 
3216 
3217 
3218 
5219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 


OU610  012705     000076' 

0K6U  012705     OOOOOAG 

0U620 

0K62'.  103413 

0U626 

0K632  103010 

0U634  000410 

014656 

014642  105004 

014644  012705  OOOOOOG 

014650 

014654 


014656 


MOV 

#TMPMSK,R3 

20$: 

MOV 

#RQS*L0.EVT,R5 

CALL 

CLREVT 

BCS 

50$ 

30$: 

CALL 

SETFIL 

BCC 

50$ 

BR 

101$ 

40$: 

CALL 

FILOPR 

BCC 

50$ 

MOV 

#$BFR,R5 

CALL 

DEAFIL 

50$: 

RETURN 

•  ERROR 

MESSAGES 

101$: 

ERRPT$ 

ERR38,$ER0UT 

POINT  TO  GLOBAL  FILTER  BLOCK  MASKS 

POINT  TO  FILTER  MASKS 

CLEAR  ANY  MASKS  SET  IN  GLOBAL  BLOCK 

BR  IF  NO  WORK  TO  DO 

CREATE  A  FILTER  BLOCK 

BR  IF  FILTER  BLOCK  CREATED 

BR  IF  ERROR 

PERFORM  OPERATION  ON  FILT;R  BLOCK 
BR    IF    UNNECESSARY    TO  DEALLOCATE   BLOCK 
POINT    TO  FILTER  BLOCK    TO   DEALLOCATE 
DEALLOCATE    THE    FILTER  BLOCK 


;    UNABLE    TO  ALLOCATE    FILTER  BLOCK 


TM  noi    CI 


,  I  C  ADl    C 


TMCC     MATDn     \ir\K     n7K     \.lc,Ar\acA::^\, 
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1550  010060 

001017 

BNE 

160$ 

BR  IF  NO 

1531  010062 

026267 

000014 

OOOOIOG 

CMP 

LR.NAM+2(R2),$BFR+D$LNAM< 

2  ;  ... 

••552  010070 

001015 

BNE 

160$ 

BR  IF  NO 

1555  010072 

026267 

000016 

000012G 

CMP 

LR.NAM+4(R2),$BFRO$LNAMH 

4  ;  ... 

1554  010100 

001007 

BNE 

160$ 

BR  IF  NO 

1535  010102 

1556  010104 

1557  010104 

000470 

150$: 

BR 

220$ 

ELSE  DO  SHOW  EXECUTOR 

026267 

000012 

000014G 

CMP 

LR.ADD(R2),iBFRtD$LNUM  . 

IS  THIS  THE  EXECUTOR  NODE? 

1558  010112 

001464 

BEQ 

220$ 

BR  IF  YES 

1539  010114 

005715 

TST 

(R5) 

ANY  NODES  IN  SYSTEM? 

1540  010116 

001453 

BEQ 

210$ 

BR  IF  NO 

1541  010120 

160$: 

CALL 

NXT8LK 

GET  NEXT  REMOTE  NODE  NAME  BLOCK 

1542  010124 

105450 

BCS 

,  1 0$ 

BR  IF  NOT  IN  SYSTEM 

1543  010126 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#VF.ADD,$VFLAG 

DID  USER  SPECIFY  ADDRESS? 

1544  010154 

001015 

BNE 

170$ 

BR  F  YES 

1545  010156 

026265 

000012 

000002 

CMP 

LR.NAM(R2),R.NAM(R3) 

IS  THIS  THE  ONE  WE  ARE  LOOKING  FOR? 

1546  010144 

001365 

BNE 

160$            ,  ,, 

BR  IF  NO 

1547  010146 

026263 

000014 

000004 

CMP 

LR.NAM+2(R2),R.NAM+2(R5) 

;  ... 

1548  U10154 

001561 

BNE 

160$ 

BR  IF  NO 

1549  010156 

026265 

000016 

000006 

CMP 

LR.NAMt4(R2),R.NAM+4(R3) 

;  ... 

1550  010164 

001355 

BNE 

160$ 

BR  IF  NO 

1551  010166 

000404 

BR 

180$ 

THIS  IS  THE  ONE.  DISPLAY  IT 

1552  010170 

026265 

000012 

000010 

170$: 

CMP 

LR.ADD(R2),R.ADD(R5) 

IS  J^•        THE  ONE  WE  ARE  LOOKING  FOR? 

1555  010176 

001350 

BNE 

160$ 

BR  U  ivO 

1554  010200 

026267 

000012 

171016 

180$: 

CMP 

LR.ADD(R2),TEMP4 

IS  THIS  THE  EXECUTOR  NODE? 

1555  010206 

001426 

BEQ 

220$ 

BR  IF  YES 

1556  010210 

ERRPT$ 

NMSGl.MSGOUT 

DISPLAY  HEADER  MESSAGE 

1557  010220 

005004 

CLR 

R4 

INDICATE  DISPLAY  COLUMN  HEADER 

1558  010222 

005763 

000012 

TST 

R.FLAG(R5) 

IS  IT  A  LOOPBACK  NODE? 

1559  010226 

100003 

BPL 

190$ 

BR  IF  NO 

1560  010250 

CALL 

DISLOO 

DISPLAY  LOOPBACK  NODE  INFORMATION 

1561  010254 

000402 

BR 

200$ 

FINISHER 

1562  010236 

190$: 

CALL 

DISNOD 

DISPLAY  THE  NODE  INFORMATION 

1563  010242 

000167 

001546 

200$: 

JMP 

510$ 

FINISHED 

1564  010246 

210$: 

DIR$ 

#TIDET 

DETACH  TERMINAL 

1565  010254 

1566 

'567 

ERRPT$ 

NERR1,$ER0UT 

NODE  NOT  IN  SYSTEM 

;  SHOW 

EXECUTOR 

■■568 

1569  010264 

1570 

1571 

J20$: 

ERRPT$ 

NMSG1,MSG0UT 

DISPLAY  HEADER 

;  MAKE 

CHECK  FOR  DLX  ONLY  —  PROCESSING 

JILL  BE  DII-FERENT  IF  TRUE 

1572 

1573  010274 

012700 

015570 

• 

MOV 

*"RDLX,RO 

LOOK  FOR  DLX  PROCESS 

1574  010500 

CALL 

FNDPDV 

•  CAN  WE  FIND  PDV  ? 

'575  010304 

103407 

BCS 

250$ 

•  NO  -  MUST  NOT  BE  DLX  ONLY 

1576  010306 

012700 

114224 

MOV 

#»RXPr,RO 

•  CHECK  FOR  XPT 

'577  010512 

CALL 

FNDPDV 

•  IS  PDV  THERE  ? 

1578  010316 

103002 

8CC 

250$ 

;  YES  -  NOT  DLX  ONLY  -  CONTINUE 

'579  010320 

1580 

158' 

1582 

1583  0'C324 

'584 

•5=5  C10330 

000'67 

001454 

JMP 

500$ 

■  NO  -  DLX  ONLY  SYSTEM 

;  DISPLAV  EXECUTOR  ADDRESS  AND  NAME 

J30$: 

CALL 

GTEXEC 

;  GET  EXECUTOR  ADDRESS  AND  mAME 

0'6701 

170500 

MOV 

TEMPI, R1 

;  COPY  EXECUTOR  ADDRESS 

'586  C'05?4 

042767 

OOOOOOG 

170472 

BIC 

#ARAMSIC,  TEMPI 

;  STRIP  OFF  AREA  BITS 

n  1 
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2196 

2197 

•  MATCH 

ON  CONTROLLER  NUMBER 

2198 

2199  015350 

032767 

000400 

OOOOOOG 

BIT 

#UC.CNT,$QUAL 

WILD  CARD  CONTROLLER? 

2200  015356 

001004 

BNE 

110$ 

BR  F  YES,  MATCH 

2201  015360 

126067 

000012 

000004G 

CMPB 

L.CTL(RO),LR.CTL+RQB 

IS  THIS  A  MATCH? 

2202  015366 

001355 

BNE 

90$ 

RR  IF  NO 

2203 

2204 

•  MATCH 

ON  UNIT 

NUMBER 

2205 

2206  015370 

032767 

001000 

OOOOOOG 

110$: 

BIT 

*WC.UNT,$QUAL 

WI'-D  CARD  UNIT? 

2207  015376 

001C04 

BNE 

120$ 

b:<   if  yes,  match 

2208  015400 

126067 

000013 

000005G 

CMPB 

L.UNT(RO),LR.UNTtROB 

IS  THIS  A  MATCH? 

2209  015406 

001345 

BNE 

90$ 

BR  IF  NO 

2210  015410 

120$: 

CALL 

DISLIN 

DISPLAY  LINE  INFORMATION 

2211  015414 

005204 

INC 

R4 

INDICATE  HEADER  TO  BE  DISPLAYED 

2212  015416 

2213 

2214 

000741 

BR 

90$ 

CONTINUE  SCAN 

;  SHOW 

KNOWN  LINES 

2215 

2216  015420 

012700 

000456' 

'60$: 

MOV 

#L!<NOWN,RO 

GET  STRING  FOR  HEADER  MESSAGE 

2217  015424 

112021 

70$: 

MOVE 

(R0)+,(R1)t 

STORE  STRING 

2218  015426 

001376 

BNE 

170$ 

2219  015430 

005004 

CLR 

R4 

INDICATE  HEADER  TO  BE  DISPLAYED 

2220  015432 

180$: 

CALL 

NXTLIN 

•  GET  NEXT  LINE  IN  SYSTEM 

2221  015436 

103412 

BCS 

190$ 

•  BR  IF  END  OF  TABLE 

2222  015440 

026127 

OOOOOOG 

015355 

CMP 

Z-NAMCRD-^'ROLM 

•  I"^  THIS  DLM? 

2223  015446 

001771 

BEQ 

180$ 

•  BR  IF  YES  -  NOT  REALLY  A  LINE 

2224  015450 

CALL 

DISLIN 

■  DISPLAY  LINE  INFORMATION 

2225  015454 

005204 

INC 

R4 

•  INDICATE  HEADER  NOT  TO  BE  DISPL 

222o  015456 

000765 

BR 

180$ 

•  GET  NEXT  LINE 

2227  015460 

005704 

187$: 

TST 

R4 

■  WAS  THE  SPECIFIED  LINE  FOUND? 

2228  015462 

2229 

2230  015464 

001404 

BEQ 

200$ 

•  BR  IF  NO 

190$: 

DIR$ 

*TIDET 

;  DETACH  TERMINAL 

2231  015472 

2232 

2233  015474 

RETURN 

;  FINISHED 

200$: 

DIR$ 

#TIDET 

;  DETACH  TERMINAL 

2234  015502 

ERRPT$ 

LIERR1,$ER0UT 

;  LINE  NOT  IN  SYSTEM 

2235 

2236 

.ENA8L 

LC 

2237 

2238 
22^9 
2240  015512 

■  ErSOfi 

MESSAGES 

ERMSG$ 

<  Line  not  in  system> 

2241  015535 

ER8LK$ 

L1ERR1 
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DMGRP  -  SHOW  MODULE  X25-PROTOCOL  GROUPS 


2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

27A1 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

mi 

217& 
2779 

2780 
2781 


021226 
021232 
021236 

021254 
021260 
021262 
021266 
021270 
021274 
021300 
021302 
021306 
021310 
021312 
021314 

021324 

021330 

021334 

021342 

021344 

021350 

021354 

021356 

021360 

021564 

021370 

0214'-"-' 

021'- 

0214, 

02142L 

021432 

021436 

021442 

021452 

021454 
021462 
021464 
021472 
021474 
021504 


016700  OOOOOOG 
062700  000010 


103475 

012702     001034' 

112022 

020227     001034' 

101404 

124227  000040 

001772 

005202 

105022 


.SBTTL  DMGRP  -  SHOW  MODULE  X25-PROTOC0L  GROUPS 


DMGRP  -  SHOW  MODULE  X25-PROTOCOL  WITH  GROUP  QUALIFIER 

INPUTS: 

SOPTON  -  OPTIONS  WORD 

LO.GRO+RQB  -  SPECIFIED  GROUP  NAME 

OUTPUTS: 

GROUP  INFORMATION  DISPLAYED  ON  USER'S  TERMINAL 


DMGRP: 

l0$: 

20$: 
30$: 

35$: 


005067  157526 

032767  000001  000014G 

001406 

012700  001062' 

012701  000750' 

112120  40$: 

001376 

016746  OOOOOOG        50$: 

016700  000012G 


012701  000020G 
116702  00001 7G 
012703  001034' 

012667  OOOOOOG 

000700 

132767  000004  160112  60$: 

001015 

032767  000100  OOOOOOG 

001005 

000404 


MOV 
ADD 
GETRV 

CALL 

BCS 

MOV 

MOVE 

SOB 

CMP 

BLOS 

CMPB 

BEO 

INC 

CLRB 

ERRPT$ 


$PSIPT,RO 
#H$CUG,RO 
R0,#2 

NXTGRP 

60$ 

#TEMP1,R2 

(R0)+,(R2)t 

Rl,20i 

R2,#TEMP1 

35$ 

-(R2),#SPACE 

30$ 

R2 

(R2)  + 

GRMS1,MSG0UT 


CALL 

CUNDEC 

CLR 

TEMP2 

BIT 

*GF$BUG,G$FLG+$8FR 

BEO 

50$ 

MOV 

#TEMP2,R0 

MOV 

#GRP8IL,R1 

MOVS 

(R1)+,(R0)+ 

BNE 

40$ 

MOV 

$BFR,-(SP) 

MOV 

G$DTEt$BFR,R0 

CEACC$ 

RO 

GETAD 

RO,#L$LEN 

MOV 

#$BFR+L$DTEA,R1 

MOVB 

$BFR+L$DTEL,R2 

MOV 

*TEMP1,R3 

CALL 

BCDASC 

MOV 

(SP)+,$BFR 

ERRPT$ 

GRMS2,MSGGUT 

BR 

10$ 

BITB 

BNE 

BIT 

BNE 

ERRPTS 

BR 


#F.FND, FLAGS 

80$ 

#0P$GRP,$0PT0N 

70$ 

NOINFO.MSGOUT 

80$ 


POINT  TO  PSI  HOME  BLOCK 
POINT  TO  CUG  LISTHEAD 
READ  II"  LISTHEAD 

Get  next  group  block  to  operate  on 
Branch  if  done 

Point  to  storage  for  group  name 
Store  group  name  using  length  and 
...  address  returned  by  NXTGRP 
Delete  trailing  spaces 


Create  ASCIZ  string 
Display  group  name 

CONVERT  CUG  NUMBER  TO  DECIMAL 

ASSUME  GROUP  IS  NOT  BILATERAL 

IS  IT  A  BILATERAL  TYPE? 

BR  IF  NO 

POINT  TO  STORAGE  FOR  TYPE  STRING 

POINT  TO  ASCIZ  STRING 

STORE  ASCIZ  STRING 

SAVE  POINTER  TO  NEXT  CUG  BLOCK 

POINT  TO  ADDRESS  OF  DTE  DESCRIPTOR 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  DTE  DESCRIPTOR 

POINT  TO  DTE  ADDRESS 

GET  NUMBER  OF  DIGITS  IN  ADDRESS 

POINT  TO  OUTPUT  BUFFER 

CONVERT  TO  ASCIZ 

RESTORE  POINTER  TO  NEXT  CUG  BLOCK 

DISPLAY  INFO  TO  USER'S  TERMINAL 

TRY  NEXT  BLOCK 

FOUND  A  CUG  BLOCK? 

BR  IF  YES 

SHOW  SPECIFIC  GROUP? 

BR  IF  YES 

DISPLAY  NO  INFORMATION  MESSAGE 

AND  EXIT 


;[TD001] 
.-CTDOOl] 
;[TD001] 
;CTD001] 
;CTD0013 
;CTD001] 
.-[TDOOl] 
;[TD001] 
; [TDOOl] 
;CTD00n 
; [TDOOl] 
; [TDOOl] 
.-[TDOOl] 
; [TDOOl] 
;**-12 
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FNDBK  -  Find  next  block  meeting  giuen  criteria 


L  4 
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3293  02A710 

005203 

329A  02^712 

012704  OOOOOOG 

3295  024716 

060204 

3296  024720 

3297  024724 

012603 

3298  024726 

103736 

3299 

3300 

3301 

3302  024730 

010301 

3303  024732 

100002 

3304  024734 

005401 

3305  024736 

000402 

3306  024740 

116101  OOOOOOG 

3307  024744 

012700  OOOOOOG 

3308  024750 

060200 

3309  024752 

000241 

3310  024754 

3311 

3312  024756 

000261 

3313  024760 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325  024762 

3326  024762 

005705 

3327  024764 

001404 

3328  024766 

122324 

3329  024770 

001004 

3330  024772 

005305 

3331  024774 

003374 

3332  024776 

C00241 

3333  025000 

3334  025002 

000261 

3335  025004 

INC 

MOV 

ADD 

CALL 

MOV 

BCS 


R3 

#$8FR,R4 

R2,R4 

MATCH 

(SP)+,R3 

5$ 


;  Get  address  of  data  in  buffer 

;  Look  for  a  match 

;  Restore  length  indicator 

;  If  no  match,  must  find  another  block 


Return  actual  length  and  address  of  matched  field 


50$: 


60$: 
70$: 


^9$: 


MOV 

BPL 

NEG 

BR 

MOVB 

MOV 

ADD 

CLC 

RETURN 

SEC 
RETURN 


R3,R1 

60i 

R1 

70$ 

$BFR(R1),R1 

#$8FR,R0 

R2,R0 


♦♦»  MATCH 
INPUTS 


Compare  byte  strings 


R3,  R4  -  Addresses  of  strings 
R5     -  Length  of  strings  to 

OUTPUTS 

Carry  clear  if  strings  match 
Registers  R3-R5  destroyed 


MATCH: 
5$: 

10$: 
20$: 


TST 

BEQ 

CMPB 

BNE 

DEC 

BGT 

CLC 

RETURN 

SEC 

RETURN 


R5 

10$ 

CR3)+,(R4)t 

20$ 

R5 

5$ 


;  Prepare  to  return  length  of  name 

;  If  positive,  need  to  look  in  block 

;  If  negative,  magnitude  is  length 

;  Get  actual  length  from  block 

;  Address  of  start  of  block 

;  Add  offset  to  give  address  of  name 

;  Signal  block  found 

;  No  block  found 


to  compare 
compare 


Check  if  strings  empty 
If  so,  this  is  a  match 
Compare  bytes  until  mismatch 


All  bytes  match 
No  match 


;[TD001] 
;CTD001] 
.■CTDOOIJ 
;[TD001] 
.•CTDOOI] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
.■[TDOOI] 
;CTD001] 
;CTD0013 
; [TDOOI] 
.•CTDOOID 
;CTD001] 
; [TDOOI] 
;  [TDOOI] 
; [TDOOI] 
;  [TDOOI] 
; [TDOOI] 
; [TDOOI : 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
;  [TDOOI] 
; [TDOOI] 
; [TDOOI] 
; [TDOOI] 
;  [TDOOI] 
;  [TDOOI] 
;  [TDOOI] 
;  [TDOOI] 
;  [TDOOI] 
;  [TDOOI] 
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DISNOD  -  DISPLAY  NODE  INFORMATION 


5848  027562 
38A9  027575 
3850 

3851  027606 

3852  027617 
3853 

3854 
3855 


ERMSGS  <  XD.XD  X^> 

ERBLKS  DNMSG9,<TEHP6,TEMP3, TEMPI  > 

ERMSGS  <  i!D.i!D  /!A> 

ERBLKS  DNMS10,<TEMP6,TEMP3, TEMPI > 


.DSABL  LC 
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DISLIN  -  DISPLAY  LINE  INFORMATION 
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4432  033276 
4h33  033302 
4A34  033304 
4435 
4436 
4437 

4438  033306 

4439  033312 

4440  033316 

4441  033322 

4442  033324 

4443  033326 

4444  033332 

4445  033336 

4446  033340 

4447  033344 

4448  033350 

4449  033354 

4450  033356 

4451  033362 

4452  033364 

4453  033366 

4454  033374 

4455  033404 

4456  033406 
4457 

4458 
4459 

4460  033416 

4461  033422 

4462  033426 

4463  033432 

4464  033434 
4465 

4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473  033440 

4474 

4475 

4476 

4477  033460 

4478  033466 

4479  033470 

4480  033474 

4481  033476 

4482  033500 

4483  033504 

4484  033506 

4485  033512 

4486  033514 

4487  033516 
A483  033520 


012704  000605' 

112425 

001376 


016600  000012 

016601  000010 
116003  000021 
005703 
001430 

012700  001202' 

066703  OOOOOOG 
011303 

016301  OOOOOOG 

124027  000040 

001004 

124027  000040 

001001 

005300 

112760  000000  000001 

000404 


20$: 


MOV 

MOVB 

BNE 


#LP0INT,R4 

(R4)+,(R5)t 

20$ 


GET  LINE  OWNER 


30$: 
50$: 


016600  000012 

016601  000010 
005760  000016 
001447 

012703  OOOOOOG 


60$: 


016367  000002  145346 

005046 

156316  000001 

006316 

006316 

012667  145356 

005000 

156300  000000 

000241 

106000 

106200 

•"06200 


MOV 

MOV 

MOVB 

TST 

BEQ 

MOV 

ADD 

MOV 

MOV 

CALL 

CMPB 

BNE 

CMPB 

BNE 

DEC 

MOVB 

ERRPT$ 

BR 

ERRPT$ 


12(SP),R0 

10(SP),R1 

L.NMST+1 fR0),R3 

R3 

50$ 

#TEMP3,R0 

$PDVTA,R3 

(R3),R^ 

Z.NAM(R3),R1 

$C5TA 

-(R0),*SPACE 

30$ 

-{RO),#SPACE 

30$ 

RO 

#0,1(R0) 

LMSG3,MSG0UT 

60$ 

LMSG9,MSG0UT 


GET  CONTROLLER  CSR,  VECTOR,  PRIORITY 


MOV 
MOV 
TST 
BEQ 
MOV 

.IF  DF 

MOV 

ADD 

GETRV 

SUB 

.IFF 
GETRV 

.ENDC 


12(SP),R0 

10(SP),R1 

L.KRBA(RO) 

80$ 

*$BFR,R3 

R$$MPL 

L.Kfi8A(R0),R0 

#K.PRM,R0 

RO,#$KRBLN 

#K.PRM,R3 


L.KR8A(R0),*K.CSR+2 


ELSE  IT  MUST  BE  POINT-TO-POINT 
STORE  LINE  TYPE  STRING 


RESTORE  RO 

RESTORE  R1 

ASSUME  OWNER  IS  IN  LINE  SLT 

IS  THERE  AN  OWNER  SET? 

BR  IF  NO 

STORAGE  FOR  LINE  OWNER 

INDEX  INTO  PDV  TABLE 

GET  PDV  ADDRESS 

GET  OWNER  NAME  IN  RAD50 

CONVERT  IT  VO  ASCII 

DELETE  TRAILING  BLANKS 


CREATE  ASCIZ  STRING 
PRINT  TYPE,  OWNER 
CONTINUE  WITH  CSR 
DISPLAY  TYPE 


RESTORE  RO 

RESTORE  R1 

IS  LINE  LOADED? 

BR  IF  NO 

GET  ADDRESS  OF  AREA  TO  READ  IN  KRB 

;[MP01] 
GET  KRB  ADDRESS  ;[MP01] 

GET  ACTUAL  KRB  START         ;[MP01] 
READ  KRB  ;[MP013 

ADD  K.PRM  (K.PRM  IS  NEGATIVE); [MP01] 


GET  KRB  ADDRESS 


;[MP01] 


MOV 

K.CSR(R3), TEMPI 

GET  CSR 

CLR 

-(SP) 

USE  SCRATCH  WORD  ON  STACK 

BIS8 

K.VCT(R3),(SP) 

GET  VECTOR/4,  DON'T  SIGN  EXTEND 

ASL 

(SP) 

MULTIPLY  BY  4  TO  GET  VECTOR 

ASL 

(SP) 

.  •  ■ 

MOV 

(SP)+,TEMP2 

GET  VECTOR 

CLR 

RO 

INIT  REG 

BIS8 

K.PRI(R3),R0 

GET  PRIORITY 

CLC 

DON'T  SIGN  EXTEND 

R0R8 

RO 

GET  PRIORITY  IN  LOW  THREE  BITS 

ASR8 

RO 

ASRB 

RO 
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BCDA5C  -  CONVERT  BCD  TO  ASCII 


49U 

4915 

4916 

4917 

4918 

4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

.934 

4935 

4936 

4937 

4938 

4939 

4940 

4941 

4942 

49-,  5 

4944 

4"45 

4946 

4947 

4948 

4949 


035464 
035466 
035470 


035502 
035506 
035510 
035512 
035514 
035516 
035522 
035526 
035550 
035532 
035534 
035536 


005005 
152105 
010546 
000004 


062716 
112623 
005302 
003411 
010546 
042716 
062716 
112623 
005302 
003354 
105023 


.SBTTL  BCDASC  -  CONVERT  BCD  TO  ASCII 


BCDASC  -  CONVERT  BCD  TO  ASCII 

INPUTS: 

Rl  -  ADDRESS  OF  BCD  VALUE  TO  CONVERT 

R2  -  LENGTH  OF  BCD  VALUE  (NUMBER  OF  DIGITS) 

R3  -  NEXT  AVAILABLE  BYTE  IN  OUTPUT  BUFFER 

OUTPUTS: 

R3  -  UPDATED 

REGISTERS  MODIFIED 
R1,R2,R5 


000060 


177760 
000060 


BCDASC:  CLR 
BISB 
MOV 
.REPT 
ASR 
.ENDR 
ADD 
MOVB 
DEC 
BLE 
MOV 
BIC 
ADD 
MOVB 
DEC 
BGT 
CLR8 


10$: 


RETURN 


R5 

(R1)+,R5 

R5,-(SP) 

4 

(SP) 

#60,(SP> 

(SP)+,(R3)+ 

R2 

10$ 

R5,-(SP) 

#»C<17>,(SP) 

*60,(SP) 

(SP)+,(R3)+ 

R2 

BCDASC 

(R3)t 


INITIALIZE  DIGIT 
GET  TWO  DIGITS 
COPY  THEM 

GET  HIGH  FOUR  BITS 

CONVERT  TO  ASCII 

STORE  DIGIT  IN  OUTPUT  BUFFER 

DECREMENT  COUNT 

BR  IF  FINISHED 

GET  DIGITS 

ISOLATE  LOW  FOUR  BITS  (SECOND  DIGIT) 

CONVERT  TO  ASCII 

STORE  SECOND  DIGIT  IN  OUTPUT  BUFFER 

DONE? 

BR  IF  NO 

CREATE  ASCIZ  STRING 
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VDIS      CREATED  BY  MACRO  ON  15-JUL-85  AT  12:17 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


DSOUTT 

DSPAL 

D$PR1 

DSPRL 

DSRETF 

DtRNN 

DSSEG 

OSSHI 

DSSLO 

D$USL 

D$VBL 

D.LEN 

D.NAM 

D.UCB 

D.UCBL 

D.UNIT 

ENABLE 

EVENT 

EVTMSK 


0000^3 
000026 
000002 
00002A 
000050 
000002 
000036 
000020 
000016 
000025 
000032 
000036 
000004 
000002 
000010 
000006 
000477 
000000 


001034  R 


E$NBR 

000014 

E$NBS 

000020 

ESNCR 

000034 

ESNCS 

000036 

E$NIC 

000044 

ESNLEN 

000050 

ESNLLA 

000012 

EINLNK 

000000 

ESNML 

000040 

E$NMR 

000024 

E$NMS 

000030 

ESNNOD 

000002 

ESNRT 

000042 

ESNRTP 

000005 

ESNSEG 

000010 

ESNTIM 

000046 

ESNUSE 

000004 

ESSTRT 

000006 

FF.ADD 

=  000020 

FF.CIR 

=  000040 

FF.CON 

=  000001 

FF.FIL 

=  000002 

FF.HST 

=  040000 

FF.LIN 

=  000010 

FF.MOD 

=  000100 

FF.MON 

=  000004 

FF.MSK 

^  000077 

FF.PRT 

=  000200 

"■F.OUL 

=  000370 

FF.REM 

=  100000 

FLAGS 

001574  R 

REFERENCES 

26-1723 
40-2967 
40-2980 
40-2958 
26-1719 
22-1299 
26-1714 
40-3051 
40-3050 
40-2960 
40-2996 

#7-294 
31-2355 
49-3581 
49-3582 
49-3584 

#6-202 

#6-116 

#7-314 
19-1119 

*20-n97 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-84 

#5-84 

#5-84 

#5-84 

#5-84 

#5-84 

#5-84 

#5-84 

#5-84 

#5-84 

#5-84 

#5-84 

#6-258 


31-2354 
49-3579 
62-4853 


53-4161 

43-3216 

7-315 

♦20-1189 

♦20-1198 


5-84 
5-84 
13-825 
13-829 

5-84 

5-84 

13-821 

12-728 

5-84 

17-979 
♦19-1126 
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40-2998 
40-2984 

25-1398    26-1440    26-1485    53-4209 

40-3055 
40-3051 


49-3578 
62-4851 


♦19-1088 
♦20-1190 
♦20-1199 


62-4850 


♦19-1089 
♦20-1191 
♦20-1200 


♦19-1090 

♦20-1192 

24-1377 


♦  19-1091 
♦20-1193 


19-1113 
♦20-1194 


19-1115 
♦20-1195 


19-1117 
♦20-1196 


19-1097 


19-1093 


19-1102    19-1109 


17-986 
19-1138 


♦  1'-1143   ^19-1144 


19-114f 


♦19-1155    23-1344   ♦23-1350 


VDIS 
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VDIS       CREATED  BY  MACRO 
SYMBOL  CROSS  REFERENCE 
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SYMBOL   VALUE 


TSLIFS 

TSLIN 

TILIPS 

TSLLD 

TSLLDC 

TSLLDL 

TSLLDO 

TSLLOS 

T$LLEN 

TSLOPR 

TILTCL 

TILTIM 

TSLTPR 

T$LTPS 

TSNAPL 

T$NFE 

T$NLEN 

TSNNf 

TSNOPL 

T$NRN! 

TSNRPL 

TSNRUL 

TSNVR 

T$RPRI 

T$SVC 

T$T5 

T$T6 

T.ACT 

T.CHA 

T.'-SR 

T.ITM 

T.NAM 

T.QUE 

T.QU2 

T.RCVL 

T.RTY 

T.ST2 

T.TCBL 

T.TMR 

T.TRLG 

T.TRLN 

T.TRPN 

T2.FXD 

U.CW3 

U.DCB 

U.LEN 

U.UNIT 

VFSRCV 

VFSXMT 

VF.ADD 

VF.SKA 

VF.SS 


000013 

000000 

000006 

000012 

OO00A5 

000012 

000012 

000012 

000046 

000002 

000024 

000026 

OOOOU 

000020 

000004 

000000 

000010 

000002 

000006 

000042 

000005 

000007 

000001 

000040 

000034 

000030 

000032 

000031 

000032 

000022 

000001 

000006 

000024 
:  000026 

000012 

000030 

000034 

000030 

000000 
--  000076 

000005 

000004 
^  002000 

000014 

000000 
:  000042 

000006 
^  100000 
=  040000 

r  »»»»♦*  GX 
r  »«»»»»  GX 
:  .»»»«♦    GX 


REFERENCES 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-88 

#5-88 

#5-88 

#5-88 
60-4" 

#5-88 

#5-88 
39-2873 

#5-88 
39-2870 

»60-4780 

#3-88 
53-4084 
53-4086 
53-4088 
39-2870 
26-1674 
31-2354 

#7-289 
31-2353 
26-1764 
26-1767 
26-1527 
12-673 
39-2866 


53-4265 


53-4262         53-4267 


53-4269 
53-4270 


60-4788 
5-88 

39-2880 

59-4722 
60-4782 


59-4722 
26-1679 
49-3578 
31-2352 


26-1543 
59-4718 


59-4726         59-4733 


26-1776 

49-3577         62-4853 


VDIS 
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1 

2 

1 

^ 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
55 
36 
37 
38 
39 
'iO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  VENA  -  VNP  ENABLE/DISABLE  LINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  SYSTEM  LINE  ENABLE/DISABLE  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00     16-APR-82 

DECNET-HM  V3.1 
DECNET-11M-PLUS   Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  /2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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Page  12 


52A 

525 

526 

527 

528 

529 

550 

531 

532 

533 

53A 

535 

536 

537 

538 

539  001076 

5';0  001104 

541 

5A2  001106 

543  001114 

544  001120 

545  001122 

546  001130 
547 

548  001132 

549  001136 

550  001140 

551  001146 
552 

553  001150 

554  001156 

555  001162 

556  001166 
557 

558  00117; 

559  001 20r 

560  00120- 

561  00120', 
562 

563  001206 

564  001212 

565  001214 
566 

567  001216 

568  001222 
569 

570 

571  001226 

572 

573 


.SBTTL   SER81T  -  SET/CLE  CIRCUIT  SERVICE  BIT 

SERBIT  -  SET/CLE  CIRCUIT  SERVICE  BIT 

INPUTS: 

R1  -  SLT  ADDRESS 

RO  -  SLT  STATION  EXTENSION  ADDRESS  IF  MULTIPOINT 

OUTPUTS: 

LF.SER  -  SET/CLE 

SF.SER   -   SET/CLE    IF   MULTIPOINT 


032767 
001412 

052761 
105761 
001442 
152760 
000436 

116102 
001004 
042761 
000427 

142760 
016701 
062701 
012746 

..761 
'  )i402 
rj,"016 
000404 

062701 
005302 
002366 

016701 
042661 


OOOOOOG  OOOOOOG  SERBIT: 

OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG        10$: 
OOOOOOG  0  OOOOG 


OOOOOOG  OOOOOOG  20$: 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG  30$: 


OOOOOOG 


40$: 


OOOOOOG       50$: 
OOOOOOG 


90$: 


BIT 
BEQ 

BIS 

TSTB 

BEQ 

BIS8 

BR 

M0V8 
BNE 
BIC 
BR 

BICB 
MOV 
ADD 
MOV 

BJT8 
BEQ 
CLR 
BR 

ADD 

MOV 

BIC 


RETURN 


#VF.SED,$VFLAG  ; 
10$ 

#LF.SER,L.FLG(R1) 
L.NSTA(RI)  ; 
90$  ; 

*SF.SbR,S.FLG(RO) 
90$ 

L.NSTA(R1),R2 
20$  ; 

#LF.SER,L.FLG(R1) 
90$ 

*SF.SER,S.FLG(R0) 
$SLTA,R1 
#L.MPF,R1 
#LF.SER,-(SP) 

#SF.SER,S.FLG(R1) 

40$ 

(SP) 

50$ 


SERVICE  DISABLED  ? 

IF  NOT  -  BRANCH  (SERV  ENABLE) 

;  SET  SERVICE  DISABLED 

MULTIPOINT  ? 

IF  NO  -  BRANCH 

;  SET  SERV  DISABLED 


#S.LEN,R1 

$SLTA,R1 
(SP)+,L.FLG(R1) 


GET  NUMBER  OF  TRIBS 

IF  MULTIPOINT  -  BRANCH 

;  CLE  SERVICE  DISABLE  BIT 
CONTINUE 

;  CLE  SERVICE  BIT 

GET  SLT  ADDRESS 

POINT  AT  STATION  TABLE 

ASSUME  ALL  TRIB'S  SERVICE  ENABLED 

;  IS  TRIB  SERV  DIABLED  ? 
IF  NO  -  BRANCH 
CLEAR  LF.SER 
CONTINUE 

POINT  TO  NEXT  STATION 
ONE  LESS  STATION 
IF  MORE  -  BRANCH 

GET  SLT  ADDRESS 

CLE  SERVICE  BIT  IF  ALL  TRIBS 

HAVE  SERV  ENABLED 
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ENALlN  -  ENABLE  A  LINE 


1051 

1052 

1053 

105A 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1065 

106A 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 


.S8TTL  ENALJN  -  ENABLE  A  LINE 
y 
♦♦*  -  ENALIN  -  ENABLE  LINE 

INPUTS: 

RO  =  SLT  STATION  ADDRESS  IF  MULTIPOINT  LINE 
R1  =  SLT  ADDRESS 


OUTPUTS: 

C-BIT 


0031 3A 
003134 
003U2 
00314A 
003152 
003160 
003164 
003166 
003174 
003202 

003204 
003212 
003216 


003220 
003226 


032767 
001420 
052761 
112761 
105761 
001420 
152760 
112761 
000411 

052761 
105761 
001403 


ENAlIN: 


OOOOOOG  OOOOOOG 

COOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


OOOOOOG  OOOOOOG  10$: 
OOOOOOG 


BIT 

BEO 

BIS 

MOVB 

TST8 

BEO 

BISB 

MOVB 

BR 

BIS 

TSTB 

BEQ 


SUCCESS/FAILURE 


#VF.DLX,$VFLAG  ; 

10$  ; 

#LF.ACT,L.FLG(R1) 

#LN.0N,L.NMST(R1) 

L.NSTA(RI) 

20$  ; 

*SF.ACT,S.FLG(RO! 

#LN.0N,S.NHST(R1) 

20$ 

*LF.ENA,L.FLG(R1) 

L.NSTA(RI) 

20$ 


IS  THIS  DLX  ONLr  SYSTEM 

IF  EO  -  NO 

;  SET  LINE'S  ACTIVE  BIT 

MULTIPOINT  LINE? 

BR  IF  NO 

;  MARK  )RIB  AS  ACTIVE 


;  SET  LINE'S  ACTIVE  BIT 

MULTIPOINT  LINE? 

IF  EQ,  NOT  MULTI-POINT  LINE 


152760  OOOOOOG  OOOOOOG 


MULTI-POINT  LINE 

*SF.ENA,S.FLG(RO) 


20$: 


B1S8 

RETURN 


MARK  TRIBUTARY  AS  ACTIVE 
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1627 
1628 
1629 
1630 
1631 
1632 
1633 
163A 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 


.SBTTL  FIND  PLACE  FOR  A  REMOTE  NODE  BLOCK 

«•«  -  FiNREM  -  FIND  A  PLACE  FOR  A  REMOTE  NODE  BLOCK 

INPUTS; 

R1  =  NODE  ADDRESS  OR  CHANNEL  TO  BE  INSERTED 

OUTPUTS: 

RO  =  PRESERVED 

R1  =  UNMAPPED  ADDRESS  OF  PREVIOUS  REMOTE  BLOCK 

R2  =  DESTROVED 


005500 
005500 
005504 
005506 
005512 
005520 
005526 

005530 
005542 
005560 
005564 
005566 
005572 
00557^ 


011267 
010146 
010267 
016767 
016767 
001417 


021667 
101352 
016701 
005726 


OOOOOOG 

000164' 

000164'  000166' 
OOOOOOG  000164' 


FINREM: 


10$: 


000010G 
000166' 


15$: 
20$: 


30$: 


MOV 
MOV 
MOV 
MOV 
MOV 
BEQ 

CEACC$ 

GETAD 

CMP 

BHI 

MOV 

TST 

RETURN 


(R2),$BFR 

R1,-(SP) 

R2,CURUNM 

CURUNM.PRVUNM 

$8FR,CURUNM 

30$ 

CURUNM,R2 

R2,#R.LEN 

(SP),$BFRtR.ADD 

10$ 

PRVUNM.RI 

(SP)  + 


GET  FIRST  IN  LIST 

SAVE  NODE  ADDRESS  ON  STACK 

SAVE  UNMAPPED  ADDRESS  OF  CURRENT 

SAVE  UNMAPPED  ADDRESS  OF  PREVIOUS 

GET  NEXT  REMOTE  IN  LIST 

IF  END  OF  LIST  -  BRANCH 

CONVERT  TO  MAPPED  ADDRESS 

READ  REMOTE  IN  INTERNAL  BUFFER 

DOES  REMOTE  BLOCK  GO  HERE  ? 

IF  HI,  NO 

RETRIEVE  UNMAPPED  ADDRESS  OF  PREVIOUS 

CLEAN  UP  THE  STACK 
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$SMOD  -  MOUNT/DISMOUNT  THE  X25ACP 

2130  007702 

2131  00770A 

2132  007710 

2133  007712 
21 3A  007730 

2135  007734 

2136  007736 

2137  007756 

2138  00776A 

2139  007766 
2K0  007774 

2141  010000 

2142  010004 

2143  010006 

2144  010012 

2145  010016 
2146 

2147  010022 

2148  010026 

2149  010034 

2150  010042 

2151  010050 

2152  010056 

2153  010064 

2154  010066 

2155  010074 

2156  010102 

2157  010110 

2158  010124 

2159  010130 

2160  010134 

2161  010136 

2162  010144 
2163 
2164 
2165 

2166  010146 
2167 

2168  010152 
2169 

2170  C10154 

2171  010164 

2172  010200 

2173  010210 

2174  010212 

2175  010216 

2176  010220 

2177  010234 

2178  010250 
2^79  010264 

2180  01030C 

2181  010304 


001521 

BEQ 
CALL 

30$ 
$ALL15 

103565 

BCS 

GETRV 

109$ 
R5,.TLGTH 

005767 

00001 2G 

TST 

T.RCVL*$BFR 

001424 

BEQ 
GETRV 

17$ 
T.RCVLt$aFR,#36. 

032767 

000400 

000006G 

BIT 

#LS.CX5,LR.STSt6*$BFr   ; 

001145 

BNE 

110$ 

052767 

000400 

000006G 

BIS 

PUTRC 

CAL- 

#LS.CX5,LR.STS+6+$BFR 
$DEA16              ; 

000537 

BR 

120$ 

010067 

00001 2G 

17$: 

MOV 

RO,T.RCVLt$BFR         ; 

010067 

000014G 

MOV 
PUTRC 

R0,T.RCVLt2t$BFR       ; 

005067 

OOOOOOG 

CLR 

$8FR   ^ 

012767 

131574 

000002G 

MOV 

#-R...,$BFRt2 

012767 

105700 

000004^ 

MOV 

#*RVNP,$BFRt4          ; 

012767 

000401 

00000^ 

MOV 

#LS.CEX!LS.CX5,LR.STSt6+i 

042767 

020000 

00000- 

BIC 

#LS.UNF,LR.STSt6+$8FR 

032767 

OOOOOOG 

00000-  . 

BIT 

#VF.FIX,$VFLAG 

001003 

BNE 

20$ 

052767 

020000 

000006G 

BIS 

#LS.UNF,LR.STSt6t$BfR   ; 

016767 

OOOOOOG 

000040G 

20$: 

MOV 

..C00,$BfR*32. 
#40ljBFRt34. 

012767 

000401 

000042G 

MOV 

PUTRC 

RO.RI 

012704 

000001 

MOV 
CALL 

*TICKS,R4 
RUN 

103413 

BCS 

SWTCHO 

RETURN 

104$ 

■  DISMOUNT  REQUEST 

^0$: 

CALL 

X5DSMT 

100$ 

RETURN 

103$ 

ERRPT$ 

ERR45.$EROUT 

104$ 

ERRPT$ 

FRR9,$ER0UT, FATAL 

105$ 

ERRPT$ 

ERR46,$EROUT 

010100 

107$ 

MOV 
CALL 

R1,R0 
TSKSCH 

103406 

BCS 
ERRPT$ 

1077$ 
ERR15,$ER0UT, FATAL 

10771 

i:      ERRPT$ 

EfiR12,$ER0UT, FATAL 

108$ 

ERRPT$ 

ERR14,$ER0UT, FATAL 

109$ 

ERRPT$ 

ERR16,$ER0UT, FATAL 

110$ 

CALL 

$DEA16 

120$ 

RETURN 

IF  EO,  NO  -  MUST  BE  DISMOUNT 

GET  I/O  PACKET 

NODE  POOL  EMPTY 

REREAD  TCB 

ANY  PACKETS  QUEUED  7 

BR  IF  NO 

READ  IN  PACKET 

IS  SET  EXE  STATE  ON  ALREADY  QUEUED? 

BR  IF  YES  -  NOTHING  TO  DO 

ELSE  SET  SET  EXE  STATE  ON  ALSO 

REWRITE  PACKET 

DEALLOCATE  PACKET 

AND  CONTINUE 

POINT  LISHEAD  AT  FIRST  PACKET 

REWRITE  NTINIT  TCB  ADDRESS 

CLEAR  LINK  WORD  IN  PACKET 

LOAD  RAD50  NAME 
.  ...VNP 
iBFR  ;  '  SET  X25-S  ON'  ->  'SET  CEX' 

ASSUME  NTINIT  IS  TO  REMAIN  FIXED 

IS  NTINIT  TO  REMAIN  FIXED  ? 

YES 

SET  FLAG  THAT  UNFIXES  NTINIT 

ERRORS  GO  TO  COO: 

[1,1] 

REWRITE  NODE  TO  POOL 

NUMBER  OF  TICKS 

RUN  NTINIT 

NO  NODES  IN  POOL 

POINT  BACK  AT  DEFAULT  BUFFER 


;  DISMOUNT  THE  ACP 


ACP  NOT  IN  SYSTEM 

POOL  EMPTY 

ACP  MUST  BE  FIXED  IN  FOR  RSX11S  SYSTEM 

GET  OTHER  NTINIT  NAME 

IS  IT  INSTALLED  ? 

NO 

WRONG  NTINIT  INSTALLED 

NTINIT  NOT  INSTALLED 

ACP  NOT  FIXED 

RSX  POOL  EMPTY 

DEALLOCATE  NODE 


[:  Hi  ftDi    c   /r\  T  C  ADi 
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2715 

.S8TTL 

CKMON  -  CHECt 

V  WON 

I  TOR  SINK  NAME 

2716 
2717 
2718 

* 

CKMON 

-  CHECK 

MONITOR  SINK 

NAME 

2719 

2720 

INPUTS: 

2721 

RQBtLO. 

SNM  -  ASCII  SINK  NAME 

2722 

2723 

OUTPUTS: 

272A 

CARRr  - 

SUCCESS/FAILURE 

2725 

2726 
2727 
2728  012676 

~ 

010546 

:kmon: 

MOV 

R5,-(SP) 

SAVE  R5 

2729  012700 

012705 

000154' 

MOV 

*M0NNAM,R5 

POINT  TO  MONITOR  NAME  STORAGE 

2730  012704 

012701 

000006 

MOV 

#MXM0N,R1 

GET  MAXIMUM  LENGTH  OF  MONITOR  NAME 

2731  012710 

CALL 

GETLEN 

GET  LENGTH  OF  MONITOR  NAME  STRING 

2732  0127U 

103424 

BCS 

40$ 

BR  IF  INVALID  NAME 

2733  012716 

010003 

MOV 

R0,R3 

POINT  TO  END  OF  STRING 

2734  012720 

005303 

DEC 

R3 

•  •  • 

2735  012722 

160400 

SUB 

R4,R0 

POINT  TO  START  OF  SINK  NODE  STRING 

2736  012724 

012701 

000001 

10$: 

MOV 

#1,R1 

PERIODS  ARE  VALID 

2737  012730 

CALL 

$CAT5 

CONVERT  TO  RAD50 

2738  012734 

103005 

BCC 

20$ 

BR  IF  SUCCESS 

2739  012736 

020427 

000003 

CMP 

R4.#3 
30i 

3  OR  MORE  CHARACTERS  LEFT? 

2740  012742 

105010 

BHIS 

BR  IF  VES  -  ERROR 

27A1  012744 

020003 

CMP 

R0.R3 
30§ 

AT  END  OF  STRING? 

2742  012746 

103406 

BLO 

BR  IF  NO  -  ERROR 

2743  012750 

010125 

20$: 

MOV 

R1,(R5)* 

STORE  CONVERTED  VALUE 

27',4  012752 

162704 

000003 

sue 

#3,R4 

SUBTRACT  3  CHARACTERS  FROM  COUNT 

2745  012756 

003362 

BGT 

lOi 

BR  IF  MORE  TO  CONVERT 

2746  012760 

000241 

CLC 

ELSE  INDICATE  SUCCESS 

2747  012762 

000401 

BR 

40$ 

AND  FINISH  UP 

2748  012764 

000261 

30$: 

SEC 

INDICATE  FAILURE 

2749  012766 

012605 

40$: 

MOV 

(SP)*,R5 

RESTORE  R5 

2750  012770 

RETURN 

.-n^  n^K  i.ioHr, 
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1J50 
5231 
3232 
3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

5252 

3253 

5254 

3255 

3256 

3257 

5258 

5259 

3260 

3261 

5262 

5265 

5264 

3265 

5266 

5267 

5268 

3269 

5270 

5271 

5272 

3275 

5274 

3275 

5276 

5277 

52^8 

3279 

5280 

5281 

5282 

3283 

5284 

3285 

3286 


014666 
014674 
014676 
014702 

014706 
014712 
014714 
014716 
014720 

014722 
014750 
014752 
014740 
014742 
014750 

014756 
014764 
014772 

0^4774 
015002 
015004 
015012 
015014 
015022 

015030 
015036 
015044 

015046 
015054 
015056 
015062 

015064 
015070 
015074 
C151OO 
015102 


052767 
001412 
012702 
012705 

012701 
012225 
005501 
003575 
000472 

032767 
001421 
032767 
001006 
016767 
016767 

016767 
016767 
000445 

032767 
001421 
052767 
001006 
016767 
016767 

016767 
016767 
000420 

052767 
001005 
012702 
000402 

012702 
012705 
012701 
012223 
005501 


.SBTIL  CHNAM  -  CHANGE  LOGGING  SINK  NAME 


CHNAM  -  CHANGE  LOGGING  SINK  NAME 

INPUTS: 

RQB  -  REQUEST  BLOCK   FOR   SET/CLEAR  LOGGING  COMMAND 

OUTPUTS: 

THE  SPECIFIED  LOGGING  SINK  NAME  IS  CHANGED 


000004  OOOOOOG  CHNAM: 

000020' 
000006G 

000050 

10$: 


000400  OOOOOOG  20$: 

OOOOOOG  OOOOOOG 

000044'  000160' 
000046'  000162' 

000160'  OOOOOOG  25$: 
000162'  000002G 

000100  OOOOOOG  50$: 

OOOOOOG  OOOOOOG 

000040'  000154' 
000042'  000156' 

000154'  OOOOOOG  55$: 
000156'  000002G 

OOOOOOG  OOOOOOG  40$: 
000020' 


000154' 
C00006G 
000020 


45$: 
47$: 

50$: 


BIT  #OF$KN0,$QUAL 

BEQ  20$ 

MOV  #DEFFIL,R2 

MOV  #$LGFNBt6,R5 

MOV  #DF.LEN,R1 

MOV  'R2)+,(R5)t 

DEC  Rl 

BGT  10$ 

BR  70$ 

BIT  #OP$CON,$OPTON 

BEQ  30$ 

BIT  #CM$SET,$CMAND 

BNE  25$ 

MOV  DEFCON+0,CONNAM+0 

MOV  DEFCONt2,CONNAMt2 

MOV  CONNAMtO,$LGCON+0 

MOV  CONNAMt2,$LGCON+2 

BR  70$ 

BIT  #OP$MON,$OPTON 

BEQ  40$ 

BIT  #CM$SET,$CMAND 

BNE  55$ 

MOV  DEFMONtO,MONNAM+0 

MOV  DEFMONt2,MONNAM+2 

MOV  MONNAM+0,$LGMON*0 

MOV  MONNAM*2,$LGM0Nt2 

BR  70$ 

BIT  #CM$SET,$CMAND 

BNE  45$ 

MOV  #DEFFIL,R2 

BR  47$ 

MOV  #FILNAM,R2 

MOV  #$LGFNBt6,R5 

MOV  #FILLEN,R1 

MOV  {R2)+,(R3)t 

DEC  Rl 


IS  THIS  FOR  KNOWN  LOGGING? 

BR  IF  NO 

POINT  TO  DEFAULTS 

POINT  TO  CEX  DATABASE  FOR  LOGGING 

GET  NUMBER  OF  WORDS  TO  MOVE 
STORE  DEFAULTS 
MORE  TO  MOVE? 

Dp  tp  ypc 

EXIT  WHEN  ALL  DEFAULTS  ARE  SET  UP 

IS  THIS  FOR  LOGGING  CONSOLE? 

BR  IF  NO 

IS  THIS  A  SET  OPERATION? 

BR  IF  YES 

STORE  DEFAULT  CONSOLE  NAME 


STORE  CONSOLE  NAME 

AND  EXIT 

IS  THIS  FOR  LOGGING  MONITOR? 

BR  IF  NO 

IS  THIS  A  SET  OPERATION? 

BR  If  YES 

STORE  DEFAULT  CONSOLE  NAME 

STORE  MONITOR  NAME 

AND  EXIT 

IS  THIS  A  SET  OPERATION? 

BR  IF  YES 

POINT  TO  DEFAULT  FILE  NAME 

CONTINUE 

POINT  TO  SPECIFIED  FILE  NAME 
POINT  TO  FILE  NAME  IN  CEX  COMMON 
GET  LENGTH  OF  FILE  NAME 
STORE  FILE  NAME 
MORE  TO  MOVE? 


M  16 


DIS  -  VNP  SHOW  COMMANDS 
tCNOD  -  SHOW  NODE 
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J  342 


0A2701  OOOOOOC 
0000^2 


158^ 

1588 

'589 

•'59C 

1591 

1592  010372  010167  171160 

1593 

'59A  010576 

1595 

1596 

'597 

1598 

1599  C10A06 

I6OC  CIO412 

1601 

1602 

1603 

160^. 

160 


BIC 


*»CARAMS<,R1 


.REPT  10. 

ASR  Rl 

.ENDM 

MOV  Rl,itMP7 

ERRPTS  NMS2A,MSG0UT 


DISPLAY  STATE  AND  IDENTIFICATION 


550$: 


CALL 
ERRPTS 


GTSTID 
NMSG3,MSG0UT 


DISPLAY  HOST  AND  MAXIMUM  LINKS 


C10422 
010426 

1606  0104A6 

1607  010A54 

1608  010^.62 

1609  C10A64 

1610  010470 
16^1    010474 

1612  010476 

161 3  010476 

1614  010502 

1615  010504 
16:6  010510 

1617  010512 

1618  010516 
1619 

1620 
162' 

1622  010530 

1623  010534 

1624  010536 

1625  010544 

1626  010550 
'627  010554 

1628  010560 

1629  010562 
'630  010564 
163'  010604 
'632 

-tv 

1634 
'635 


005067     170434 


560$: 


C10612 

C'06i6 

10624 

'636  C10630 

'637 

1658 

1659 

164C 

1641 

1642   '.'10656 

■'■'.•        166? 


016767 
026767 
001005 
012703 
062703 
000410 


103420 
021663 
001372 
062703 
012702 
000003 


122742 
C01775 
112762 
0U5067 
012700 

103414 
010005 


0C0022G  170526 
OOOOUG  000022G 

OOOOOOG 
000006 


000010 

000002 
001062" 


000040 


270$: 
280$: 


290$: 


300$: 


000000  000001 
170264        310$: 
017704 


016767  000036G  170222 


016701 
042767 
042701 
000241 

000012 


170364 

OOOOOOG  170356 
OOOuOOC 


320$: 


010167     170674 


CLR  TEMP2 

GETRV  $DECPT,#D$END 

MOV  $BFR+D$H0ST,TEMP3 

CMP  $8FR+D$LNUM,$8FRtD$H0ST 

BNE  270$ 

MOV  #$eFR,R3 

ADD  #D$LNAM,R3 

BR  290$ 

CALL  NXTBLK 

BCS  310$ 

CMP  CSP),R.ADD(R3) 

BNE  280$ 

ADD  #R.NAM,R3 

MOV  #TEMP2,R2 

.REPT  5 

MOV  (R5)  +  ,(R2)*- 

.ENDR 

CMPB  *SPACE,-(R2) 

BEQ  300$ 

M0V8  #0,1 (fi2) 

CLR  TEMPI 

MOV  #*RECL,R0 

CALL  FNDPDV 

BCS  320$ 

MOV  R0,R5 

GETRV  Z.DAT(R0),#N$ELEN 

MOV  N$LVCt$BFR, TEMPI 

MOV  TEMP5,R1 

BIC  (PARAMSK,TEMP3 

BIC  #"CARAMSK,R1 
CLC 

.REPT  10. 

ROR  Rl 
.ENDM 

MOV  Rl,TfMP7 

ERRPI$  NM55A,MSGOUT 


GET  AREA  NUMBER 

CONVERT  TO  AREA  NUMBER 
STORE  AREA  FOR  OUTPUT 
PRINT  EXECUTOR  AREA. ADDRESS 


GET  STATE  AND  IDENTIFCATION 
DISPLAY  STATE  AND  IDENTIFICATION 


HOST  NODE  NAME 

READ  DECNET  HOME  BLOCK 

STORE  HOST  ADDRESS 

HOST  NODE  =  EXECUTOR  NODE? 

BR  IF  NO 

GET  NAME 

DicPLAY  IT 

GE  NEXT  REMOTE  NAME  BLOCK 

BR  IF  $HOST  NOT  FOUND  IN  REMOTE  LIST 

IS  THIS  THE  HOST  NODE? 

BR  IF  NO 

POINT  TO  NODE  NAME 

STORAGE  FOR  HOST  NODE  NAME 

STORE  THE  NAME 

DELETE  TRAILING  BLANKS 

CREATE  ASCIZ  STRING 

STORAGE  FOR  MAX  ACTIVE  LINKS 

GET  RA050  PROCESS  NAME 

GET  ECL'S  PDV  ADDRESS 

BR  IF  ECL  \'0T  FOUND 

SAVE  IT 

GET  ECL'S  DATA  BASE 

STORE  MAXIMUM  ACTIVE  LINKS 

GET  EXECUTOR  ADDRESS 
STRIP  AREA  BITS 
GE'  AREA  NUMBER 
DO  NOT  ROR  C-BIT 


POSITION  AREA  NUMBER 


STORE  AREA  NUMBER 
PRINT  AREA. ADDRESS 


,-DlS 


N  1 


jNP  show  COMMANDS 
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VDI5  -  VNP  SHOW  COMMANDS 

SDMOD  -  SHOW  MODULE  INFORMATION 

22A3 
22AA 
22A5 
22A6 
22A7 
22A8 
22^.9 
2250 
2251 
2252 
2253 
2254 
2255 
2256 

2257  0155'.0 

2258  015540 

2259  015544      103004 

2260  015546 

2261  015556  012700  015672' 

2262  015562  012001 

2263  015564  001422 

2264  015566  012002 

2265  015570  012003 

2266  015572  036701  OOOOOOG 

2267  015576  001771 

2268  015600  012700  00106?' 

2269  015604  112320 

2270  015606  001376 

2271  015610 

2272  015612 

2273  015622 

2274  015624  105'^67  163744 

2275  015630 

2276  015652 
2277 
2278 
2279 

2280  015634 

2281  015651 
2282 
2283 
2284 
2285 

2286  015672  000001  015724'  000707' 

2287  015700  000002  017354'  000672' 

2288  015706  000004  021762'  000722' 

2289  015714  000010  024226'  000735' 
229C  015722  000000 
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.SBTTL  SDMOD  -  SHOW  MODULE  INFORMATION 


SDMOD  -  SHOW  MODULE  INFORMATION 

INPUTS: 

SOPTON  -  OPTIONS  WORD 

ROB  -  ADDRESS  OF  REQUEST  BLOCK 

OUTPUTS: 

SHOW  INFORMTION  DISPLAYED  ON  USER'S  TERMINAL 


tDMOD::  VNPDBG 

DMOD 

CALL 

CKTVPE 

BCC 

10S 

ERRPTS 

SVNERR.SEROUT 

10S:    MOV 

#MODTBL,RO 

20S:    MOV 

(R0)+,R1 

BEQ 

40$ 

MOV 

(R0)r,R2 

MOV 

(R0)+,R3 

BIT 

SOPTON, R1 

BEQ 

20$ 

MOV 

#TEMP2,R0 

30$:    MOVB 

(R3)+,(R0)t 

BNE 

30$ 

SAVRG 

<R2> 

ERRPTS 

MOMSl.MSGOUT 

RESRG 

<R2> 

CLRB 

FLAGS 

CALL 

(R2) 

40S:    RETURN 

;  DISPLAY  MESSAGES 

ERMSGS 

<XNXA  XA  XA  as  of  X 

ERBLKS 

M0MS1,<MSPEC,TEMP2, 

;  MODULE  TABLE 

MODTBL:  .WORD 

OP$XAC,DMXAC,MX25AC 

.WORD 

OP$XPR,DMXPR,MX25PR 

.WORD 

OP$X5S,DMX5S,MX25SV 

.WORD 

0P$X95,DMX9S,MX29SV 

.WORD 

0 

VNP  debugging  break  point 

GET  COMMAND  TYPE 

BR  IF  SUCCESS 

ELSE  SYNTAX  ERROR 

GET  ADDRESS  OF  MODULE  TABLE 

GET  OPTIONS  FLAG 

BR  IF  END  UF  TABLE 

GET  ADDRESS  OF  ROUTINE  TO  CALL 

GET  ADDRESS  OF  ASCIZ  ID  STRING 

IS  THIS  THE  SPECIFIED  OPTION? 

BR  IF  NO 

POINT  TO  TEMPORARY  STORAGE 

STORE  MODULE  ID 

SAVE  R2 

DISPLAY  HEADER  MESSAGE 

RESTORE  R2 

INITIALIZE  FLAGS  WORD 

CALL  ROUTINE  TO  PROCESS  SHOW 


.-CTDOOI] 
.-[TDOOI] 
;**-1 


MODULE  X25-ACCESS 

MODULE  X25-PROTOCOL 

MODULE  X25-SERVER 

MODULE  X29-SERVER 


VDIS  -  VNP  SHOW  COMMANDS 
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;'DIS  -  VNP  SHOW  COMMANDS       MACRO  V05.03b  Monday  15-Jul-85  12:U  Page  37-1 
DMGRP  -  SHOW  MODULE  X25-PROTOCOL  GROUPS 


2782  Oi    ->0t 
2785  021516 
2784 
2785 
2786 

2787  021520 

2788  021 53A 
2789 

2790  021 5A2 

2791  021600 
2792 

2793  021612 
279A  021657 


70$: 

'  1$: 

MESSAGES 


ERRPTS 
RETURN 


GRMS3,MSG0UT 


GROUP  NOT  IN  SrSTEM 


ERMSGS 
ER8LK$ 

ERMSGS 
ERBLKS 

ERMSGS 
ERBLKS 


<  Group  =  !!A> 
GRMS1,<TEMP1> 

<  DTE  =  XA,  Number  =  Xf   %nH> 
GRMS2 , <TEMP1 , TEMP4 , TEMP2> 

<  Closed  User  Group  not  in  systemJJN) 
GHMS3 


VDIS  -  VNP  SHOW  COMMANDS 
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VDIS  -  VNP  SHOW  COMMANDS 
NXTB.l^  -  READ  IN  NEXT  BLOCK 


3337 

3338 

3359 

33A0 

33A1 

33^2 

33  3 

33s'. 

33A5 

33^.6 

33A7 

33A8 

33A9 

3350 

3351 

3352 

3353 

335A 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

336A 

3365 

3366 

3367 

3368 

3369 
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.S8TTL  NXTBLK  -  READ  IN  NEXT  BLOCK 

NXTBLK  -  READ  IN  NEXT  BLOCK 

INPUTS- 

R3  =  ADDRESS  OF  BUFFER  CONTAINING  BLOCK  -  FIRST  WORD  IS  POINTER 

TO  NEXT  BLOCK 
R5  =  LENGTH  OF  BLOCK 

OUTPUTS: 

CARRY  CLEAR: 

R3  =  ADDRESS  OF  BUFFER  CONTAINING  NEXT  BLOCK 

CARRY  SET: 

END  OF  LIST 

ALL  REGISTERS  ARE  PRESERVED 


.ENABL  LSB 


025006  000261 

025010     011303 

025012  001415 

025014 

025024 

025040  012703  OOOOOOG 

025044  000241 

025046 


NXTBLK: 


20$: 


30$: 


SEC 

MOV 

(R3),R3 

BEQ 

30$ 

CEACC$ 

R3 

GETAD 

R3,R5 

MOV 

#$8FR,R3 

CLC 

RETURN 

ASSUME  END  OF  LIST 

GET  NEXT  ENTRY 

BR  IF  END  OF  LIST 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  BLOCK 

GET  ADDRESS  OF  BLOCK 

BE  SURE  CARRY  IS  CLEAR 


.DSABL  LSB 


N  4 


VD'.S  -  VNP  SHOW  COMMANDS 
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DISLOO  -  DISPLAY  LOOPBACK  NODE  INFORMATION 


385/ 

3858 

3859 

3860 

3861 

3862 

3863 

3864 

3865 

3866 

3867 

3868 

3869 

3870 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3886 

3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 


027630 
027632 
027634 


027644 
027650 
027654 
027660 
027664 
027670 
027672 


027700 
027704 
027710 
027714 
027716 
027720 
027724 
027726 
027730 
027732 
027734 
027740 
027742 
027744 
027750 
027754 
027756 
027762 
02777? 


005704 
001004 


012702 
016322 
016322 
016322 
122742 
001775 
112762 


012700 

016301 
006301 
060100 
016046 
111601 
000316 
112602 
006301 
066701 
011101 
010100 
116101 
066701 
011101 


001034' 

000002 

000004 

000006 

000040 

000000  000001 


114224 
000010 

OOOOOOG 


OOOOOOG 


000002 
OOOOOOG 


.SBTTL  DISLOO  -  DISPLAY  LOOPBACK  NODE  INFORMATION 


DISLOO  -  DISPLAY  LOOPBACK  NODE  INFORMATION 

INPUTS: 

R3  =  ADDRESS  OF  REMOTE  NODE  BLOCK 

R4  =  0  IF  HEADER  TO  BE  PRINTED  WITH  LOOPBACK  NODE  INFORMATION 
ELSE,  ONLY  LOOPBACK  NODE  INFORMATION  TO  BE  PRINTED 

OUTPUTS: 

LOOPBACK  NODE  INFORMATION  IS  DISPLAYED  ON  USER'S  TERMINAL 

R0,R1,R2  DESTROYED 


DISPLAY  HEADER? 

BR  IF  NO 

DISPLAY  HEADER  MESSAGE 


STORAGE  FOR  NODE  NAME 
STORE  NODE  NAME 


DELETE  TRAILING  BLANKS 
CREATE  ASCIZ  STRING 


GET  XPT  NAME 

GET  XPT'S  PDV  ADDRESS 

GET  CHANNEL  NUMBER 

CONVERT  CHANNEL  NUMBER  TO  WORD  INDEX 

POINT  AT  CHANNEL  IN  PDV 

GET  SLN  AND  TRIBUTARY 

GET  SLN 

GET  TRIBUTARY  IN  LOW  BYTE 

GET  TRIBUTARY 

CONVERT  SLN  TO  WORD  INDEX 

GET  SLT  TABLE  ADDRESS 

GET  SLT  ADDRESS 

SAVE  SLT  ADDRESS 

GET  DDM  PDV  INDEX 

POINT  AT  PDV  ADDRE'^^ 

POINT  AT  DDM  PDV 

FORMAT  THE  LINE-ID  (RETURNED  IN  TEMP3) 

DISPLAY  LOOPBACK  NODE  INFORMATION 

FINISHED 


DISLOO:  TST 

R4 

BNE 

10$ 

ERRPTS 

NLMSGl.MSGOUT 

;  STORE  NODE  NAME 

iO$:    MOV 

#TEMP1,R2 

MOV 

R.NAM(R3),(R2>+        ; 

MOV 

R.NAMt2(R^),(R2)t       ; 

MOV 

R.NAM+4(R3),(R2)+ 

20$:    CMPB 

#SPACE,-(R2) 

BEQ 

20$ 

M0V6 

#0,1(R2) 

■  CREATE  LINE-ID  -  DEVICE  NAME 

MOV 

#»RXPT,RO 

CALL 

FNDPDV 

MOV 

R.ADD(R3),R1 

ASL 

Rl 

ADD 

Rl.fiO 

MOV 

Z.MAP(RO),-(SP) 

HOVB 

(SP),R1 

SWAB 

(SP) 

M0V8 

(SP)+,R2 

ASL 

Rl 

ADD 

$SLTMA,R1 

MOV 

(RD.RI 
R1,R0 

MOV 

M0V6 

L.DDM(R1),R1 

ADD 

$PDVTA.R1 
(R1),r1 

MOV 

CALL 

FMTLIN 

ERRPT$ 

NLMSG2,MSG0UT 

RETURN 
.ENA8L      LC 


\/nii;  -  uMp  '^Hnu  rnMMANn^ 
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VDIS  -  VNP  SHOW  COMMANDS 

DISLIN  -  DISPLAY  LINE  INFORMATION 
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4A89 

033522 

106200 

ASRB 

RO 

AA90 

033524 

106200 

ASRB 

RO 

^491 

033526 

110067 

145450 

MOVB 

R0,TEMP3 

GET  PRIORITY 

4492 

033532 

ERRPT$ 

LMSG4,MSG0UT 
12(Sp!,R0 

DISPLAY  CSR,  VECTOR,  PRIORITY 

4493 

033542 

016600 

000012 

MOV 

RESTORE  RO 

4494 

033546 

016601 

000010 

MOV 

10(SP),R1 

RESTORE  R1 

4495 

4496 

;  GET 

LINE  STATE 

4497 
4498 

033552 

012705 

001034' 

S0$: 

MOV 

#TEMP1,R5 

STORAGE  FOR  LINE  STATE 

4499 

033556 

012704 

000246' 

MOV 

*PCLEAR,R4 

ASSUME  IT  IS  CLEARED 

4500 

033562 

032760 

040000 

000000 

BIT 

#LF.RDY,L.FLG(RO) 

IS  LINE  CLEARED? 

4501 

033570 

001425 

BEQ 

110$ 

BR  IF  YES 

4502 

033572 

012704 

000077' 

MOV 

*0FF,R4 

ASSUME  OFF 

4503 

033576 

032760 

000400 

000000 

BIT 

#LF.8R0,L.FLG(R0) 

ETHERNET  DEVICE 

4504 

033604 

001003 

BNE 

85$ 

IF  YES  -  BRANCH 

4505 

033606 

105760 

000014 

TST8 

L.NSTA(RO) 

MULTIPOINT  LINE? 

4506 

033612 

001005 

BNE 

90$ 

BR  IF  YES 

4507 

033614 

032760 

002000 

000000 

85$: 

BIT 

#LF.ENA,L.FLG(R0) 

IS  STATE  OFF? 

4508 

033622 

001410 

BEQ 

110$ 

BR  IF  YES 

4509 

033624 

000405 

BR 

100$ 

ELSE  STATE  IS  ON 

4510 

033626 

011603 

90$: 

MOV 

(SP),R3 

GET  MULTIPOINT  STATION  ADDRESS 

4511 

033630 

132763 

000100 

000000 

BITS 

#SF.ENA,S.FLG(R3) 

•  IS  STATE  OFF? 

4512 

033636 

001402 

BEQ 

110$ 

■  BR  IF  YES 

4513 

033640 

012704 

000064' 

100$: 

MOV 

#0N,R4 

•  ELSE  IT  IS  OFF 

4514 

033644 

112425 

110$: 

MOVB 

(R4)  +  ,(R5)«- 

•  STORE  THE  STATE 

4515 
4516 
4517 

033646 

001376 

BNE 

110$ 

033650 

ERRPT$ 

LMSG6,MSG0UT 

;  DISPLAY  STATE 

4518 
4519 

033660 

ERRPT$ 

LMSG12,MSG0UT 

;  MAKE  OUTPUT  LOOK  NICE 

45<.j 

033670 

RESRG 

<R5,R4,R3,R2,R1,R0> 

4521 

033704 

RETURN 

4522 

4523 

.ENABL 

LC 

4524 

4525 

452b 

!  DISPLAY  MESSAGES 

4527 
4528 
4529 

033706 

ERMSG$ 

<XN!!A  %A   as  of  XYJ!N> 

4530 
4531 
4532 

033730 

ER8LK$ 

LMSG1,<TEMP2,TEMP1> 

033740 

ERMSG$ 

'XNLine  =  XAXN> 

4533 
4534 
4535 

033755 

ERBLK$ 

LMSG2,<TEMP5> 

033762 

ERMSG$ 

<   Type  =  XA,  Owner  =  XA> 

4536 
4537 
4538 

034012 

ERBLK$ 

LMSG3,<TEMP2,TE."1P3> 

034022 

ERMSG$ 

<   Controller  CSR  =  XO, 
LMSG4,<TEMP1,TEMP2,TEMp5 

Vector  =  XO,   Priority  =  XB> 

4539 
4540 
4541 

034104 

ERBLK$ 

> 

034116 

ERMSG$ 

<   State  =  i!A> 

4542 

054133 

ERBLK$ 

LMSG6,<TEMP1> 

4543 
4544 

034140 

ERMSG$ 

<   Type  =  !!A> 

4545 

034154 

ER8LK$ 

LMSG9,<TEMP2> 

l\/rM<;  -  wKiP   ^Hnu  rnMM4Mn<; 
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4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 

4968  035540  C05002 

4969  035542  152102 

4970  035544  010246 

4971  035546  006216 

4972  035550  006216 

4973  035552  006216 

4974  035554  006216 
4975 

4976  035556  062716  001575' 

4977  035562  113623 

4978  035564  042702  177760 

4979  035570  0o2702  001575' 

4980  035574  111223 

4981  035576  005300 

4982  035600  003357 

4983  035602  105023 

4984  035604 
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.SBTTL  HEXASC  -  CONVERT  HEX  TO  ASCIZ 

HEXASC  -  CONVERT  HEX  TO  ASCIZ 

INPUTS: 

RO  -  NUMBER  OF  BYTES  IN  HEX  NUMBER 

R1  -  ADDRESS  Of  BUFFER  CONTAINING  HEX  DIGITS 

R3  -  ADDRESS  OF  BUFFER  TO  STORE  CONVERTED  HEX  DJGIT 

OUTPUTS: 

R1  -  POINTER  PAST  HEX  DIGIT 

R3  -  POINTER  TO  NEXT  AVAILABLE  BYTE  IN  CONVERSION  BUFFER 

R0,R2  DESTROYED 


HEXASC: 


CLR 

R2 

BISB 

(R1)+,R2 

MOV 

R2,-(SP) 

ASfi 

(SP) 

ASR 

(SP) 

ASR 

(SP) 

ASR 

(SP) 

ADD 

#CVTHEX,(SP) 

M0V8 

a(SP)+,(R3)+ 

BIG 

#177766, R2 

ADD 

#CVTHEX,R2 
(R2),tR3)+ 

MOVB 

DEC 

RO 

BGT 

HEXASC 

CLRB 

(R3)  + 

RETURN 


GET  NEXT  TUO  HEX  DIGITS 
ISOLATE  HIGH  FOUR  BITS 


INDEX  INTO  HEX  TABLE 

STORE  ASCII  HEX  DIGIT 

ISOLATE  LOW  FOUR  BITS 

INDEX  INFO  HEX  CONVERSION  TABLE 

STORE  ASCII  HEX  DIGIT 

MORE  TO  CONVERT? 

BR  IF  YES 

CREATE  ASCIZ  STRING 


\/^p   <;Hny  mMMAwrc; 
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VDIS 

CREATED  BY 

MACRO  ON  15-JUL-85  AT 

12:17 

M 

PAGE  5 

8 

SYMBOL 

CROSS  REFERENCE 

CREF   04. 

30 

SYMBOL 

VALUE 

REFERENCES 

*29-2274 

♦31-2332 

31-2364 

•33-2441 

33-2480 

35-2667 

♦36-2721 

37-2776 

♦38-2832 

40-3059 

♦41-3149 

FMTCIR 

034334  R 

53-3959 

#57-4621 

FMTl  " 

034166  R 

35-2663 

52-3907 

55-4404 

#56-4  569 

fnda: 

FNDBLIs 

007276  n 
024620  R 

18-1035 
27-1955 

#25-1396 
27-2014 

27-2097 

32-2410 

33-2439 

38-2830 

41-3147 

#44-3275 

FNDPDV 

035140  R 

12-664 
53-4006 

26-1574 
53-4035 

26-1577 
53-4066 

26-1627 
#61-4813 

26-1664 

26-1759 

34-2527 

39-2850 

52-3892 

FNDUCB 

035212  R 

26-1673 

26-1775 

?62-4847 

F.ADD 

000016 

#5-84 

22-1293 

22-1309 

F.CEV 

000030 

#5-84 

20-1193 

20-1194 

20-1195 

20-1196 

F.riR 

000024 

#5-84 

F  .CLS 

000002 

#5-84 

12-727 

19-1101 

19-1108 

19-1127 

F.EVT 

000004 

#5-84 

19-1088 

19-1089 

19-1090 

19-1091 

19-1103 

19-1104 

19-1105 

19-1106 

F  FLG 

000014 

#5-84 

12-732 

17-979 

17-986 

19-1093 

19-1097 

F.FND 

=  000004 

#7-325 
40-3059 

31-2332 
41-3149 

31-2364 

33-2441 

33-2480 

35-2667 

36-2721 

37-2776 

38-2832 

F.LEN 

000016 

#5-84 

12-723 

12-729 

F.LIN 

000020 

#5-84 

21-1225 

21-1261 

F.LNK 

000000 

#5-84 

F  .MOD 

000022 

#5-84 

F.PREV 

=  000002 

#7-324 

19-1144 

19-1148 

19-1155 

23-1344 

23-1350 

F  .REM 

000026 

#5-84 

17-984 

17-993 

17-995 

F.RSIZ 

=  ******     Gx 

•10-461 

♦18-1023 

♦22-1298 

♦22-1308 

♦25-1397 

♦25-1408 

♦26-1439 

♦26-1484 

♦26-1524 

*26-1605 

♦26-1630 

♦26-1684 

♦26-1706 

•26-1713 

•26-1762 

♦26-1763 

•27-1949 

♦27-2003 

*27-2091 

♦31-2329 

♦31-2352 

♦31-2354 

♦33-2430 

•34-2553 

♦34-2570 

•35-2635 

♦37-2741 

♦37-2767 

♦39-2880 

♦39-2894 

♦40-2926 

♦42-3168 

•42-3180 

♦44-3280 

♦45-3364 

♦49-3577 

*49-3578 

♦53-4021 

♦53-4025 

♦53-4049 

♦53-4053 

♦53-4080 

♦53-4084 

•53-4208 

♦53-4258 

*53-4262 

♦55-4473 

♦58-4682 

♦59-4733 

♦59-4743 

♦59-4749 

♦60-4778 

•62-4850 

♦62-4853 

F.SEV 

000004 

#5-84 

20-1197 

20-1198 

20-1199 

20-1200 

F.STRT 

=  000001 

#7-323 

19-1138 

19-1143 

F.URBD 

I  »«**♦»  GX 

♦10-460 

♦10-462 

•18-1022 

♦18-1024 

♦22-1297 

♦22-1301 

♦22-1323 

♦25-1396 

♦25-1400 

♦25-1412 

♦26-1761 

♦31-2350 

♦31-2357 

♦49-3575 

♦49-3588 

GCLASS 

=  001044  R 

#7-315 

7-316 

♦19-1101 

♦19-1102 

19-1110 

GEVM5K 

=  001046  R 

#7-316 

♦19-1103 

♦19-1104 

•19-1105 

♦19-1106 

20-1189 

20-1190 

20-1191 

20-1192 

GFSBUG 

=  000001 

37-2758 

GRMS1 

021536  R 

37-2754 

#37-2788 

GRMS2 

021602  R 

37-2773 

#37-2791 

GRMS3 

021660  R 

37-2782 

#37-2794 

GRPBIL 

000750  R 

#6-233 

37-2761 

GTEXEC 

034542  R 

26-1460 

26-1583 

#58-4682 

GTSTID 

034630  R 

26-1475 

26-1599 

26-1814 

#59-4712 

GSCUG 

000010 

63-4872 

GSDTE 

000012 

37-2765 

GSFLG 

000014 

37-2758 

GSGNAM 

000016 

38-2828 

GSLEfJ 

000016 

38-2823 

38-2827 

G$NAM 

000002 

38-2824 

G$MML 

000015 

38-2829 

HEXASC 

035540  R 

40-3014 

40-3017 

#65-4968 

65-4982 

H$CUG 

000010 

37-2740 

H$DSr 

000012 

39-2856 

rRFATFn    RV       MACRO       ON    1S-JIII-85    AT    12:17 
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SYMBOL  CROSS  REFERENCE 


M   ^ 

PAGE  18 
CREF   OA.OO 


SYMBOL  VALUE 


V$FLG 

V$LEN 

JC.CNT 

WC.EVE 

WC.TRl 

UC.UNT 

XPER1 

XPMSl 

XPM52 

XPMS3 

XPMSA 

X5ER1 

X5MS1 

X9ER1 

X9MS1 

YSDPSZ 

YSDWSZ 

Y$LEN 

YSMCLR 

YSMPSZ 

YSMRES 

YSMRST 

YSMWSZ 

YSTCAL 

YSTCLR 

YSTRES 

YSTRST 

ZF.MUX 

ZSCTIM 

ZSLEN 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LLN 

'.MAP 

Z.NAM 


Z.PCB 
$BFR 


000000 

000022 

000^00 

OOAOOO 

002000 

001000 

020062 

020162 

020272 

020A02 

020510 

022264 

022334  R 

024442  R 

024522  R 

000002 

000006 

000020 

000016 

000004 

000015 

0000^4 

000CD7 

000011 

000013 

000012 

000010 

****** 

000014 

000026 


GX 


**** t * 


GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 


REFERENCES 

26-1764 
26-1765 

#5-99 

#5-99 

#5-99 

#5-99 
34-2529 
34-2574 
34-2581 
34-2589 
34-2597 
39-2852 
39-2896 
42-3171 
42-3183 
34-2571 
34-2573 
34-2570 
34-2580 
34-2576 
34-2584 
34-2586 
34-2578 
34-2588 
34-2592 
34-2594 
34-2596 
21-1247 
39-2895 
39-2894 
26-1630 
34-2569 
21-1247 
26-1666 
35-2656 
,1-606 
50-3701 
57-4626 
11-591 
10-462 
26-1529 
26-1674 
26-1707 
26-1746 
31-2345 
33-2470 
34-2588 
36-2705 
39-2870 
40-2955 
40-2998 
40-303? 


26-1767 

27-2026 

27-2042 
27-2033 
#34-2603 
#34-2608 
#34-2611 
#34-2614 
#34-2617 
#39-2902 
#39-2907 
#42-3190 
#42-3195 


56-4571 


26-1762 
39-2893 
56-4571 

52-3896 

21-1235 

53-3980 

61-4819 

50-3709 

12-681 

26-1531 

26-1679 

26-1^08 

26-1748 

31-2348 

34-2555 

34-2592 

36-2711 

39-2873 

40-2958 

40-2999 

40-3039 


28-2199 
28-2206 


57-4623 

34-2565 
57-4623 


27-2021 
53-4118 


26-1533 
26-1685 
26-1714 
26-1761 
31-2352 
34-2571 
34-2594 
36-2714 
39-2880 
40-2960 
40-3003 
40-3050 


39-2839 


28-2176 
53-4248 


18-1024 
26-1537 
26-1686 
26-1719 
26-1763 
31-2357 
34-2573 
34-2596 
37-2758 
39-2883 
40-2967 
40-3004 
40-3051 


53-4258 


28-2192 
55-4423 


22-1323 
26-1606 
26-1690 
26-1721 
26-1764 
33-2452 
54-2576 
35-2638 
37-2764 
39-2895 
40-2971 
40-3010 
40-3051 


28-2194 
55-4425 


25-1412 
26-1607 
26-1692 
26-1723 
26-1767 
33-2457 
34-2578 
35-2639 
37-2765 
40-2943 
40-2980 
40-3020 
40-3055 


28-2222 
55-4430 


26-1440 
26-1607 
26-1693 
26-1725 
26-1776 
33-2459 
34-2580 
35-2645 
37-2768 
40-2945 
40-2981 
40-3030 
42-3169 


46-3392 
55-4446 


26-1485 
26-1609 
26-1697 
26-1727 
31-2334 
33-2465 
34-2584 
35-2652 
37-2769 
40-2952 
40-2984 
40-3031 
42-3179 


46-3397 
56-4574 


26  '525 
2.-1631 
26-1698 
26-1738 
31-2344 
33-2468 
34-2586 
35-2664 
* 37-2772 
40-2953 
40-2996 
40-3033 
42-3181 
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55 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 

66  000000 

67  000000 

68  000000 

69  000000 

70  000000 

71  000000 

72  000000 

73  000000 

74  000000 

75  000000 

76  000000 

77  000000 

78  000000 

79  000000 

80  000000 

81  000000 

82  000000 

83  000000 

84  000000 
85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 


.SBTTL  MACRO  CALLS 


MACRO  CALLS 


.MCALL 
.MCALL 
.MCALL 
.MCALL 


ERMSG$,ERBLK$,ERRPT$,GETRV,PUTRC,TCBDF$,CLKDF$,XPDDB$,ECDDB$ 
SWTCH0,VNPDF$,RNBDF$,0BJDF$,AN8DF$,PUTAD,GETAD,NSFDF$ 
UCBDF$,DPCDF$,PCLDF$,FLTDF$,SWTCHI,CEACC$,EVLDF$,PL8DF$ 
SAVRG,RESRG,ASL$,CTRDF$,DMPI)F$,ADJDF$,CALLR,DHBDf$ 


.ENA8L     LC 

TC8DF$ 
CLKDFS 
CTRDFS 
FLTDFS 
ECDDBS 
XPDDBS 
PLBDFS 
VNPDFS 
RNBDFS 
OBJDFS 
ANBDFS 
NSFDFS 
UCBDFS 
EVLDFS 
DMPDFS 
DDCDFS 
PCLDFS 
ADJDFS 
DHBDFS 


LOCAL  MACRO  CALLS 


rCB  OFFSETS 

CLOCK  QUEUE  ENTRY  OFFSETS 

DEFINE  COUNTER  BLOCK  OFFSETS 

DEFINE  FILTER  BLOCK  OFFSETS 

DEFINE  ECL  DATA  BASE  OFFSETS 

DEFINE  XPT  DATA  BASE  OFFSETS 

DEFINE  PLB  OFFSETS 

DEFINE  VNP  OFFSETS 

DEFINE  REMOTE  BLOCK  OFFSETS 

DEFINE  OBJECT  BLOCK  HFFSETS 

DEFINE  ALIAS  BLOCK  OFFSETS 

DEFINE  NSP  FEATURES  MASK  BITS 

DEFINE  UCB  OFFSETS 

DEFINE  EVENT  CLASSES  AND  TYPES 

DEFINE  OMP  OFFSETS 

DEFINE  DDCMP  OFFSETS 

DEFINE  PCL  OFFSETS 

DEFINE  ADJACENCY  DATA  BASE  OFFSETS 

DEFINE  DECNET  HOME  BLOCK  OFFSETS 


IFT  LEFT 

.MACRO 

ASL$    COUNT 

RFG 

.IF  DF 

R$$EIS 

ASH 

#'COUNT',REG 

.IFF 

.REPT 

COUNT 

ASL 

REG 

.ENDR 

.ENDC 

.ENDM 

ASL$ 

.MACRO 

ASR$    COUNT 

RFG 

.IF  DF 

R$$EIS 

ASH 

#-'COUNT',REG 

.IFF 

.REPT 

COUNT 

ASR 

REG 

.ENDR 
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575 
575 
577 
578 
579 
580 
581 
582 
583 
58A 
585 
586 
587 
588 
589 

590  001230 

591  001230 

592  001234 

593  001242 

594  001244 

595  001250 

596  001252 

597  001254 

598  001262 

599  001264 

600  001270 

601  001272 

602  C01274 

603  001302 

604  001304 

605  001310 

606  001312 

607  001314 

608  001322 
609 

610  001326 

611 

612 

613 

614  001330 

615  001340 


.SBTTL  SVTAD  -  SET  TRIBUTARY  STATION  ADDRESS 

»*-$VTAD-SET  TRIBUTARY  STATION  ADDRESS 

THIS  ROUTINE  IS  CALLED  TO  CHANGE  THE  TRIBUTARY  ADDRESS 
FOR  A  lULTIPOINT  LINE. 

INPUTS: 


SSLTA  =  SLT  ADDRESS 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 


016701 
032761 
001432 

103426 
001404 
116767 
000421 

103416 
001404 
116767 
000411 

103406 
001412 
116767 


OOOOOOG 
OOOOOOG  OOOOOOG 


000030G  000034G 


000030G  000003G 


00003CG  000004G 


SVTAD: 


MOV 

$SLTA,R1 

BIT 

#LF.MTP,L.FLG(R1) 

BEQ 

l''l$ 

CALL 

FNDTfil 

BCS 

40$ 

BEQ 

10$ 

MOVB 

RQS+L0.TRI,$BFR+S 

SIPN 

BR 

40$ 

10$: 

CALL 

FNDPCL 

BCS 

40$ 

BEQ 

20$ 

MOVB 

RQ8+L0.TRI,$BFR+S 

PSA 

BR 

40$ 

20$: 

CALL 

FNDDMP 

BCS 

40$ 

BEQ 

102$ 

MOVB 

R08+LO.TRI,$BFR+T 

IHPN 

30$: 

PUVAD 

^0$: 

RETURN 

';    ERROR 

lONDITIONS 

101$: 

ERRPTS 

ERR31,$ER0UT 

102$: 

ERRPT$ 

ERfi32,$ER0UT 

GET  SLT  ADDRESS 

IS  THIS  A  MULTI-POINT  LINE  ? 

IF  EQ,  NO  ..  ERROR 

FIND  THE  DCP  TRIBUTARY  TABLE 

IF  CS,  ERROR  DETECTED 

IF  EQ,  LINE  TABLE  NOT  FOUND 

ELSE,  SET  THE  NEW  TRIB  ADDRESS 

AND  RETURN 

MAYBE  IT'S  A  PCL  ? 

IF  CS,  ERROR  DETECTED 

IF  EQ,  LINE  TABLE  NOT  FOUND 

ELSE,  SET  NEW  PHYSICAL  ADDRESS 

AND  RETURN 

MAYBE  IT'S  A  DMP? 

IF  CS,  ERROR  DTECTED 

IF  EQ,  LINE  TABLE  NOT  FOUND 

ELSE  SET  NEW  PHYSICAL  ADDRESS 

WRITE  BACK  THE  LINE  TABLE 

BACK  TO  USER  STATE 


LINE  IS  NOT  MULTIPOINT 

INVALID  PARAMTER,  TRIBUTARY  ADDRESS 
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108A 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1095 

109A 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

110^ 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 


003230 
003230 
003236 
003240 
003244 


003246 
003254 
003262 


003264 
003272 
003300 
003304 
003310 
003314 
003322 
003324 
003326 
003330 
003334 
003336 
003340 
003344 
003350 


003352 
003356 
003360 
003366 


003370 
003376 
003402 
003406 
003412 


032767 
001445 
116102 
001007 


042761 
112761 
000471 


142760 
112760 
016701 
062701 
012746 
132761 
001402 
005016 
000404 
062701 
005302 
002366 
016701 
042661 
000436 


116102 
001004 
042761 
000427 


142760 

016701 
062701 
012746 
132761 


.SBTTL  DS8LIN  -  DISABLE  A  LINE 

***  -  DSBLIN  -  DISABLE  LINE 

INPUTS: 

RO  =   SLT   STATION   ADDRESS    IF   MULTIPOINT   LINE 
R1    =   SLT  ADDRESS 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 


OOOOOOG  OOOOOOG 
OOOOOOG 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


DSBlIN: 


BIT 
BEQ 
MOVB 
BNE 


#VF.DLX,$VFLAG 
50$ 

L.NSTA(R1),R2 
10$ 


IS  THIS  A  DLX  ONLY  SYSTEM 
BR  IF  NO 

MULTIPOINT  LINE? 
IF  NE,  YES 


PT-TO-PT  LINE  -  DLX  ONLY 


BIC     *LF.ACT,L.FLG(R1)  ;  CLEAR  LINE'S  ACTIVE  BIT 

MOVB    #LN.0FF,L.NMST(R1)  ;  SET  MANAGEMENT  STATE  TO  'OFF' 

BR      100$  ;  AND  RETURN 


MULTI-POINT  LINE  -  DLX  ONLY 


OOOOOOG  OOOOOOG  10$: 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG  20$: 


OOOOOOG 


OOOOOOG 
OOOOOOG 


30$: 
40$: 


BICB  #SF.ACT,S 

MOVB  #LN.OFF,S 

MOV  $SLTA,R1 

ADD  #L.MPF,R1 

MOV  *LF.ACT,-(SP)   , 

BITB  #SF.ACT,S.FLG(R1) 

BEQ  30$ 

CLR  (SP) 

BR  40$ 

ADD  #S.LEN,R1 

DEC  R2 

BGE  20$ 

MOV  $SLTA,R1 

BIC  (SP)+,L.FLG(R1) 

BR  100$ 


FLG(RO)  ;  CLEAR  ACTIVE  BIT 
NMST(RO)  ;  SET  STATE  TO  'OFF' 

GET  SLT  ADDRESS 

POINT  TO  STATION  TABLE 

ASSUME  ALL  TRIBUTARIES  ARE  'OFF' 

;  IS  TRIBUTARY  ACTIVE  ? 

IF  EQ,  NO 

ELSE,  DON'T  CLEAR  ACTIVE  BIT  IN  SLT 

AND  LEAVE 

GET  NEXT  SLT  TRIB  EXTENSION 

ANY  MORE  TRIBUTARIES  ? 

IF  YES  -  BRANCH 

ELSE,  GET  SLT  ADDRESS 

CLEAR  ACTIVE  BIT  IF  ALL  TRIBS  ARE  'OFF' 

AND  EXIT 


POINT' 
OOOOOOG         50$: 
OOOOOOG  OOOOOOG 


■TO-POINT  NON-DLX 

MOVB  L.NSTA(R1),R2 

BNE  60$  ; 

BIC  #LF.ENA,L.FLG(R1) 

BR  100$ 


MULTI-POINT  NON-DLX 


OOOOOOG  OOOOOOG  60$:  BICB 

OOOOOOG  MOV 

OOOOOOG  ADD 

OOOOOOG  MOV 

OOOOOOG  OOOOOOG  70$:  BITB 


#SF.ENA,S.FLG(RO) 

$SLTA,R1 

#L.MPF,R1 

#LF.ENA,-(SP) 

#SF.ENA,S.FLG(R1) 


GET  NUMBER  OF  TRIBS 
BR  IF  MULTIPOINT  LINE 
;  TURN  CIRCUIT  OFF 
AND  EXIT 


;  TURN  CIRCUIT  OFF 

GET  SLT  ADDRESS 

POINT  TO  STATION  TABLE 

ASSUME  ALL  TRIBUTARIES  ARE 

;  IS  TRIBUTARY  ACTIVE  ? 


'OFF' 


rMCr  MftrDn  v/n";  n7K  l.l. 
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1657 
1658 
1659 
1660 
1661 
1662 
1665 
166^ 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
168A 
1685 
1686 
1687 
1688 


.SBTTL  QUICK  -  FAST  REMOTE  NODE  PROCESSING 

QUICK  -  FAST  REMOTE  NODE  PROCESSING 

INPUTS: 

RO     -  POINTER  TO  NEW  NODE  BLOCK 
R1     -  NODE  ADDRESS  TO  BE  INSERTED 
SLSTAD  -  CURRENT  HIGHEST  NODE  ADDRESS 
SLSTRM  -  HIGHEST  NODE  ADDRESS  POINTER 

OUTPUTS: 

C  SET  -  FAST  SEARCH  FAILURE 

C  CLR  -  FAST  SEARCH  SUCCESS 

R1     -  POINTER  TO  NEW  PREVIOUS  BLOCK 

SLSTAD, SLSTRM  -  UPDATED 


005576 
005602 
00560A 
005606 

005610 
0056U 
005616 
005622 
005626 
005632 
005634 


005767  OOOOOOG 

"01002 
'1 


020167  OOOOOOG 

103773 

010167  OOOOOOG 

016701  OOOOOOG 

010067  OOOOOOG 

000241 


QUICK: 
5$: 


10$: 


TST     SLSTAD 
BNE     10S 
SEC 
RETURN 


CMP 
BLO 
MOV 
MOV 
MOV 
CLC 
RETURN 


R1, SLSTAD 

5$ 

R1, SLSTAD 

SLSTRM, R1 

RO, SLSTRM 


HIGH  ADDRESS  VALID 
IF  YES  -  BRANCH 
INDICATE  FAILURE 


INSERT  AT  END  OF  LIST  ? 

IF  NO  -  BRANCH 

UPDATE  NEW  HIGH  ADRESS 

SET  NEW  PREVIOUS  NODE  BLOCK  POINTER 

UPDATE  NEW  LAST  NODE  BLOCK  POINTER 

INDICATE  SUCCESS 


xhin      Chi  ADI    C    J 


TMCC     MATDn     \lC\^     HTh     UoHnocHa\ 
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Psne    3? 


VENA  ■ 
SVOBj 
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se^/ClEar  object  block 


Page  ^1 


218? 

218^ 

21S5 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

219^ 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

22K 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

222U 

2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2233 
2239 


.SBTTL   SV08J  -  SET/CLEAR  OBJECT  BLOCK 

'...  -  $V08J  -  SET/CLEAR  OBJECTS 

INPUTS: 

SOPTON  =  OPTIONS  WORD 
REQUEST  BLOCK  CONTAINS  DATA 

OUTPUTS: 

NONE. 


010306 
010306 
010312 
010320 


010322 
010330 
010332 
010334 
010336 
010342 
010346 
010350 
010356 
010360 
010364 
010370 
010372 
010400 

010402 
010404 
010406 
010412 
010416 
010422 
010430 
010432 


016701      000002G 

032767     OOOOOOG  OOOOOOG 

001045 


tVOBJ: 


MOV 
BIT 
BNE 


RQSHR.TYP.RI 

#CM$SET,$CMANI) 

20$ 


032767 

001004 
005701 
001002 
000167 

103006 
032767 
001121 
000167 
022701 
001004 
016767 
000404 

010146 
010046 

012701 

032767 
001344 
000473 


000004  OOOOOOG 


010434 
010440 
010442 
010450 
010452 
010460 
C10466 
010474 
010476 
010504 
0'C512 


CLEAR  REQUEST 


000440 


1$: 


000004  OOOOOOG 

000376 

OOOOOOG        3$: 

OOOOOOG  OOOOOOG 


RIT 

#QF$KNO,$QUAL 

BNE 

1$ 

TST 

R1 

BNE 

1$ 

J  MP 

103$ 

CALL 

$FN08J 

BCC 

3$ 

BIT 

#0F$KN0,$QUAL 

BNE 

49$ 

J  MP 

101$ 

CMP 

#$08JHD,R1 

BNE 

5$ 

MOV 

$8FR,$0BJH0 

BR 

15$ 

000012 

000004  OOOOOOG 


5$: 
15$: 


MOV 

MOV 

CALL 

MOV 

CALL 

BIT 

BNE 

BR 


SET  REQUEST 


103471 
032767 
001415 
116767 
152767 
032767 
001003 
142767 
052767 

00141: 


J0$: 


000001  OOOOOOG 

000010G  000004G 
000200  000003G 
000200  000012G 


000200 
000002 


000003G 
OOOOOOG 


30$: 


CALL 

BCS 

BIT 

BEQ 

M0V6 

BIS8 

BIT 

BNE 

BICB 

BIT 

BEQ 


R1,-(SP) 

R0,-(5P) 

$XLINK 

#0.LEN,R1 

$DEPOL 

#QF$KNO,$QUAL 

1$ 

49$ 


$FN08J 

50$ 

#0P$C0P,$0PT0N 

30$ 

RQ8H0.C0P,$BFR»0.MXC 

#0F.SMC,$BFRt0.FL6 

#OF$SMC,RQB*LO.OFL 

30$ 

#OF.SMC,$BFRtO.FLG 

«OP$USE,$OPTON 

40$ 


GET  THE  OBJECT  TrPE  CODE 
IS  THIS  A  SET  COMMAND  7 
IF  NE,  YES 


IS  THIS  FOR  KNOWN  OBJECTS  7 

IF  NE,  YES 

ELSE,  IS  THIS  OBJECT  TYPE  ZERO  7 

IF  NE,  NO  ..  OKAY 

ELSE,  ERROR 

TRY  TO  FIND  THE  OBJECT 

IF  CC,  FOUND  ..  OKAY 

ELSE,  WAS  THIS  FOR  KNOWN  OBJECTS  7 

IF  NE,  YES  ..  OKAY 

ELSE,  ERROR 

IS  PREVIOUS  OBJECT  THE  LISTHEAD  7 

IF  NE,  NO 

ELSE,    SET  NEW  NEXT 

AND   CLEAN  UP 

GET  UNMAPPED  ADDR  OF  PREVIOUS  BLOCK 

GET  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 

UNLINK  FROM  LIST 

GET  LENGTH  OF  OBJECT  BLOCK 

DEALLOCATE  THE  OBJECT  BLOCK 

IS  THIS  FOR  KNOWN  OBJECTS? 

BR  IF  YES 

ELSE  FINISHED 


TRY  TO  FIND  THE  OBJECT  BLOCK 

IF  CS,  NOT  FOUND  ,.  MAKE  NEW  ONE 

WERE  THE  NO.  OF  COPIES  GIVEN  7 

IF  EQ,  NO 

ELSE,  STORE  NO.  OF  COPIES 

ASSUME  MULTIPLE  COPIES 

SPAWN  MULTIPLE  COPIES  7 

IF  NE,  YES  ..  OKAY 

ELSE,  CLEAR  BIT 

WAS    THE   USER   REQUEST    SPECIFIED    ? 

IF    EQ,    NO 


i/AC     (TZk 


N  U 

-at;   I'j-n/k 
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2^52 
?755 
27Si; 
2755 
27';6 
2757 
2758 
2759 
2760 
2761 
2762 
2765 
276A 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2^82 


012^2 
012'76 
013(02 
013C04 
013GD6 
013C12 
013C16 
013020 
013024 
0130A2 
013046 
013050 
013054 
013056 
013064 
013066 
013070 


103424 
016702 

026702 
001403 
016702 
000763 
032767 
001001 
000261 


.SBTTL      CKCON  -   CHECH.   CONSOLE   NAME   FOR   ^/MiOUf 

CKCON  -   CHECK    CONSOLE    NAME    FOR   VALIDUr 

INPUTS: 

RQB*LO.SNM  -  CONSOLE  SINK  NAME 

OUTPUTS: 

CARRY  -  SUCCESS/FAILURE 


012701   000006 


103432 
160400 
012704 


CKCON: 


10$: 


000160' 


OOOOOOC 
000002G 
000002G 


000001  0000106  15$: 


20$: 


MOV 

#MXC0N,R1 

CALL 

GETLEN 

BCS 

20$ 

SUB 

R4,R0 

MOV 

*C0NNAM,R4 

CALL 

CKMDEV 

BCS 

20$ 

MOV 

D.UC8t$8FR,R2 
R2.*U.CNTtJ 

GETRV 

CMP 

U.REDt$BfR,R2 

BEQ 

15$ 

MOV 

U.RED»$BFR,R2 

BR 

10$ 

BIT 

#DV.REC,U.CWl'$8fR 

BNE 

20$ 

SEC 

GET  MAXIMUM  LENGTH  OF  CONSOLE  NAME 

GET  LENGTH  OF  CONSOLE  NAME  STRING 

BR  IF  ERROR 

POINT  TO  START  OF  SINK  NAME 

POINT  TO  CONSOLE  NAME  STORAGE 

CHECK  DEVICE  AND  UNIT  NUMBER 

BR  IF  NOT  RSX11M  DEVICE 

GET  UCB  ADDRESS 

READ  IN  UCB 

HAS  THIS  DEVICE  BEEN  REDIRECTED? 

BR  IF  NO 

GET  NEXT  UCB  ADDRESS  .'N  LIST 

CHECK  FOR  NEXT  UCB  IN  REDIRECT  LIST 

IS  IT  A  TERMINAL  DEVICE 

BR  IF  VES 

INDICATE  ERROR 


RETURN 


N  15 


CHNAM 
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CHANGE   LOGGING 
003375 


INK.  NAME 
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3287  01510A 

328S 

3289  015106 


70$  i 


BGT 

RETURN 


50$ 


BR   If    /ES 


/OIS  -  VNP  SHOW  COMMANDS 
tDMOD  -  SHOW  NODE 
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1644  010672 
1645 

1646  010674 

1647  010704 
1648 

1649 

1650 

1651  010706 

1652 

1655 

1654 

1655  010734 

1656 

1657 

1658  C10740 

1659 

1660 

1661 

1662 

1663  01C750 

16o4  010754 

'665  010760 

1666  010764 

1667  010772 
1668 

1669 
1670 

1671  010776 

1672  011002 

1673  011006 

1674  011012 

1675  011020 

1676  011022 

1677  011026 

1678  011030 

1679  011032 

1680  011040 
1681 

1682 
1683 

1684  011042 

1685  011062 

1686  011070 

1687  011076 

1688  011076 
1689 

1690  011106 

1691  011114 

1692  011116 

1693  011124 
1694 

1695  011132 
1696 

1697  011142 

1698  011150 
1699 

1700  01M56 


000426 
000421 


000241 
000012 


BR 


360$ 


330$: 


350$: 


01O':67  170616 


012700  114224 


ERRPrS  NMSG5,MSG0UT 
BR     360$ 


CLC 

.REPT   10. 

ROR     R1 

.ENDM 

MOV     R1,TEMP7 


ERRPT$  NMS12A,MSG0UT 


005067 
156067 
005367 


012700 
012701 

032767 
001402 
012700 
112021 
001376 
032767 
001075 


016767 
016767 


016767 
001412 
016767 
016767 


016767 
016767 


170050 

OOOOOOG  170042 
170036 


000416' 
001560' 

000200  00001 4G 

000426' 

000200  000014G 


GET  MAXIMUM  CIRCUITS 

J60$:   MOV  #*RX(   <0 

CALL  FNDPI 

CLR  TEMPI 

BJSe  Z.LLN(RO), TEMPI 

DEC  TEMPI 

DETERMINE  ROUTING  TYPE 

MOV  #ROUTNG,R0 

MOV  #TEMP8,R1 

CALL  FNDUCB 

BIT  #NF.END,$BFR+U.CW3 

BEQ  370$ 

MOV  #NR0UT,R0 

370$:   MOVB  (R0)+,(R1)+ 

BNE  370$ 

BIT  *NF.END,$BFR+U.CU3 

BNE  400$ 


;  CONTINUE 

;  DISPLAY  HOST  AND  MAX  ACTIVE  LINKS 

DC  NOT  ROR  C-8IT 
POSITION  AREA  BITS 
STORE  AREA  FOR  OUTPUT 

PRINT  AREA. ADDRESS 


GET  XPT  PROCESS  NAME 
GET  XPT'S  PDV  ADDRESS 
INIT  NUMBER  OF  CIRCUITS 
GET  MAXIMUM  CIRCUITS+1 
DO  NOT  INCLUDE  CHANNEL  0 


ASSUME  ROUTING  NODE 

STORAGE  FOR  ROUTING  TYPE  STRING 

GET  UCB  FOR  NS:  DEVICE 

END  NODE? 

BR  IF  NO 

NONROUTING  NODE 

STORE  ROUTING  TYPE  STRING 

ROUTING  NODE? 
tIR  IF  NO 


DISPLAY  MAXIMUM  ADDRESS,  MAXIMUM  CIRCUITS,  AND  MAXIMUM  COST 


000064G  170112 
000060G  170126 


000062G  167720 

000072G  167736 
000074G  170050 


000054G  170054 
000056G  170400 


380$: 


GETRV  $DbCPT,#D$END 

MOV  $BFR+D$MAXC,TEMP3 

MOV  $BFR+D$NN,TEMP4 

ERRPT$  NMSG6,MSG0UT 

MOV  $BFR+D$NA, TEMPI 

BEQ  390$ 

MOV  $BFP*D$AHXC,TEMP2 

MOV  $BFf  ■D$AMXH,TEMP3 

ERRPT$  NMSG6A,MSG0UT 


390$: 


MOV 
MOV 


$BFR+D$NBRA,TEMP4 
$BFR+D$NBEA,TEMP7 


BRRPT$  NMSG6B,MSG0UT 


read  decnet  home  block 
siore  max  cost 
store  max  address 

display  message 

get  maximum  area 
if  none  -  branch 
store  max  area  cost 
store  max  area  hops 

display  multiple  area  char 

:torc  router  adj. 
store  endnode  adj. 

dis'  .  ■■'  "^xecutor  adjacencies 
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2292 
2293 
229^ 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
230A 

2305  01572^ 

2306  0i5732 

2307  01573A 

2308  0157^2 
2309 

2310  015744 

2311  015750 
2312 

2313  015752 
23K  015756 


.SSTTI.  DMXAC 


Page  30 
SHOW  MODULE  X25-ACCESS 


032767 
001007 
032767 
001003 


010000 
004000 


DMXAC  -  SHOW  MODULE  X25-ACCESS 
INPUTS: 


RQ8 


ADDRESS  OF  REQUEST  BLOCK 


OUTPUTS: 

INFORMATION  DISPLAYED  ON  USER'S  TERMINAL 


OOOO'^GG  DMXAC: 
OOOOOOG 


10$: 


BIT 
BNE 
BIT 
BNE 

CALL 
RETURN 

CALL 
RETURN 


#0P$KNT,$OPT0N 
10$ 

#OP$NET,$OPTON 
10$ 

DMXACD 


DMXACN 


Check  if  displaying  KNOWN  NETWORKS 
Branch  if  yes 

Check  if  displaying  NETWORK  xxx 
Branch  if  yes 

Display  X25-ACCESS  destinations 
Display  X25-ACCESS  networks 


;[TD001] 
;CTD001] 
.-CTDOOI] 
;CTD001] 
;  CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
; CTDOOI] 
; CTDOOI] 


VDIS  -  VNP  SHOW  COmANDS 
NXTGRP  -  Get  next  group  block 

2796 
2797 
2798 
2799 
2800 
2801 
2302 
2803 
280^ 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
28K 
2815 

2816  021662 

2817  021662  005000 

2818  021664  032767 

2819  021672  001002 

2820  021674  012700 

2821  021700  032767 

2822  021706  001007 

2823  021710  012701 

2824  021714  012702 

2825  021720  012703 

2826  021724  000406 

2827  021726  012701 

2828  0217:'2  012702 

2829  021736  012703 

2830  021742 

2831  021746  103404 

2832  021750  152767 

2833  021756  000241 

2834  021760 
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.3BTTL  NXTGRP  -  Get  next  group  block 


**»  NXTGRP  -  Get  next  group  block 

INPUTS: 

SBFR  -  Address  of  next  group  descriptor 

SOPTON  -  Options  word 

L0.GR0+R08  -  Group  name  to  look  for 

OUTPUTS: 

CARRY  CLEAR: 

SBFR  contains  next  group  block 

RO  -  Address  of  group  name  in  block 

R1  -  Length  of  g'-oup  name  in  block 

CARRY  SET: 

End  of  closed  user  group  blocks 

Registers  destroyed 


NXTGRP: 


001000  OOOOOOG 

000024G 

OOOOOOG  OOOOOOG  10$ 

000016 
000002 
177772 


000036 
000016 
000015 


000004  157616 


CLR 

RO 

BIT 

#0P$KGR,$OPT0N 

BNE 

10$ 

MOV 

#RQB+LO.GRO,R0 

10$: 

BIT 

#PF.XDF,$PFLAG 

BNE 

20$ 

MOV 

#G$LEN,R1 

f-W 

#G$NAM,R2 

Mui/ 

#-6,R3 

BR 

30$ 

?0$: 

MOV 

#G$LEN+MAXID,R1 

MOV 

#G$GNAM,R2 

MOV 

#G$NML,R3 

30$: 

CALL 

FND8LK 

BCS 

99$ 

BIS8 

#F.FND, FLAGS 

CLC 

99$: 

RETURN 

Presume  no  specific  group 
Is  known  groups  specified? 
If  so,  continue 
Else  look  for  specific  group 
Check  for  extended  data  format 

Old-format  CUG  block  length 
Old-format  CUG  name  offset 
Old-format  was  fixed  6  characters 

Max  length  of  extended  CUG  block 

Extended  CUG  name  offset 

Offset  in  CUG  block  of  name  length 

Find  next  matching  CUG  block 

Branch  if  not  found 

Indicate  group  found 

Signal  block  found 


;[TD001] 
:**-1 


;CTr001] 
;[TD001J 
;[TD00i: 
;[Tt"on 
;[TC00i: 
;CTD00i: 
-6 


;[TD001] 
;[TD001] 
;[TD001] 
;CTD00i: 
;CTD001D 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;CTn001] 
;Cit001] 
.-CTDOOi: 
;CTD001] 
;CTD001] 
;[TD001] 
.-CTDOOI] 
;CTD001] 
;[TD001] 
; CTDOOI] 
;[TD001] 
.-CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 


VDIS  -  VNP  SHOW  COMMANDS 
NXTCIR  -  GET  MEXT  CIRCUIT 


3371 
3372 
3373 
337A 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3583 
338^. 
3385 
3386 
3387 
3388 

3389  025050 

3390  025052 

3391  025056  103'416 

3392  025060  026127 

3393  025066  001771 

3394  025070  116002 

3395  025074  066702 

3396  025100  011202 

3397  025102  026227 

3398  025110  001760 

3399  025112  000241 

3400  025114 

3401  025116 
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.SBTTL  NXTCIR  -  GET  NEXT  CIRCUIT 

NXTCIR  -  GET  NEXT 

INPUTS: 

R3  =  NUMBER  OF  SLT'S  REMAINING  TO  SCAN 
R5  =  ADDRESS  OF  5LT  OF  LINE 

OUTPUTS: 

RO  =  SLT  ADDRESS 

R1  =  ADDRESS  OF  DDH  PDV 

R5  =  ADDRESS  OF  SLT  OF  NEXT  LINE  IN  SYSTEM 

ALL  OTHER  REGISTERS  ARE  PRESERVED 


NXTCIR:  SAVRG   <R2> 


10$: 


OOOOOOG  043340 

000003 
OOOOOOG 

OOOOOOG  045452 


20$: 


CALL 

BCS 

CMP 

BEQ 

MOVB 

ADD 

MOV 

CMP 

BEQ 

CLC 

RESRG 

RETURN 


NXTLIN 

20$ 

Z.NAM(R1),**RKMX 

10$ 

L.DLC(R0),R2 

$PDVTA,R2 

(R2),rJ 

Z.NAM(R2),**RLAB 

10$ 

<R^> 


GET  NEXT  SYSTEM  LINE  TO  OPERATE  ON 

BR  IF  END  OF  SYSTEM  LINFS 

IS  THIS  A  KHX? 

BR  IF  YES  ■-  NOT  A  CIRCUIT 

GET  DLC  PDV  INDEX 

INDEX  INTO  PDV  VECTOR  TABLE 

GET  PDV  ADDRESS 

IS  THIS  A  LAPB  LINE? 

BR  IF  YES  -  NOT  A  CIRCUIT 

INDICATE  SUCCESS 

RESTORE  R2 
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DISLOO  -  DISPLAY    LOOPBACK   NODE    INFORMATION 

39U  ;    DISPLAY   MESSAGES 
391  5 

3916  027774  ERMSGS     <)!NLoopbackXNNode               LineXN) 

3917  030023  ERBLKS     NLMSG1 

3919  030026  ERMSGS  <5!A     !!A> 

^920  030033  ER8LK$  NLMSG2,<TEMP1 ,TEMP3> 

3921 

3922  .DSABL  LC 


N  6 

VDIS  -  VNP  SHOW  COMMANDS       MACRO  V05.03b  Monday  15-Jul-85  12:U  Page  55-3 
DISLIN  -  DISPLAY  LINE  INFORMATIO.N 

A5A6 

4547  0JA162  ERM3G$  <  > 

',548  034163  ERBLKS  LMSG12 

45A9 

A550  .DSABL  LC 


N  7 

VDIS  -  VNP  SHOW  COMMANDS       MACRO  V05.03b  Monday  15-Jul-85  12:U  Page  66 
MSGOUT  -  OUTPUT  MESSAGE  TO  TI: 


^986 
4987 
^.988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 

5000  035606 

5001  035612     016700     OOOOOOG 

5002  035616 

5003  035622 

5004  035626 
5005 

5006 

5007        000001 


.SBTTL  MSGOUT  -  OUTPUT  MESSAGE  TO  TI: 

MSGOUT  -  OUTPUT  MESSAGE  TO  TI: 

INPUTS: 

R2  =  ARGUMENT  BLOCK  ADDRESS  FOR  SERMSG 

OUTPUTS: 

THE  MESSAGE  IS  OUTPUT  TO  TI: 


MSGOUT:  CALL  SSAVAL 

MOV  $CL8Uf,R0 

CALL  $ERMSG 

CALL  STIOUT 
RETURN! 


.END 


SAVE  ALL  REGISTERS 
GET  ADDRESS  OF  OUTPUT  BUFFER 
FORMAT  THE  OUTPUT  MESSAGE 
OUTPUT  THE  MESSAGE 


VDIS       CREATED  BY  MACRO  ON  15-JUI.-85  AT  12:17 
SYMBOL  CROSS  REFERENCE 


N  8 

PAGE  6 

CREF   OA.OO 


SYMBOL  VALUE 


HtD29 

HSGNAM 

HSLDTE 

HSNETW 

H$PVC 

HSRDTE 

H$RNW 

H$X29C 

INSPCT 

10. ATT 

lO.DET 

K.CSR 

K.PRI 

K.vcr 

LACTIV 
LCNTRL 
LD.ALI 
LD.CEX 
LD.CIR 
LD.LIN 
LO.LOG 
LD.MOD 
LD.NOD 
LD.OBJ 
LD.PRO 
LF.ACT 
LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LIERRI 

LKNOWN 

LLAB 

LMSGl 

LMSG12 

LMSG2 

LMSG3 

LMSG'. 

LMSG6 

LMSG9 

LNSOFF 


oooou 

000050 

000002 

00002A 

000006 

OOOOOA 

0OOOA2 

OOOOAO 

000067 

=  ****** 

=  ****** 

000002 

000000 

000001 

0004^1 

000567 

=  000030 

=  000024 

=  000035 

=  000025 

=  000031 

=  000037 

=  000027 

=  000032 

=  000026 

=  10C000 

=  000400 

=  000007 
=  002000 
=  001000 
=  000100 
=  C04000 
=  000020 
=  000200 
-  040000 

:--  010000 

=  000040 

=  000010 

=  020000 

=  000000 

015536 

000456 

000645 

033732 

034164 

033756 

034014 

034106 

034134 

034156 

=  000001 


GX 
GX 


REFERENCES 

42-3175 
34-2548 
35-2634 
34-2551 
27-1948 
31-2328 
33-2429 
42-3167 

#6-130 
6-267 
6-268 
55-4473 
55-4484 
55-4479 

#6-195 

#6-214 

#5-99 

#5-99 

#5-99 

#5-99 

#5-99 

#5-99 

#5-99 

#5-99 

#5-99 

#5-96 

#5-96 
55-4503 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 

#5-96 
28-2234 

#6-196 

#6-218 
55-4398 
55-4519 
55-4405 
55-4454 
55-4492 
55-4517 
55-4456 
35-2645 


27-2002    27-2090 


48-3474 


55-4477 


28-2169 
53-3987 


27-1966 
53-4188 


53-3990 


#28-2241 
28-2216 
55-4422 
#55-4530 
#55-4548 
#55-4533 
#55-4536 
#55-4539 
#55-4542 
#55-4545 


55-4412 


27-1962    27-2103    53-3968    53-3985    53-4108    53-4143    53-4170    55-4415 


28-2178    53-4140    55-4507 


53-3999    55-4420    57-4654 


53-4012    53-',?41    53-4072    53-4135    53-4162    53-4233    55-4500 
53-4166 


1                               — . _ — — 

VDIS 

CREATED  BY 

MACRO     ON   15 

-JUL-85  AT 

12:17 

N 
PAGE   19 

9 

SYMBOL 

:R0SS   REFERENCE 

CREF       04. 

)0 

SYMBOL 

VALUE 

REFERENCES 

42-3182 

44-3277 

44-3288 

44-3294 

44-3306 

44-3307 

45-3365 

49-3588 

53-4022 

53-4026 

53-4029 

53-4050 

53-4054 

53-4081 

53-4085 

53-4088 

53-4209 

53-4259 

53-4260 

53-4261 

53-4265 

53-4269 

53-4270 

54-4343 

54-4346 

54-43'.7 

54-4354 

55-4464 

58-4683 

58-4684 

59-4722 

59-4726 

59-4733 

59-4737 

59-4744 

59-4750 

6>/-4779 

•62-4847 

62-4848 

62-4851 

62-4853 

63-4872 

SCBDMG 

r     ****** 

GX 

19-1132 

19-1142 

19-1154 

21-1245 

21-1254 

21-1263 

22-1295 

23-1349 

SCBOMG 

=     ****** 

GX 

15-903 

15-907 

15-928 

16-954 

SCBTA 

r     ****** 

GX 

56-4587 

56-4597 

57-4639 

57-4649 

57-4662 

SCCBNM 

~     ****** 

GX 

8-353 

SCEACC 

=     ****** 

GX 

22-1307 

25-1407 

37-2766 

42-3179 

44-3279 

45-3363 

59-4747 

SCLBUF 
SC5TA 

=     ****** 
:;     ****** 

GX 
GX 

66-5001 
15-889 

15-891 

15-912 

15-921 

21-1236 

53-4119 

55-4447 

56-4576 

57-4628 

SDALI 

002512 

RG 

#10-455 

$DBG$ 

=   **■*♦** 

27-1922 

29-2257 

SDCIR 
SDECPT 

0U0A2 

=   ****** 

RG 
GX 

#27-1922 
10-461 
26-1706 

18-1023 
26-1713 

22-1298 
53-4208 

25-1397 
58-4682 

26-1439 
59-4743 

26-1484 

26-1524 

26-1605 

26-1684 

SDEVHD 

r     ****** 

GX 

62-4847 

SDIV 

=     ****** 

GX 

49-3583 

SDLIN 

015160 

RG 

#28-2155 

SDLOG 

003446 

RG 

#12-663 

SDMOD 

015540 

RG 

#29-2257 

SDNOD 

007426 

RG 

#26-1433 

SDOBJ 

002272 

RG 

#9-383 

$DPRO 

003164 

RG 

#11-571 

tDSYS 

001706 

RG 

#8-339 

SERMSG 

=  ****** 

GX 

66-5002 

SEROUT 

-  ****** 

GX 

8-341 

9-385 

9-425 

10-457 

10-535 

10-538 

11-573 

11-629 

12-666 

12-680 

12-684 

26-1436 

26-1565 

27-1925 

27-2131 

28-2157 

28-2234 

29-2260 

34-2529 

39-2852 

42-3171 

SFILHD 

-  ****** 

GX 

12-7:4 

SFNNAM 

=  ****** 

GX 

12-678 

SGETAD 

r     ****** 

GX 

12-"^  31 

22-1308 

25-1408 

34-2570 

37-2767 

39-2894 

42-3180 

44-3280 

45-3364 

53-4021 

53-4025 

53-4049 

53-4053 

53-4080 

53-4084 

53-4262 

59-4749 

SGETRV 

r         ^**** 

GX 

10-4c1 

18-1023 

22-1298 

25-1397 

26-1439 

26-1484 

26-1524 

26-1605 

26-1630 

26-1684 

26-1706 

26-1713 

26-1762 

26-1763 

27-1949 

27-2003 

27-2091 

31-2329 

31-2352 

31-2354 

33-2430 

34-2553 

35-2635 

37-2741 

39-2880 

40-2926 

42-3168 

49-3577 

49-3578 

:3-4208 

53-4258 

55-4473 

58-46S2 

59-4733 

59-4743 

60-4778 

60-4785 

62-4850 

62-4853 

SHMBUF 

=     ****** 

GX 

10-460 
22-1297 

10-464 
22-1299 

18-1022 
25-1396 

18-1026 
25-1398 

18-1027 

18-1030 

18-1031 

18-1032 

18-1033 

SLGCON 

-     ****** 

GX 

15-894 

SLGFNB 

r     ****** 

GX 

15-898 

15-909 

SLGMON 

=     ****** 

GX 

15-888 

15-890 

SLGSTT 

z     ****** 

CX 

13-832 

14-859 

Slguic 

-     ****** 

GX 

15-901 

15-905 

SLLCTA 

-     ****** 

GX 

53-4198 

$MUL 

L.       ****** 

GX 

63-4881 

63-4886 

63-489/' 

SOBJHD 

=       ****** 

GX 

9-388 

SOPTON 

-       ****** 

GX 

10-487 

10-506 

10-519 

12-667 

M2-669 

12-671 

*12-704 

♦12-707 

13-822 

13-826 

15-883 

15-885 

17-977 

29-2266 

30-2305 

30-2307 

31-2356 

32-2404 

33-2433 

33-2482 

34-2532 

34-2537 

35-2669 

36-2709 

37-2778 

38-2818 

39-2854 

N  10 
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MACRO  CALLS 


110 
111 


.ENDC 
.ENDM 


ASR$ 


VENA  -  VNP  ENABLE/DISABLE  LINES 
$VACT  -  SET  ACTIVE  POlLING  RATE 


617 
618 
619 
620 
621 
622 
623 
62A 
62: 
626 
627 
628 
629 
630 
651 
632 
633 
63A 
635 
636 
637 
638 
639 
6^0 
641 
642 
643 
644 
645 
6'.6 
647 


N  11 

MACRO  V05.03b  Wednesday  11-Sep-85  12:06  Page  14 

.SBTTL  $VACT  -  SET  ACTIVE  POLLING  RATE 

♦*-$VACT-SET  ACTIVE  POLLING  RATIO  FOR  A  TRIBUTARY 

THIS  ROUTINE  IS  CALLED  TO  CHANGE  THE  ACTIVE  POLLING  RATE 
FOR  A  TRIBUTARY. 


INPUTS: 


OUTPUTS: 

C-BIT 


SSLTA  =  SLT  ADDRESS 

=  SUCCESS/FAILURE 


001350 

001350  016701  ""OOOOOG 

001354  032761  OOOOOOG  OOOOOOG 

001362  001412 

001364 

001370  103406 

001372  001412 

001374  116767  000022G  000010G 

001402 

001^,06 


$VAlT:: 


MOV 
BIT 
BEQ 

CALL 

BCS 

BEQ 

M0V8 

PUTAD 

RETURN 


SSLTA, R1 

*LF.MTP,L.FLG(R1) 

101$ 

FNDTRI 

10$ 

102$ 

RQ8+L0.MAC,$8FR+S.PLA 


ERROR  CONDITIONS 


001410 
001420 


101$: 
102$: 


ERRPT$ 
ERRPTS 


ERR31,$ER0UT 
EfiR33,$EROUT 


GET  SLT  ADDRESS 

IS  THIS  A  MULTIPOINT  LINE  ? 

IF  EO,  NO  -  ERROR 

FIND  THE  DCP  TRIBUTARY  TABLE 
IF  CS,  ERROR  DETECTED 
IF  EQ,  TRIBUTARY  TABLE  NOT  FOUND 
ELSE,  SET  THE  NEW  POLLING  RATE 
WRITE  BACK  THE  TRIBUTARY  TABLE 


LINE  IS  NOT  MULTIPOINT 

INVALID  PARAMETER,  MULTIPOINT  ACTIVE 


N  12 

VENA  -  VNP  ENABLE/DISABLE  LINES  MACRO  V05.03b  Wednesday  11-Sep-85  12:06  Page  2A-1 
D5BL1N  -  DISABLE  A  LINE 


1U1 
1U2 
1U3 
IHA 
1U5 
1K6 
1U7 
1U8 
1K9 
1150 
1151 
1152 
1153 
1154 


003A20  00U02 

003422  005016 

005424  000404 

003426  062701  OOOOOOG 

003432  005302 

003434  002366 

003436  016701  OOOOOOG 

003442  042661  OOOOOOG 
003446 


003450 


BEQ 

80$ 

CLR 

(SP) 

BR 

90$ 

80$: 

ADD 

*S.LEN,R1 

DEC 

R2 

BGE 

70$ 

90$: 

MOV 

$SLTA,R1 

Die 

(SP)t,L.FLG(R1) 

100$: 


RETURN 


IF  EQ,  NO 

ELSE,  DON'T  CLEAR  ACTIVE  BIT  IN  SlT 

AND  LEAVE 

G':T  next  SLT  TRIB  EXTENSION  ADDRESS 

AiMY  MORE  TRIBUTARIES  ? 

IF  YES  -  BRANCH 

ELSE,  GET  SLT  ADDRESS 

CLEAR  ACTIVE  BIT  IF  ALL  TRIBS  ARE  'OFF' 


;  ERROR  CONDITIONS 

ioi$:   ERRPT$  ERR21,$ER0UT 


N  13 

VENA  -  VNP  ENABLE/DISABLE  LINES  MACRO  V05.03b  Wednesday  11-Sep-85  12:06 
QUICK  -  FAST  REMOTE  NODE  PROCESSING 


Page  32 


1690 

1691 

1692 

1693 

169A 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

170A 

1705 

1706  005636 

1707  005636 

1708  005640 

020102 

1709  005642 

001022 

1710  005644 

011246 

1711  005646 

010012 

1712  005650 

1713  005660 

1714  005676 

012667  OOOOOOG 

1715  005702 

1716  005706 

000404 

1717 

1718  005710 

010046 

1719  005712 

010146 

1720  005714 

1721  005720 

1722  005722 

.S8TTL  OINS  -  INSERT  ENTRY  INTO  QUEUE 

»»»  -  QINS  -  INSERT  ENTRY  INTO  MIDDLE  Of  QUEUE 

INPUTS: 

RO  =  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK  TO  BE  INSERTED 

Rl  =  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 

R2  =  ADDRESS  OF  I ISTHEAD  (INTERNAL  STORAGE) 

OUTPUTS: 

R0-R1  =  PRESERVED 
R2  =  DESTROYED 


QINS: 


SAVRG 

CMP 

BNE 

MOV 

MOV 

CEACCS 

GETAD 

MOV 

PUTAD 

BR 


10$: 


MOV 
MOV 
CALL 
20$:    RESRG 
RETURN 


<R0> 
R1.R2 

loi 

(R2),-(SP) 

R0,(R2) 

RO 

R0,#2 

(SP)+,$BfR 

20$ 

RO,-(SP) 
R1,-(SP) 
$XLINK 
<R0> 


SAVE  RO 

IS  PREVIOUS  ENTRY  THE  LISTHFAD  ? 

IF  NE,  NO 

ELSE,  SAVE  POINTER  TO  NEXT  ENTRY 

INSERT  NEW  ENTRY  INTO  LIST 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  POINTER  TO  NEXT 

STORE  POINTER  TO  NEXT 

WRITE  BACK  UPDATED  LINK 

AND  CONTINUE 

GET  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 
GET  UNMAPPED  ADDR  OF  PREVIOUS  BLOCK 
LINK  CURRENT  BLOCK  INTO  LIST 
RESTORE  RO 


N  U 

VENA  -  VNP  ENABLE/DISABLE   LINES  MACRO  v05.03b  Wednesday  11-Sep-85  12:06 
$VOBJ    -   SET/CLEAR  OBJECT   BLOCK 
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2240 

22A1 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 


010514 
0^0522 
010530 
010532 
010540 
010546 
010550 
010556 
010564 
010572 
010600 
010602 
010610 
010616 
010622 


010624 
010630 
010634 
010636 
010642 
010646 
010652 
010660 
010666 
010674 
010702 


010710 
010720 
010736 
010740 
010744 
010750 
010754 
010760 


010762 
010772 
011002 


152767 
032767 
001003 
142767 
032767 
001411 
042767 
142767 
156767 
032767 
001406 
016767 
016767 

000456 


000100  000003G 
000100  000012G 

000100  000003G 
000010  OOOOOOG  40$: 

177770  00001 2G 
000007  000003G 
00001 2G  0000036 
000004  OOOOOOG  45$: 

000004G  000006G 
000006G  OOOOIOG 

47$: 
49$: 


012701  000012 


103456 
010067 
012701 
012702 
116261 
116261 
116261 
016261 
016261 


005001 
156701 

012702 


000164' 
OOOOOOG 
OOOOOOG 

000002  000002 
000012  000003 
000010  000004 
000004  000006 
000006  000010 


000002G 
OOOOOOG 


BISB  #OF.RLU,$BFRtO.FLG 

BIT  #OF$LOG,RQBtLO.OFL 

BNE  40$ 

Bice  #OF.PLU,$BFRtO.FLG 

BIT  #OP$LVL,$OPTON 

BEO  45$ 

BIC  #*C<7>,RQB*L0.0FL 

BICB  #7,$BFRt0.fLG 

BISB  RQ8«-L0.0FL,$BFR*0.FLG 

BIT  #OP$NAN,$OPTON 

BEQ  47$ 

MOV  RQ8+L0.0NM,$BFR+0.NAM   . 

MOV  Ra8tLO.0NMt2,$8FR+O.NAM+2 

PUTAD 

BR  60$  ; 


SET  NEW  OBJECT 


50$: 


MOV  #0.LEN,R1 

CALL  $ALPOL 

BCS  102$ 

MOV  RO.CURUNH 

MOV  #$8FR,R1 

MOV  #RQB,R2 

M0V8  LR.TYP(R2),0.TVP(R1) 

MOVB  L0.0FL(R2),0.FLG(R1) 

MOVB  LO.COP(R2),O.MXC(R1) 

MOV  L0.0NM(R2),0.NAH(R1) 

MOV  L0.0\Mt2(R2),0.NAMt2(R1) 


INSERT  ENTRY  INTO  OBJECT  LIST 


55$: 


60$: 


CEACC$ 

PUTAD 

CLR 

BISB 

CALL 

MOV 

CALL 

RETURN 


R0,R1 

R1,#0.LEN 

R1 

$BFR+0.TYP,R1 

F I NOB J 

#$08JHD,R2 

QINS 


ERROR  CONDITIONS 


101$ 
102$ 
103$ 


ERfiPT$  ERR20,$ER0UT 
ERRPT$  ERR18,$ER0UT 
ERRPT$  ERR30,$EROUT 


ELSE,   ASSUME   LOGIN  UK 

RUN  UNDER  LOGIN  UIC   ? 

IF  NE,  YES 

ELSE,  RUN  UNDER  TASK'S  UIC 

HAS  THE  VERIFICATION  STATE  CHANGED  ? 

IF  EQ,  NO 

CLEAN  OUT  JUNK  BITS 

CLEAN  OUT  OLD  VERIFICATION  STATE 

STORE  NEW  VERIFICATION  STATE 

WAS  THE  NAME  SPECIFIED  ? 

IF  EQ,  NO  ..  WRITE  BACK  THE  OBJECT 

ELSE,  STORE  THE  OBJECT  NAME 

RE-WRITE  OBJECT  BLOCK 
AND  RETURN 


GET  LENGTH  OF  OBJECT  BLOCK 

TRY  TO  ALLOCATE  AN  OBJECT  BLOCK 

IF  CS,  ALLOCATION  FAILURE 

SAVE  UNMAPPED  ADDRESS 

POINT  AT  I/O  BUFFER 

POINT  AT  REC JEST  BLOCK 

STORE  TYPE  CODE 

STORE  FLAGS/VERFICATION  LEVEL 

STORE  MAXIMUM  COPIES  VALUE 

STORE  OBJECT  NAME 


CONVERT  TO  MAPPED  ADDRESS 

WRITE  OUT  OBJECT  BLOCK 

GET  OniECT  TYPE 

..WITHOUT  SIGN  EXTEND 

FIND  PLACE  FOR  OBJECT  BLOCK 

POINT  AT  LISTHEAD 

INSERT  ENTRY  INTO  QUEUE 


OBJECT  NOT  IN  SYSTEM 

OBJECT  BLOCK  ALLOCATION  FAILURE 

OBJECT  MAY  NOT  BE  CLEARED  '. 


N  IS 

vENA  -  VNP  ENABLE/DISABLE  LINES  MACRO  V05.03b  Wednesday  ll-5ep-85  12:06 
CUML  -  CHECK.  FILE  SINK.  NAME 
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278A 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

279A 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 


013072 
013074 
013100 
013104 
013106 
013112 
013114 
013120 
013124 
013130 
013132 
013134 


013136 
013140 
013142 
013144 
013150 
013154 
013156 
013164 
013172 
013176 
013202 
013204 
013206 
013210 
013214 
013220 
013222 
013226 
013232 
013250 
013254 
013256 
013262 
CI  3264 
013272 


.SSTTL   CKFIL  -  CHECK  FILE  SINK  NAME 

CKFU  -  CHECK  FILE  SINK  NAME  FOR  VALIDITY 

INPUTS: 

RQBHO.SNM  -  FII'  SINK  NAME  ASCII  STRING 

OUTPUTS: 

CARRY  -  SUCCESS/FAILURE 


010546 
012701 

103002 
000167 
010005 
012700 
012701 
012702 
112021 
005302 
003375 


010403 
010500 
160400 
012704 

103024 
016767 
016767 
012700 
122720 
001570 
005303 
003373 
01o700 

103562 
012700 
016702 

026702 
001403 
016702 
000763 
032767 
001534 


000050 


000454 

000020' 
000134' 
000020 


CKFIL: 


101: 


20$: 


MOV 

MOV 

CALL 

BCC 

JMP 

MOV 

MOV 

MOV 

MOV 

M0V8 

DEC 

BGT 


R5,-(SP) 

#MXFIL,R1 

GETLEN 

10$ 

130$ 

R0,R5 

#DfFFIL,R 

#FjLNAM 

#F1LLEN 


(R0)+, 

R2 

20$ 


(R1)' 


MOV 

MOV 

sua 

000U6' 

MOV 

CALL 

BCC 

000032' 

000146' 

MOV 

000034' 

000150' 

MOV 

000035G 

MOV 

000072 

30$: 

CMPB 
BEQ 
DEC 
BGT 

000146' 

MOV 

CALL 

BCS 

000035G 

MOV 

OOOOOOC 

40$: 

MOV 

42$: 

GETRV 

000002G 

CMP 
BEQ 

000002G 

MOV 
BR 

040000 

000010G 

45$: 

BIT 
BEQ 

CHECK  DEVICE  AND  UNIT  NUMBER 


R4,R3 

R5,R0 

R4,R0 

#F1LDEV,R4 

CKMDEV 

40$ 

DEFDEV.FILDEV 

DEFUNT,FILUNT 

#LO.SNM+RQ8,R0 

*':,(R0)t 

120i 

R3 

30$ 

F]LDEV,RO 

FNDDCB 

130$ 

#LO.SNM<-RQB,R0 

D.UCfj+$BFR.R2 

R2,#U.CNTt2 

U.REDt$BFR,R2 

45$ 

U.RED*$BFR,R2 

42$  , 

*DV.F11,U.CWlt$BF 

120$ 


SAVE  R5 

GET  MAXIMUM  LENGTH  OF  FILE  NAME 

GET  LENGTH  OF  FILE  NAME  STRING 

BR  IF  SUCCESSFUL 

BR  IF  BAD  FILE  NAME  STRING 

POINT  TO  END  OF  STRING 

GET  DEFAULT  FILE  NAME  STRING 

POINT  TO  FILE  NAMES  STORAGE 

GET  LENGTH  OF  DEFAULT  FILE  NAME 

STORE  DEFAULT  FILE  NAME 

MORE  TO  TRANSFER? 

BR  IF  YES 


SAVE  CHARACIER  COUNT 
GET  ADDRESS  OF  END  OF  STRING 
POINT  TO  START  OF  STRING 
POINT  TO  STORAGE  FOR  FILE  NAME 
CHECK  FOR  VALID  DEVICE  NAME 
BR  IF  FOUND  ONE 
STORE  DEFAULT  DEVICE  NAME 
STORE  DEFAULT  UNIT  NUMBER 
POINT  TO  BEGINNING  OF  STRING 
ANY  DEVICE  SPECIFIED? 
BR  IF  YES  -  BAD  DEVICE  NAME 
MORE  CHARACTERS  TO  CHECK 
BR  IF  YES 

GET  DEVICE  NAME  TO  LOOK  FOR 
CHECK  TO  SEE  IF  DEVICE  IS  IN  SYSTEM 
BR  IF  DEVICE  NOT  IN  SYSTEM 
POINT  TO  BEGINNING  OF  STRING 
GET  UC6  ADDRESS 
READ  IN  UCB 

HAS  THIS  DEVICE  BEEN  REDIRECTED? 
BR  IF  NO 

GET  NEXT  UCB  IN  REDIRECT  LIST 
CHECK  REDIRECT  LIST 
R  ;  IS  IT  A  FILES-11  DEVICE? 
BR  IF  NO 


CHECK  UK 
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